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"