MEMBUAT PROGRAM VFP

Klik tab “Code” untuk mengetik program pertama anda.
Klik tombol “New” sampai tampil dialog box spt di bawah.



Anda perhatikan “Program1” ini merupakan tempat pengetikan program anda.
Ketik listing program berikut di modul “program editor” anda, sehingga tampak spt di bawah ini :

SET TALK OFF
_screen.windowstate=2
_screen.Caption="Program Entri Data Mahasiswa"
_screen.Picture=" "
SET DATE BRITISH
SET DECIMALS TO 2
SET CENTURY ON
SET DELETED ON
SET MULTILOCKS ON
CLEAR

IF SetPath()
OPEN DATABASE kampus.dbc SHARED
DO mn_mahasiswa.mpr

READ EVENTS
ELSE
QUIT
ENDIF

FUNCTION SetPath()
local lcSys16, lcProgram

lcSys16 = sys(16)
lcProgram = substr(lcSys16, at(":", lcSys16) - 1)

cd left(lcProgram, rat("\", lcProgram))
if right(lcProgram, 3) = "FXP"
cd ..
ENDIF

SET PATH TO Data,Forms,Menu,Picture,Progs,Reports
ENDFUNC

Catatan : Ketik dg teliti agar terhindar dari kesalahan penulisan atau “syntax error”.



Setelah selesai klik tombol close “X” sampai tampil dialog box spt di bawah :



Tekan tombol “Yes” dan simpan di directory “Progs” dengan nama “utama.prg”
Nama “utama.prg” hanyalah contoh, anda bisa memberi nama yg lain yg mencerminkan itu sebuah modul program yg akan di jalankan pertama kali.
Misal “main.prg” atau “mahasiswa.prg” dll.



Tekan tombol “Save” dan sekarang anda sudah memiliki “utama.prg”
Jika anda perhatikan “utama.prg” berwarna lebih gelap/bold itu menandakan “utama.prg” adalah modul yg akan di jalankan pertama kali pada saat aplikasi di jalankan oleh user.



Jika ingin melihat kembali atau mengedit program yg telah anda buat caranya double klik di “utama” atau klik 1x “utama” dan klik tombol “Modify” sampai tampil modul “program editor” kembali



Setelah tampil anda bisa mengeditnya dan setelah selesai jangan lupa close dan save program kembali.

Catatan :
Anda perhatikan tulisan di bawah “Description:”
Path; c:\mahasiswa\progs\utama.prg
Ini menunjukkan bahwa “utama.prg” di simpan di c:\mahasiswa\progs

Sumber:
http://www.ilmukomputer.com
http://www.fox-id.org