programacion de puerto para up down right left

Iniciado por kaer, 14 Marzo 2005, 06:27 AM

0 Miembros y 1 Visitante están viendo este tema.

kaer

hola saben estoy empezando en esto de la electronica y me dejaron un proyecto el proyecto consiste en un carrito que se mueva con la teclas up down left right y controlarlocon  un software  que permita la salida por el puerto paralelo que al precionar el up o ya sea down left o right se mueva a la dir. de la tecla no se si me explico. plis ayuda

free_kevin

aver aver,explicate mejor.
vos lo que queres hacer es manejar un carrito con las teclas "up ,down, left, right" del teclado dee la pc usando el puerto paralelo conectado al carrito????????????
si es asi es una pabada es como usar un juguete a radiocontrol!

kaer

si eso mero quiero talvez le pareca un juguete pero como les digo estoy empezando en este mundo y quisiera probar  con esto la utilizacion del puerto paralelo plis ayuda si pueden

BADBYTE-K

debes hacerlo basandote en el metodo "sendkeys" de visual y la programacion del puerto la tienes aki: http://foro.elhacker.net/index.php/topic,48748.0.html ahora lo unico que debes hacer es "relacionar" las teclas con lo que el puerto paralelo por medio del sendkeys cuaando avances en el codigo postealo si te falla aki estamos varios locos que t podemos ayudar


saludox

kaer

hola de nuevo sabes bad byte aun no se programar mucho en visual basic pero estuve estudiando un poco y hay algo que no entiendo aun, yo lo he hecho con botones por que no he hallado eso de las teclas
ya encontre que se ejecuta asi sendkeys "{up}" pero luego que le pongo,  se supone que lo que hace el sendkey manda esa tecla a ejecutar y me estoy haciendo pelotas por que creo que  el keypress lo manejaria mejor o que dices disculpame por tantas molestias sale


y aqui esta lo que avance con los botones y lo que le entendi a la programacion del puerto parelo dime por favor si tengo  algo bien

Private Sub down_Click()
Out &H378, 2
End Sub

Private Sub left_Click()
Out H378, 9
End Sub

Private Sub right_Click()
Out &H378, 5
End Sub

Private Sub up_Click()
Out &H378, 1
End Sub

kaer

 hola como estan como pueden ver lo he hecho con las teclas E,F,D,S en vez de las teclas de direcciones jeje es que la verdad no le entendi al sendkeys gracias por sus ayuda a todos
muchas gracias badbyte-k

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 68 Then
Out &H378, 1
MsgBox ("atras")
End If
If KeyAscii = 69 Then
Out &H378, 2
MsgBox ("adelante")
End If
If KeyAscii = 70 Then
Out &H378, 4
MsgBox ("derecha")
End If
If KeyAscii = 83 Then
Out &H378, 8
MsgBox ("izquierda")
End If
End Sub