06.39
yulisriyadi
Option Explicit
Private Sub Command5_Click()
Dim nama As String
Dim kelas As String
Dim alamat As String
Dim lahir As String
nama = Text1.Text
kelas = Text2.Text
alamat = Text3.Text
lahir = Text4.Text
Open "datasiswa.txt" For Append As #1
Write #1, nama, kelas, alamat, lahir
Close #1
Text1.Text = " ": Text2.Text = " ": Text3.Text = " ": Text4.Text = " "
End Sub
Posted in: 
