Membuat Kalkulator sederhana dengan menggunakan Visual Basic 2010

Algoritma dan Pemrograman

Berikut saya berikan contoh project membuat kalkulator sederhana dengan menggunakan Visual Basic 2010

Dengan tampilan form seperti gambar di bawah :

'Coding

Public Class Form1

    Dim bil1, bil2, hasil As Double

    Dim r As String

    Private Sub bTiga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTiga.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "3"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "3"

        End If

    End Sub

    Private Sub bNol_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNol.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "0"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "0"

        End If

    End Sub

    Private Sub bSatu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSatu.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "1"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "1"

        End If

    End Sub

    Private Sub bDua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDua.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "2"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "2"

        End If

    End Sub

    Private Sub bEmpat_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bEmpat.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "4"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "4"

        End If

    End Sub

    Private Sub bLima_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLima.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "5"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "5"

        End If

    End Sub

    Private Sub bEnam_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bEnam.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "6"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "6"

        End If

    End Sub

    Private Sub bTujuh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTujuh.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "7"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "7"

        End If

    End Sub

    Private Sub bDelapan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDelapan.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "8"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "8"

        End If

    End Sub

    Private Sub bSembilan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSembilan.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "9"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "9"

        End If

    End Sub

    Private Sub bKoma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bKoma.Click

        If Me.txtTampil.Text = "." Then

            Me.txtTampil.Text = ","

        Else : Me.txtTampil.Text = Me.txtTampil.Text & ","

        End If

    End Sub

    Private Sub bNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNew.Click

        Me.txtTampil.Clear()

    End Sub

    Private Sub bPlus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPlus.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "+"

        txtTampil.Text = ""

    End Sub

    Private Sub bOff_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bOff.Click

        Me.Close()

    End Sub

    Private Sub bMinus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bMinus.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "-"

        txtTampil.Text = ""

    End Sub

    Private Sub bPlusMin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPlusMin.Click

        Me.txtTampil.Text = "-" & Val(Me.txtTampil.Text)

    End Sub

    Private Sub bSamaDengan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSamaDengan.Click

        If r = "+" Then

            hasil = bil1 + Val(txtTampil.Text)

            txtTampil.Text = hasil

        ElseIf r = "-" Then

            hasil = bil1 - Val(txtTampil.Text)

            txtTampil.Text = hasil

        ElseIf r = "*" Then

            hasil = bil1 * Val(txtTampil.Text)

            txtTampil.Text = hasil

        ElseIf r = "/" Then

        hasil = bil1 / Val(txtTampil.Text)

            txtTampil.Text = hasil

        End If

    End Sub

    Private Sub bHapusSebagian_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bHapusSebagian.Click

        If txtTampil.Text.Length <> 0 Then

            txtTampil.Text = txtTampil.Text.Remove(txtTampil.TextLength - 1, 1)

        End If

    End Sub

    Private Sub bBagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bBagi.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "/"

        txtTampil.Text = ""

    End Sub

    Private Sub bKali_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bKali.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "*"

        txtTampil.Text = ""

    End Sub

    Private Sub bC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bC.Click

        If txtTampil.Text.Length <> 0 Then

            txtTampil.Text = txtTampil.Text.Remove(txtTampil.TextLength - 1, 1)

        End If

    End Sub

End Class

Semoga Bermanfaat

Se

Contoh Program Visual Basic 2010 : Menu Utama

Visual Basic 2010



Nah, sebelumnya saya sudah mempostingkan contoh-contoh program menggunakan Visual Basic 2010, sekarang bagaimana caranya agar dapat mempermudah kita membuka program tanpa harus membukanya satu-satu, yaitu kita buat form menu utama dimana isi dari form ini mencakup keseluruhan dari program-program yang telah kita masukkan.

'Menu Utama

       'Tampilan Form

'Coding

Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click

        Me.Enabled = False

        Latihan4.Show()

    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click

        Me.Enabled = False

        Latihan_5.Show()

    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click

        Me.Enabled = False

        Latihan_6.Show()

    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click

        Me.Enabled = False

        Latihan_7.Show()

    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click

        Me.Enabled = False

        Latihan_8.Show()

    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click

        Me.Enabled = False

        Latihan_9.Show()

    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click

        Me.Enabled = False

        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click

        Me.Enabled = False

        frmLat_11.Show()

    End Sub

    Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click

        Me.Enabled = False

        frmLat_12.Show()

    End Sub

    Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click

        Me.Enabled = False

        frmLat_13.Show()

    End Sub

    Private Sub bLat14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat14.Click

        Me.Enabled = False

        frmLat_14.Show()

    End Sub

    Private Sub bLat15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat15.Clickf

        Me.Enabled = Falseff

        frmlat_15.Show()

    End Sub

    Private Sub bLat16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat16.Click

        Me.Enabled = False

        frmLat_16.Show()

    End Sub

    Private Sub bLat17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat17.Click

        Me.Enabled = False

        frmLat_17.Show()

    End Sub

End Class

Demikianlah contoh beberapa program menggunakan Visual Basuc 2010 yang dapat saya berikan, semoga dapat menambah ilmu dan wawasan kita mengenai Visual Basic 2010, semoga bermanfaat..

Wassalam

Romi Riadi

Politeknik Sekayu

Contoh Program Visual Basic 2010 : Latihan 17

'Latihan 17 (Program Matriks)

               'Tampilan Form

'Coding

