Mengenal Operator Aritmatika Pada Delphi 7
Nah kesempatan kali ini masih berkutat dengan pembelajaran Delphi nich. Untuk Kategori tutorial materi lain masih dalam penyiapan materi dan ide ide. jadi jangan bosen belajar Delphi disini ya. Untu Materi Kali ini meneruskan Materi sebelumnya yang sudah kita bahas yakni mengenal tipe data pada delphi untuk saat ini kita akan mengenal Operator Aritmatikanya nich, mari disimak ya.
Operator Aritmatikan mempunyai fungsi
untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan,
pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya.
*hmmmm ini dilakukan untuk mengubah nilai suatu variable yang nantinya
akan menghasilkan nilai yang baru. kemarin kita sudah membahas mengenai
operator penambahan atau ” + ” nah kali ini kita lengkapi Operator
Operator yang tersedia sekalian memberikan latihan latihan guna
memperlancar bahasa pemograman delphi kita.
Berikut ini adalah Tipe Operator Aritmatika dalam Bahasa Pemograman Borland Delphi :
Berikut Contoh Hasil Penggunaan Operator Aritmatika Diatas :
Nah Langsung Aja Kita Praktek ya, Pertama Kita buat form design sebagai berikut :
Ubah Properties Namenya Sebagai Berikut :
Berikut Alur Logikanya :
– Nilai 1 dan Nilai 2 diisi manual oleh user.
– Pada Saat Button Tambah diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan penambahan nilai 1 dan nilai 2.
– Pada Saat Button Kurang diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengurangan nilai 1 dan nilai 2.
– Pada Saat Button Kali diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.
– Pada Saat Button Bagi diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.
– Pada Saat Button Div diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil div nilai 1 dan nilai 2.
– Pada Saat Button Mod diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil Mod nilai 1 dan nilai 2.
– Jika Button Keluar diklik maka akan keluar dari program.
———————————————————————————————————————————————————————
Berikut list Programnya :
1
2
3
4
| var frm_materi8: Tfrm_materi8; a,b,c:real; d,e,f:integer; |
Buatlah Variable Dengan tipe data seperti Di atas.
1
2
3
4
5
6
7
8
9
10
11
| procedure Tfrm_materi8.button_tambahClick(Sender: TObject);begin a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); c:=a+b; edit_hasil.Text:=floattostr(c);end; |
1
2
3
4
5
6
7
8
9
10
11
| procedure Tfrm_materi8.button_kurangClick(Sender: TObject);begin a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); c:=a-b; edit_hasil.Text:=floattostr(c);end; |
1
2
3
4
5
6
7
8
9
10
11
| procedure Tfrm_materi8.button_divClick(Sender: TObject);begin d:=strtoint(edit_nilai1.Text); e:=strtoint(edit_nilai2.Text); f:=d div e; edit_hasil.Text:=inttostr(f);end; |
1
2
3
4
5
6
7
8
9
10
11
| procedure Tfrm_materi8.button_kaliClick(Sender: TObject);begin a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); c:=a*b; edit_hasil.Text:=floattostr(c);end; |
1
2
3
4
5
6
7
8
9
10
11
| procedure Tfrm_materi8.button_bagiClick(Sender: TObject);begin a:=strtofloat(edit_nilai1.Text); b:=strtofloat(edit_nilai2.Text); c:=a/b; edit_hasil.Text:=floattostr(c);end; |
1
2
3
4
5
6
7
8
9
10
11
| procedure Tfrm_materi8.button_modClick(Sender: TObject);begin d:=strtoint(edit_nilai1.Text); e:=strtoint(edit_nilai2.Text); f:=d mod e; edit_hasil.Text:=inttostr(f);end; |
1
2
3
4
5
6
| procedure Tfrm_materi8.button_keluarClick(Sender: TObject);beginclose;end; |
klik disini
Tidak ada komentar:
Posting Komentar