Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeFAQPasang Iklanfacebook InformatikaRegisterLog inNew Tab Newscomputer

Share | 
 

 searching data dari notepad di visual basic 6

View previous topic View next topic Go down 
AuthorMessage


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: searching data dari notepad di visual basic 6   Mon 26 Jul 2010, 19:39

Code:
Private Sub Form_Load()

x = App.Path & "\buku.txt"
Open x For Input As #2
While Not EOF(2)

Input #2, kode
Input #2, buku
Input #2, stock

cmbkode.AddItem kode
Wend

Close #2
End Sub

Private Sub txtnrp_keypress(keyascii As Integer)

If keyascii = 13 Then

x = App.Path & "\mahasiswa.txt"
Open x For Input As #1

While Not EOF(1)

Input #1, nrp
Input #1, nama
Input #1, kelas

If txtnrp = nrp Then
 txtnama.Text = nama
 txtkelas.Text = kelas
End If
Wend

End If
Close #1

End Sub

Private Sub cmbkode_click()

x = App.Path & "\buku.txt"
Open x For Input As #2

While Not EOF(2)

Input #2, kode
Input #2, buku
Input #2, stock

If cmbkode = kode Then
 txtbuku.Text = buku
 txtstock.Text = stock
End If
Wend

Close #2
End Sub

Private Sub save_Click()

x = App.Path & "\pinjam.txt"
Open x For Append As #3

Print #3, txtnrp, txtnama, txtkelas, cmbkode, txtbuku, txtstock
MsgBox "Data Tersimpan", vbInformation
Close #3

End Sub



Download di sini
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


ares7

Moderator
Rank : Moderator


My Pets :
Jumlah posting : 25
Point : 2029
Reputasi : 0
Join date : 2010-04-23

PostSubject: Re: searching data dari notepad di visual basic 6   Thu 29 Jul 2010, 00:00

seeep
Back to top Go down
 

searching data dari notepad di visual basic 6

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forum Informatika ::  :: VB6-
Jump to:  

Forumotion.com | © phpBB | Free forum support | Contact | Report an abuse | Free forum