Contoh Project Visusal Basic 2010 Memasukan dan mencetak data mahasiswa

membuat data mahasiswa dengan memasukkan data dan mencetaknya menggunakan array Tidak menggunakan menu utama.

• Form project

 

• Atur Propertis form sesuai dengan data berikut ;

• Coding project

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

        PrintLine(1, data(n))

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

        'print (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 NIM 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 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 frmlat_15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'buka file untuk menyimpan data

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

        FileOpen(1, namafile, OpenMode.Output)

        Me.Rtxdata.Visible = False

    End Sub

    Private Sub bCetak_Click(ByVal sender As System.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

End Class

menu untuk mencetak project data mahasiswa diatas,menu ini memang tidak dimasukkan dalam menu utama karena hanya berfungsi sebagai pencetak dari data mahasiswa.

• Form project

 

•  Atur Propertis form sesuai dengan data berikut ;

• Coding project

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

Untuk melihat hasil dari pencetakkannya ikuti langkah berikut;

• Pertama kita Runkan terlebih dahulu projectnya lalu masukkan data lalu klik simpan Jika data yang ingin kita masukkan sudah selesai klik cetak seperti gambar berikut.

• Kemudian jika sudah seperti gambar diatas klik clos seperti gambar berikut ;

• Selanjutnya Bukak folder tempat penyimpanan project,lalu pilih folder project visual basic seperti gambar berikut:

• Kemudian pilih bin,bila sudah masuk ke kontat bin lalu pilih debug,langkah terakhir yaitu pilih mhs maka akan muncul hasil dari data yang telah kita masukkan tadi.