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