Contoh Program Logika Operator ( Delphi)

ASSALMUKUM BROW
Dalam pembuatan program menggunakan aplikasi apapun namanya logika tu yang paling penting,tampa logika ibarat sayur tampa garam heheheh ...oky dah bro kita mulai membuat programnya. pertama jangan lupa baca doa dulu. siapi kopy heheheh....
1. Buka aplikasi Borland Delhi nya terserah mau pake yg versi 6 atau 7, abde pake yang 7 heheh...
2.Buat 4 label.
- Label 1 kasih nama Membuat program aritmatika
- label 2 kasih nama Bilangan pertama (1)
- label 2 kasih nama Bilangan kedua (2)
- label 3 kasih nama Hasil (1)
- Button 1 kasih nama Penjumlahan
- Button 2 kasih nama pembagian
- Button 3 kasih nama perkalian
- Button 4 kasih nama pengurangan
- Button 5 kasih nama hapus
- Button 6 kasih nama keluar
3. Kalau udah selesai medesain klik double pada Button 1 / Penjumlahan
tuliskan koding seprti ini
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
edit3.Text:=inttostr(a+b);

4. Double klik pada Button 2 / pembagian tuliskan koding seprti ini
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
edit3.Text:=floattostr(a/b);
5. Double klik pada Button 3 / perkalian tuliskan koding seprti ini
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
edit3.Text:=inttostr(a * b);
5. Double klik pada Button 4 / pengurangan tuliskan koding seprti ini
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
edit3.Text:=inttostr(a - b);
6. Double klik pada Button 5 / hapus tuliskan koding seprti ini
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit1.SetFocus;
6. Double klik pada Button 6 / keluar tuliskan koding seprti ini
APPLICATION.Terminate;
selesai dah... gampang kan. setelah semua coding dah ditulis save dulu trs Run Programnya.
masukkan bilangan dulu trs klik tobol2 yang sudah teman-teman buat dan lihat hasilnya,,, heheheh sippp kan.
pasti hasil nya seperti seperti yang abde buat... lihat aja disini...
<<" Kembangkan " >>

Abdee_Lombok_NTB