Paket Program - Masukan Data

 

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: Paket Program,Pemrograman