|
|
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 - elmango80
101
« en: Viernes 12 de Marzo de 2004, 06:12 »
Hola Sercas! Hola Zeekel! No entiendo porque presentas problemas con el programa a mi me funciona perfectamente.... Zeekel bajate el codigo a ver si tu tienes el mismo problema y me dices....  --------------------- 
102
« en: Viernes 12 de Marzo de 2004, 06:04 »
Hola Cyclop!
Disculpar pero yo personalmente he probado los dos codigos y funcionan perfectamente para todos los años...
103
« en: Viernes 12 de Marzo de 2004, 05:57 »
Hola Ronstone! Te informo que desgraciadamente en Windows XP  vas a poder bloquear Crt + Alt + Del porque el mismo Windows XP se encarga de evitar eso por razones de seguridad...  -----------------
104
« en: Viernes 12 de Marzo de 2004, 05:54 »
Hola AYCUL!
Si estas haciendo referencia dentro de tu programa a la direccion fisica de estos iconos entonces tienes que guardarlo, es decir si durante la ejecucion de tu programa cargas un icono y despues cargas el otro y asi sucesivamente entonces si tienes que guardar los iconos, pero si por ejemplo los iconos se los asignas a los formularios por la propiedad Icon y nada mas entonces no tienes que guardarlos....
105
« en: Jueves 11 de Marzo de 2004, 10:13 »
FELICITACIONES En todos los años que estuve programando en Pascal nunca me encontre con un algoritmo tan corto y tan efectivo.... ----------------------
106
« en: Jueves 11 de Marzo de 2004, 10:12 »
Hola a Todos!!!  Estaba dando vueltas por el foro y recordando viejos lenguajes en los cuales he programado y entre al foro de Pascal, viendo los post que hay publicados hay encontre un codigo fuente para verificar si un año es bisiesto muy bueno y demasiado corto, el codigo funciona a la perfección... Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean ComprobarBisiesto = False If Año Mod 400 = 0 Then ComprobarBisiesto = True Else If Año Mod 100 = 0 Then ComprobarBisiesto = False Else If Año Mod 4 = 0 Then ComprobarBisiesto = True End If End If End If End Function
Este codigo es mas corto aun Public Function ComprobarBisiesto(ByVal intAño As Integer) As Boolean ComprobarBisiesto = (intAño mod 4 = 0) and ((intAño mod 100 <> 0) or (intAño mod 400 = 0)) End Function
P.D: Gracias a _.B._  y a BlackTigerX ------------------------
107
« en: Jueves 11 de Marzo de 2004, 08:45 »
Hola Zeekel! Puedes utilizar el espacio del formulario de bloqueo para colocar el logotipo de tu programa y asi no tienes un simple formulario vacio en tu aplicación.... -----------------
108
« en: Jueves 11 de Marzo de 2004, 08:11 »
Hola ZeHc!
Espero que este codigo te pueda servir....
109
« en: Jueves 11 de Marzo de 2004, 08:05 »
Hola sercas! Espero que hayas comprendido el codigo... -------------------
110
« en: Jueves 11 de Marzo de 2004, 08:04 »
Hola MindEye! El proble no es que lo estes haciendo bien o mal, el problema esta en el sistema operativo que estas usando, si estas usando Windows NT, Windows 2000 o Windows XP no hay forma de poder hacerlo (o por lo menos yo no la he encontrado) si estas usando cualquier otro sistema operativo hazlo como te dice Zeekel. -------------------
111
« en: Jueves 11 de Marzo de 2004, 08:00 »
Efectivamente lo que tienes que hacer es usar dos Data uno para llenar el DBCombo y el otro lo utilizas para la busqueda, por que lo que pasa es que estas utilizando el mismo para las dos cosas y entonces el DBCombo cuando vuelve a actualizarse solamente va a encontrar en el Data el registro que encontraste.... ------------------
112
« en: Jueves 11 de Marzo de 2004, 07:52 »
Hola rechy!!! Ya consegui la soluciona tu problema lo unico que tienes que hacer es la formula de tu programa, es una tonteria pero funciona perfectamente.... en tu codigo tienes tabla.Cols = (a2 - a1) * 1000
Pues bien lo que tienes que hacer es cambiarlo por este tabla.Cols = ((a2 - a1) * 1000 / 2) + 2
Y todo esta listo, te agrega solo las columnas que necesitas y ya no tienes mas las columnas en blanco... Tiene razon cuando dicen que las soluciones mas faciles son las mas dificiles de encontrar. Si tienes instalada la ayuda de VB leer un poco sobre los MSFlexGrid y sobre todo la propiedad FormatString y el metodo AddNew que tambien te habrian podido solucionar este problema pero fuera sido un poco mas fastidioso... ---------------------
113
« en: Jueves 11 de Marzo de 2004, 07:30 »
Hola Gandalf_malaga7! Te aconsejo que una vez que tengas tu cadena obtenida del .txt en primer lugar la depures, osea saca todos los posibles caracteres que no puedan estar en una matricula (" - $ % @) y asi solo te quedas con las letras y los numeros, tambien puedes sacar todas la letras minusculas porque se supone que la matricula solo esta compuesta de numero y letras mayusculas, ya con esto te ahorras un trabajo, despues podrias hacer un patron de la placa, no se como sera haya pero aca en Venezuela las placas poseen tres letras despues dos numeros y por ultimo otra letra (ASD 32F) asi que busca ese patron dentro de la cadena que te queda... P.D: Gracias por la informacion del programa que encontraste... ------------------
114
« en: Jueves 11 de Marzo de 2004, 07:18 »
Hola cucaracha!
El problema es que lo que estoy haciendo es un dispositivo portatil y la camara siempre va a estar fija asi que todas las fotos las va a tomar de la misma manera asi que no me importa mucho lo de la perpendicularidad (por los momentos, no se mas adelante) asi que me es mas facil colocar una camara que tener que hacer un escaner a las medidas de mi dispositivo. Gracias por tu opinion....
115
« en: Jueves 11 de Marzo de 2004, 07:12 »
Lo que tienes que hacer es que en el evento KeyDown o KeyUp del DataGrid le dices que ejecute el evento KeyUp de tu formulario, algo asi Private Sub DataGrid1_KeyUp(KeyCode As Integer, Shift As Integer) Form_KeyUp KeyCode, Shift End Sub
116
« en: Jueves 11 de Marzo de 2004, 06:51 »
Lo que ocurre es que el intervalo normal del argumento de la funcion es 0?255.
117
« en: Miércoles 10 de Marzo de 2004, 08:07 »
Hola sercas! Claro que si te da la opcion de llenarla con la fecha que tu elijas... si presionas el boton "Gestor" te sale otra ventana en la que puedes colocar los datos nuevos y en la ventana principal le das click sobre la fecha que deseas y te salen los que cumplen año ese dia... Por ejemplo: Primero te vas a gestor, presionas agregar y colocas tu nombre, tu apellido y tu dia de cumpleaños y le das a guardar, te sales del gestor y en el calendario de la ventana principal te vas a la fecha de tu cumpleaños y aparecera tu nombre en el ListBox --------------------
118
« en: Miércoles 10 de Marzo de 2004, 07:24 »
Hola jpardo84! Este codigo tambien te puede ser util para llenar el ComboBox Public Sub LlenaCboConCampo(ByVal Combo As Object, ByVal strSQL As String, ByVal Campo As String) Dim Rst As ADODB.Recordset Dim iCont As Long On Error GoTo ErrHandler If TypeName(Combo) = "ComboBox" Then Set m_ComboBox = Combo Else Exit Sub End If Set Rst = New ADODB.Recordset Rst.Open strSQL, gDB, adOpenDynamic, adLockReadOnly m_ComboBox.Clear Rst.MoveFirst For iCont = 1 To Rst.RecordCount m_ComboBox.AddItem Rst.Fields(Campo).Value Rst.MoveNext Next iCont Rst.Close Set Rst = Nothing Set m_ComboBox = Nothing Exit Sub ErrHandler: Set Rst = Nothing End Sub
------------------
119
« en: Miércoles 10 de Marzo de 2004, 07:15 »
Hola rechy! Por lo que pude observar las casillas en blanco te las esta generando la siguiente instruccion... tabla.Cols = (a2 - a1) * 1000 tabla.Rows = (t2 - t1) * 2 + 2
Cuando multiplicas por 1000 al parecer estas generando mas columnas de las que necesitas, si te das cuenta cuando colocas en densidad relativa de 1 a 3, le dices a la Tabla que coloque 2000 columnas y tu programa le esta asignando " " a estas columnas que aparecen vacias, osea que no hay nada malo con el MsFlexGridTe aconsejo que en lugar de hacerlo de esta forma utilices la funcion AddNew del MsFlexGrid ---------------------------
120
« en: Miércoles 10 de Marzo de 2004, 06:42 »
Hola amicus! Lo que puedes hacer es utilizar On Error de esta forma inentas cargar el objeto, si el objeto esta cargado te producira un error pero como tienes la sentencia On Error activado puedes detectar ese error y hacer lo que quieras... El codigo seria algo mas o menos asi... Private Sub CargarObjeto () On Error GoTo ObjetoCargado Load Boton(I) Exit Sub ObjetoCargado: Msg "El objeto ya existe..." Exit Sub End Sub
--------------
121
« en: Martes 9 de Marzo de 2004, 20:01 »
Seria mejor si enviaras los archivos del programa para evaluarlo mejor y asi poder detectar mas facilmente el error...
122
« en: Martes 9 de Marzo de 2004, 10:15 »
Hola sercas! Aqui tienes el programa que necesitas, espero todavia te sea util... Cualquier duda en el codigo con gusto te la respondere. ---------------------
123
« en: Martes 9 de Marzo de 2004, 06:06 »
Hola MindEye! En primer lugar, ¿Que sistema operativo estas usando? si el sistema operativo es Windows NT, Windows 2000 o Windows XP el problema esta en Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Lo que pasa es que estos sistemas operativos no soportan esta operacion.   -------------------
124
« en: Martes 9 de Marzo de 2004, 05:44 »
Hola Zeekel! Estaba buscando el programa FUSION pero no lo encontre, si por favor me lo puedes enviar a mi correo te lo agradeceria mucho ( elmango80@intercable.net.ve)
125
« en: Lunes 8 de Marzo de 2004, 09:10 »
Hola raul_8 Esta pregunta la tenias que publicar en el foro de Visual Basic, pero para hacer lo que quieres lo mejor que pudes hacer es definir una variable dentro de un modulo y el valor que quieres colocar en el Label del otro formulario la guardas en esa variable, de esta manera vas a tener ese valor almacenado disponible para toda la aplicacion...
|
|
|
Mostrar Mensajes
