Tienda | Foros | Blogs | EN |
 

¿que significa este error 53 en visual basic 6.0?

Seguir
Hola que tal tengo un problema, estoy realizando algunas modificaciones a este pequeño proyecto de visual basic, pero resulta que al correrlo me marca estos errores por ejemplo me sale un pestaña que dice asi: error 53 en tiempo de ejecucion:
NO SE HA ENCONTRADO EL ARCHIVO: IO.DLL

Estuve estudiando unos manuales donde me indican que tengo que copiar y pegar el archivo .dll que genera pero la verdad al guardar el proyecto no le veo por ningún lado, no se donde se genera ese archivo para copiar en c: windows/system32


Este error me sale en la primera linea de cada boton por ejemplo cuando le doy un click en boton 7 me sale esto:

Private Sub btnLed7_Click()
If Me.imgApagVerde.Visible = True Then
"linea amarilla del error" PortOut &H378, 64
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.i mgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = False
Me.imgApagRojo.Visible = True
Else


ESTE ES MI CODIGO:

Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)

Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte

Dim a, b, c, d, e, f As Integer


Private Sub btnLed10_Click()
PortOut &H378, 0
Me.Timer1 = False
Me.tmrSemaforo = False
Me.tmrMotor = False
Me.tmrSecuencia2 = False
Me.tmrSecuencia3 = False
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
Me.imgApagAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
End Sub

Private Sub btnLed5_Click()
If Me.imgApagAmarillo.Visible = True And Me.imgApagVerde.Visible = True Then
PortOut &H378, 96
Me.imgPrendiAmarillo.Visible = True
Me.imgPrendiVerde.Visible = True
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = False
Me.imgApagVerde.Visible = False
Me.imgApagRojo.Visible = True
Else
PortOut &H378, 0
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
End If
End Sub

Private Sub btnLed6_Click()
If Me.imgApagAmarillo.Visible = True Then
PortOut &H378, 32
Me.imgPrendiAmarillo.Visible = True
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = False
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
Else
PortOut &H378, 0
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
End If
End Sub

Private Sub btnLed7_Click()
If Me.imgApagVerde.Visible = True Then
PortOut &H378, 64
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = False
Me.imgApagRojo.Visible = True
Else
PortOut &H378, 0
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
End If
End Sub

Private Sub btnLed9_Click()
If Me.imgApagAmarillo.Visible = True And Me.imgApagVerde.Visible = True And Me.imgApagRojo.Visible = True Then
PortOut &H378, 255
Me.imgPrendiAmarillo.Visible = True
Me.imgPrendiVerde.Visible = True
Me.imgPrendiRojo.Visible = True
imgApagAmarillo.Visible = False
Me.imgApagVerde.Visible = False
Me.imgApagRojo.Visible = False
Else
PortOut &H378, 0
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
End If
End Sub

Private Sub btnMotor_Click()
If Me.imgApagRojo.Visible = True Then
PortOut &H378, 128
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = True
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = False
Else
PortOut &H378, 0
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
End If
End Sub

Private Sub btnRojoAmarillo_Click()
'PortOut &H378, 160
If Me.imgApagAmarillo.Visible = True And Me.imgApagRojo.Visible = True Then
PortOut &H378, 160
Me.imgPrendiAmarillo.Visible = True
Me.imgPrendiRojo.Visible = True
Me.imgPrendiVerde.Visible = False
imgApagAmarillo.Visible = False
Me.imgApagRojo.Visible = False
Me.imgApagVerde.Visible = True
Else
PortOut &H378, 0
Me.imgPrendiAmarillo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgPrendiRojo.Visible = False
imgApagAmarillo.Visible = True
Me.imgApagVerde.Visible = True
Me.imgApagRojo.Visible = True
End If
End Sub


Private Sub btnSalir_Click()
End
End Sub

