Program Rekam File

Option Explicit

Dim kdbr$, nmbr$

Dim harsat As Currency

Dim jumlah As Integer

Private Sub Command1_Click()

kdbr$ = Text1.Text

nmbr = Text2.Text

harsat = Val(Text3.Text)

jumlah = Val(Text4.Text)

Write #1, kdbr$, nmbr$, harsat, jumlah

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Command2_Click()

Close #1

End

End Sub

Private Sub Form_Load()

Open "d:\Pras \Rekam File\namadata.txt" For Output As #1

End Sub