Friday, 19 September 2008

Membuat Program Chatiing Menggunakan Visual Basic

September 19, 2008 0
Membuat Program Chatiing Menggunakan Visual Basic
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.

Saturday, 30 August 2008

Met Puasa.......

August 30, 2008 0
Met Puasa.......
Gw mo Ucapin Selamat Menunaikan Ibadah Puasa Niiiiiii........

Semoga aja Puasa ntar ga da yang bolong

hehehehehehehhhehe

Menurut gw puasa kali ni ga berkesan........selain ga da yang rame juga nggak ngaruh tuh walaupun baru ngerayain ultah Indonesia yang ke 63 "katanya ...."

segitu aja......gw ga bakat nulis sichhh

Mohon maklum aja dech.....

byeee

Jika Ia Sebuah Cinta...........

August 30, 2008 0
Jika Ia Sebuah Cinta...........
Jika ia sebuah cinta.....ia tidak mendengar, namun sentiasa bergetar
Jika ia sebuah cinta.....ia tidak buta namun, sentiasa melihat dan merasa.
Jika ia sebuah cinta.....ia tidak menyiksa namun, sentiasa menguji.
Jika ia sebuah cinta.....ia tidak memaksa namun, sentiasa berusaha.
Jika ia sebuah cinta.....ia tidak cantik namun, sentiasa menarik.
Jika ia sebuah cinta.....ia tidak datang dengan kata-kata namun, sentiasa menghampiri dengan hati.
Jika ia sebuah cinta.....ia tidak terucap dengan kata namun sentiasa, hadir dengan sinar mata.
Jika ia sebuah cinta.....ia tidak hanya berjanji, namun sentiasa coba memenangi.
Jika ia sebuah cinta.....ia mungkin tidak suci, namun sentiasa harmoni.
Jika ia sebuah cinta.....ia tidak hadir kerana permintaan, namun hadir kerana ketentuan.
Jika ia sebuah cinta.....ia tidak hadir dengan kekayaan dan kebendaan, namun hadir kerana pengorbanan dan kesetiaan.

Tuesday, 17 June 2008

Nidji - Jangan Lupakan

June 17, 2008 0
Nidji - Jangan Lupakan
Ku berjalan terus tanpa henti
Dan dia pun kini telah pergi
Ku berdoa di tengah
Indahnya dunia
Ku berdoa untuk dia yang kurindukan

Memohon untuk tetap tinggal
Dan jangan engkau pergi lagi
Berselimut di tengah dingin dunia
Berselimut dengan dia yang kurindukan

Would it be nice to hold you ..
Would it be nice to take you home..
Would it be nice to kiss you..

memohon untuk tetap ptinggal
Dan jangan engkau pergi lagi
Bernyanyilah na na na na na
Bernyanyilah untuk dia yang kurindukan

Would it be nice to hold you ..
Would it be nice to take you home ..
Would it be nice to kiss you..

Jangan pernah lupakan aku
Jangan hilangkan diriku
Jangan pernah lupakan aku
Jangan hilangkan diriku
Jangan pernah lupakan aku
Jangan pergi dari aku

Nidji - Cinta Tak Pernah Sama

June 17, 2008 0
Nidji - Cinta Tak Pernah Sama
dan semua berakhir
aku pun terus hidup
melayang aku di ujung benak ku

perih yang aku cari
yang ku akhiri
yang membuatku hidup

sudah berlalu biarkanlah berlalu
maafkan aku tak kembali padamu

*) cinta tak akan pernah sama
tak akan pernah bisa
paksa aku
jangan pernah berfikir
itu salah
masih banyak cinta di dunia

dan semua berakhir
aku pun terus hidup
melayang aku di hujung benak ku

perih yang aku cari
yang ku akhiri
yang membuatku hidup

sudah berlalu biarkanlah berlalu
maafkan aku tak kembali padamu

back to *)

lihat diriku hancur karena mu
lihat diriku berlutut di hadapmu
lihat diriku hancur karena mu
hempaskan aku karena dirimu

back to *)
June 17, 2008 0
Nidji - Akhir Cinta Abadi

akankah kau melihatku
saat ku jauh
akankah kau merasakan
kehilanganku

jiwaku yang telat mati
bukan cintaku
janjiku s'lalu abadi
hanya milikmu

*) aku pergi dan takkan kembali
akhir dari cinta yang abadi

akankah kau melihatku
di akhir nanti
jiwaku yang telah mati
bukan cintaku
janjiku s'lalu abadi
hanya untukmu

aku pergi dan takkan kembali
air mata untuk yang abadi
aku pergi ke alam yang suci
akhir dari abadi cintaku

aku pergi ke alam yang abadi
akhir dari cinta yang abadi

Sunday, 13 April 2008

April 13, 2008 0
Angka-angka ini rasional juga ya......



Jika nilai huruf-huruf ini kita anggap sbb:



A B C D E F G H I J K L M N O P Q R S T U

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21



V W X Y Z

22 23 24 25 26



Mari kita hitung sama-sama:



H A R D W O R K (kerja keras)

8 1 18 4 23 15 18 11 = 98% Only



K N O W L E D G E (pengetahuan)

11 14 15 23 12 5 4 7 5 = 96% Only



L O B B Y I N G (pendekatan)

12 15 2 2 25 9 14 7 = 86% Only



L U C K (keberuntungan)

12 21 3 11 = 47% Only



ternyata...

semua nilai dari usaha-usaha kita di atas nggak bisa

mengalahkan yang satu ini:



A T T I T U D E (sikap/tingkah laku)

1 20 20 9 20 21 4 5 = 100%



Tapi ini rumus yang berlaku di negeri bule sono.



Kalau di Indonesia sih, itung-itungannya begini:



G I G I H (hardwork)

7 9 7 9 8 = 40% Saja



I L M U (Knowledge)

9 12 13 21 = 55% Saja



L O B I (Lobbying)

12 15 2 9 = 38% Saja



M U J U R (Luck)

13 21 10 21 18 = 83% Saja



S I K A P (Attitude)

19 9 11 1 16 = 46% Saja



K O R U P S I

11 15 18 21 16 19 9 = 109%