Pada artikel ini kita mencoba memahami bagaimana Serial Port bekerja pada program Visual Basic. Port RS232 terdapat pada komputer desktop. Tapi jika anda memiliki laptop model baru, kemungkinan besar port ini sudah tidak ada. Meskipun demikian, anda dapat menggunakan USB-RS232 converter yang harganya cukup murah.
Program komputer Visual Basic ini bertujuan untuk mengirim teks dari komputer 1 ke komputer 2 dan kebalikannya. Yang harus anda lakukan adalah membuat kabel serial dengan konfigurasi pin sebagai berikut:
| Komputer 1 | Komputer 2 |
| Pin 2 (Rx) | Pin 3 (Tx) |
| Pin 3 (Tx) | Pin 2 (Rx) |
| Pin 7 (RTS) | Pin 8 (CTS) |
| Pin 8 (CTS) | Pin 7 (RTS) |
| Pin 5 (Gnd) | Pin 5 (Gnd) |
Program Visual Basic -nya sebagai berikut, jalankan pada kedua komputer .
| Private Sub Form_Load() MSComm1.RThreshold = 1 MSComm1.RTSEnable = True MSComm1.Settings = “9600,n,8,1” MSComm1.PortOpen = True Text1.Text = Clear Text2.Text = Clear End Sub Private Sub Command1_Click() MSComm1.Output = Text1.Text End Sub Private Sub MSComm1_OnComm() c = MSComm1.Input Text2.Text = Text2.Text & c End Sub |
Obyek yang diperlukan adalah Text1, Text2, Command1, MSComm1.
MSComm dapat ditambahkan dengan cara : tekan Ctrl-T lalu pilih Microsoft Comm Control.
Baud rate yang digunakan sebesar 9600 bps, tapi anda dapat mencoba menggunakan yang lain, asal kedua komputer diset yang sama.