06.53
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()
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...
Posted in: 
