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
|
0
komentar
CARA MEMBUKA FACEBOOK ATAU SITUS YANG DIBLOK OLEH ROUTER
12.27 |
Diposting oleh
edy |
Edit Entri
Membuka Situs Yang Diblok Router saat Browsing
Salam buat sobat2 semua,,dah lama nih g bikin postingan tentang tips komputer lagi,,maklum lah dah sibuk kerja skarang di kantor hehehe,,nah kali ini saya mo bagi pengalaman dikitnih tentang koneksi internet di kantor saya yang semua situs nya di blokir dari router sama adminnya,yang bisa dibuka cuman yahoo doank tu artinya koneksi internet yang 1mb itu cuman digunain buat kirim2 email doank,,,sayang kan kalo koneksi yang lumayan cepat cuman digunain buat kirim email,,alangkah baiknya kalo bisa dimanfaatkan untuk browsing yang lain n download downloadtan ya g sob?
Setelah saya coba ternyata g terlalu sulit untuk menembus proteksi dari router tersebut,kita cukup mengubah proxy untuk browser kita
disini saya akan memanfaatkan software UltraSurf 10.05
Silahkan Download the latest version UltraSurf 10.05
Cara pemakaiyannya cukup mudah, setelah download tinggal jalankan softwarenya. Setelah koneksi ke server UltraSurf berjalan sukses maka secara otomatis internet explorer akan terbuka dan kita sudah bisa browsing dengan bebas tanpa hambatan lagi
Namun kelemahannya disini adalah kita hanya bisa browsing bebas menggunakan internet explorer yang juga banyak kekurangannya,,,gimana caranya agar kita browsing bebas tanpa hambatan pake mozilla??
gampang,,tinggal samakan proxy mozilla dengan internet explorer
Caranya:
- Jalankan UltraSurf,tunggu koneksi berjalan sukses
- Buka mozilla
- Ubah Proxy dengan cara ===> Klik Tool => Option => Network => klik setting => Pilih Manual Proxy configuration ==> isi Http Proxy dengan 127.0.0.1 port 9666 ==> centang use this proxy server for all protocol
- Ok ==>
Label:
cara buka situs yang diblok
|
0
komentar
CARA MEMBUAT PROGRAM PENGACAK NO UNDIAN DENGAN VISUAL BASIC 6
15.02 |
Diposting oleh
edy |
Edit Entri
Cara membuat program pengacak no undian pada VB 6
Filed under: ILMu — fivembois @ 5:02 am
Undian itu salah satu hal yang paling digemari masyarakat… Undian ada berbagai macam….ada yang melalui media elektronik dan salah satu aplikasi yang bisa digunakan untuk membuat undian adalah Visual basic 6.0 …Simak cara singkatnya di bawah ni…
1. Buka aplikasi Visual basic dengan cara klik start-program-microsoft visual studio 6.0-microsoft visual basic 6.0
2. maka akan muncul tampilan sbb:
pilih standart exe untuk memulai membuat aplikasi baru
dan klik open untuk memulai membuat aplikasi.
3. setelah anda klik open, maka akan muncul tampilan form seperti dibawah ini :
4. Buat label dengan cara klik Label pada toolbox lalu ganti namanya melalui caption.
5. lakukan hal yang sama namun ganti caption dengan NO handphone
6. Lalu klik pada text box dan hapus tulisan “text” pada properties. dan tambahkan 1 text box lagi dibawahnya.
7. Setelah selesai menambahkan textbox, lalu tambahkan command button seperti gambar dibawah ini, dan ubah caption pada properti menjadi Acak, setelah itu tambahkan 1 command button lagi dan ganti captionnya menjadi stop.
8. Lalu kita tambahkan timer dengan cara klik timer yang ada di toolbox
9. Lalu kita akan memasukkan komponenen adodc dan datagirid.
Sebelumnya kita arahkan kursor ke toolbar dan pilih project, lalu klik component.
10. setelah kita klik akan muncul component box, lalu kita beri tanda check pada Microsoft ADO Data Control 6.0 (SP6) dan Microsoft DataGrid Control 6.0(Sp6) dan pilih apply lalu Ok.
11. Setelah itu kita pilih adodc yang ada di toolbox
12. Setelah kita pilih adodc, kita pilih datagrid yang ada di toolbox
13. Setelah kita menambahkan komponen yang diperlukan, lalu kita buat database di Microsoft Access,
dengan cara kita klik start-program-microsoft office-microsoft access 2003
14. untuk membuat database baru, kita klik File-New
15. Lalu klik blank database
16. Lalu kita simpan dahulu database yang akan kita buat, ke folder yang diinginkan.
17. lalu klik kanan pada create table in design view, dan pilih design view
18. lalu kita isi field name dan data typenya
19. lalu kita ubah nama tabelnya dengan menyimpan ulang
20. Klik ganda pada database untuk muali mengisinya
21. Setelah kita membuat database di access, lalu kita kembali pada Visual Basic 6.0, lalu kita mengkoneksikan adodc nya dengan cara,
1. Klik pada Connection string
2. Klik build properties page
3. lalu kita pilih Microsoft Jet 4.0
4. Lalu kita klik next
22. Setelah klik next maka akan muncul Data Link Properties, pada Data Link Properties,Klik
1. pada Select or enter database name pilih folder tempat penyimpanannya
2. Pilih nama databasenya
3. Klik open
4. Lalu klik Test Connection, Jika Berhasil maka akan muncul Test Connection Succeeded
23. di Properties pages pada Record Source isikan tampilan seperti gambar di bawah ini, lalu klik apply dan Ok
24. Pada Properties datagrid, kita ubah koneksi data source dengan adodc1
25.Klik ganda pada command “Acak” lalu isikan script sbb :
26. Klik ganda pada timer lalu ketik script sbb:
27. Klik ganda pada command “Stop” lalu ketik script sbb:
Jangan lupa, pada properti text boxnya, Pilih data source dengan adodc1. dan datafield sesuai dengan nama fieldnya.
- Jika anda ingin tampilan adodc dan datagrid tidak terlihat waktu dijalankan,, pada properties visible,,nilainya kita ganti dengan false.
Untuk menjalankan kita klik tombol Run pada Vb atau tekan F5 pada keyboard.
dan inilah tampilannya
-Selamat mencoba-
ditulis oleh : fivembois
1. Buka aplikasi Visual basic dengan cara klik start-program-microsoft visual studio 6.0-microsoft visual basic 6.0
2. maka akan muncul tampilan sbb:
pilih standart exe untuk memulai membuat aplikasi baru
dan klik open untuk memulai membuat aplikasi.
3. setelah anda klik open, maka akan muncul tampilan form seperti dibawah ini :
4. Buat label dengan cara klik Label pada toolbox lalu ganti namanya melalui caption.
5. lakukan hal yang sama namun ganti caption dengan NO handphone
6. Lalu klik pada text box dan hapus tulisan “text” pada properties. dan tambahkan 1 text box lagi dibawahnya.
7. Setelah selesai menambahkan textbox, lalu tambahkan command button seperti gambar dibawah ini, dan ubah caption pada properti menjadi Acak, setelah itu tambahkan 1 command button lagi dan ganti captionnya menjadi stop.
8. Lalu kita tambahkan timer dengan cara klik timer yang ada di toolbox
9. Lalu kita akan memasukkan komponenen adodc dan datagirid.
Sebelumnya kita arahkan kursor ke toolbar dan pilih project, lalu klik component.
10. setelah kita klik akan muncul component box, lalu kita beri tanda check pada Microsoft ADO Data Control 6.0 (SP6) dan Microsoft DataGrid Control 6.0(Sp6) dan pilih apply lalu Ok.
11. Setelah itu kita pilih adodc yang ada di toolbox
12. Setelah kita pilih adodc, kita pilih datagrid yang ada di toolbox
13. Setelah kita menambahkan komponen yang diperlukan, lalu kita buat database di Microsoft Access,
dengan cara kita klik start-program-microsoft office-microsoft access 2003
14. untuk membuat database baru, kita klik File-New
15. Lalu klik blank database
16. Lalu kita simpan dahulu database yang akan kita buat, ke folder yang diinginkan.
17. lalu klik kanan pada create table in design view, dan pilih design view
18. lalu kita isi field name dan data typenya
19. lalu kita ubah nama tabelnya dengan menyimpan ulang
20. Klik ganda pada database untuk muali mengisinya
21. Setelah kita membuat database di access, lalu kita kembali pada Visual Basic 6.0, lalu kita mengkoneksikan adodc nya dengan cara,
1. Klik pada Connection string
2. Klik build properties page
3. lalu kita pilih Microsoft Jet 4.0
4. Lalu kita klik next
22. Setelah klik next maka akan muncul Data Link Properties, pada Data Link Properties,Klik
1. pada Select or enter database name pilih folder tempat penyimpanannya
2. Pilih nama databasenya
3. Klik open
4. Lalu klik Test Connection, Jika Berhasil maka akan muncul Test Connection Succeeded
23. di Properties pages pada Record Source isikan tampilan seperti gambar di bawah ini, lalu klik apply dan Ok
24. Pada Properties datagrid, kita ubah koneksi data source dengan adodc1
25.Klik ganda pada command “Acak” lalu isikan script sbb :
26. Klik ganda pada timer lalu ketik script sbb:
27. Klik ganda pada command “Stop” lalu ketik script sbb:
Jangan lupa, pada properti text boxnya, Pilih data source dengan adodc1. dan datafield sesuai dengan nama fieldnya.
- Jika anda ingin tampilan adodc dan datagrid tidak terlihat waktu dijalankan,, pada properties visible,,nilainya kita ganti dengan false.
Untuk menjalankan kita klik tombol Run pada Vb atau tekan F5 pada keyboard.
dan inilah tampilannya
-Selamat mencoba-
ditulis oleh : fivembois
Langganan:
Postingan (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)