MODUL 2 EVEN, VARIABEL DAN FUNGSI KONVERSI
SASARAN 1. Memahami Konsep pemograman Even Driven 2. Memahami penempatan variable 3. Mengetahui fungsi-fungsi Konversi TUGAS PENDAHLUAN 1. Sebutkan fungsi fungsi bawaan dari Delphi min 10 fungsi dan berikan contohnya ? 2. Even apa saja yang terdapat dalam component TEdit, TForm dan TButton, berikan contohnya ? MATERI KULIAH Event Driven Pada pemograman Visual kebanyakan menganut konsep pemograman yang berorientasi pada Event Driven seperti halnya Delphi, maksudnya dari event drivent adalah yaitu penulisan program berdasarkan pada even atau kejadian tertentu saja misal pada saat onclik (meng-klick dengan mouse) ataupun onexit dan lain sebagainya.
Tempat anda menuliskan kode program
Gambar 2.1 . Event Driven
Modul Delphi @2004, Patah Herwanto. STMIK-IM
7
Pada gambar diatas tombol atau button “Ulangi” Memiliki beberapa event seperti onClick, OnEnter dan lain-lain dan untuk mengisi program pada event tertentu anda tinggal double clik saja pada daftar event yang bersangkutan dan anda tinggal menuliskan kode program pada bagian diantara Begin dan End, yang perlu diperhatikan adalah anda tidak boleh menghapus ataupun merubah Procedure atau nama procedure dan begin atau end yang telah ada. Variabel Untuk Penulisan variable pada Delphi sama denga yang dipascal, untuk variable dibagi menjadi 2 bagian yaitu: 1. Variabel Local Yang dapat digunakan hanya bersipat local saja missal pada procedure atau pada Fungsi 2. Variabel Global Variabel yang dapat digunakan oleh seluruh fungsi atau procedure pada unit yang mendklarasikannya. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, ComCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2 Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Total : Integer; //Variabel Global implementation {$R *.DFM}
Modul Delphi @2004, Patah Herwanto. STMIK-IM
8
procedure TForm1.Button1Click(Sender: TObject); A : Integer; //variable Local begin Total:=strtoint(Edit1.text)*10; A:=Total; Label1.caption:=Inttostr(A); end; procedure TForm1.Button2Click(Sender: TObject); begin Label2.Caption:=InttoStr(Total); end; end. Dari contoh program diatas Variabel Total merupakan variable Global dan dapat dipanggil di dalam procedure ataupun di dalam fungsi dalam suatu unit. Sedangkan Variabel A adalah variable lokal yang hanya dapat digunakan pada Procedure TForm1.Button1Click(Sender: TObject) saja Fungsi Konversi Standar Pada Delphi sesuatu nilai yang hasilnya akan ditampilkan di Form haruslah bernilai String tidak boleh bernilai lain, untuk itu kalau missal yang akan ditampilkan berupa integer maka perlu dikonversikan dulu, berikut adalah fungsi standar untuk konversi StrtoInt = untuk mengkonfersikan dari string ke Integer InttoStr = untuk mengkonversikan dari Integer ke String FloattoStr = untuk mengkonversikan nilai float ke string
Latihan 1 Buatlah program berikut ini :
Modul Delphi @2004, Patah Herwanto. STMIK-IM
9
Source Program Procedure TForm1.DateTimePicker1Enter(Sender: TObject); begin Panel.Caption:='Masukan tanggal pembelian'; end; procedure TForm1.Edit2Enter(Sender: TObject); begin Panel1.Caption:='Masukan Nama Barang'; end; procedure TForm1.Edit1Enter(Sender: TObject); begin Panel1.Caption:='Masukan Jumlah Barang' end; procedure TForm1.ComboBox1Enter(Sender: TObject); begin Panel1.Caption:='Masukan Petugas pembelian' end; procedure TForm1.FormCreate(Sender: TObject); begin Panel1.Caption:=''; end; procedure TForm1.Button1Click(Sender: TObject); begin Datetimepicker1.DateTime:=now; Edit1.Clear; Edit2.Clear; Combobox1.Clear; end; Latihan 2 Buat program berikut ini :
Modul Delphi @2004, Patah Herwanto. STMIK-IM
10
Source program procedure TForm1.TambahClick(Sender: TObject); begin edit3.Text := inttostr(strtoint(edit1.text)+strtoint(edit2.tex)); end; procedure TForm1.KaliClick(Sender: TObject); begin edit3.Text := inttostr(strtoint(edit1.text)* strtoint(edit2.text)); end; procedure TForm1.BtnmodClick(Sender: TObject); begin edit3.Text := inttostr(strtoint(edit1.text) mod strtoint(edit2.text)); end; procedure TForm1.BagiClick(Sender: TObject); begin edit3.Text := floattost(strtofloat(edit1.text)/strtfloat(edit2.text)); end; Dari program diatas rubah interfacenya menjadi sebagai berikut :
Bagaimana dengan listing programnya ? Latihan 3 Buatlah program untuk mengkonversikan suhu dari celcius ke Fahrenheit, Reamur, Kelpin dengan rumus sebagai berikut : Reamur = (4*celcius)/5 Fahenheit = (9*Celcius)/5+32 Kelpin=273*celcius Tugas Rumah Buat simulasi pompa bensin, yang menjadi masukan adalah jumlah liter atau jumlah rupiah, untuk interface boleh ditentukan sendiri (metode penghitungan liter atau rupiah sesuai dengan pompa bensin sebenarnya)
Modul Delphi @2004, Patah Herwanto. STMIK-IM
11
