Brütsch Rüegger 148 460, Manual

Page: 132 / 187

6 - 34
No. 99MBB079A
'********************************************
'* Issue the Send Command *
'********************************************
'
Private Sub CMD_SEND(send_cmd As String)
Dim d$
d$ = sChr$(13)
MAComm1.Output = d$
End Sub
'********************************************
'* Receive the Status *
'********************************************
'
Private Sub STS_RD(ByRef status As String)
Dim a$, b$, d$
Dim L As Integer
Do
DoEvents
a$ = MSComm1.Input
b$ = Right(a$, 1)
d$ = d$ + a$
Loop Until (b$ = Chr$(13))
L = Len(d$)
status = Mid$(d$, 1, L - 1)
End Sub
'********************************************
'* Receive the Calculated Results *
'********************************************
'
Private Sub RES_RD()
Dim a$, b$, d$
Dim L As Integer
Dim i As Integer
Dim j As Integer
Dim RES(0 To 30) As String
Do
DoEvents
a$ = MSComm1.Input
b$ = Right(a$, 1)
d$ = d$ + a$
Loop Until (b$ = Chr$(13))