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