9-4
OTF-920 Operation Manual
Form1.MSComm1.Output = “DI” + Chr$(&HD)
‘Send receive data command
for RS-232 (echo back)
For I = 1 To 1000000
‘Delay to wait for echo back
Next I
ans = Form1.MSComm1.Input
‘Read data from MSComm1 port
MsgBox (“Power = “ & ans)
‘Output read data to screen
Form1.MSComm1.PortOpen = False
‘Close communication port
End Sub
‘End subroutine
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com