Introducir datos con una tecla
Publicado: 12 Feb 2013, 02:23
Hola soy Gaston.
No se como explicar la situación pero espero que me comprendan.
Quiero saber como leer una sola tecla y establecerla a una variable, solo ingresaria n° del 0 al 7
Deseo ejecutar este codigo, pero sin el inputbox, porque en este se debe ingresar el numero y despues enter.
Eso es todo espero que entiendan y me ayuden.
No se como explicar la situación pero espero que me comprendan.
Quiero saber como leer una sola tecla y establecerla a una variable, solo ingresaria n° del 0 al 7
Deseo ejecutar este codigo, pero sin el inputbox, porque en este se debe ingresar el numero y despues enter.
Código: Seleccionar todo
$v = 1
$vN = 1
$veces = 1
Do
$vN = InputBox ("Cambio de marcha", "Coloque la marcha deseada")
If $vN >= 0 And $vN <= 6 Then
If $vN < $v Then
$veces = $v - $vN
For $i = 1 to $veces Step 1
$v = $v - 1
Send("N° " & $v & "{ENTER}")
Next
Else
$veces = $vN - $v
For $i = 1 to $veces Step 1
$v = $v + 1
Send("N° " & $v & "{ENTER}")
Next
EndIf
$v = $vN
EndIf
Until $vN = "q"