Rabu, 15 Januari 2014

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

0 komentar:

Posting Komentar

 
Design by Wordpress Theme Template Blog Free | Bloggerized by Free Blogger Templates | coupon codes