Penggunaan Kontrol Array

Control array merupakan sekumpulan kontrol yang “dikelompokkan” dengan nama yang sama di
dalam sebuah Form. Kontrol array digunakan bila ada beberapa kontrol yang sama dan akan mendapat
perlakuan yang sama pula. Misalnya, ada 5 buah TextBox di dalam sebuah Form dan akan diprogram
dengan cara yang sama, maka akan lebih mudah jika membuat sebuah TextBox sebagai kontrol array
dibandingkan bila membuat 5 buah TextBox yang berbeda. Setiap object di dalam kontrol array masingmasing
dibedakan dengan nomer indeksnya.

Membuat Kontrol Array

(1) Buatlah sebuah TextBox di dalam sebuah Form
(2) Aturlah property TextBox tersebut sebagai berikut
    Name : txtData
    Index : 0 (nol)
    Perhatikan : kontrol TextBox-nya akan menjadi object txtData(0)
    (lihat bagian Object Selector pada Jendela Properties).

(3) Klik object txtData(0) pada Form, kemudian klik tombol Copy pada bagian Toolbar.
(4) Untuk membuat TextBox kedua, klik tombol Paste pada bagian Toolbar. TextBox kedua akan
    muncul di pojok kiri Form sebagai object txtData(1), aturlah posisinya di dalam Form.
(5) Lakukan langkah ke-4 di atas sebanyak 4 kali (sesuai dengan jumlah TextBox yang dibutukan).
(6) Di dalam Form akan ada 5 buah TextBox dengan nama yang sama (yaitu txtData) dan masingmasing
menjadi object txtData yang dibedakan nomer indexnya (mulai dari 0 s/d 4).

Selanjutnya object-object yang dibuat dengan kontrol array bisa diprogram dengan lebih mudah.
Misalnya untuk “mengosongkan” object txtData, bisa menggunakan struktur kontrol For…Next :

For i = 0 To 4
txtData(i).Text = “”
Next i

Cara ini lebih mudah bila dibandingkan cara  berikut :

Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”

Membuat Aplikasi Server dan Client pada Visual Basic 6.0

Bagi orang yang sudah biasa untuk membuat aplikasi socket yang sederhana, tidak diperlukan langkah-langkah yang rumit.
Kita akan mencoba membuat dua buah aplikasi, yang pertama adalah
aplikasi server yang akan menerima data, sedangkan aplikasi kedua
adalah aplikasi client yang mengirimkan data pada server.
Baik aplikasi server dan aplikasi client mendefinisikan port
yang sama sebagai jalur komunikasi.

Kita akan memulainya dengan aplikasi server, tugas aplikasi
server cukup sederhana, yaitu hanya siap sedia menerima data
yang masuk pada sebuah port. Control yang Anda perlukan adalah
control winsock bernama Winsock1 dan sebuah textbox bernama Text1.
Pada event Form_Load, tuliskan kode program di bawah ini:
_____________________

Private Sub Form_Load()
With Winsock1
LocalPort = 1025
Listen
End With
End Sub
_____________________

Kode program tersebut melakukan inisialisasi socket, socket
memilih port 1025 pada komputer server dan menunggu data yang
masuk melalui port tersebut dengan perintah Listen

Selanjutnya pada event Winsock1_ConnectionRequest,
ketikkan kode program berikut:
_____________________

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
_____________________

Kode program di atas berfungsi untuk menerima request koneksi.
Selanjutnya pada event Winsock1_DataArrival, ketikkan kode program berikut:
_____________________

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

Winsock1.GetData strData
Text1.Text = Text1.Text & strData
End Sub
_____________________

Kode program di atas berfungsi untuk mengambil data yang
diterima oleh socket dan menampilkannya pada Text1.
Aplikasi server telah selesai!

Aplikasi Client
Seperti aplikasi server, Anda perlu menyiapkan control
Winsock dan Text, ditambah sebuah control Command Button
yang dapat Anda namakan cmdKirim yang berfungsi untuk
mengirimkan data yang diketik pada Text1 ke aplikasi server

Pada event Form_Load, ketikkan kode program di bawah:
_____________________

Private Sub Form_Load()
With Winsock1
.RemoteHost = “127.0.0.1”
.RemotePort = 1025
.Connect
End With
End Sub
_____________________

Kode program di atas berfungsi untuk melakukan
inisialisasi, tentukan IP tujuan/server/remote dengan 127.0.0.1
seperti pada contoh jika Anda mencoba aplikasi ini dengan menggunakan satu mesin komputer.

Jika Anda mencobanya dengan menggunakan dua komputer
dalam sebuah jaringan, isikan dengan IP komputer yang
berfungsi sebagai server.Selanjutnya pada cmd kirim, ketikkan
kode program sebagai berikut:
_____________________

Private Sub cmdKirim_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
End If
End Sub
_____________________
Kode program di atas akan mengirimkan pesan yang Anda ketik pada textbox Text1 pada aplikasi server.

Yang nyari-nyari dotNetframex40 sedot aja di sini