Download Norton Ghost Terbaru

Download From soft82.com

About Me

APLIKASI CHATTING LAN

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

CARA MEMBUKA FACEBOOK ATAU SITUS YANG DIBLOK OLEH ROUTER

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:
  1. Jalankan UltraSurf,tunggu koneksi berjalan sukses
  2. Buka mozilla 
  3. 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
  4. Ok ==>
Selamat browsing dengan bebas...

CARA MEMBUAT PROGRAM PENGACAK NO UNDIAN DENGAN VISUAL BASIC 6


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

Pulsa Gratis

Labels