APLIKASI CHATTING LAN
15.24 |
Diposting oleh
edy |
Edit Entri
Membuat program chating LAN sederhana
Hai para vbthok mania…sudah hampir 2 bulan neh penulis tidak produktif dalam pembuatan artikel untuk vbthok mania dikarenakan penulis lagi sibuk dengan pekerjaan yang menyita bnyak waktu.Hehehe…sok sibuk deeh…Oke kali ini penulis ingin mengajak vbthok mania untuk sharing lagi dalam pembuatan program chating dimana program ini dibuat hanya untuk Local Area Network (LAN) dan tidak untuk online diinternet. Mungkin kalian berfikir kenapa hanya untuk LAN saja tidak bisa untuk online diinternet, nah kalo untuk online diinternet mungkin sudah banyak program jadi yang tidak kalah keren dan handal seperti yahoo messeger, so kalian bisa menggunakan program jadi tersebut daripada buat sendiri…Hehehehe
Tapi jangan salah kalo kalian ingin chat hanya untuk LAN mungkin kalian tidak akan bisa menggunakan program yahoo messenger dan untuk itu penulis ingin membuat program chating hanya untuk LAN saja. Yah sapa tau dengan program sederhana ini vbthok mania ingin mengembangkannya lagi menjadi program yang setara dengan yahoo messenger atau bahkan bisa dipakai di internet dan LAN.Woww..kereen tuuh…
Yawda tanpa panjang lebar lagi sekarang buatlah 1 project untuk server yang nantinya program ini dijalankan pada komputer yang dijadikan server, nah didalam project ini buat 1 form dan berikan 1 komponen winsock dengan mengaktifkan komponen microsoft winsock control terlebih dahulu ditabel komponen pada program visual basic, setting propertis untuk name winsock diganti menjadi server. Kemudian desain tampilan sesuai yang ada pada gambar dengan memberikan 1 textbox untuk tabel messageg chat yang disetting propertisnya untuk name = tbmessage multiline = true, scrollbar = vertical kemudian 1 text untuk tulis pesan dengan setting propertisnya name = tbsay, 2 label untuk tombol connect dan disconnect dengan setting propertis label1 name = startt dan label2 name = stopp. Berikut tampilan preview program chat untuk server yang sudah jadi
Untuk yang client hampir sama tinggal menambahkan text untuk ip address server saja dan tombol untuk koneksi, berikut tampilan untuk program clientnya
untuk sorce codenya sebagai berikut
'form server
Private Sub Form_Load()
startt.Visible = True
stopp.Visible = False
End Sub
Private Sub stopp_Click()
startt.Visible = True
Server.Close
stopp.Visible = False
End Sub
Private Sub Label1_Click()
End
End Sub
Private Sub startt_Click()
stopp.Visible = True
startt.Visible = False
Server.LocalPort = 2500
Server.Listen
End Sub
Private Sub Server_ConnectionRequest(ByVal requestID As Long)
Server.Close
Server.Accept requestID
End Sub
Private Sub Server_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Call MsgBox(Description, bvExclimation, "Error Num." & Number)
End Sub
Private Sub Server_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Server.GetData strData
tbMessages.Text = tbMessages & "Client: " & strData & vbCrLf
End Sub
Private Sub tbSay_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim strMessage As String
If KeyAscii = (13) Then
strMessage = tbSay.Text
tbMessages.Text = tbMessages.Text & "Server: " & tbSay & vbCrLf
Server.SendData strMessage
tbSay.Text = ""
End If
End Sub
'form client
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
tbl_konek.Visible = True
tbl_disconect.Visible = False
End Sub
Private Sub tbl_konek_Click()
On Error GoTo Error:
Client.RemotePort = 2500
Client.RemoteHost = tbIP.Text
Client.Connect
tbl_konek.Visible = False
tbl_disconect.Visible = True
Error: Exit Sub
End Sub
Private Sub cbConnect_Click()
End Sub
Private Sub tbl_disconect_Click()
Client.Close
tbl_konek.Visible = True
tbl_disconect.Visible = False
End Sub
Private Sub tbSay_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim strData As String
If KeyAscii = (13) Then
strData = tbSay.Text
tbMessages.Text = tbMessages.Text & "Client: " & tbSay & vbCrLf
Client.SendData strData
tbSay.Text = ""
End If
End Sub
Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Client.GetData strData
tbMessages.Text = tbMessages & "Server: " & strData & vbCrLf
End Sub
Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Call MsgBox(Description, vbExclamation, "Error Num." & Number)
End Sub
Segitu aja script kodenya, silakan mencoba sendiri dan berkespresi lagi dalam mengembangkan program chat untuk LAN ini....yang pasti tetep semangat dan pantang menyerah untuk belajar. OK??
Oiya untuk yang pengen liat lansung source codenya bisa di donlot disini
Label:
chatting dengan jaringan LAN
Langganan:
Posting Komentar (Atom)
Labels
- agar blog dikenal di search engine (2)
- antivirus (2)
- APA ITU HAMSTER (1)
- AWSurvey (1)
- bagaimana blog dibayar (1)
- bagaimana blog menghasilkan uang (1)
- biografi nabi muhammad saw (2)
- bisnis online (4)
- bisnis sampingan (1)
- buffering video (1)
- Bumbu Pecel (1)
- cara buka situs yang diblok (1)
- cara install POINT BLANK (1)
- CARA MEMASANG GAME DI BLOG (1)
- cara memasang game online di blog (1)
- cara memasang warnet (1)
- cara membuat antivirus (2)
- cara membuat antivirus sendiri (1)
- cara membuat cd hiren's (1)
- cara membuat halaman blog (1)
- cara membuat iso (1)
- cara membuat iso windows xp (1)
- CARA MEMBUAT MENU HORIZONTAL PADA BLOG (1)
- cara membuat menu horizontal pada blogspot (1)
- cara membuat program dengan visual basic (1)
- cara membuat virus dengan notepad (3)
- cara membuat virus sederhana (2)
- cara memelihara hamster (1)
- cara memperbaiki komputer yang sering restart sendiri (1)
- cara mempercantik blog (2)
- cara mendapatkan uang dari blog (1)
- cara mengganti temlpate blog (1)
- cara mengganti template blog (3)
- cara menghilangkan navigation bar (1)
- cara merakit komputer (1)
- cara merakit komputer dengan mudah (1)
- CARA PASANG GAME PADA BLOG (1)
- cara rujuk (1)
- cd bootable (1)
- cd mini windows xp (1)
- CD MINIPE (1)
- chatting dengan jaringan LAN (1)
- chatting facebook via Yahoo Messenger (1)
- dapat uang dari internet (1)
- dibayar per clik (1)
- Download (5)
- Download gratis (1)
- download gratisan (1)
- download teamviewer porttable (1)
- driver epson c79 (1)
- GAME BLOG (1)
- GAME JAVA (1)
- game online (1)
- game point blank (1)
- ganti template blogger (1)
- HAMSTER (1)
- Hamster melahirkan (1)
- hiren's boot cd (1)
- instal windows xp dengan flasdisk (1)
- instalasi warnet (1)
- INSTALL GAME JAVA (1)
- install windows dengan cepat (1)
- install windows xp dengan usb flasdisk (1)
- Install windows xp pake usb (1)
- Install windows xp sp2 (1)
- islam kaffah (1)
- ISO Image (1)
- iso windows xp sp2 (1)
- jual kerupuk kulit (1)
- kerupuk kulit (1)
- komputer lemot (1)
- makanan hamster (1)
- martabak bangka (2)
- martabak manis (2)
- memaksimalkan blog (1)
- Membuat antivirus (5)
- membuat antivirus sendiri (1)
- membuat boottable (1)
- membuat cd iso bootable windows xp dari hardisk (1)
- membuat file iso dengan nero 9 (1)
- Membuat ISO dari CD/DVD (1)
- membuat iso image (1)
- membuat menu bar horizontal pada blog (1)
- membuat menu bar sendiri di blog (1)
- membuat menu dropdown (1)
- MEMBUAT PROGRAM DENGAN VISUAL BASIC 6.0 (1)
- membuat virus notepad (1)
- membuka situs yg diblok (1)
- Menambah Kapasitas Flasdisk/USB (1)
- menghapus foto di facebook (1)
- menghias blog (1)
- menghilangkan navbar (1)
- menginstal windows dengan flasdisk (1)
- menjadi seorang muslim yang kaffah (1)
- menjebol password administrator windows (1)
- MENU DROPDOWN (1)
- MENU HORIZONTAL PADA BLOG (1)
- nabi yang agung (1)
- nasehat seorang sahabat (1)
- nortnon ghost via flasdsik (1)
- norton ghost (1)
- norton ghost usb (1)
- Obat Diare (1)
- optimalisasi blog (1)
- osama telah tewas (1)
- pasang banner di blog (1)
- pasang iklan di blog (1)
- Pecel Ayam atau Pecel Lele (1)
- peluang usaha (1)
- pemimpin dunia (1)
- penempatan kode html (1)
- PETERNAKAN HAMSTER (2)
- PowernISO (1)
- PPC (1)
- renungan muslim (1)
- resep martabak bangka (1)
- reseter epson c79 (2)
- rujuk (1)
- sang khalifah (1)
- sejarah nabi muhammad saw (2)
- service printer epson t11 (1)
- Share Printer (1)
- SOLAT NABI MUHAMMAD SAW (1)
- SOLAT ROSULULLAH SAW (1)
- supaya blog terditeksi di mesin pencari (1)
- tahlilan dan qunut (1)
- tahlilan menurut islam (1)
- TATA CARA SHOLAT NABI MUHAMMAD SAW (1)
- TATA CARA SOLAT MALAM DAN WITIR (1)
- TATA CARA WUDHU YANG BAIK (1)
- template blogger (1)
- tips dan trik blog (2)
- tips dan trik mendapatkan uang lewat blog (1)
- tips menghilangkan buffering video (1)
- tokoh dunia (1)
- ultraiso (1)
- usaha (1)
- usaha sampingan untuk karyawan (1)
- VB 6.0 (4)
- virus notepad (2)
- virus shortcut (1)
- warnet (1)
- WINDOWS LIVE MINIPE (1)
- WUDHUNYA ROSUL (1)
- yahoo messenger untuk linux (1)
ARSIP
-
▼
2011
(127)
- ► 02/20 - 02/27 (1)
- ► 02/27 - 03/06 (1)
- ► 03/06 - 03/13 (2)
- ► 03/20 - 03/27 (17)
- ► 03/27 - 04/03 (6)
- ► 04/03 - 04/10 (17)
- ► 04/10 - 04/17 (11)
- ► 04/17 - 04/24 (1)
- ► 04/24 - 05/01 (16)
- ► 05/01 - 05/08 (14)
- ► 05/08 - 05/15 (2)
- ► 05/15 - 05/22 (6)
- ► 05/22 - 05/29 (2)
- ► 05/29 - 06/05 (2)
- ▼ 06/12 - 06/19 (3)
- ► 06/19 - 06/26 (1)
- ► 06/26 - 07/03 (1)
- ► 07/03 - 07/10 (2)
- ► 07/10 - 07/17 (7)
- ► 07/17 - 07/24 (2)
- ► 07/31 - 08/07 (7)
- ► 09/11 - 09/18 (1)
- ► 10/02 - 10/09 (5)
0 komentar:
Posting Komentar