Program kalkulator sederhana dengan Vb.Net

Pertama – tama buka vb.net anda,lalu buat program baru.dengan cara KLIK - NEW-PROJECT
Maka tampilan awal akan seperti gambar dibawah ini.

Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang ingin kita buat yaitu kalkulator.pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seprti gmbr dibawah ini.

Tool yang akan kita gunakan:
·         3 Label
·         3 Textbox
·         8 Button
Label 1    ubah properties text menjadi angka pertama
Label 2     ubah properties text menjadi angka kedua
Textbox    text=(kosongkan)
Button1    ubah properties text menjadi +
Button2    ubah properties text menjadi -
Button3    ubah properties text menjadi x
Button4    ubah properties text menjadi :
Button5    ubah properties text menjadi mod
Button6    ubah properties text menjadi ^
Button7    ubah properties text menjadi hapus
Button8    ubah properties text menjadi keluar
Ok kita langsung saja membuat Desainya ya..,pertama klik tool label yang ada disebelah kiri lalu tempatkan pada form yang telah ada.lihat gbr.

Untuk merubah ukuran text klik pada bagian profertis pilih FONT.maka tampilan akan seperti gmbr dibawah ini.ukuran font text dapat diatur sesuai keinginan kita.

Masukan tool2 yang telah disebutkan diatas (ubah nama textnya)dan buat menjadi seperti gambar dibawah.(untuk Letak dapat diatur seperti yang kita inginkan)

Selanjutnya kita mulai membuat script kodenya.
Double Klik pada button1 ( +) maka form baru akan tampil.lalu masukan kode script dibawah ini

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)
        TextBox3.ForeColor = Color.Blue
End sub
(ketik hanya yang berwarna merah saja)

Kembali ke form design.
Double Klik pada button2 ( -) maka form baru akan tampil.lalu masukan kode script dibawah ini

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)
        TextBox3.ForeColor = Color.Brown
End sub

lakukan seperti diatas pada Button3 ( X).

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)
        TextBox3.ForeColor = Color.HotPink

End sub

lakukan seperti diatas pada Button4 ( : ).

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)
        TextBox3.ForeColor = Color.Green
End sub

lakukan seperti diatas pada Button5 ( mod ).

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)
        TextBox3.ForeColor = Color.Red
End sub

lakukan seperti diatas pada Button6 ( ^ ).

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
        TextBox3.ForeColor = Color.Yellow
lakukan seperti diatas pada Button7 ( hapus ).

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
End sub

lakukan seperti diatas pada Button8 ( keluar ).

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Close()

End sub

Bila semua telah selesai maka pada form1.vb akan terlihat gambar seperti dibawah ini

Setelah selesai Coba di RUN atau tekan F5 pada keyboard anda.LIHAT HASILNYA.
Bila angka pertama dan angka kedua telah diisi klik tombol yang anda inginkan maka hasilnya dapat anda lihat.pada textbox.
Hasilnya seperti gambar dibawah ini.