Source Code Menentukan Bilangan Ganjil dan Genap dengan Visual Foxpro

Thursday, April 18, 2013

Source Code Menentukan Bilangan Ganjil dan Genap dengan Visual Foxpro

Selamat pagi teman - teman... pagi ini ane akan meng-share sebuah source code lagi, kali ini ane akan membuat aplikasi di Microsoft Visual Foxpro dengan nama aplikasinya "Menentukan Bilangan Genap dan Ganjil" jika temen - temen pada berminat, langsung saja ya kita praktekkan.
Buatlah sebuah form di Foxpro lalu rancang sebagai berikut :

Tampilan Form

Setelah temen - temen merancang, lalu masukkan listing programnya di bawah ini :

Object : cmdproses     Procedure : Click
genap=""
ganjil=""
FOR a=1 TO LEN(Thisform.txtbil.value)
    IF MOD(VAL(SUBSTR(thisform.txtbil.Value,a,1)),2)=0 then
        ganjil= ganjil + SUBSTR(thisform.txtbil.Value,a,1)
    ELSE
        genap = genap + SUBSTR(thisform.txtbil.Value,a,1)
    ENDIF
NEXT a

thisform.txtganjil.Value = ganjil
thisform.txtgenap.Value = genap

Object : cmdkeluar     Procedure : Click
thisform.Release

nah, jika temen - temen sudah memasukkan listing program diatas maka tinggal di jalankan saja.
jika temen - temen ingin project jadinya, nih sudah ane sertain :

Download :