Koneksi Ke Com Port di
Visual Basic 6
1. add component Microsoft Comm Control 6.0 (MSCOMM32.OCX)
2. seperti ini contoh koneksi dengan vb6 :
Private
Sub Form_Load()
MSComm1.CommPort
= 1 'memilih port COM1
MSComm1.Settings
= "9600,N,8,1" 'Baudrate 9600
MSComm1.InputLen
= 0
MSComm1.PortOpen
= True 'form di load port dibuka
End Sub
3. Write atau menulis melalui Com Port
Private Sub Command1_Click()
MSComm1.Output = "AT" 'contoh mengirim
"AT" melalui comport
End Sub
4. Read atau membaca
dari Com POrt
Private Sub Command2_Click()
MSComm1.InputMode = comInputModeText
Text1.Text = Text1.Text & MSComm1.Input 'ane tampilin hasilnya di text1
end sub
Tidak ada komentar:
Posting Komentar