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

Contoh Program Visual Basic 2010 : Latihan 15

'Latihan 15 (Array)

          'Tampilan Form

'Coding

Public Class frmlat_15

    Public nim(30), nama(30), alamat(30), data(30), NamaFile, isifile As String

    Dim n As Integer

    Sub simpan_data()

        n = Val(Me.lbUrut.Text)

        nim(n) = Me.txtNim.Text

        nama(n) = Me.txtNama.Text

        alamat(n) = Me.txtAlamat.Text

        data(n) = "NIM :" & nim(n) & " " &

                    "Nama :" & nama(n) & " " &

                    "Alamat :" & alamat(n)

        'Menyimpan data

        PrintLine(1, data(n))

        'Print(1, nim(n), nama(n), alamat(n), Chr(13))

        'PrintLine(1, nim(n), nama(n), alamat(n))

        n += 1

        Me.lbUrut.Text = n.ToString

    End Sub

    Sub cari_data()

        Dim Nimcari As String

        Dim i As Integer

        Dim ditemukan As Boolean

        'Yang dicari berdasarkan NIM

        Nimcari = InputBox("Masukkan data yang akan dicari :")

        'Proses pencarian

        For i = 0 To n - 1

            If Nimcari = nim(i) Then

                Me.txtNim.Text = nim(i).ToString

                Me.txtNama.Text = nama(i).ToString

                Me.txtAlamat.Text = alamat(i).ToString

                ditemukan = True

                Exit For

            Else

                ditemukan = False

            End If

        Next

        If ditemukan = False Then

            MsgBox("Data Tidak Ditemukan!!!", vbCritical, "Informasi")

        End If

      

    End Sub

    Sub cetak_data()

        Me.rtxData.Clear()

        NamaFile = Application.StartupPath & "\mhs.txt"

        FileOpen(1, NamaFile, OpenMode.Input)

        While Not EOF(1)

            Input(1, isifile)

            Me.rtxData.AppendText(isifile & Chr(13))

        End While

    End Sub

    Sub baru()

        Me.txtNim.Clear()

        Me.txtNama.Clear()

        Me.txtAlamat.Clear()

        Me.txtNim.Focus()

    End Sub

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

        Utama.Enabled = True

        Utama.Show()

        FileClose(1) 'Tutup File

        Me.Hide()

    End Sub

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

        Utama.Enabled = True

        Utama.Show()

        FileClose(1) 'Tutup File

        Me.Hide()

    End Sub

    Private Sub bSimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSimpan.Click

        Call simpan_data()

        Call baru()

    End Sub

    Private Sub bCari_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bCari.Click

        Call cari_data()

    End Sub

    Private Sub bCetak_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bCetak.Click

        If Me.bCetak.Text = "&Cetak" Then

            'Me.Enabled = False

            'frmLat_15_cetak.Show()

            FileClose(1)

            Me.rtxData.Visible = True

            Call cetak_data()

            Me.bCetak.Text = "&Tutup"

        ElseIf Me.bCetak.Text = "&Tutup" Then

            Me.rtxData.Visible = False

            Me.bCetak.Text = "&Cetak"

            FileClose(1)

            NamaFile = Application.StartupPath & "\mhs.txt"

            FileOpen(1, NamaFile, OpenMode.Append)

        End If

    End Sub

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

        'Buka file untuk menyimpan data

        NamaFile = Application.StartupPath & "\mhs.txt"

        FileOpen(1, NamaFile, OpenMode.Output)

        Me.rtxData.Visible = False

    End Sub

End Class

                  'Mencetak data dari form latihan 15

'Coding

Public Class frmLat_15_cetak

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

        frmlat_15.Enabled = True

        frmlat_15.Show()

        Me.Hide()

    End Sub

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

        frmlat_15.Enabled = True

        frmlat_15.Show()

        Me.Hide()

    End Sub

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

        Dim i, n As Integer

        Dim data(30) As String

        n = Val(frmlat_15.lbUrut.Text)

        For i = 0 To n - 1

            data(i) = "NIM :" & frmlat_15.nim(i) & Chr(13) & "Nama :" & frmlat_15.nama(i) & Chr(13) & "Alamat :" & frmlat_15.alamat(i) & Chr(13) & Chr(13)

            Me.rtxMahasiswa.AppendText(data(i))

        Next

    End Sub

