Pembuatan menu: dengan perintah INPUT , MENU & melalui FORM

1. Pembuatan menu: denganperintah INPUT, MENU & melalui FORM PERTEMUAN 12

2. Menu • Aplikasi pada umumnya mencakup berbagai jenis pekerjaan yang akan dilakukan dengan bantuan komputer • Manajemen data • Pembuatan laporan • Dsb. • Dalam beberapa kasus, pengguna seringkali hanya ingin menjalankan jenis pekerjaan tertentu saja, tidak seluruh pekerjaan yang ada di dalam aplikasi

3. Menu • Untuk kepentingan pengguna seperti inilah maka seringkali suatu aplikasi harus dikelompokkan ke dalam menu atau sub-menu • Dengan membagi instruksi di dalam suatu aplikasi menjadi menu atau sub-menu maka pengguna akan memiliki kontrol untuk menentukan atau memilih kelompok program yang akan dijalankan sesuai dengan kebutuhannya

4. Menu • Menu: daftar pilihan yang ditawarkan kepada pengguna • Setiap menu yang ditawarkan dihubungkan dengan prosedur atau kelompok instruksi tertentu • hapus data rangkaian perintah utk hapus data • tambah data  rangkaian perintah utk menambah data

5. Pembuatan Menu VFP • Sekurang-kurangnya ada 3 cara yang dapat digunakan untuk membuat menu dalam VFP • Menggunakan perintah INPUT (pengguna mengisikan pilihan) • Menggunakan CommandButton dalam FORM • Menggunakan perintah MENU

6. PEMBUATAN MENU DENGAN PERINTAH INPUT

7. Menu denganperintah INPUT • Strategi yang digunakan: • Tuliskanpetunjukdanpilihan menu • Penggunadimintamenuliskanpilihan menu yang dibacadenganperintah INPUT • Perintah INPUT hanyadapatmembacaisiannumerik • Gunakan DO CASE … ENDCASE untukmengatureksekusisesuai menu yang dipilih

8. Contoh Menu VFP dengan INPUT.. DO CASE CASE mChoice = 1 DO EntriData CASE mChoice = 2 DO HitungAvgLyr CASE mChoice = 3 DO UpdateData CASE mChoice = 4 DO DeleteData CASE mChoice = 9 RELEASE WINDOWS lMenu EXIT OTHERWISE WAIT ' *** Pilihan menu salah *** ' ENDCASE ENDDO RELEASE WINDOW lMenu ENDPROC PROCEDURE PengolahanMHS CLEAR DEFINE WINDOW lMenu ; FROM 1, 1 TO 30, 60 ; IN DESKTOP ; FONT 'courier',14; TITLE "Pengolahan data mahasiswa" ; GROW FLOAT ACTIVATE WINDOW lMenu DO WHILE .T. CLEAR ? ?' MENU PENGOLAHAN DATA MAHASISWA:' ? ?' 1. Entri Data' ?' 2. Hitung Rata-Rata Nilai' ?' 3. Perbaikan Data' ?' 4. Penghapusan Data' ?' 9. Keluar' INPUT ' *** Pilih menu: ' to mChoice

