Source Code Aplikasi Chat Sederhana dangan Menggunakan Visual Basic 6.0

Huhhhw...
Akhirnya kesampain juga keinginan buat nge post di forum neh ,...
Dari kemaren-kemaren pengen sih tapi gak tau mau ngepost apa.
Setelah di fikir2, kayaknya materi ini cocok di post dan kebetulan tugas matakuliah Arsitektur dan Organisasi Komputer.
Nth kenapalah si Dosen nyuruh tugas yang giniian padahal materi ini gak da hubungannya dengan yang di ajarkannya dan ujian aja gak keluar.
Ternyata tujuan nya adalah untuk menambah pengetahuan kita,
padahal saya gak pernah nyentuh VB,
karena tugas ini aja makanya saya mencoba belajar walaupun cuma buat Chat demi tugas...

Sebelumnya sih saya juga sempat googling mencari source code chat dengan menggunakan Pemrograman JAVA, source code nya dapet sih, tapi membingung kan dan banyak banget berbanding terbalik dengan menggunakan VB yang hanya 3 baris maksimal setiap modul...
makanya sang dosen pun menyarankn dengan menggunakan VB 6.0.

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

nice share kak,,,
nnti ajalah nyobanya,,
liat gambarnya aja dah pening,,
wokowkowk

asyik koq deq..
cobain aja,
kkq aja baru nyoba langsung berhasil...
cuma copas aja pun,
hahahahha,,,,,

hahaha,,,
kebiasaan anak mtn tu copas,,,

hahaha..
tapi mau pande deq,
copas dulu lah awalnya,

mau jadi programing tapi..
whahahaah

Kok mesti nyolder-menyolder nih???
Bukannya klo mo menghubungkan 2 PC tinggal tancepin ja tu kabel UTP??? Mohon penjelasannya kk....

@atas,
kan tuh kabel ngerakit sendiri khusus program yang di buat..
dalam program ini yang di pake kabel jaringan n 2 Port seriar number atau port 9...
program ini masih sederhana koq deq,
klo UTP yang udah tersedia mungkin, tuh buat aplikasi chat yang sudah besar kayak di warnet gitu...
(klo menurut kkq yah...)
alnya sang dosen nyruh buat gitu, khusus Port Serial Number..
hehehehe

Hmmm...msh blum ngerti sih...heheheh
Tpi gpp lah, mo googling dlo bwt nyari referensinya...
Btw, mksh da share ya kk!!

hahaha...
coding nya aja dulu deq,
klo dah berhasil baru lanjud...
hehehe

masih blajar...let me try....
makasih buat share nya kak