Private Sub btnSecuencia_Click()
If Me.txtVelocidadKitt.Text = "" Or Me.txtVelocidadKitt.Text = "0" Then
MsgBox "Seleccione algún valor de velocidad mayor a cero"
Else
Me.Timer1.Interval = CInt(Me.txtVelocidadKitt.Text)
Me.Timer1 = True
End If
End Sub

Private Sub btnSecuencia2_Click()
Me.tmrSecuencia2.Interval = 1000
Me.tmrSecuencia2 = True
End Sub

Private Sub btnSecuencia3_Click()
Me.tmrSecuencia3.Interval = 1000
Me.tmrSecuencia3 = True
End Sub

Private Sub btnSemaforo_Click()
Me.tmrSemaforo.Interval = 1000
Me.tmrSemaforo = True
End Sub


Private Sub btnSMotor_Click()
Me.tmrMotor.Interval = 1000
Me.tmrMotor = True
End Sub


Private Sub Timer1_Timer()
a = a + 1
lblCuenta.Caption = a

'Secuencia del Kitt
If a = 1 Then
PortOut &H378, 64
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
ElseIf a = 2 Then
PortOut &H378, 32
Me.imgApagAmarillo.Visible = False
Me.imgPrendiAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
ElseIf a = 3 Then
PortOut &H378, 128
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = False
Me.imgPrendiRojo.Visible = True
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
ElseIf a = 4 Then
PortOut &H378, 32
Me.imgApagAmarillo.Visible = False
Me.imgPrendiAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
a = 0
End If
End Sub

Private Sub tmrMotor_Timer()
c = c + 1
d = d + 1
If c = 1 Then
PortOut &H378, 64
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
ElseIf c = 2 Then
PortOut &H378, 0
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
c = 0
End If
If d = 8 Then
PortOut &H378, 128
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = False
Me.imgPrendiRojo.Visible = True
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
Me.tmrMotor = False
End If

Me.lblCuenta.Caption = d
End Sub

Private Sub tmrSecuencia2_Timer()
e = e + 1
'Secuencia 2
If e = 1 Then
PortOut &H378, 64
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
ElseIf e = 3 Then
PortOut &H378, 32
Me.imgApagAmarillo.Visible = False
Me.imgPrendiAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
ElseIf e = 5 Then
PortOut &H378, 96
Me.imgApagAmarillo.Visible = False
Me.imgPrendiAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
e = 0
ElseIf (e Mod 2) = 0 Then
PortOut &H378, 0
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
End If
End Sub

Private Sub tmrSecuencia3_Timer()
f = f + 1
'Secuencia 2
If f = 1 Then
PortOut &H378, 64
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
ElseIf f = 2 Then
PortOut &H378, 32
Me.imgApagAmarillo.Visible = False
Me.imgPrendiAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
f = 0
End If
End Sub

Private Sub tmrSemaforo_Timer()
b = b + 1
If b = 1 Then
PortOut &H378, 64
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
ElseIf b = 4 Then
PortOut &H378, 96
Me.imgApagAmarillo.Visible = False
Me.imgPrendiAmarillo.Visible = True
Me.imgApagRojo.Visible = True
Me.imgPrendiRojo.Visible = False
Me.imgPrendiVerde.Visible = True
Me.imgApagVerde.Visible = False
ElseIf b = 6 Then
PortOut &H378, 128
Me.imgApagAmarillo.Visible = True
Me.imgPrendiAmarillo.Visible = False
Me.imgApagRojo.Visible = False
Me.imgPrendiRojo.Visible = True
Me.imgPrendiVerde.Visible = False
Me.imgApagVerde.Visible = True
ElseIf b = 9 Then
b = 0
End If

End Sub

Private Sub VScroll1_Change()
Me.txtVelocidadKitt.Text = CInt(VScroll1.Value)
End Sub


1 Solución propuesta

SOLUCIÓN ACEPTADA
Hola!
Parece ser una librería free, que no puede ser comercializada.
La he analizado y no presenta Copyright.
La podés bajar desde:
http://www.pablin.com.ar/computer/programa/vb/iodll.htm

Suerte!