9. Contoh Menu VFP dengan FORM * creating tool tip fMenu12.cmdEntri.ToolTipText = "Penambahan data" fMenu12.cmdUpdate.ToolTipText = "Perbaikan data" fMenu12.cmdDelete.ToolTipText = "Penghapusan data" fMenu12.cmdTabel.ToolTipText = "Penyajian hasil" fMenu12.cmdQuit.ToolTipText = "Keluar" fMenu12.ShowTips = .T. fMenu12.SHOW READ EVENTS && start to read events RETURN && ends procedure 'MainOpt' PROCEDURE Menu12 fMenu12 = CREATEOBJECT('Form') fMenu12.Closable = .T. fMenu12.Caption='Pengolahan data mahasiswa' fMenu12.Height = 400 fMenu12.Width = 650 fMenu12.AddObject('cmdEntri' , 'cmdEntri1') fMenu12.AddObject('cmdUpdate' , 'cmdUpdate1') fMenu12.AddObject('cmdDelete' , 'cmdDelete1') fMenu12.AddObject('cmdTabel' , 'cmdTabel1') fMenu12.AddObject('cmdQuit' , 'cmdQuit1') fMenu12.AddObject('lblJudul' , 'lblJudul1') fMenu12.AddObject('lblMsg' , 'lblMsg1') fMenu12.cmdEntri.Visible = .T. fMenu12.cmdUpdate.Visible = .T. fMenu12.cmdDelete.Visible = .T. fMenu12.cmdTabel.Visible = .T. fMenu12.cmdQuit.Visible = .T. fMenu12.lblJudul.Visible = .T. fMenu12.lblMsg.Visible = .T.

10. PEMBUATAN MENU DENGAN MENGGUNAKAN FORM

11. Pembuatan menu denganmenggunakan FORM • Strateginya: • Gunakancommand buttonuntuksetiap menu yang dapatdipilih • Perintaheksekusidilakukanmelaluiprosedurclickdaridefinisicommand button yang bersangkutan • Gunakanlabeluntukmenampilkanketerangandaninformasi lain

12. Contoh Menu VFP dengan FORM * creating tool tip: a message shown as mouse moved to particular object fMenu12.cmdEntri.ToolTipText = "Penambahan data" fMenu12.cmdUpdate.ToolTipText = "Perbaikan data" fMenu12.cmdDelete.ToolTipText = "Penghapusan data" fMenu12.cmdTabel.ToolTipText = "Penyajian hasil" fMenu12.cmdQuit.ToolTipText = "Keluar" fMenu12.ShowTips = .T. fMenu12.SHOW READ EVENTS && start to read events RETURN PROCEDURE Menu12 fMenu12 = CREATEOBJECT('Form') fMenu12.Closable = .T. fMenu12.Caption='Pengolahan data mahasiswa' fMenu12.Height = 400 fMenu12.Width = 650 fMenu12.AddObject('cmdEntri' , 'cmdEntri1') fMenu12.AddObject('cmdUpdate' , 'cmdUpdate1') fMenu12.AddObject('cmdDelete' , 'cmdDelete1') fMenu12.AddObject('cmdTabel' , 'cmdTabel1') fMenu12.AddObject('cmdQuit' , 'cmdQuit1') fMenu12.AddObject('lblJudul' , 'lblJudul1') fMenu12.AddObject('lblMsg' , 'lblMsg1') fMenu12.cmdEntri.Visible = .T. fMenu12.cmdUpdate.Visible = .T. fMenu12.cmdDelete.Visible = .T. fMenu12.cmdTabel.Visible = .T. fMenu12.cmdQuit.Visible = .T. fMenu12.lblJudul.Visible = .T. fMenu12.lblMsg.Visible = .T.

13. Contoh Menu VFP dengan FORM DEFINE CLASS cmdUpdate1 AS CommandButton Caption = "2 - Perbaikan Data" Cancel = .T. Left = 150 Top = 95 Height = 25 Width = 150 Alignment = 2 PROCEDURE Click cDir0 = CURDIR() SET PATH TO &cDir0 SET PROCEDURE TO UpdateData DO UpdateData ENDPROC ENDDEFINE DEFINE CLASS cmdEntri1 AS CommandButton Caption = "1 - Entri Data" Cancel = .T. Left = 150 Top = 70 Height = 25 Width = 150 Alignment = 2 PROCEDURE Click cDir0 = CURDIR() SET PATH TO &cDir0 SET PROCEDURE TO EntriData DO EntriData ENDPROC ENDDEFINE

