15891
General Mach Discussion / Re: Please take a look at my simple macro - is it correct?
« on: April 18, 2010, 06:19:21 PM »
Not the best at VB but these may work for you.
VacuumSwitch=GetOEMLED(24)
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
If VacuumSwitch=1 Then 'If led 24 "trch on" is active Then End macro
End
Else 'If Not
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
End If 'End macro
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
If IsActive(Input1) Then 'If if input1 is active then end macro
End
Else 'If Not
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
End If 'End macro
Hood
Edit see Ger has posted while I was typing :-)
VacuumSwitch=GetOEMLED(24)
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
If VacuumSwitch=1 Then 'If led 24 "trch on" is active Then End macro
End
Else 'If Not
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
End If 'End macro
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
If IsActive(Input1) Then 'If if input1 is active then end macro
End
Else 'If Not
Code ("M7") 'mist On
Sleep (1000) 'wait For 1 Second
Code ("M8") 'flood On
Sleep (1000) 'wait For 1 Second
End If 'End macro
Hood
Edit see Ger has posted while I was typing :-)