Error 53 En Tiempo De Ejecucion Visual Basic 6.0
Programación » [Solucionado] ¿que significa este error 53 en visual basic 6.0? [Solucionado] ¿que significa este error 53 en visual basic 6.0? 12/7/2012 02:54AM 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[/b] 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 = Fal
funcionó bien este proyecto, solo tengo la ultima pregunta, ojala me quieras ayudar y es esta:Tengo un text1, en el cual pongo un nombre de algún archivo .txt que tengo en una carpetaAl dar enter, desde un file1 se elige el archivo con el nombre elegido y se ve su contenido en otro text2, hasta aquí funciona bien, pero si por ejemplo en el text1 en lugar de escribir banco Se escribe por equivocación http://programacion.yoreparo.com/programacion/que-significa-este-error-53-en-visual-basic-60-t939418.html banca me manda el error 53 de que no localiza el archivo y claro no existe, mi favor es, algún código que en lugar de mandarme el error 53 me mande un msgbox de aviso, para poder rectificar y así evitar que se cierre el programa al dar aceptar en el "aviso error 53" http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/inu4sk6qprcj4/evitar-error-53-en-file1 mi código que tengo es este:Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenKeyAscii = 0File1.FileName = Text1.Text & ".txt"Dim nuevalinea As String, LTexto As String, Texto As String, Archivo As Stringnuevalinea = Chr$(13) + Chr$(10)Archivo = File1.Path & "\" & File1.FileNameOpen Archivo For Input As #1Do Until EOF(1)Line Input #1, LTextoTexto = Texto & LTexto & nuevalineaLoopText2.Text = TextoClose #1On Error Resume NextEnd IfEnd Sub.....................................................................Private Sub Form_Load()File1.Pattern = "*.txt"File1.Path = App.Path & "\Archivo"On Error Resume NextEnd SubEs esto con lo que trabaja, solo me falta resolver lo del error 53, pues es todo y de antemano gracias, un abrazo desde Puebla, Mexico Seguir Siguiendo Dejar de seguir 1 1 Respuesta Luis_P 99.625 pts. el 9 may. 12 '¿4c7569735f50el error te lo da en esta linea verdad?Open Archivo For Input As #1entonces lo que debes hacer es no utilizar on error resume nextdebes tener un sub que trate los errores interceptados mediante un select caseejemplo:Sub prueba()On Local Error GoTo erro
» Visual Basic clásico » Error 53 en tiempo de Ejecucion Estas en el tema de Error 53 en tiempo de Ejecucion en el foro de Visual Basic clásico en Foros del Web. Hola, tengo un problema , instale http://www.forosdelweb.com/f69/error-53-tiempo-ejecucion-643922/ un programa en un Windows XP y cuando lo ejecuto me da el " ERROR 53 en tiempo de ... #1 (permalink) 13/11/2008, 05:17 gasafonso Fecha de Ingreso: septiembre-2008 Mensajes: 357 Antigüedad: 8 años, 1 mesPuntos: 1 Error 53 en tiempo de Ejecucion Hola, tengo un problema , instale un programa en un Windows XP y cuando lo ejecuto me da el " ERROR 53 en tiempo de ejecucion " alguien sabes por que ? #2 (permalink) error 53 13/11/2008, 07:58 David Moderador Fecha de Ingreso: abril-2005 Ubicación: In this planet Mensajes: 15.706 Antigüedad: 11 años, 5 mesesPuntos: 829 Respuesta: Error 53 en tiempo de Ejecucion ¿Tienes alguna función de manejo de archivos o algo así? Porque el error 53 se produce cuando se manejan archivos, quizás estés usando rutas absolutas y cuando usas tu programa en otro lugar no encuentra dicho archivo. __________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. #3 error 53 en (permalink) 13/11/2008, 08:11 gasafonso Fecha de Ingreso: septiembre-2008 Mensajes: 357 Antigüedad: 8 años, 1 mesPuntos: 1 Respuesta: Error 53 en tiempo de Ejecucion Cita: Iniciado por David el Grande ¿Tienes alguna función de manejo de archivos o algo así? Porque el error 53 se produce cuando se manejan archivos, quizás estés usando rutas absolutas y cuando usas tu programa en otro lugar no encuentra dicho archivo. Ah si cuando arranca verifica un archivo *.txt , sera eso ? #4 (permalink) 13/11/2008, 09:44 David Moderador Fecha de Ingreso: abril-2005 Ubicación: In this planet Mensajes: 15.706 Antigüedad: 11 años, 5 mesesPuntos: 829 Respuesta: Error 53 en tiempo de Ejecucion Sí, es posible, ¿puedes poner el código donde verificas ese *.txt?. __________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. #5 (permalink) 13/11/2008, 13:36 gasafonso Fecha de Ingreso: septiembre-2008 Mensajes: 357 Antigüedad: 8 años, 1 mesPuntos: 1 Respuesta: Error 53 en tiempo de Ejecucion no te entiendo #6 (permalink) 13/11/2008, 13:44 David Moderador Fecha de Ingreso: abril-2005 Ubicación: In this planet Mensajes: 15.706 Antigüedad: 11 años, 5 mesesPuntos: 829 Respuesta: Error 53 en tiempo de Ejecucion Digo, sí es posible que allí esté el error. Pero sin ver el código donde mencionas que verificas el archivo .txt no sabría decirte cuál es el error. __________________ Por favor, antes de preguntar, revisa la Guía para realizar preguntas. #7 (pe
be down. Please try the request again. Your cache administrator is webmaster. Generated Mon, 10 Oct 2016 04:13:36 GMT by s_ac15 (squid/3.5.20)