Informatics Forum

Sedikit potongan program untuk membaca dan menulis menggunakan barcode scanner. Semoga membantu.
Private Sub Command1_Click()
On Error GoTo errHandler
‘FOR WRITING
MSComm1.CommPort = 2
MSComm1.Settings = “9600,N,8,1″
MSComm1.PortOpen = True
MSComm1.Output = “Testing” ‘txtData.Text
MsgBox MSComm1.OutBufferCount
MSComm1.PortOpen = False
‘FOR READING
MSComm1.CommPort = 2
MSComm1.Settings = “9600,N,8,1″
MSComm1.PortOpen = True
MsgBox MSComm1.InBufferCount
MSComm1.InputMode = comInputModeText
‘Text1.Text = MSComm1.Input
MsgBox MSComm1.Input
MSComm1.PortOpen = False
errHandler:
If Err.Number 0 Then
MsgBox “Error No: ” & Err.Number & [...]