Aplikasi Array
- Form Design 1 (15)
- Form Design 2 (15.1)
- Code 1 (15)
Public NIM(30), Nama(30), Alamat(30), Data(30), NamaFile, IsiFile As String
Dim n = 0
Sub Simpan_Data()
n = Val(Me.lbN.Text)
NIM(n) = Me.txtNIM.Text
Nama(n) = Me.txtNama.Text
Alamat(n) = Me.txtAlamat.Text
'menyimpan data
Data(n) = "NIM : " & NIM(n) & " " & _
"Nama : " & Nama(n) & " " & _
"Alamat : " & Alamat(n)
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.lbN.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 di cari : ")
'proses pencarian dan menampilkan hasil
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 Not Found !", vbCritical, " INFORMATION ")
End If
End Sub
Sub Cetak_Data()
Me.RichTextBox_Data.Clear()
NamaFile = Application.StartupPath & "\mhs.txt"
FileOpen(1, NamaFile, OpenMode.Input)
While Not EOF(1)
Input(1, IsiFile)
Me.RichTextBox_Data.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 System.Object, ByVal e As System.EventArgs) Handles bSimpan.Click
Call Simpan_Data()
Call Baru()
End Sub
Private Sub BCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BCari.Click
Call Cari_Data()
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
'Latihan_15_1.Show()
FileClose(1)
Me.RichTextBox_Data.Visible = True
Call Cetak_Data()
Me.BCetak.Text = " &Tutup"
ElseIf Me.BCetak.Text = "&Tutup" Then
Me.RichTextBox_Data.Visible = False
Me.BCetak.Text = "&Cetak"
FileClose(1)
NamaFile = Application.StartupPath & "\mhs.txt"
FileOpen(1, NamaFile, OpenMode.Append)
End If
End Sub
Private Sub Latihan_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.RichTextBox_Data.Visible = False
End Sub
- Code 2 (15.1)
Private Sub Latihan_15_1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Latihan_15.Enabled = True
Latihan_15.Show()
Me.Hide()
End Sub
Private Sub Latihan_15_1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Latihan_15.Enabled = True
Latihan_15.Show()
Me.Hide()
End Sub
Private Sub Latihan_15_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i, n As Integer
Dim data(30) As String
n = Val(Latihan_15.lbN.Text)
For i = 0 To n - 1
data(i) = "NIM : " & Latihan_15.NIM(i) & Chr(13) & _
"Nama : " & Latihan_15.Nama(i) & Chr(13) & _
"Alamat : " & Latihan_15.Alamat(i) & Chr(13) & Chr(13) & Chr(13)
Me.RichTextBox_Mahasiswa.AppendText(data(i))
Next
End Sub
End Class
- Start Debugging
