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.