PROGRAM 1 : MEMBUAT KALKULATOR SEDERHANA DI VB

Posted in Pemrogaman Visual ( Visual Basic ) by B1N71

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