Mungkin di antara kalian sering melakukan chating di beberapa
jajaring sosial seperti Facebook, Yahoo massager atau jejaring sosial lainnya
ataupun di warnet saat kita akan menghubungi sang OP warnet melalui fitur chat
yang berada pada Billing explorer. Dalam postingan kali ini saya akan membagi
sedikit ilmu saya yang didapatkan pada hari Rabu, 30 Mei 2012 kemarin yaitu
Basic atau dasar dari program Chating.
Dalam membuat
program chating saya menggunakan bahasa Visual Basic 6.0 dan sebuah software
Eltima. Bagi para sobat yang memiliki 2 buah PC atau Notebook yang terdapat
port DB9 atau Port serial pada PC/Notebook kalian maka bisa langsung
dipraktekan pada PC/Notebook tersebut. Tapi yang tidak mempunyai 2 komputer
jangan Bersedih karena kita dapat menggunakan software virtual serial yaitu
Eltima..
Software
Eltima Merupakan software yang dapat membuat device port serial secara khayalan
di PC kita. Cara penggunaannya yaitu Instal terlebih dahulu software Eltima di
PC sobat.
Kemudian
buka software tersebut. Pilih ADD Pair maka Komputer/ PC kita akan langsung terdapat 2 buah port
serial secara bayangan.
Gambar membuat Device Virtual dengan software |
Untuk memastikan
apakah PC kita sudah terpasang device baru maka kida dapat melihatnya pada
Device manager dengan cara buka My computer > pilih System propertys >
pilih device managaer (Pada Windows 7) yang tampak seperti pada gambar di bawah
ini.
Gambar Tampilan device baru pada device manager
Setelah
device baru terpasang maka langkah berikutnya yaitu kita membuka Visual Basic
6.0 untuk membuat project baru dan menambahkan komponen mscomp port control 6 pada
bagian toolbox caranya klik disini
Untuk membuat
project baru buat seperti form baru di bawah ini.
Kemudian atur
properties pada MScomm dengan cara meng-Click komponen MScomm pada Form1.
Atur properties MScom1 seperti gambar di bawah ini
Langkah berikutnya
yaitu menuliskan Syntax program pada form dengan cara mengeclik 2x elmen
komponen pada form 1.
1. Tuliskan sintak program pada
Commandbutton (KIRIM)
Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
MSComm1.Output = Text1.Text
End Sub
>maksud dari sintak tersebut yaitu jika Port MScom1 ingin
mengirim Output berupa text yang dituliskan pada text1.text maka keadaan
MSCom.portopen harus dalam keadaan True. Untuk membuat true pada port open maka
harus membuat Commonbutton Baru (Portopen)
2. Tuliskan sintak program pada
Commandbutton (PortOpen)
Private Sub Command3_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
>maksud dari sintak tersebut yaitu jika Commanbutton (open
port) di klik maka MSComm1 yang mulanya False menjadi True agar dapat mengirim
program
3. Tuliskan sintak program pada
Commandbutton (PortClose)
Private
Sub Command4_Click()
If
MSComm1.PortOpen = True Then
MSComm1.PortOpen
= False
End
If
End
Sub
>maksud dari sintak tersebut yaitu jika Commanbutton (open
close) di klik maka MSComm1 yang mulanya true menjadi false agar tidak dapat
mengirim program.
4. Tuliskan sintak program pada komponen
MSComm1
Private
Sub MSComm1_OnComm()
Text2.Text
= MSComm1.Input
End
Sub
>Text2.text
bertindak sebagai input yang akan dikirimkan ke program form ke dua.
5.untuk mengakhiri program tulis sintak pada Command button
(exit ).
Private
Sub Command2_Click()
If
MSComm1.PortOpen = True Then
MSComm1.PortOpen
= False
End
If
Unload
Me
Setelah program pertama selesai di buat, kemudian kita harus
membuat program yang kedua untung computer yang kedua/device yang ke dua. Untuk
listing programnya sama seperti pada di atas, yang membedakan yaitu pada setting
comport yang berada pada Properties..
Program pertama Commport harus di isi dengan 1 (pada caption
properties). Dan untuk program yang kedua isikan Captioan Commport dengan nilai
2( pada caption properties). Hal tersebut dilakukan agar semua port dapat
mengakses dan dapat berkomunikasi dengan baik.
Silahkan klik f5 untuk memulai dua program chat yang telah di
buat tadi, tekan Open port untuk mengaktifkan Comport agar dapat mengirim data
karakter ke program ke dua. Pada program 2 juga harus terlebih dahulu
mengaktifkan open port agar dapat menerima program karakter dari program
computer1.
Sekian sedikit ilmu daari saya. semoga bermanfaat…