Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function xHMIInterface
- OnErr GoTo ErrorHandler
- CloseNet #HMI
- Print "Connecting to HMI"
- OpenNet #HMI As Server
- WaitNet #HMI
- Print "Connected to HMI"
- Do
- ''uncomment if we need the HMI to to send messages during runtime
- ''---------------------------------------------------------------
- ' Input #HMI, data$
- ' If data$ <> "" Then
- ' Print "Received from HMI: ", data$
- ' data$ = ""
- ' EndIf
- ''---------------------------------------------------------------
- If (needToSendMessageToHMI) Then
- Print #HMI, messageForHMI$
- Print "Sending to HMI: ", messageForHMI$
- needToSendMessageToHMI = False
- messageForHMI$ = ""
- EndIf
- Loop
- ErrorHandler:
- EResume Next
- Fend
- Function SendStatusToHMI(Status$ As String)
- messageForHMI$ = "STATUS:" + Status$
- needToSendMessageToHMI = True
- Fend
- Function SendProdToHMI(yield As Double, numberProcssed As Integer, partsPerMin As Double)
- messageForHMI$ = "PROD:" + Str$(yield) + "," + Str$(numberProcssed) + "," + Str$(partsPerMin)
- needToSendMessageToHMI = True
- Fend
- Function SendErrorToHMI(errorMessage$ As String)
- Call beaconRed
- messageForHMI$ = "ERROR:" + errorMessage$
- needToSendMessageToHMI = True
- Fend
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement