MEMBUAT MATRIKS

MEMBUAT MATRIKS

 

ASSALAMU'ALAIKUM WARAHMATULLAHI WABAROKATUH :)

 

SELAMAT DATANG DI BLOG SAYA, SAYA AKAN MEMPOSTING MENGENAI  PROGRAM VISUAL BASIC 10 YANG SAYA BUAT

PROJECT LATIHAN   17

BERIKUT CODING CARA MENCARI MATRIKS:

Public Class Formlat_17

    Dim matrikA(20, 20), matrikB(20, 20), barisA, kolomA, barisB, kolomB As Integer

    Dim kalimatrik, hasilmatrikA, hasilmatrikB, hasilmatrik As String

    'proses input matrika

    Sub input_matrikA()

        Dim b, k As Integer

        barisA = Val(Me.TxtbykBaris.Text)

        kolomA = Val(Me.TxtbnykKolom.Text)

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                matrikA(b, k) = InputBox("Masukan Nilai Matriks A untuk posisi " & b + 1 & "x" & k + 1 & "  : ")

            Next

        Next

    End Sub

    Sub cetak_matrikA()

        Dim b, k As Integer

        barisA = Val(Me.TxtbykBaris.Text)

        kolomA = Val(Me.TxtbnykKolom.Text)

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                hasilmatrikA = hasilmatrikA & matrikA(b, k) & "    "

                Me.LBMatrik_A.Text = matrikA(b, k).ToString & "   "

            Next

            hasilmatrikA = hasilmatrikA & Chr(13)

        Next

        Me.LBMatrik_A.Text = hasilmatrikA.ToString

    End Sub

    Sub input_matrikB()

        Dim b, k As Integer

        barisB = Val(Me.TxtbykBarisB.Text)

        kolomB = Val(Me.TxtbykkolomB.Text)

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                matrikB(b, k) = InputBox("Masukan Nilai Matriks B untuk posisi " & b + 1 & "x" & k + 1 & "  : ")

            Next

        Next

    End Sub

    Sub cetak_matrikB()

        Dim b, k As Integer

        barisB = Val(Me.TxtbykBarisB.Text)

        kolomB = Val(Me.TxtbykkolomB.Text)

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                hasilmatrikB = hasilmatrikB & matrikB(b, k) & "    "

                Me.LbhasilmatrikB.Text = hasilmatrikB.ToString & "  "

            Next

            hasilmatrikB = hasilmatrikB & Chr(13)

        Next

        Me.LbhasilmatrikB.Text = hasilmatrikB.ToString

    End Sub

    Sub kali_matrikAB()

        Dim bA, kA, bB, kB As Integer

        barisA = Val(Me.TxtbykBaris.Text)

        kolomA = Val(Me.TxtbnykKolom.Text)

        barisB = Val(Me.TxtbykBarisB.Text)

        kolomB = Val(Me.TxtbykkolomB.Text)

        'matrik A

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                'matrik B

                For bB = 0 To barisB - 1

                    For kB = 0 To kolomB - 1

                        kalimatrik = kalimatrik & (matrikA(bA, kA) * matrikB(bB, kB))

                    Next

                    hasilmatrik = hasilmatrik & kalimatrik

                Next

                hasilmatrik = hasilmatrik & "    "

            Next

            hasilmatrik = hasilmatrik & Chr(13)

        Next

        Me.LBHMatrik.Text = hasilmatrik.ToString

    End Sub

    Private Sub Formlat_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 Formlat_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_matrikA()

        Call input_matrikB()

        Call cetak_matrikA()

        Call cetak_matrikB()

        Call kali_matrikAB()

    End Sub

End Class

 

MENENTUKAN TABEL PENJUALAN MOBIL TOYOTA

ASSALAMU'ALAIKUM WARAHMATULLAHI WABAROKATUH :)

 

SELAMAT DATANG DI BLOG SAYA, SAYA AKAN MEMPOSTING MENGENAI  PROGRAM VISUAL BASIC 10 YANG SAYA BUAT

PROJECT LATIHAN    16

 

MENENTUKAN TABEL PENJUALAN MOBIL TOYOTA

BERIKUT CODING MENENTUKAN TABEL PENJUALAN MOBIL TOYOTA:

Public Class Formlat16

    Dim Tipe(100) As String

    Dim Banyak(100) As Integer

    Dim HargaSat(100), Jumlah(100), Total As Double

    Dim Nomor = 0

    '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", 30, HorizontalAlignment.Center)

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

        LvTransaksi.Columns.Add("Harga @", 120, HorizontalAlignment.Center)

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

        LvTransaksi.Columns.Add("Jumlah", 160, HorizontalAlignment.Center)

    End Sub

    Sub IsiLvTransaksi()

        Dim isi As New ListViewItem

        HargaSat(Nomor) = Val(Me.TxtHargaSat.Text)

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

        'prose pengalian fungsi Jumlah Jual dan dimasukan ke dalam variabel jumlah

        Jumlah(Nomor) = JumlahJual(Banyak(Nomor), HargaSat(Nomor))

        isi.Text = Nomor + 1.ToString

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

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

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

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

        LvTransaksi.Items.Add(isi)

        Nomor += 1

    End Sub

    Sub Baru()

        Me.TxtTipemobil.Clear()

        Me.TxtHargaSat.Clear()

        Me.Txtbanyak.Clear()

        Me.TxtTipemobil.Focus()

        Me.Btambah.Enabled = False

    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

    Private Sub Formlat16_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 Formlat16_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 Formlat16_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call AturLvTransaksi()

    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