Membuat Dua Program Matrik dan Membuat Kalkulator Sederhana

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

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 AsSystem.EventArgs) Handles boff.Click

        txtoperator.Enabled = False

        End

    End Sub

    Private Sub Bnol_Click(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.EventArgs) Handles Btambah.Click

        nilai = Val(txtoperator.Text)

        sharedoperator = "+"

        txtoperator.Text = ""

    End Sub

    Private Sub Bkurang_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bkurang.Click

        nilai = Val(txtoperator.Text)

        sharedoperator = "-"

        txtoperator.Text = ""

    End Sub

    Private Sub Bbagi_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Bbagi.Click

        nilai = Val(txtoperator.Text)

        sharedoperator = ":"

        txtoperator.Text = ""

    End Sub

    Private Sub Bkali_Click(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.EventArgs) Handles Bmembatalkan.Click

        txtoperator.Clear()

    End Sub

End Class

SUMBER : http://egafrian01.blogspot.co.id