PAJ (Program Chatting)

Ini adalah dasar dari pengembangan aplikasi chatting yang biasa digunakan untuk berkomunikasi antar komputer. Penerapan aplikasi ini yang sedang kita bahas disini menggunakan komponen WinSock pada Visual Basic 6.0 yang telah terintegrasi didalamnya. Tentunya pada implementasi aplikasi chatting disini harus memiliki lebih dari 1 socket yang mana socket yang 1 digunakan untuk listening dan yang lain untuk menghubungi program yang lain. Komunikasi socket ini membutuhkan sebuah port untuk berkomunikasi, layaknya sebuah gerbang untuk lalulintas agar si A dapat pergi ketempat si B. Port ditentukan dengan angka, tentunya port tersebut anda sendirilah yang menentukan untuk berkomunikasi. Namun ada baiknya ada mengenal terlebih dahulu beberapa port yang telah menjadi standarisasi penggunaannya, seperti port FTP pada port 20/21, port TCP/UPD pada port 19, POP3 port 110, HTTPS port 443 dan masih banyak lagi. Pertama-tama agar aplikasi chat ini dapat berkomunikasi tentunya socket harus membuka sebuah port, sebagai pintu gerbang bagi program lainnya dapat berkomunikasi dengan program ini. Baiklah tanpa perlu banyak berbasa-basi lagi, mulai saya sedikit beri contoh:
Option Explicit

Private Sub Form_Load()
‘inisialisasi sock untuk membuka port,
‘pertama cek apakah socket keadaan terbuka
‘jika iya maka socket ditutup, kemudian
‘buka port 1234 untuk berkomunikasi
If Winsock1.State = 2 Then Winsock1.Close
Winsock1.LocalPort = “1234″
Winsock1.Listen
End Sub
________________________________________________________________________

‘tombol perintah untuk koneksi ke komputer yang lain
‘di alamat 192.168.100.2
‘dengan port 1234
Private Sub Command2_Click()
On Error GoTo out
Winsock2.Close
Winsock2.Connect “192.168.100.2″,1234
Exit Sub
out:
MsgBox “Gagal kirim pesan!”, vbCritical
End Sub
________________________________________________________________________

‘tombol perintah untuk mengirim data kepada socket
‘yang terhubung dengan port yang ‘dibuka oleh windsock1 yaitu port 1234
Private Sub Command1_Click()
On Error GoTo out
Winsock1.SendData Text1.Text
Exit Sub
out:
MsgBox “Gagal kirim pesan!”, vbCritical
End Sub
________________________________________________________________________

‘event pada socket jika terjadi permintaan koneksi
Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close ‘tutup socket
Winsock2.Accept requestID ‘kemudian baru terima request id
End Sub
________________________________________________________________________

‘event pada socket jika terjadi penerimaan data
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim dataz$
‘ambil data yang diterima disimpan pada variable dataz
Winsock2.GetData dataz
‘tampilkan hasil data yang telah diterima pada textbox
Text2.Text = Text2.Text + vbCrLf + CStr(Time) + “>>” + dataz
End Sub
________________________________________________________________________

‘event pada socket jika terjadi permintaan koneksi
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close ‘tutup koneksi
Winsock1.Accept requestID ‘kemudian baru terima request id
End Sub
________________________________________________________________________

‘event pada socket jika terjadi penerimaan data
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dataz$
‘ambil data yang diterima disimpan pada variable dataz
Winsock1.GetData dataz
‘tampilkan hasil data yang telah diterima pada textbox
Text2.Text = Text2.Text + vbCrLf + CStr(Time) + “>>” + dataz
End Sub
________________________________________________________________________

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close
End Sub
________________________________________________________________________

Tentunya penggunaan satu socket hanya untuk satu koneksi, jadi kalo kamu pengen dapat berkomunikasi lebih dari dua komputer, kamu bisa membuat array untuk object winsock kamu. Caranya ambil Winsock 1 saja letakkan di form, kemudian pada properti winsock di bagian index isikan 0. Kemudian pada setiap kamu mau melakukan komunikasi kamu harus meload object tersebut. Misal mau melakukan koneksi pada komputer 1 maka lakukan perintah
…..
Load Winsock(1)
Winsock(1).Connect “193.168.100.2″,1234

dan lakukan hal yang sama jika ingin berkomunikasi dengan komputer yang lain. Catatan, jika koneksi telah berakhir hendaklah mengunload object yang tidak terpakai, dengan tambahan pula ada baiknya sebuah variable yang mencatat objek index apa saja yang terpakai dan yang tidak terpakai. Misalkan dengan menggunakan variabel class Collection. Ya.. itu saja, semoga bisa membantu bagi kamu-kamu yang pengen buat aplikasi chatting sendiri ala kamu sendiri. Selamat mencoba. yuk…monggo sederek!!!

