|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - tiquinho
1
« en: Martes 2 de Mayo de 2006, 20:29 »
Lo primero para que el foro te pueda ayudar es que sepa qué necesitas. Si no lo explicas va a ser un poco difícil  Seguro q si planteas el problema de manera adecuada, por aqui estaremos encantados de echarte una mano (o dos)  También puedes utilizar el buscador, por si ya se ha discutido el tema
2
« en: Jueves 27 de Abril de 2006, 14:38 »
Jeje, es lo que tiene la memoria de pez  Gracias por la corrección 
3
« en: Miércoles 26 de Abril de 2006, 22:37 »
Si mal no recuerdo (no tengo el VB6 ahora a mano) el textbox tiene una propiedad MaskText o algo así que si le pones un caracter, es lo que te muestra, aunque en la propiedad Text seguirás teniendo lo que el usuario ha introducido. Espero que te sea de ayuda
4
« en: Martes 28 de Marzo de 2006, 13:27 »
Claro que es posible Dim auxImpresora As Printer cbxImpresoras.Clear For Each auxImpresora In Printers cbxImpresoras.AddItem auxImpresora.DeviceName Next
Ya está. Despues de esto tendrás los nombres de las impresoras en el combo. En la colección Printers están todas las impresoras de Windows, con sus propiedades y su mundo particular. Utiliza el ItemData del ComboBox para guardar lo que te interese. Espero que te sirva, Un saludo  PD:Qué lento estoy escribiendo, te me has adelantado ebolo 
5
« en: Martes 14 de Marzo de 2006, 21:25 »
Prueba: Public Sub cmdSend_Click() Cancelar = False 'Aqui, en el Connect() o en el click del botón de conectar While (Winsock1.State <> sckConnected Or Cancelar = True) Label3.Caption = "Esperando conexión..." DoEvents Wend If Winsock1.State = sckConnected Then Winsock1.SendData txtMensajeEnviar.Text Label3.Caption = "Sending Data" Else Label3.Caption = "No se puede conectar a host" End If End Sub Public Sub cmdClose_Click() cmdConnect.Enabled = True cmdSend.Enabled = False cmdClose.Enabled = False Cancelar = True End Sub
Esto esperaría a que estuviese conectado. El problema del tiempo es que puede costarle más conectarse, dependiendo de la red. Cancelar sería una variable a la que tuvieras acceso desde esas funciones (del módulo, vamos), para que pudieras cancelar en caso de no conectar de verdad. Espero que te sirva  PD: Tampoco estaría de más que le hicieras un Close al winsock al terminar, para asegurarte de que queda cerrado.(Creo recordar que para hacer el Connect tenía q estar cerrado,¿no?)
6
« en: Martes 14 de Marzo de 2006, 20:31 »
Por lo que entiendo, los 3 caracteres a más que te puede mandar el PIC son siempre ":AB",no? si es así, cuando te lleguen los 21 caracteres, comprueba si la cadena contiene estos tres caracteres,y si los contiene, continúa hasta los 24, y después quítaselos. Espero que te sirva de ayuda. Si aún no te resuelve nada, pon el código que ejecutas dentro del evento donde recibes, para tener más datos, y lo seguimos intentando Un saludo, PD: ¿Las variables son numéricas? Entiendo que la información que necesitas de esa cadena es que la variable A toma el valor numérico 2,345 la variable B el valor 4,456 y la variable C el valor 1,454, ¿no?
7
« en: Viernes 10 de Marzo de 2006, 19:53 »
O en el Form_Unload, ejecuta tú el botón Cerrar: Private Sub Form_Unload (Cancel As Integer) cmdCerrar_Click End Sub
(No me acuerdo bien de la cabecera del Form_Unload, pero creo q sólo era eso) Saludos
8
« en: Viernes 10 de Marzo de 2006, 19:46 »
Si utilizas un procedimiento almacenado o la query como te indica ElberGon, en vez del Now puedes utilizar un "GetDate()": sql = "INSERT INTO Registros ( nom_reg, fecha_de_alta) VALUES ('" & txtNombre.Text & "', GetDate()"
Un saludo
9
« en: Viernes 10 de Marzo de 2006, 19:21 »
Puedes utilizar el control MSCOMM. Le tendrás que pasar el puerto al que está conectado, configurarle la velocidad y esas cosas (que deberías tener en la documentación del tablero, supongo). Para esto mejor consulta la ayuda. Para recibir los datos, utiliza un timer para consultarlo o el evento que te ofrece el MSCOMM. Deberías tener en la documentación del tablero lo qué significan los datos que recibes, para saber cómo tratarlos, supongo. Espero que te sirviera de ayuda Avisa con lo que tengas
10
« en: Miércoles 8 de Marzo de 2006, 20:27 »
Exactamente... ¿qué quieres hacer? ¿Qué recibes por el puerto serie? ¿20 caracteres?¿23 caracteres?¿a veces 20 a veces 23? ¿Donde quieres tratar esta cadena? ¿Qué quieres hacer exactamente con lo que te llega?¿utilizar esos 3 caracteres de más o simplemente desecharlos? Vas a tener que explicarlo un poco más, sino va a ser difícil ayudarte 
11
« en: Domingo 5 de Marzo de 2006, 15:54 »
Hola karen81: esos dos cuadros que se ven son posiblemente los caracteres Cr y Lf (retorno de carro y avance de linea) que valen para indicar el final de una línea. Si tienes el texto en un textbox con la propiedad Multiline a true, te los estará guardando si le das a Intro antes de quitarle el foco. De echo, si abres ese archivo que guardas con el bloc de notas no te aparecerán los cuadros, pero tendrás una línea más en blanco. La solución a esto depende de lo que quieras hacer. Si al recogerlo del puerto serie quieres mostrar también los cambios de línea, no te preocupes, porque te los enviará como dos caracteres más. Si no quieres que te los envíe, tendrás que quitarlos. Espero que te valga de algo esto, si no te soluciona vuelve a preguntar. Un saludo
12
« en: Jueves 2 de Marzo de 2006, 18:57 »
¿Tienes el código del programa? Si lo tienes prueba lo que te ha dicho cpmario(y simplemente compila y cambia el ejecutable, no es necesario una nueva instalación), para poder localizar el error. Si no lo tienes, te recomendaría buscar algún programa que te diga a qué dll's accede tu ejecutable. Y cuando lo sepas, comprobarlas una a una para saber en cuál está el error. Lo primero para solucionarlo es saber donde falla, y tiene toda la pinta de ser en una llamada a una función externa. PD:Siento haber tardado tanto en volver a responder
13
« en: Domingo 26 de Febrero de 2006, 20:36 »
Hola Roll:
puede tener que ver con alguna dll que utilices, con versiones diferentes o algo así
sabes exactamente cuando te pasa?
14
« en: Miércoles 18 de Enero de 2006, 17:21 »
Hola Barri Esto es una idea sin probar, pero si sólo quieres ese registro (el que coincide Codigo = reg_articulos_homologados.Fields("ReferenciaCatalogo") ), prueba a incluir esa condición en la consulta. Algo así: Codigo = reg_articulos_homologados.Fields("ReferenciaCatalogo") cmd.CommandText = "SELECT * FROM art_dat WHERE f_art_cod LIKE '%" & Codigo & "%' ORDER BY f_art_cod" 'Comprueba los caracteres %, que nunca me acuerdo si son esos
Te devolverá sólo el registro que quieres. Pero tiene pinta de ser por la configuración del proveedor, así que a lo mejor también te falla esto. Y si también te fall, prueba con otro proveedor (Yo he utilizado con éxito el Microsoft Jet 4.0 para recoger datos de una BD de archivos DBF, y 17000 registros sin problema) Un saludo y suerte!
15
« en: Martes 21 de Junio de 2005, 17:03 »
Para poner la fecha en "blanco" (supongo que te refieres a ponerla deshabilitada) debes tener la propiedad checkbox a True y poner "dtpFecha.Value = Null"
Cuando el checkbox está marcado, la propiedad Value del dtp es una fecha, cuando está desmarcado, es Null
Espero haber sido de ayuda.
Saludos a todos!
16
« en: Viernes 21 de Enero de 2005, 12:41 »
Prueba a bajarte el Inno Script. http://www.randem.com/innoscript.htmlLe indicas un proyecto en VB y te genera el script él solito, con dependencias y todo. Suerte!
17
« en: Jueves 20 de Enero de 2005, 18:18 »
Después de mucho deliberar con mi ratón, mis respuestas són : 1) Aunque tampoco descarto la teoría de JuanK, creo que el 50% no somos mayoría absoluta, ya que según datos facilitados por Solocódigo a las 18:17 del 20 de enero del 2005, somos 15580 usuarios, y el 50% son ... (un segundo, q voy a la calculadora)... 7790 usuarios. 2) Creo a al señor Segundo Al-Cuadrado le iba doler la cabeza, aparte de tener que lavarsela... 3)Al segundo le caerá un huevo a 170 km/h y se despistará un poco... jeje, pobriño señor Segundo, lo pusimos perdido. 
18
« en: Jueves 20 de Enero de 2005, 10:27 »
En cuanto a tu solución desarrollo, yo tenía pensado hacer algo así, pero en vez de con un combobox, con CheckBox, para que se lanzaran todos uno detrás de otro, y no tuvieras que cliquear para cada programa, pero bueno, lo tuyo creo q también funcionaría.
Por cierto, y si en vez de utilizar la API ShellExecute utilizas la función Shell? No se si es mejor o peor, pero sería lo que yo haría
19
« en: Jueves 20 de Enero de 2005, 10:19 »
Gracias a los dos por contestar, pero esa era la idea que ya tenía para hacerlo , y mi intención era preguntar por cómo hacerlo en el Inno Setup De todas maneras, ayer en casa conseguí descifrar lo que pretendía, hacerlo con el programa Inno Setup, más concretamente con el ISTool. Por si a alguien le sirve (echale un ojo desarrollo), lo que hice fué añadirle tantos componentes como aplicaciones tengo para instalar, y en la sección "Install Run" añadir los nombres de los .exe con su ubicación. Mi problema era la ubicación de los .exe, pero lo solucioné añadiendole en el "Filename" el directorio "{src}" (que supongo que vendrá de source) y el Filename que quedaba "{src}\nombreinstalador.exe". Además en la pestaña "Component" marcar la opción requerida para instalar esa aplicación. Buf, es una explicación bastante mala pero así a bote pronto es lo que se me ocurre. Si alguien lo intenta y no le sale que pregunte 
20
« en: Martes 18 de Enero de 2005, 13:00 »
Buenas gente! Volviendo a retomar el tema de los instaladores (gracias a todos los que me ayudaron a descubrir el Inno Setup ) me gustaría crear un instalador de varios programas. Me explico: Tengo varios programas y cada uno de ellos tiene un instalador (creado con el Inno Setup). Ahora me gustaría distribuirlos todos juntos en un mismo CD, y para que quede más "bonito" me gustaría hacer un programa único que me permitiera escoger qué programas quiero instalar, como un lanzador de instaladores o algo así. Tengo una idea para hacerlo yo mismo, pero me gustaría que todo tuviese un mismo estilo, vamos que me quedasen todos los instaladores iguales, por lo que mi pregunta(vaya rollo que suelto para nada  ) es que si alguien sabe cómo hacer este "lanzador de instaladores" en el inno setup o en algun programa parecido... Y puestos, si tiene propiedades de tamaño en disco o parecidas Gracias por contestar(si alguien se atreve, )
21
« en: Martes 18 de Enero de 2005, 12:43 »
Hay varias formas: animando tu mismo una imagen con código o utilizando controles que te permitan insertar el gif directamente. Si buscas un poco por el foro (utiliza el buscador, que seguro que encuentras algo) creo que hay varios posts donde te dicen como hacerlo
22
« en: Martes 18 de Enero de 2005, 12:37 »
Vaya, pos ahora que lo dices si que lo tengo 2 veces, ni me había dado cuenta La verdad es que sin el segundo también debería funcionar (a mi me va bien). No sé entonces pq no te iba a ti  Bueno, si por lo menos ahora te va... jeje De todas maneras debería mirarlo, no vaya a ser q tengas algo mal sin saberlo Por cierto, ¿te deja utilizar como nombre de etiqueta "error"??pensé que lo tomaba como palabra clave, o como nombre de un objeto...
23
« en: Lunes 17 de Enero de 2005, 10:10 »
El CommonDialog tiene una propiedad llamada CancelError. Si esta propiedad tiene el valor True, cuando pulsen el botón Cancelar o cierren con la X, generará un error (el número ahora no lo recuerdo). Un ejemplillo con el que abrir ejecutables, donde "Carpetas" es el nombre del CommonDialog: Function AbrirEjecutables(Ruta as String) On Error GoTo FinF 'Con esta línea le indicas que si salta el error salte a la etiqueta "FinF" 'Inicialización de variables Carpetas.InitDir = Ruta Carpetas.DefaultExt = "exe" Carpetas.Filter = "Ejecutables (.exe)|*.exe" Carpetas.CancelError = True 'Con esta propiedad le indicas al CommonDialog que genere un error si se pulsa el botón Cancelar. Carpetas.ShowOpen 'Lanza la ventana Abrir del CommonDialog On Error GoTo FinF 'A partir de aqui haz lo que sería normal Shell Carpetas.FileName, vbNormalFocus FinF: 'Aqui saltará si se pulsa Cancelar End Function
Puedes controlar mejor utilizando más etiquetas, o jugando con variables. Tú mismo. Espero que te sirva!
24
« en: Miércoles 22 de Diciembre de 2004, 21:37 »
Gracias e igualmente para todos!!! Felices Fiestas a todo quisque que se pase habitualmente o no por el foro!! Feliz Navidad y Próspero Año Nuevo!! 
25
« en: Miércoles 22 de Diciembre de 2004, 21:30 »
|
|
|
Mostrar Mensajes
