Pertama – tama, buatlah terlebih dahulu desain formnya. Sebagai contoh lihat gambar berikut.
Properties
|
Keterangan
|
Textbox 1
| Untuk menginput bilangan 1 |
Textbox 2
| Untuk menginput bilangan 2 |
Textbox 3
| Untuk menampilkan hasil |
Button1
| Tambah (menghitung pertambahan) |
Button2
| Kali |
Button3
| Kurang |
Button4
| Bagi |
Button5
| Exit (keluar dari program) |
Button6
| Clear (membersihkan layar) |
Langkah ke dua yaitu membuat listing program. Klik 2 kali tombol tambah, maka akan muncul code window sebagai berikut
Kemudian ketikan script untuk menghitung pertambahan
1
| TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) |
Untuk script pengurangan, terlebih dahulu klik 2 kali tombol kurang di form design, setelah mucul code window maka ketikan script unruk menghitung pengurangan.
Berikut adalah script program yang lengkap
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End SubEnd ClassTerima kasih & semoga bermanfaat.
sumber :https://binti22.wordpress.com/2013/04/28/program-1-membuat-kalkulator-sederhana-di-vb/


Tidak ada komentar:
Posting Komentar