Pemrograman Serial Port pada VB

Sunday, 16 July 2006 20:34 Mada Jimmy
PDF
User Rating: / 3
PoorBest 
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. 

Last Updated on Sunday, 16 July 2006 21:44