Pada postingan kali ini, saya akan membahas tentang membuat kalkulator di VB. Contoh program ini belum membahas tentang pendeklarasian variabel. hanya script untuk perhitungan yang ada dalam program ini.
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
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 Sub End Class