Paket Program - Perbaikan 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()
tmpnama(bar) = Text1.Text
tmpkelas(bar) = Text2.Text
tmpalamat(bar) = Text3.Text
tmplahir(bar) = Text4.Text
Dim newbar As Integer
newbar = 1
Open "d:\datasiswa.txt" For Output As #1
Do While newbar <= Totalbar
  
   Write #1, tmpnama(newbar), tmpkelas(newbar), tmpalamat(newbar), tmplahir(newbar)
   newbar = newbar + 1

Loop
Close #1
LihatRec (bar)

End Sub

Private Sub Form_Load() ' perbaikan data
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10
Totalbar = 30
ReDim tmpnama(Totalbar + 1)
ReDim tmpalamat(Totalbar + 1)
ReDim tmpkelas(Totalbar + 1)
ReDim tmplahir(Totalbar + 1)

bar = 1
Open "datasiswa.txt" For Input As #1

  Do While Not EOF(1)
   Input #1, tmpnama(bar), tmpkelas(bar), tmpalamat(bar), tmplahir(bar)
   bar = bar + 1
    Loop
Totalbar = bar - 1
Close #1
LihatRec (Totalbar)
End Sub

Sub LihatRec(bar As Integer)

Text1.Text = tmpnama(bar)
Text2.Text = tmpkelas(bar)
Text3.Text = tmpalamat(bar)
Text4.Text = tmplahir(bar)
Text5.Text = bar


End Sub

Private Sub CommandSebelum_Click(Index As Integer)

bar = bar - 1
If bar <= 1 Then bar = 1
LihatRec (bar)

End Sub

Private Sub CommandSelanjutnya_Click(Index As Integer)

bar = bar + 1
If bar >= Totalbar Then bar = Totalbar
LihatRec (bar)

End Sub

Private Sub Text5_Change()
LihatRec (Val(Text5.Text))
End Sub

Read more »

Posted in: Paket Program,Pemrograman