14. Contoh Menu VFP dengan FORM DEFINE CLASS cmdTabel1 AS CommandButton Caption = "4 - Nilai Rata-Rata" Cancel = .T. Left = 150 Top = 145 Height = 25 Width = 150 Alignment = 2 PROCEDURE Click cDir0 = CURDIR() SET PATH TO &cDir0 SET PROCEDURE TO HitungAvgLyr DO HitungAvgLyr ENDPROC ENDDEFINE DEFINE CLASS cmdDelete1 AS CommandButton Caption = "3 - Penghapusan Data" Cancel = .T. Left = 150 Top = 120 Height = 25 Width = 150 Alignment = 2 PROCEDURE Click cDir0 = CURDIR() SET PATH TO &cDir0 SET PROCEDURE TO DeleteData DO DeleteData ENDPROC ENDDEFINE

15. Contoh Menu VFP dengan FORM DEFINE CLASS lblMsg1 AS Label && defines label Top = 200 Left = 70 Width = 350 Height = 30 Curvature = 99 Caption = "Klik salah satu menu untuk mengaktifkannya!!" FontBold = .T. Alignment= 2 FontSize = 11 Enabled = .F. BackColor = RGB(192,192,192) ENDDEFINE DEFINE CLASS lblJudul1 AS Label && defines label Top = 35 Left = 70 Width = 350 Height = 30 Curvature = 99 Caption = "Menu pengolahan data mahasiswa" FontBold = .T. Alignment= 2 FontSize = 11 Enabled = .F. BackColor = RGB(192,192,192) ENDDEFINE

16. PEMBUATAN MENU DENGAN PERINTAH MENU

17. Pembuatan menu dengan POPUP • Strategi • Kelompokkan menu kedalam sub-sub menu • Menu utamadisajikandalam PAD • Sub-menu disajikansebagai POPUP dari PAD yang bersangkutan • Eksekusidilakukanberdasarkanpilihan yang dilakukandenganklikterhadap sub-menu yang diinginkan

18. Pembuatan menu dengan POPUP MENU BAR PAD-1 PAD-2 … Popup-11 Popup-21 Popup-12 Popup-22 … … • Urutaneksekusi • Penggunamemilihsalahsatu menu dari menu bar (pad) • Sub-menu akandisajikandalambentuk popup untuksetiap menu yang dipilih • Eksekusiakandilakukansesuaidengan popup yang dipilih (di-klik) pengguna

19. Contoh Menu VFP dengan MENU DEFINE MENU MenuUtama BAR AT LINE 1 DEFINE PAD MgtData OF MenuUtama PROMPT 'Manajemen \<Data' COLOR SCHEME 3 ; KEY ALT+D, '' DEFINE PAD Laporan OF MenuUtama PROMPT '\<Laporan' COLOR SCHEME 3 ; KEY ALT+L, '' DEFINE PAD QuitProc OF MenuUtama PROMPT '\<Quit' COLOR SCHEME 3 ; KEY ALT+Q, '' PROCEDURE PakaiMenu CLEAR replC = .T. DO WHILE replC = .T. RELEASE WINDOWS DEFINE WINDOW lMenu ; FROM 1, 1 TO 40, 80 ; IN DESKTOP ; FONT 'courier',14; TITLE "Pengolahan data mahasiswa" ; GROW FLOAT CLOSE ACTIVATE WINDOW lMenu CLEAR

20. Contoh Menu VFP dengan MENU DEFINE POPUP LaporanData MARGIN RELATIVE COLOR SCHEME 4 DEFINE BAR 1 OF LaporanData PROMPT '\<Tampilkan Rata-Rata' ; KEY ALT+T, '^T' ON SELECTION POPUP LaporanData DO chLaporan IN PakaiMenu DEFINE POPUP QuitProgram MARGIN RELATIVE COLOR SCHEME 4 DEFINE BAR 1 OF QuitProgram PROMPT '\<Keluar Program' ; KEY ALT+K, '^K' ON SELECTION POPUP QuitProgram DO chQuit in PakaiMenu with replC ON PAD MgtData OF MenuUtama ACTIVATE POPUP ManajemenData ON PAD Laporan OF MenuUtama ACTIVATE POPUP LaporanData ON PAD QuitProc OF MenuUtama ACTIVATE POPUP QuitProgram DEFINE POPUP ManajemenData MARGIN RELATIVE COLOR SCHEME 4 DEFINE BAR 1 OF ManajemenData PROMPT '\<Entri Data' ; KEY CTRL+E, '^E' DEFINE BAR 2 OF ManajemenData PROMPT '\<Update Data' ; KEY CTRL+U, '^U' DEFINE BAR 3 OF ManajemenData PROMPT '\<Hapus Data' ; KEY CTRL+H, '^H' ON SELECTION POPUP ManajemenData DO chMgtData IN PakaiMenu WITH PROMPT()

