Samuele E. Locatelli
22 lines
364 B
VB.net
22 lines
364 B
VB.net
Module M_machine
|
|
|
|
Sub get_machine_state()
|
|
|
|
machine_state = Read_Nc_var(IniRead.nVar_NC_state)
|
|
|
|
End Sub
|
|
|
|
Sub set_var_prg_1_ok(ByVal state As Integer)
|
|
|
|
Write_NC_var(IniRead.nVar_prg_1_ok, state)
|
|
|
|
End Sub
|
|
|
|
Sub set_var_prg_2_ok(ByVal state As Integer)
|
|
|
|
Write_NC_var(IniRead.nVar_prg_2_ok, state)
|
|
|
|
End Sub
|
|
|
|
End Module
|