AESTHETIC

 Untuk para programer, gue baru belajar sama guru gue. disimak ya.
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 :


Silahkan Pilih Standard.EXE



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.

                                                                                                                                                                                                                                                                   Pertama- tama, bahan – bahan yang kita butuhkan antara lain :

Cara Membuat Aplikasi sederhana ini :

Dengan kriteria sebagai berikut :

OBJECT   |   PROPERTI      |   NILAI

Form1     |   Caption             | jebol Firewall

                      Border Style     | 3 Fixed Dialog

                      Max Button      |  false

                      Min Button       |  False

                      Name               |  Form1

                      Windows State |  0 – Normal

                      Picture             |  (Bitmap)

Commandbutton1 |  Name      |    Command1

                                      Caption   | Matikan Firewall

Commandbutton2  |  Name      |  Command2

                                       Caption    | Aktifkan Firewall

Setelah semuanya selesai, sekarang kita kasih source kodenya

Ini scriptnya…

Dim Windows_Firewall

Dim DigitalCat

Private Sub Command1_Click()

Set Windows_Firewall = CreateObject(“HNetCfg.fwMgr”)

Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile

DigitalCat.FIREWALLENABLED = False

End Sub

Private Sub Command2_Click()

Set Windows_Firewall = CreateObject(“HNetCfg.fwMgr”)

Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile

DigitalCat.FIREWALLENABLED = True

End Sub

Private Sub Form_Load()

End Sub

Terimakasih