End Class

Contoh Program Visual Basic 2010 : Latihan 14

'Latihan 14 (Perkalian)

             'Tampilan Form

'Coding

Public Class frmLat_14

    Dim jbaris, jkolom, hasil As Integer

    Dim cetakkolom, cetakbaris As String

    Sub perkalian()

        Dim baris, kolom As Integer

        'Cetak di listbox

        jbaris = 10

        jkolom = 10

        For baris = 1 To jbaris

            For kolom = 1 To jkolom

                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)

                Me.lsPerkalian.Items.Add(cetakkolom)

            Next

            Me.lsPerkalian.Items.Add(Chr(13))

        Next

        'Cetak di richtextbox

        baris = 1

        While (baris <= jbaris)

            kolom = 1

            While (kolom <= jkolom)

                cetakkolom = baris & " x " & kolom & " = " & (baris * kolom) & Chr(13)

                Me.rtxPerkalian.AppendText(cetakkolom)

                kolom += 1

            End While

            'Code untuk pindah ke atas / baris 1 dan digeser kenama sebanyak 15-20 karakter

            Me.rtxPerkalian.AppendText(Chr(13))

            baris += 1

        End While

    End Sub

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

        Call perkalian()

    End Sub

End Class

Contoh Program Visual Basic 2010 : Latihan 13

'Latihan 13 (Perulangan Bersarang)

             'Tampilan Form

'Coding

Public Class frmLat_13

    Dim banyak As Integer

    Dim kar, karn As String

    Sub cetak_hasil()

        Dim u1, u2 As Integer

        banyak = Val(Me.txtBanyak.Text)

        kar = Me.txtKarakter.Text

        'step 1

        u1 = 1

        Me.lbHasil.Text = ""

        While (u1 <= banyak)

            u2 = 1

            While (u2 <= u1)

                'menambah karakter

                karn = karn & kar

                u2 += 1

            End While

            karn = karn & Chr(13)

            u1 += 1

        End While

        Me.lbHasil.Text = karn

        'step 2

        u1 = banyak - 1

        Me.lbHasil.Text = ""

        While (u1 >= 1)

            u2 = 1

            While (u2 <= u1)

                'Menambahkan karakter

                karn = karn & kar

                u2 += 1

            End While

            'menambahkan enter

            karn = karn & Chr(13)

            u1 -= 1

        End While

        'mencetak karakkter

        Me.lbHasil.Text = karn

    End Sub

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

        If Val(Me.txtBanyak.Text) >= 1 And Me.txtKarakter.Text <> "" And Me.txtKarakter.Text <> " " Then

            'Ok

            Call cetak_hasil()

        Else

            'Bermasalah

            MsgBox("Jumlah Perulangan tidak benar atau karakter kosong :", vbCritical, "Masalah.")

            Me.txtBanyak.Focus()

        End If

    End Sub

    Private Sub frmLat_13_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_13_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 bHapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bHapus.Click

        Me.lbHasil.Text = ""

        Me.txtKarakter.Text = ""

        Me.txtBanyak.Text = ""

        Me.txtBanyak.Focus()

    End Sub

End Class

Contoh Program Visual Basic 2010 : Latihan 12

'Latihan 12 (Deret)

             'Tampilan Form

'Coding

Public Class frmLat_12

    Dim deret As Integer

    Sub bil_deret()

        Dim banyak, n As Integer

        banyak = Val(Me.txtJumlah.Text)

        n = 1

        LsDeret.Items.Clear()

        While (n <= banyak)

            deret = n ^ 2

            LsDeret.Items.Add(n & " " & deret)

            n = n + 1

        End While

    End Sub

    Private Sub frmLat_12_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_12_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 txtJumlah_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged

        Call bil_deret()

    End Sub

End Class