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
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
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeLatest imagesPasang 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

Admin
Rank : Admin


My Pets : searching data dari notepad di visual basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

searching data dari notepad di visual basic 6 Empty
PostSubject: searching data dari notepad di visual basic 6   searching data dari notepad di visual basic 6 I_icon_minitimeMon 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



[You must be registered and logged in to see this link.]
Back to top Go down
http://software-download1001.blogspot.com/


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

avatar
ares7

Moderator
Rank : Moderator


My Pets : searching data dari notepad di visual basic 6 Emoticon-animal-047
Jumlah posting : 25
Point : 2029
Reputasi : 0
Join date : 2010-04-23

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

seeep searching data dari notepad di visual basic 6 624947 searching data dari notepad di visual basic 6 624947
Back to top Go down
 

searching data dari notepad di visual basic 6

View previous topic View next topic Back to top 

 Similar topics

-
» menyimpan text dari vb6 ke notepad
» Visual basic 6.0
» Sejarah Visual Basic
» KONEKSI DATABASE dengan visual basic
» Membuat Progress bar pada visual basic 6
Page 1 of 1

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

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