Posted in Pemrogaman Visual ( Visual Basic ) by
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
Tidak ada komentar:
Posting Komentar