Kode Untuk Membuat Kalkulator Di VB.Net

Assalamualaikum Teman..
 Kali Ini Saya Akan Berbagi Ilmu Tentang Membuat Kalkulator Sederhana Dengan Vb.net Segala Versi Mau Vb.net2010 Atau Vb.net 2008. Ok Kita LangSung Eksekusi Aja Ya Teman !!

Kalkulator Sederhana Dengan Kode Nya , Ini Untuk Latihan Yang masih Awal Tentang Vb.net Termasuk Juga Saya :

1. Buka Microsoft Visual Studio 2010 ultimate/2008
2. Pilih Windows Form Application
3. Buat :
    -17 buah Button (btn0, btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, btn9,       btnTitik, btnHasil, btnKali, btnTambah, btnKurang, btnBagi, btnClear)
    - 1 buah Textbox pada Form
4. Edit Text property pada tiap Button sehingga tampilan seperti gambar dibawah.

5. Double klik pada form lalu masukkan kode berikut :

1.     Dim operand1 As Double
2.     Dim [operator] As String
3.     Dim baru As Boolean = True
4.     Dim temp As Double
5.     Dim operand2 As Double

 

6. Double klik pada button 0 ketikkan kode

   

1. Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
2.     btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
3.    
4.     TextBox1.Text = TextBox1.Text & sender.text
5. End Sub

7. Masukkan kode berikut pada button Tambah

   

1.  Private Sub btnTamah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
2.        
3.         If baru = True Then
4.             operand1 = Val(TextBox1.Text)
5.             TextBox1.Text = ""
6.             TextBox1.Focus()
7.             [operator] = "+"
8.         ElseIf baru = False Then
9.             If [operator] = "+" Then
10.                 temp = operand1 + Val(TextBox1.Text)
11.                 operand1 = temp
12.                 TextBox1.Text = ""
13.                 [operator] = "+"
14.             ElseIf [operator] = "-" Then
15.                 temp = operand1 - Val(TextBox1.Text)
16.                 operand1 = temp
17.                 TextBox1.Text = ""
18.                 [operator] = "+"
19.             ElseIf [operator] = "x" Then
20.                 temp = operand1 * Val(TextBox1.Text)
21.                 operand1 = temp
22.                 TextBox1.Text = ""
23.                 [operator] = "+"
24.             ElseIf [operator] = ":" Then
25.                 temp = operand1 / Val(TextBox1.Text)
26.                 operand1 = temp
27.                 TextBox1.Text = ""
28.                 [operator] = "+"
29.             End If
30.            
31.         End If
33.         baru = False
35.     End Sub

8. Masukkan Kode Berikut Pada Button Kurang

    

1. Private Sub btnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKurang.Click
4.         If baru = True Then
5.             operand1 = Val(TextBox1.Text)
6.             TextBox1.Text = ""
7.             TextBox1.Focus()
8.             [operator] = "-"
9.         ElseIf baru = False Then
10.             If [operator] = "+" Then
11.                 temp = operand1 + Val(TextBox1.Text)
12.                 operand1 = temp
13.                 TextBox1.Text = ""
14.                 [operator] = "-"
15.             ElseIf [operator] = "-" Then
16.                 temp = operand1 - Val(TextBox1.Text)
17.                 operand1 = temp
18.                 TextBox1.Text = ""
19.                 [operator] = "-"
20.             ElseIf [operator] = "x" Then
21.                 temp = operand1 * Val(TextBox1.Text)
22.                 operand1 = temp
23.                 TextBox1.Text = ""
24.                 [operator] = "-"
25.             ElseIf [operator] = ":" Then
26.                 temp = operand1 / Val(TextBox1.Text)
27.                 operand1 = temp
28.                 TextBox1.Text = ""
29.                 [operator] = "-"
30.             End If
32.         End If
34.         baru = False
36.     End Sub

9. Kode Berikut pada button Kali

    

1. Private Sub btnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKali.Click
3.         If baru = True Then
4.             operand1 = Val(TextBox1.Text)
5.             TextBox1.Text = ""
6.             TextBox1.Focus()
7.             [operator] = "x"
8.         ElseIf baru = False Then
10.             If [operator] = "+" Then
11.                 temp = operand1 + Val(TextBox1.Text)
12.                 operand1 = temp
13.                 TextBox1.Text = ""
14.                 [operator] = "x"
15.             ElseIf [operator] = "-" Then
16.                 temp = operand1 - Val(TextBox1.Text)
17.                 operand1 = temp
18.                 TextBox1.Text = ""
19.                 [operator] = "x"
20.             ElseIf [operator] = ";" Then
21.                 temp = operand1 / Val(TextBox1.Text)
22.                 operand1 = temp
23.                 TextBox1.Text = ""
24.                 [operator] = "x"
25.             ElseIf [operator] = "x" Then
26.                 temp = operand1 * Val(TextBox1.Text)
27.                 operand1 = temp
28.                 TextBox1.Text = ""
29.                 [operator] = "x"
30.             End If
31.      
32.         End If
34.         baru = False
36.       End Sub

10. Kode Berikut Pada button Bagi

     

1. Private Sub btnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBagi.Click
3.         If baru = True Then
4.             operand1 = Val(TextBox1.Text)
5.             TextBox1.Text = ""
6.             TextBox1.Focus()
7.             [operator] = ":"
8.         ElseIf baru = False Then
9.             If [operator] = "+" Then
10.                 temp = operand1 + Val(TextBox1.Text)
11.                 operand1 = temp
12.                 TextBox1.Text = ""
13.                 [operator] = ":"
14.             ElseIf [operator] = "-" Then
15.                 temp = operand1 - Val(TextBox1.Text)
16.                 operand1 = temp
17.                 TextBox1.Text = ""
18.                 [operator] = ":"
19.             ElseIf [operator] = "x" Then
20.                 temp = operand1 * Val(TextBox1.Text)
21.                 operand1 = temp
22.                 TextBox1.Text = ""
23.                 [operator] = ":"
24.             ElseIf [operator] = ":" Then
25.                 temp = operand1 / Val(TextBox1.Text)
26.                 operand1 = temp
27.                 TextBox1.Text = ""
28.                 [operator] = ":"
29.             End If
31.         End If
33.         baru = False
34.      
35.         End Sub

11. Kode berikut pada button hasil

      

1. Dim hasil As Double
2.         operand2 = Val(TextBox1.Text)
4.         Select Case [operator]
6.             Case "+"
7.                 hasil = operand1 + operand2
8.                 TextBox1.Text = hasil.ToString
9.                 baru = True
10.             Case "-"
11.                 hasil = operand1 - operand2
12.                 TextBox1.Text = hasil.ToString
13.             Case ":"
14.                 hasil = operand1 / operand2
15.                 TextBox1.Text = hasil.ToString
16.             Case "x"
17.                 hasil = operand1 * operand2
18.                 TextBox1.Text = hasil.ToString
19.                 baru = True
20.         End Select
22.         TextBox1.Text = hasil.ToString

12. Kode berikut pada button titik

 

1. Private Sub btnTitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTitik.Click
3.         If InStr(TextBox1.Text, ".") > 0 Then
4. 
   

           Exit Sub

5.         Else
6. 
   

           TextBox1.Text = TextBox1.Text & "." 

7. 
   

   End If

8. End Sub

13. Dan terakhir pada button Clear

1. Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
3.         TextBox1.Text = ""
4.         operand1 = 0
5.         temp = 0
6.         baru = True 
7. End Sub

Sekian Teman Semoga Bermanfaat bagi Teman _ Teman Semuanya...