06.10
yulisriyadi
Option Explicit
Dim bar
Dim Totalbar As Integer
Dim tmpnama() As String
Dim tmpalamat() As String
Dim tmpkelas() As String
Dim tmplahir() As String
Private Sub Command6_Click()
Dim pj As Integer
Dim i
pj = Len(Text6.Text)
For i = 1 To Totalbar
If Mid$(UCase$(tmpnama(i)), 1, pj) = UCase$(Text6.Text) Then
Debug.Print "Ketemu"
Exit For
End If
Next i
LihatRec (i)
End Sub
Private Sub Form_Load() ' cari data
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10
Totalbar = 1
ReDim tmpnama(Totalbar)
ReDim tmpalamat(Totalbar)
ReDim tmpkelas(Totalbar)
ReDim tmplahir(Totalbar)
bar = 1
Open "d:\datasiswa.txt" For Input As #1
Do While Not EOF(1)
Input #1, tmpnama(bar),...
Posted in: 
