Membuat chatting dengan visual basic 6

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Membuat chating sederhana pada visual basic 6 ya mungkin sudah banyak sobat programmer lihat mungkin untuk yang tutorial ini sedikit berbeda dari penyajian nya. Saya menambahkan kelengkapan dalam membuat nya. Ya sekarang kita mulai saja 

membuatnya :

sekarang untuk server-nya dulu kita buat desain form yang terdiri dari tiga textbox dan 1 winsock kenapa winsock karena winsock adalah sebuah komponen yang di buat untuk jaringan..

Materi Belajar Visual Basic ini harus di pahami, untuk desain nya untuk Server dan Client  bisa ber-ekpresi sendiri atau bagi pemula bisa memakai referensi yang saya buat ini dulu.untuk kedepanya bisa di kembangkan.

 

Penulisan source code (Form Server)

Private Sub Form_Activate()
'untuk menampilkan ip sendiri
Me.TXTlocal.Text = Winsock1.LocalIP
End Sub

Private Sub Form_Load()
'Port bebas tetapi harus sama dg port client
Winsock1.LocalPort = 5050

' untuk menunggu koneksi dari client
Winsock1.Listen
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'berfungsi untuk mengirim pesan yang ada di text3
Winsock1.SendData TXTkeluar
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'jika winsock masih dalam keadaan terkoneksi maka akan di putus untuk merefresh koneksi
If Winsock1.State <> sckClosed Then Winsock1.Close

'untuk menerima permintaan koneksi

Winsock1.Accept requestID
MsgBox "Client Terkoneksi", vbInformation
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String

'untuk menerima data yang dikirim oleh Client

Winsock1.GetData data
Me.TXTmasuk.Text = data
End Sub

Penulisan source code (Form Client)
 

Private Sub Form_Load()
Dim ip As String
ip = InputBox("Masukkan IP Server")
Winsock1.Connect ip, 5050
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Winsock1.SendData TXTkeluar
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Me.TXTmasuk.Text = data
End Sub

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Membuat chatting dengan visual basic 6, Diterbitkan oleh scodeaplikasi pada Rabu, 20 Maret 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.