3421
VB and the development of wizards / Re: Problem Vb Script
« on: November 21, 2012, 05:51:09 PM »
For User LED's, you need to use GetOEMLED() instead of GetUserLED(). SetUserLED() is correct.
I'd try it like this:
If Not GetOEMLED(1000) Then
SetUserLED(1000,1)
avance = getuserdro(1000)
If avance < 5 Then
avance = 5
End If
If avance > 500 Then
avance = 500
End If
porcentaje = avance/14
setoemdro(3,porcentaje)
Sleep(125)
setuserdro(1001,avance)
Sleep(125)
jogon(0,1)
Else
setuserled(1000,0)
setuserled(1001,0)
setuserdro(1001,getuserdro(1000))
Sleep(125)
jogoff(0)
End If
I'd try it like this:
If Not GetOEMLED(1000) Then
SetUserLED(1000,1)
avance = getuserdro(1000)
If avance < 5 Then
avance = 5
End If
If avance > 500 Then
avance = 500
End If
porcentaje = avance/14
setoemdro(3,porcentaje)
Sleep(125)
setuserdro(1001,avance)
Sleep(125)
jogon(0,1)
Else
setuserled(1000,0)
setuserled(1001,0)
setuserdro(1001,getuserdro(1000))
Sleep(125)
jogoff(0)
End If