Public Class frmLat_17

    Dim matrixA(20, 20), matrixB(20, 20), barisA, kolomA, barisB, kolomB As Integer

    Dim hasilmatrixA, hasilmatrixB, hasilMatrix As String

    'Proses input matrixA

    Sub input_matrixA()

        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

                matrixA(b, k) = InputBox("Masukkan nilai Matriks A untuk posisi" & b + 1 & " x " & k & " : ")

            Next

        Next

    End Sub

    'Proses input matriks B

    Sub input_matrixB()

        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

                matrixB(b, k) = InputBox("Masukkan nilai Matriks B untuk posisi" & b + 1 & " x " & k & " : ")

            Next

        Next

    End Sub

    Sub cetak_matrixA()

        Dim b, k As Integer

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                hasilmatrixA = hasilmatrixA & matrixA(b, k) & " "

            Next

            hasilmatrixA = hasilmatrixA & Chr(13)

        Next

        Me.lbMatriksA.Text = hasilmatrixA.ToString

    End Sub

    Sub cetak_matrixB()

        Dim b, k As Integer

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                hasilmatrixB = hasilmatrixB & matrixB(b, k) & " "

            Next

            hasilmatrixB = hasilmatrixB & Chr(13)

        Next

        Me.lbMatriksB.Text = hasilmatrixB.ToString

    End Sub

    Private Sub frmLat_17_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_17_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub bProses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bProses.Click

        Call input_matrixA()

        Call input_matrixB()

        Call cetak_matrixA()

        Call cetak_matrixB()

        Call kali_matrixAB()

        'Call cetak_matrix()

    End Sub

    Sub kali_matrixAB()

        Dim bA, kA, bB, kB As Integer

        barisA = Val(Me.txtBarisA.Text)

        kolomA = Val(Me.txtKolomA.Text)

        barisB = Val(Me.txtBarisB.Text)

        kolomB = Val(Me.txtKolomB.Text)

        'Matrix A

        For bA = 0 To barisA - 1

            For kA = 0 To kolomA - 1

                'Matrix B

                For bB = 0 To barisB - 1

                    For kB = 0 To kolomB - 1

                        hasilMatrix = hasilMatrix + matrixA(bA, kA) * matrixB(bB, kB)

                    Next

                Next

                '--

                hasilMatrix = hasilMatrix & "  "

            Next

            hasilMatrix = hasilMatrix & Chr(13)

        Next

        '--

        Me.lbHasilMatriks.Text = hasilMatrix.ToString

    End Sub

End Class

Contoh Program Visual Basic 2010 : Latihan 16

'Latihan 16 (Tabel Penjualan)

         'Tampilan Form

'Coding

Public Class frmLat_16

    Dim Tipe(100) As String

    Dim Banyak(100) As Integer

    Dim Hargasat(100), jumlah(100), Total, Nomor As Double

    'Badan Fungsi

    Private Function JumlahJual(ByVal Byk As Integer, ByVal Hrg As Double) As Double

        JumlahJual = Byk * Hrg

        Return JumlahJual

    End Function

    Private Function TotalJual(ByVal BanyakTrx As Integer) As Double

        Dim ulang As Integer

        TotalJual = 0

        For ulang = 0 To BanyakTrx

            TotalJual = TotalJual + jumlah(ulang)

        Next

        Return (TotalJual)

    End Function

    Sub AturLVTransaksi()

        lvTransaksi.View = View.Details

        lvTransaksi.FullRowSelect = True

        lvTransaksi.GridLines = True

        lvTransaksi.Columns.Add("No.", 25, HorizontalAlignment.Center)

        lvTransaksi.Columns.Add("Tipe Kendaraan", 250, HorizontalAlignment.Center)

        lvTransaksi.Columns.Add("Harga @", 150, HorizontalAlignment.Center)

        lvTransaksi.Columns.Add("Banyak", 50, HorizontalAlignment.Center)

        lvTransaksi.Columns.Add("Jumlah", 200, HorizontalAlignment.Center)

    End Sub

    Sub IsiLVTransaksi()

        Dim isi As New ListViewItem

        Dim Nomor = 1

        Hargasat(Nomor) = Val(Me.txtHarga.Text)

        Banyak(Nomor) = Val(Me.txtBanyak.Text)

        'Proses pemanggilan fungsi JumlahJual

        jumlah(Nomor) = JumlahJual(Hargasat(Nomor), Banyak(Nomor))

        isi.Text = Nomor + 1.ToString

        isi.SubItems.Add(Me.txtTipe.Text)

        isi.SubItems.Add(Me.txtHarga.Text)

        isi.SubItems.Add(Me.txtBanyak.Text)

        isi.SubItems.Add(jumlah(Nomor).ToString)

        lvTransaksi.Items.Add(isi)

        Nomor += 1

    End Sub

    Private Sub frmLat_16_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_16_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_16_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call AturLVTransaksi()

    End Sub

    Private Sub bTambah_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTambah.Click

        Call IsiLVTransaksi()

        Total = TotalJual(Nomor)

        Me.txtTotal.Text = Total.ToString

        Call baru()

    End Sub

    Sub baru()

        Me.txtTipe.Clear()

        Me.txtHarga.Clear()

        Me.txtBanyak.Clear()

        Me.txtTipe.Focus()

        Me.bTambah.Enabled = False

    End Sub

    Private Sub txtBanyak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBanyak.TextChanged

        Me.bTambah.Enabled = True

    End Sub

End Class