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
  
  
  
  

Read More

Contoh Project Visual Basic 2010 Membuat Program Matrik

Membuat Dua program matrik

• Form project

 

•  Atur Propertis form sesuai dengan data berikut ;

• Coding project

Public Class Frmlat_17

    Dim matrika(20, 20), matrikb(20, 20), barisA, kolomA, barisB, kolomB As Integer

    Dim hasila_matrika, hasila_matrikb, hasil_matrix As String

    'proses input matrik

    Sub input_matrik()

        Dim b, k As Integer

        barisA = Val(Me.TxtbarisA.Text)

        kolomA = Val(Me.TxtkolomA.Text)

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                matrika(b, k) = InputBox("masukan nilai matrix A untuk posisi" & b + 1 & " x " & k & " : ")

            Next

        Next

    End Sub

    Sub cetak_matrika()

        Dim b, k As Integer

        barisA = Val(Me.TxtbarisA.Text)

        kolomA = Val(Me.TxtkolomA.Text)

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                hasila_matrika = hasila_matrika & matrika(b, k) & " "

            Next

            hasila_matrika = hasila_matrika & Chr(13)

        Next

        Me.LbmatrikA.Text = hasila_matrika.ToString

    End Sub

    Sub input_matrikb()

        Dim b, k As Integer

        barisB = Val(Me.Txtbarisb.Text)

        kolomB = Val(Me.Txtkolomb.Text)

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                matrikb(b, k) = InputBox("masukan nilai matrix B untuk posisi" & b + 1 & " x " & k & " : ")

            Next

        Next

      

    End Sub

    Sub cetak_matrikb()

        Dim b, k As Integer

        barisB = Val(Me.Txtbarisb.Text)

        kolomB = Val(Me.Txtkolomb.Text)

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                hasila_matrikb = hasila_matrikb & matrikb(b, k) & " "

            Next

            hasila_matrikb = hasila_matrikb & Chr(13)

        Next

        Me.Lbmatrikb.Text = hasila_matrikb.ToString

    End Sub

    Private Sub Bproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bproses.Click

        Call input_matrik()

        Call cetak_matrika()

        Call input_matrikb()

        Call cetak_matrikb()

    End Sub

End Class

Read More