dicomot dari http://aobe.blogspot.com/

Saatnya Kita Quizzzz…………Tereng tereng tereng…3X deng4X..det

Seperti kita ketahui bersama bahwa Pemrograman Borland Delphi mempunyai Database sendiri yaitu Database Paradox. Pada saat kita bekerja dengan Borland Delphi maka kita senantiasa menggunakan Database Paradox itu. Akan tetapi pertanyaan yang muncul “Apakah Borland Delphi bisa digandengkan dengan Database lain?” Jawabannya YA, BISA. Artikel saya kali ini, kita akan membahas bagaimana bekerja dengan Borland Delphi yang menggunakan Database Microsoft Access. Akan tetapi saya hanya akan membahas bagaimana cara koneksi databasenya saja dengan menggunakan komponen ADO. Tentang bagaimana bentuk listing programnya, silahkan anda kembangkan sendiri. Akan tetapi kita akan membuktikan nanti apakah koneksi yang kita inginkan benar-benar sudah berhasil atau tidak.

Berikut tampilan hasil kompilasi program yang akan kita buat :

Langkah pengerjaan :

1. Pertama-tama silahkan anda membuat sebuah Database dengan menggunakan Microsoft Access. Database apa saja. Saya kira saya tidak perlu menunjukkan langkah-langkah bagaimana cara membuat Database dengan Microsoft Access.

Pada kasus kita kali ini saya membuat Database Mahasiswa dan sebuah table Mahasiswa dengan ketentuan sebagai berikut :

Field Name	Data Type	Field Size
Nim	Text	9
Nama	Text	25
Alamat	Text	25
Prodi	Text	2

Setelah anda membuat desain tabelnya maka silahkan isi sekitar 4 data (Record)

2. Setelah selesai silahkan buka aplikasi Borland Delphi kemudian desain form seperi gambar dibawah ini :

Letakkan komponen ADO Connection, ADO Table, DataSource, Serta sebuah DBGrid. Komponen ADO Connection dapat diperoleh pada tab ADO , begitu pula dengan komponen ADO Table . Sedangkan untuk DataSource dapat diperoleh pada Tab Data Access dan DBGrid terdapa pada Tab Data Controls

3. Setelah anda mempersiapkan tampilan form diatas maka silahkan klik komponen ADO Connection dan pada Object Inspector Properties Pilih ConnectionString.

4. Setelah anda klik maka akan tampil kotak dialog seperti gambar dibawah ini :

5. Kemudian tekan tombol Build maka akan tambil kotak dialog seperti gambar dibawah ini :

6. Setelah itu pilih Microsoft Jet 4.0 OLE DB Provider (ini untuk koneksi menggunakan Database Ms. Access) kemudian klik tombol Next maka akan tampil kotak dialog seperti dibawah ini :

7. Setelah itu pilih lokasi Databasenya dengan menklik tombol pada elect or enter Database name kemudian cari database yang ingin kita koneksikan. Maka akan tampil kotak dialog seperti dibawah ini:

Pada projek ini nama database saya adalah database coba. Setelah anda pilih maka silahkan klik tombol Open.

8. Setelah itu maka akan tampil kotak dialo seperti gambar dibawah ini :

9. Klik OK, Jangan lupa pada properties cari properties “Login Prompt” dan beri nilai False. Fungsinya apa akan dijelaskan pada catatan dibawah.

10.Untuk komponen ADOTable silahkan di klik. Pada object Inspector Properties pilih Connection dan pilih ADOConnection1. Perhatikan gambar dibawah ini :

11.Setelah itu masih pada Object Inspector Properties pilih TableName kemudian pilih table yang sudah kita buat tadi.

12.Kemudian untuk komponen DataSource silahkan di klik, kemudian pada Object Inspector Properties, pilih DataSet lalu pilih ADOTable1 perhatikan gambar :

13. Kemudian Klik komponen DBGrid, pada Object Inspector Properties pilih DataSource kemudian Pilih “DataSource1”.

14. Sentuhan terakhir silahkan Klik Form, pada Object Inspector Properties pilih Tab Event kemudian. Lalu klik dua kali pada properties On Create. Perhatikan gambar :

15. Setelah itu pada halaman Coding, ketikkan Listing Program berikut ini :

procedure TForm1.FormCreate(Sender: TObject);

begin

ADOTable1.Active:=true;

end;

16. Jalankan program dengan menekan F9.

Gampang Bukan? Selamat Mencoba. Terus Belajar dan Kembangkan Project Diatas

Kalau ada pertanyaan silahkan Upload di Link Blog ini atau kirimkan E-mail ke : yuditampan@gmail.com

dipersunting dari blognya harryansyah

Hello world!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!