Membuat Program Chatting Sendiri ^_^

Pada halaman ini, akan dijelaskan bagaimana cara membuat aplikasi chat sederhana dengan menggunakan Visual Basic.
Langkah Pertama, buka aplikasi visual basic. Maka akan tampil jendela berikut :

Pada jendela ini, silakan pilih icon “Standard EXE” dan klik “Open”. Maka akan tampil jendela seperti berikut :

Selanjutnya, komponen2 yang kita perlukan yaitu :

1. Label 
2. Command Button
3. Textbox   
4. Winsock 

Tidak menemukan komponen Winsock?
Ya, komponen ini tidak tersedia secara langsung seperti ketiga komponen di atas. Makanya kita memerlukan penambahan komponen dengan cara pilih Project -> Components… pada menu bar. Maka akan tampil jendela berikut :

Pada jendela ini, cari komponen yang bernama Microsoft Winsock Control 6.0. centang pada bagian kirinya. Klik Apply lalu OK. Maka komponen Winsock akan tampil di halaman utama.
Selanjutnya, komponen sudah siap. Maka kita akan mulai dari tampilannya.
Silahkan buat tampilan seperti berikut :

Tampilan di atas memiliki 4 buah komponen Label, 5 komponen Command Button, 5 komponen Textbox, dan 2 komponen Winsock.
Untuk mempermudah, silahkan ganti nama(name) dari setiap komponen tersebut. Nama tersebut dapat diganti dengan mengklik komponen tersebut dan pada jendela properties akan tampil baris (name).

Jika tampilan selesai, selanjutnya kita menyelesaikan bagian listing programnya.
Berikut Listing dari program tersebut:
Private Sub Connect_Click()
Winsock_client.Connect
End Sub
Private Sub Send_Click()
Winsock_client.SendData Winsock_server.LocalHostName & ” : ” & Text4.Text
Text5.Text = Text5.Text & vbCrLf & Text4.Text
End Sub
Private Sub Disconnect_Click()
Winsock_server.Close
Winsock_client.Close
Label6.Caption = “Disconnected”
Text1.Visible = True
Text2.Visible = True
End Sub
Private Sub Test_Click()
Winsock_server.LocalPort = Text3.Text
Winsock_server.Listen
End Sub
Private Sub OK_Click()
Winsock_client.RemoteHost = Text1.Text
Winsock_client.RemotePort = Text2.Text
End Sub
Private Sub Text1_gotfocus()
Text1.Text = “”
End Sub
Private Sub Text2_gotfocus()
Text2.Text = “”
End Sub
Private Sub Text4_Click()
Text4.Text = “”
End Sub
Private Sub Winsock_client_Connect()
Status.Caption = “Status : Connected”
End Sub
Private Sub winsock_server_ConnectionRequest(ByVal requestID As Long)
Winsock_server.Close
Winsock_server.Accept requestID
End Sub
Private Sub winsock_server_DataArrival(ByVal bytesTotal As Long)
Dim chat As String
Winsock_server.GetData chat
Text5.Text = Winsock_server.LocalHostName & “:” & Text5.Text & vbCrLf & chat
End Sub
Tampilan selesai, listing selesai. Selanjutnya jalankan programnya.
Selamat Mencoba.

Membuat Program Penghitung Barang

1.    Buatlah New Project pada software VB anda kemudian tambahkan empat buah kontrol label, empat TextBox dan satu commandButton pada form, kemudian atur letaknya seperti pada gambar berikut : 

  Gambar aplikasi penghitung harga barang dengan VB

 

2.    Atur properti caption untuk masing-masing label dan commanButton seperti pada gambar diatas.

3.    Klik ganda tombol CommandButton1(proses), kemudian ketikkan kode/listing/script program berikut :

Private Sub Command1_Click()

Dim a, b, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Text4.Text = (a * b) - (a * b * c) / 100

End Sub

Pernyataan Dim adalah untuk mendeklarasikan variabel a, b, dan c dimana variabel tersebut untuk mewakili/menampung nilai yang diketikkan pada text1, text2 dan text3 dengan tipe integer (angka). Jika tombol commandbutton1/tombol proses diklik maka pada text4 akan menampilkan hasil perhitungan antara perkalian nilai yang diketikkan pada text1 dan text2 kemudian dikalikan dengan nilai yang diketikkan pada text3.

4.    Jalankan Program dengan menekan tombol F5, kemudian coba ketikkan nilai pada masing-masing textbox dan tekan tombol proses.

5.    Hasilnya seperti berikut: