Contoh Project Visula Basic Membuat Kalkulator sedehana

Membuat Kalkulator Sederhahana Menggunakan Toolbox Textbox dan Button.

• Form Project 
   
  
  
  • Coding Project Kalkulator sederhana 
   
  Public Class Form1
      Dim nilai, hasil As Double
      Dim sharedoperator As String
  
  
      Private Sub boff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles boff.Click
          txtoperator.Enabled = False
          End
      End Sub
      Private Sub Bnol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bnol.Click
          If txtoperator.Text = "0" Then
              txtoperator.Text = "0"
          Else : txtoperator.Text = txtoperator.Text & "0"
  
  
          End If
      End Sub
  
  
      Private Sub Bsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bsatu.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "1"
          Else : txtoperator.Text = txtoperator.Text & "1"
          End If
      End Sub
  
  
      Private Sub Bdua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdua.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "2"
          Else : txtoperator.Text = txtoperator.Text & "2"
          End If
      End Sub
  
  
      Private Sub Btiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btiga.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "3"
          Else : txtoperator.Text = txtoperator.Text & "3"
          End If
      End Sub
  
  
      Private Sub Bempat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bempat.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "4"
          Else : txtoperator.Text = txtoperator.Text & "4"
          End If
      End Sub
  
  
      Private Sub Blima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Blima.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "5"
          Else : txtoperator.Text = txtoperator.Text & "5"
          End If
      End Sub
  
  
      Private Sub Benam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Benam.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "6"
          Else : txtoperator.Text = txtoperator.Text & "6"
          End If
      End Sub
  
  
      Private Sub Btuju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btuju.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "7"
          Else : txtoperator.Text = txtoperator.Text & "7"
          End If
      End Sub
  
  
      Private Sub Bdelapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdelapan.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "8"
          Else : txtoperator.Text = txtoperator.Text & "8"
          End If
      End Sub
  
  
      Private Sub bsembilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsembilan.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "9"
          Else : txtoperator.Text = txtoperator.Text & "9"
          End If
      End Sub
      Private Sub Bkoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkoma.Click
          If Me.txtoperator.Text = "0" Then
              txtoperator.Text = "."
          Else : txtoperator.Text = txtoperator.Text & "."
  
  
          End If
  
  
      End Sub
      Private Sub Btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btambah.Click
          nilai = Val(txtoperator.Text)
          sharedoperator = "+"
          txtoperator.Text = ""
      End Sub
  
  
      Private Sub Bkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkurang.Click
          nilai = Val(txtoperator.Text)
          sharedoperator = "-"
          txtoperator.Text = ""
      End Sub
  
  
      Private Sub Bbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bbagi.Click
          nilai = Val(txtoperator.Text)
          sharedoperator = ":"
          txtoperator.Text = ""
      End Sub
  
  
      Private Sub Bkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkali.Click
          nilai = Val(txtoperator.Text)
          sharedoperator = "x"
          txtoperator.Text = ""
      End Sub
  
  
      Private Sub bsamadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsamadengan.Click
  
  
          If sharedoperator = "+" Then
              hasil = nilai + Val(txtoperator.Text)
              txtoperator.Text = hasil
          ElseIf sharedoperator = "-" Then
              hasil = nilai - Val(txtoperator.Text)
              txtoperator.Text = hasil
          ElseIf sharedoperator = "x" Then
              hasil = nilai * Val(txtoperator.Text)
              txtoperator.Text = hasil
          ElseIf sharedoperator = ":" Then
              hasil = nilai / Val(txtoperator.Text)
              txtoperator.Text = hasil
  
  
          End If
      End Sub
      Private Sub Bhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus_semua.Click
          txtoperator.Enabled = True
          txtoperator.Clear()
  
  
      End Sub
     
  
  
      Private Sub Bpositif_negatif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bpositif_negatif.Click
          txtoperator.Text = "-" & Val(txtoperator.Text)
      End Sub
  
  
      Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click
          If txtoperator.Text.Length <> 0 Then
              txtoperator.Text = txtoperator.Text.Remove(txtoperator.TextLength - 1, 1)
  
  
          End If
      End Sub
  
  
      Private Sub Bmembatalkan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bmembatalkan.Click
          txtoperator.Clear()
      End Sub
  End Class