Problema con CommandButton
Publicado por Joaquín Beneyto Sánchez (2 intervenciones) el 23/08/2011 20:18:09
Buenas tardes. Soy novato en esto del VisualBasic y tengo un problema al que no encuentro respuesta.
He hecho un programita para mover unos motores por el puerto paralelo con VB 6.0 y quisiera modificar una cosa pero no se como hacerlo. Para explicaros mi problema os cuento que el programa consta de cinco CommandButtons :
- avanzar, retroceder, izquierda, derecha y parar
Lo que me gustaria es poder eliminar el de parar y que el puerto paralelo volviera al estado de reposo al soltar el click del raton sobre cualquiera de los otros cuatro botones.
Adjunto el codigo que tengo
He leido varios manuales sobre V.B. 6, pero no he encontrado nada, ya que la mayoria están enfocados al tratamiento de bases de datos. De todas formas, si sabeis de algun manual donde haya información sobre este tema, ruego que me informeis, mientras seguire buscando.
Si necesitaís más info no dudeis en preguntar.
Saludos y gracias de antemano.
He hecho un programita para mover unos motores por el puerto paralelo con VB 6.0 y quisiera modificar una cosa pero no se como hacerlo. Para explicaros mi problema os cuento que el programa consta de cinco CommandButtons :
- avanzar, retroceder, izquierda, derecha y parar
Lo que me gustaria es poder eliminar el de parar y que el puerto paralelo volviera al estado de reposo al soltar el click del raton sobre cualquiera de los otros cuatro botones.
Adjunto el codigo que tengo
Option Explicit
Dim Value As Integer
Dim PortAddress As Integer
Private Sub CmdAvanzar_Click()
Value = 5
Out PortAddress, Value
End Sub
Private Sub CmdDerecha_Click()
Value = 9
Out PortAddress, Value
End Sub
Private Sub Cmdizquierda_Click()
Value = 6
Out PortAddress, Value
End Sub
Private Sub CmdParar_Click()
Value = 0
Out PortAddress, Value
End Sub
Private Sub CmdRetroceder_Click()
Value = 10
Out PortAddress, Value
End Sub
Private Sub Form_Load()
Value = 0
PortAddress = &H378
End Sub
Private Sub Form_Unload(Cancel As Integer)
Value = 0
Out PortAddress, Value
End Sub
Dim Value As Integer
Dim PortAddress As Integer
Private Sub CmdAvanzar_Click()
Value = 5
Out PortAddress, Value
End Sub
Private Sub CmdDerecha_Click()
Value = 9
Out PortAddress, Value
End Sub
Private Sub Cmdizquierda_Click()
Value = 6
Out PortAddress, Value
End Sub
Private Sub CmdParar_Click()
Value = 0
Out PortAddress, Value
End Sub
Private Sub CmdRetroceder_Click()
Value = 10
Out PortAddress, Value
End Sub
Private Sub Form_Load()
Value = 0
PortAddress = &H378
End Sub
Private Sub Form_Unload(Cancel As Integer)
Value = 0
Out PortAddress, Value
End Sub
He leido varios manuales sobre V.B. 6, pero no he encontrado nada, ya que la mayoria están enfocados al tratamiento de bases de datos. De todas formas, si sabeis de algun manual donde haya información sobre este tema, ruego que me informeis, mientras seguire buscando.
Si necesitaís más info no dudeis en preguntar.
Saludos y gracias de antemano.
Valora esta pregunta
0
