Pages

Subscribe:

Blogroll

Labels

Kamis, 22 September 2011

Source Code Aplikasi Chat Sederhana dangan Menggunakan Visual Basic 6.0

sekarang hal pertama kalian kerjain adalah buka dulu donk VB nya n klo blm ada aplikasi VB 6.0 nya tinggal download aja banyak tuh bertebaran di om gugel..
Rolling Eyes

setelah itu,
buatlah form anda seperti ini

[img] By siregar23 at 2010-11-15[/img]

terserah modelnya mau gimana, yang jelas 9 item diatas mesti ada.

Sebelumnya, icon yang bergambar telopon belum ada muncul di general, cara memunculkan icon nya seperti ini :

Klik Project trus Pilih Components, lalu tandai Microsoft Comm Control 6.0
Trus OK deh..



Setelah selsai mendesain form nya,
trus klik 2 kali di setiap menunya dan copy source di bawah ini :

1. OPEN

Private Sub Open_Click()
MSComm1.CommPort = 1
MSComm1.Settings = True
'msbox = "Open"

End Sub

2. CLOSE

Private Sub Close_Click()
MSComm1.comport = 1
MSComm1.PortOpen = False
'MsgBox = "Close"

End Sub


3. ON

Private Sub On_Click()
MSComm1.RTSEnable = True
'MsgBox = "RTS false"

End Sub

4. OFF

Private Sub Off_Click()
MSComm1.RTSEnable = False
'MsgBox = "RTS true"

End Sub

5. SEND

Private Sub Send_Click()
pesan.Text = MSComm1.Input
End Sub

6. READ

Private Sub Read_Click()
pesanterima.Text = MSComm1.Output
End Sub

Setelah selsai semuanya, tinggal di RUN deh...
dan hasilnya akan muncul seperti ini klo tidak ada yang error...
hihihihi...Smile Smile


[img] By siregar23 at 2010-11-15[/img]
Rolling Eyes Rolling Eyes Rolling Eyes

Selesai deh Program anda,
agar aplikasi anda bisa digunakan,
terlebihdahulu beli Kabel Jaringan, dan 2 pasang Port Serial Number atau Port 9,
trus sambungkan kabel jaringan dengan portnya dengan cara di solder, (Sekalian Belajar Nyolder juga Neh, hihii)
trus sambungin deh ke dua PC yang berbeda....

SELESAI....
cheerscheers

Selamat Mencoba....Smile Smile

0 komentar:

Poskan Komentar

lancarklik.com

Lancarklik
About The Author
Nama saya Yudi Aditya, Saya Bukan Seorang Blogger, Desainer atau Apapun Tapi Saya Hanya Seseorang Yang Ingin Selalu Belajar dan Ingin Tahu Sesuatu Yang Baru...