Membuat Kalkulator menggunakan VB.Net

Pada Kali ini saya akan berbagi ilmu tentang pembuatan Kalkulator sederhana menggunakan VB.Net,Langsung aja nich langkah2nya



1. Membuat Form Baru dengan cara klik Project --> Add Windows Form.

2. Menambahkan Komponen TextBox,Label dan Button.
3. Membuat Desain Kalkulator seperti gambar dibawah ini :

Desain Kalkulator

No	Nama Komponen	Nama Properti	Nilai
1	Button 1	Name Text	Cmd1 1
2	Button 2	Name Text	Cmd2 2
3	Button 3	Name Text	Cmd3 3
4	Button 4	Name Text	Cmd4 4
5	Button 5	Name Text	Cmd5 5
6	Button 6	Name Text	Cmd6 6
7	Button 7	Name Text	Cmd7 7
8	Button 8	Name Text	Cmd8 8
9	Button 9	Name Text	Cmd9 9
10	Button 10	Name Text	CmdNol 0
11	Button 11	Name Text	CmdTambah +
12	Button 12	Name Text	CmdKurang -
13	Button 13	Name Text	CmdKali *
14	Button 14	Name Text	CmdBagi /
15	Button 15	Name Text	CmdSamaDengan =
16	Button 16	Name Text	CmdReset C
17	TextBox	Name	Txttampil

5. Mengisikan Kode Berikut

<br /> <br /> <br /> Public Class Form1<br /> Dim Input1 As String = ""<br /> Dim Input2 As String = ""<br /> Dim Hasil As Decimal = 0<br /> Dim Tambah As Boolean = False<br /> Dim Kurang As Boolean = False<br /> Dim Kali As Boolean = False<br /> Dim Bagi As Boolean = False<br /> <br /> Private Sub Cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd1.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "1"<br /> TxtTampil.Text = Input1<br /> Else<br /> Input2 += "1"<br /> TxtTampil.Text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd2.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "2"<br /> TxtTampil.Text = Input1<br /> Else<br /> Input2 += "2"<br /> TxtTampil.Text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd3.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "3"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "3"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd4.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "4"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "4"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd5.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "5"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "5"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd6.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "6"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "6"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd7.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "7"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "7"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd8.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "8"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "8"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd9.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "9"<br /> TxtTampil.text = Input1<br /> Else<br /> Input2 += "9"<br /> TxtTampil.text = Input2<br /> End If<br /> End Sub<br /> <br /> Private Sub Cmdnol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdnol.Click<br /> If Tambah = False And Kurang = False And Bagi = False And Kali = False Then<br /> Input1 += "0"<br /> TxtTampil.Text = Input1<br /> Else<br /> Input2 += "0"<br /> TxtTampil.Text = Input2<br /> End If<br /> <br /> End Sub<br /> <br /> Private Sub CmdSamaDengan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSamaDengan.Click<br /> If Tambah = True Then<br /> Hasil = Val(Input1) + Val(Input2)<br /> Input1 = Hasil<br /> Input2 = ""<br /> Tambah = False<br /> <br /> ElseIf Kurang = True Then<br /> Hasil = Val(Input1) - Val(Input2)<br /> Input1 = Hasil<br /> Input2 = ""<br /> Kurang = False<br /> ElseIf Kali = True Then<br /> Hasil = Val(Input1) * Val(Input2)<br /> Input1 = Hasil<br /> Input2 = ""<br /> Kali = False<br /> <br /> ElseIf Bagi = True Then<br /> If Input2 = "0" Then<br /> MsgBox("Syntax Error")<br /> Input2 = ""<br /> Else<br /> Hasil = Val(Input1) / Val(Input2)<br /> Bagi = False<br /> <br /> <br /> End If<br /> End If<br /> TxtTampil.Text = Hasil<br /> End Sub<br /> <br /> Private Sub TxtTampil_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtTampil.TextChanged<br /> <br /> End Sub<br /> <br /> Private Sub CmdTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTambah.Click<br /> TxtTampil.Text = ""<br /> Tambah = True<br /> End Sub<br /> <br /> Private Sub CmdKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdKurang.Click<br /> TxtTampil.Text = ""<br /> Kurang = True<br /> End Sub<br /> <br /> Private Sub CmdKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdKali.Click<br /> TxtTampil.Text = ""<br /> Kali = True<br /> End Sub<br /> <br /> Private Sub CmdBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBagi.Click<br /> TxtTampil.Text = ""<br /> Bagi = True<br /> End Sub<br /> <br /> Private Sub CmdReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdReset.Click<br /> Input1 = ""<br /> Input2 = ""<br /> TxtTampil.Text = ""<br /> End Sub<br /> End Class<br /> <br />




Hasil Kalkulator

nah kalkulator sudah dapat digunakan