Membuat Kalkulator Sederhana Menggunakan VB.Net

1.     Buatlah Seperti tampilan di bawah ini, dengan menggunakan Text box, Button dan beri nama form : Calculator .

2.      Pada Text Box Beri Nama : txtlayar

3.     Pada Button : cmbbutton1 sampai cmbbutton10

⇒

Buatlah seperti tampilan di bawah ini

4.    Kemudian silahkan klik kanan pada form buka bagian solution explorer kemudian pilih view kode 

       Public Class Calculator

               Friend Hasil As Single = 0 Dim 

               operasi As String = ""

               Dim operasiHitung As Boolean = False

       End Class

5.   Kemudian di klik dua kali diform tersebut (Form_load) , kemudian isi dengan coding di bawah ini :

       Private Sub Calculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

           Handles MyBase.Load

           operasiHitung = False

       operasi = ""

       Hasil = 0

       txtlayar.Text = "0"

       End Sub

6.   Kemudian Untuk Koding Memunculkan Tombol Huruf 1, sebagai berikut :

Private Sub cmbbutton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbbutton1.Click

If operasiHitung = True Or txtlayar.Text = "0" Then 

txtlayar.Text = "1" operasi

Hitung = False 

Else

txtlayar.Text = txtlayar.Text + "1" 

End If

End sub

7.    Untuk Penambahan (+) koding program sebagai berikut 

        Private Sub cmbtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

         Handles cmbtambah.Click

              operasi = "tambah"

             Hasil = Val(txtlayar.Text) 

              operasiHitung = True

End Sub

8.    Untuk Pengurangan (-) script program sebagai berikut :

        Private Sub cmbkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

       Handles cmbkurang.Click

operasi = "kurang"

Hasil = Val(txtlayar.Text)

operasiHitung = True

End Sub

9.    Untuk Sama Dengan (=) script program sebagai berikut:

         Private Sub cmbsamadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbsamadengan.Click

           Select Case operasi 

           Case "tambah"

                       Hasil = Hasil + Val(txtlayar.Text) 

           Case "kurang"

                        Hasil = Hasil - Val(txtlayar.Text)

          End Select

                       txtlayar.Text = Hasil 

                       operasiHitung = True

          End sub

10.  Tombol C (Untuk menghapus yang ada di layar), dapat di masukkan script sebagai berikut:

       Private Sub cmbhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

       Handles cmbhapus.Click

       txtlayar = "0" 

        operasi = ""

       End Sub

Sekian & Terima Kasih

Semoga Bermanfaat