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..


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...


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


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....


Selamat Mencoba....