Rabu, 19 Februari 2014

Paket Program - Pencarian Data

  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),...

 
Design by Wordpress Theme Template Blog Free | Bloggerized by Free Blogger Templates | coupon codes