Manual Coding

AWAL BELAJAR VISUAL FOXPRO
untuk menampilkan program cari data dan menggunakan looping

set status off

set scoreboard off

do while .t.

clear

use mhs

@3,2 say "-----------------------------------------------------------------------------------------------------------------------------------------------"

@4,2 say "| No.induk | Namamhs | jurusan | IPK | alamat | kota |"

@5,2 say "-----------------------------------------------------------------------------------------------------------------------------------------------"

for i=0 to 7

?" | | | | | | |"

@6+i,7 say nim

@6+i,21 say namamhs

@6+i,38 say jurusan

@6+i,59 say IPK

@6+i,69 say Alamat

@6+i,86 say kota

skip

endfor

?" -------------------------------------------------------------------------------------------------------------------------------------------------"

use mhs index nimndx

vnim= space (4)

p=space (1)

@20,7 say "inputkan data yang akan di cari ?"get vnim

read

seek vnim

if not found []

@21,7 say" data tidak diketemukan !!!"

else

@25,7 say " no induk :"+ nim

@26,7 say " nama :" + namamhs

@27,7 say " jurusan :" + jurusan

@28,7 say " ipk :"

@28,12 say ipk

endif

@30,7 say " ingin cari lagi [y/t]"get p

read

seek p

if (p="y") or (p="Y") then

loop

else

exit

endif

enddo

untuk menampilkan program input data :

set status off

set scoreboard off

do while .t.

clear

use mhs

@3,2 say "-----------------------------------------------------------------------------------------------------------------------------------------------"

@4,2 say "| No.induk | Namamhs | jurusan | IPK | alamat | kota |"

@5,2 say "-----------------------------------------------------------------------------------------------------------------------------------------------"

for i=0 to 12

?" | | | | | | |"

@6+i,7 say nim

@6+i,21 say namamhs

@6+i,38 say jurusan

@6+i,59 say IPK

@6+i,69 say Alamat

@6+i,86 say kota

skip

endfor

?" -------------------------------------------------------------------------------------------------------------------------------------------------"

use mhs index nimndx

vnim = space (4)

vnama = space (20)

vjur = space (10)

vipk = 0.00

p=space (1)

@25,7 say " no induk :"get vnim

@26,7 say " nama :" get vnama

@27,7 say " jurusan :" get vjur

@28,7 say " ipk :" get vipk

read

append blank

replace nim with vnim

replace namamhs with vnama

replace jurusan with vjur

replace ipk with vipk

@30,7 say " ingin input data lagi [y/t]"get p

read

seek p

if (p="y") or (p="Y") then

loop

else

exit

endif

enddo

reindex

untuk mengubah inputan data yang bertipe char menjadi bertipe date :

contoh :

Vtgllhr = space (8)

Vtgllhr = ctod(“ - - “)