Identitas dosen

1. Identitas dosen Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email : leeput@yahoo.com Ym : leeput Blog : http://leeput.wordpress.com http://suherman628.wordpress.com

2. POKOK BAHASAN DIALOG BOX DAN PENANGANAN ERROR Tujuan Pembelajaran Khusus (TPK): Setelah mempelajari pokok bahasan Dialog box dan penanganan error, maka mahasiswa dapat mendemonstrasikan tentang dialog box dan penanganan error dengan benar (C3)

3. DIALOG BOX Dialog box digunakan untuk : • Menampilkan pesan kepada user • Mencegah terjadinya kesalahan pada user • Pemandu bagi user untuk melaksanakan perintah selanjutnya

4. Banyak ragam dari kotak pesan ini, diantaranya adalah : • ShowMessage • MessageDlg • MessageBox

5. SHOWMESSAGE • Showmessage ini digunakan untuk menampilkan pesan secara sederhana. • Bentuk umum : ShowMessage(const Msg: String)

6. Msg : adalah berisi pesan yang bertype String • Contoh : ShowMessage(‘Ini adalah pesan…..’);

7. Soal • Program dapat memasukkan 2 buah nilai bil. Bulat positif, dan ke-2 nilai tersebut akan dibandingkan. Dengan ketentuan :Bila nilai-1 > nilai-2, maka akan muncul pesan :’Nilai-1 lebih besar…’Bila sebaliknya, maka akan muncul pesan: ‘Nilai-2 lebih besar…’Gunakan perintah SHOWMESSAGE untuk menampilkan pesannya.

8. MESSAGEDLG • Bentuk penulisan MessageDlg :MessageDlg(Msg, AType, AButtons, HelpCtx)Parameter Msg berupa string yang ditampilkan dalam kotak pesan AType menentukan type kotak pesan yang akan dibuat, perhatikan nilai2 yang mungkin untuk AType :

10. Parameter AButtons menentukan jenis tombol apa yang disertakan dalam kotak pesan parameter ini dituliskan harus diapit oleh kurung siku [ ], karena sebagai set. Berikut penjelasannya :

12. Parameter ini juga dapat pula menyertakan tombol kombinasi, seperti :[mbYes,mbNo][mbYes,mbNo,mbCancel]

13. Parameter HelpCtx menyatakan halaman help yang berkaitan dengan kotak pesan. • Contoh penulisan MessageDlg:MessageDlg(‘Pesan Warning…’ , mtWarning, [mbOK], 0) ;

14. MessageDlg dalam sebuah kondisi, maka dapat dipilih berdasarkan nama tombol yang akan diproses dengan disertai awalan mr, misal : mrOK, mrYes, mrNO Contoh :

15. procedure TForm1.Button1Click(Sender: TObject); • begin • if messagedlg('Pesan..',mtconfirmation,[mbYes,mbNO],0)= • mrYes then • showmessage('Yes') • else • showmessage('No'); • end; • end.

16. Parameter yang melibatkan penerapan 3 tombol atau lebih dapat dituliskan :

18. MESSAGEBOX • MessageBox(HWND,handle of owner windowLPCTSTR lpText,address of text in message box LPCTSTR lpCaption,address of title of message box UINT uTypestyle of message box) ;

19. Contoh :MessageBox(Handle,‘Data akan disimpan?’, ‘Pertanyaan’, MB_OK or MB_ICONQUESTION) ;

21. MessageBox dengan Pertanyaan • if MessageBox(Handle,'Data akan disimpan?', 'Pertanyaan', MB_YESNO or MB_ICONQUESTION)=IDYES then showmessage('ok');

22. Soal :

23. Pencabangan Try … Except • Pencabangan Try..except dipakai untuk pencabangan yang memiliki kemungkinan kesalahan operasi atau pelaksanaan program. Bentuk penulisannya : Try <daftar pernyataan-1> Except <daftar pernyataan-2> End;

24. Pertama kali program akan membaca satu atau lebih pernyataan yang berada di bawah Try. Jika tidak ada kesalahan, program akan melaksanakan sampai pernyataan sebelum except, kemudian ke End. Jika ada kesalahan, maka program akan lompat ke pernyataan except dan melaksanakan pernyataan di bawahnya.

25. Untuk mengaktifkan try..except, ikuti perintah ini :1. Pilih Tools2. Debugger Options3. Pilih Page Language Exceptions4. Non aktifkan tanda pilih pada Stop on Delphi Exceptions5. Klik OK

30. Latihan, gunakan dialog dan Try..Exception • Hasil program ini akan menampilkan keterangan hasil ujian. Dengan ketentuan: • Input : Nama siswa, Nilai-1, Nilai-2, Nilai-3 • Proses :Total nilai = Nilai-1+Nilai-2+Nilai-3Rata-rata = (nilai-1+nilai-2+nilai-3)/3Bila Rata2 >= 70, maka Lulus, sebaliknya Tidak Lulus. • Gunakan Tombol Proses, Mulai dan Keluar sertakan kotak pesan u/ masing2 tombol

31. TERIMA KASIHWassalam……………………..