2471
VB and the development of wizards / Re: Ref All Axes - All at same time?
« on: October 20, 2014, 03:55:27 AM »
try this code, had a simular thing couple of weeks ago:
RefCombination(7)
Sleep(300)
While ((GetOemLed(807) = true) Or (GetOemLed(808) = true) Or (GetOemLed(809) = true))
Sleep(50)
Wend
SetParam("XRefPer", GetParam("XRefPer")/10)
SetParam("YRefPer", GetParam("YRefPer")/10)
SetParam("ZRefPer", GetParam("ZRefPer")/10)
RefCombination(7)
Sleep(300)
While ((GetOemLed(807) = true) Or (GetOemLed(808) = true) Or (GetOemLed(809) = true))
Sleep(50)
Wend
SetParam("XRefPer", GetParam("XRefPer")*10)
SetParam("YRefPer", GetParam("YRefPer")*10)
SetParam("ZRefPer", GetParam("ZRefPer")*10)
Thomas
RefCombination(7)
Sleep(300)
While ((GetOemLed(807) = true) Or (GetOemLed(808) = true) Or (GetOemLed(809) = true))
Sleep(50)
Wend
SetParam("XRefPer", GetParam("XRefPer")/10)
SetParam("YRefPer", GetParam("YRefPer")/10)
SetParam("ZRefPer", GetParam("ZRefPer")/10)
RefCombination(7)
Sleep(300)
While ((GetOemLed(807) = true) Or (GetOemLed(808) = true) Or (GetOemLed(809) = true))
Sleep(50)
Wend
SetParam("XRefPer", GetParam("XRefPer")*10)
SetParam("YRefPer", GetParam("YRefPer")*10)
SetParam("ZRefPer", GetParam("ZRefPer")*10)
Thomas