21. Contoh Menu VFP dengan MENU IF replC = .T. ACTIVATE MENU MenuUtama ELSE DEACTIVATE MENU MenuUtama RELEASE MENU MenuUtama EXTENDED ON KEY LABEL ESC ENDIF ENDDO RELEASE WINDOWS ENDPROC PROCEDURE chMgtData PARAMETERS mChoice DO CASE CASE mChoice = 'Entri Data' DO EntriData RELEASE WINDOWs wEntriData CASE mChoice = 'Update Data' DO UpdateData RELEASE WINDOWS lUpdate CASE mChoice = 'Hapus Data' DO DeleteData RELEASE WINDOWS lDelete ENDCASE ENDPROC PROCEDURE chLaporan DO HitungAvgLyr ENDPROC PROCEDURE chQuit PARAMETERS replC replC = .F. RETURN replC ENDPROC

22. Distribusiaplikasi

23. Pendistribusianaplikasi • Penggunadarisuatuaplikasitidakselaludapatmemahamibahasapemrograman yang digunakanuntukmembuataplikasitersebut • Untukdapatmenjalankanaplikasidalambahasapemrograman yang digunakandalampengembangannyadiperlukanlingkungandan software yang sesuai • Olehkarenaitupadaumumnyasuatuaplikasididistribusikankepenggunabukandalambentuk file dalamsuatubahasapemrogramantertentu

24. Pendistribusianaplikasi • Distribusiaplikasi VFP dapatdilakukandalamduapilihan • Dalam file aplikasi (denganekstensi ‘.app’) • Dalam file eksekusi (denganekstensi ‘.exe’) • File aplikasihanyadapatdijalankandari VFP, denganperintah DO nama-file (samasepertimenjalankanprosedur) • File eksekusidapatdijalankandarilingkungan Windows dan DOS (tidakmemerlukan VFP)

25. Pendistribusianaplikasi • Untukmenghasilkan file ‘.app’ dan ‘.exe’ diperlukanproseskompilasi • Agar dapatdikompilasi, semua file yang diperlukanolehaplikasiharusdimasukkandalam project • File program • File data • File lainnya (jikaada)

26. Membuat project untukaplikasi • Dari menu VFP • File  New  Project  New File  nama-file • Tambahkansemuakomponen yang digunakan Dalamcontohpengolahanmahasiswa (pengolahanmhs.prg ditambahkandi Code dan NilaiMHS.dbf di free-table)

27. Kompilasiuntukmenghasilkan ‘.app’ • Dari menu VFP • File  Open  Project  nama-project • Klik Build  Application (app)  OK • Berinama file yang diinginkankemudianklik Save Perhatikandirektoriatau folder tempatpenyimpan file ‘.app’!!! Untukmenjalankanaplikasi, gunakanperintahdarilayar command DO nama-file

28. Kompilasiuntukmenghasilkan ‘.exe’ • Dari menu VFP • File  Open  Project  nama-project • Klik Build  Win32 executable/COM server (exe)  OK • Berinama file yang diinginkankemudianklik Save File yang dihasilkan (denganekstensi ‘.exe) dapatdijalankandarimanasaja, tetapikedua file berikutharusadadi folder yang sama: • vfp9r.dll • VFP9RENU.DLL

29. Terimakasih