• Martes 13 de Mayo de 2025, 03:14

Mostrar Mensajes

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 - cpmario

Páginas: 1 ... 8 9 [10] 11 12 ... 26
226
Visual Basic 6.0 e inferiores / Re: Ayuda, Con Fecha De Nacimiento
« en: Viernes 9 de Febrero de 2007, 16:36 »
Te adjunto un pequeño ejemplo con el control que mencionas (MSVBCldr.ocx)

 :comp:

227
Visual Basic 6.0 e inferiores / Re: Ayuda, Con Fecha De Nacimiento
« en: Viernes 9 de Febrero de 2007, 01:26 »
No dices que Control de Calendario usas para ayudarte o hacerte un pequeño ejemplo.

 :comp:

228
Visual Basic 6.0 e inferiores / Re: Ayuda, Con Fecha De Nacimiento
« en: Martes 6 de Febrero de 2007, 06:39 »
Entre los programadores de VB6 también hay médicos.
A continuación te coloco los datos de los cálculos.
El embarazo dura aproximadamente 38 semanas (9 meses).
Lo que el médico debe obtener para extraer la edad gestacional (la edad del feto) y la fecha probable de parto, es la fecha de la última mestruación.
Debes de tener una forma con un control de calendario(Calendar), 3 etiquetas para fecha de última mestruación(lbldate), edad gestacional (lblGestAge) y fecha probable de parto(lblFPP), y un botón para enviar los datos a una caja de texto.
Al hacer clic en el calendario para elegir le fecha de la última regla.
Código: Text
  1. Private Sub Calendar_Click()
  2.     Dim lngDays As Long
  3.     lblFPP.Caption = DateAdd("d", 280, Calendar.DateValue)
  4.     lngDays = DateDiff("d", Calendar.DateValue, Now)
  5.     lblGestAge.Caption = Int(lngDays / 7) & " Sem y " & lngDays Mod 7 & " días"
  6.  
  7.     lbldate.Caption = Format(Calendar.DateValue, "dd/mmmm/yyyy")
  8.     cmdOK.Enabled = True
  9. End Sub
  10.  
El siguiente código toma la información para que posteriormente la anotes en una caja de texto
Código: Text
  1. Private Sub cmdAplicar_Click()
  2.     gstrFPP = vbCrLf & "Fecha última mestruación: " & Calendar.DateValue & vbCrLf & _
  3.     "Edad gestacional: " & lblGestAge.Caption & vbCrLf & _
  4.     "Fecha probable de parto: " & lblFPP.Caption
  5.     gblnCancel = False
  6.     Unload Me
  7. End Sub
  8.  
Espero la información anterior te sea útil. Si se te dificulta entenderle, te puedo ponere un ejemplo de código, adjunto.

------------------------------------------------------------------------------------------
Consulta Práctica, base de datos para consultorio médico. Programada en VB6.
http://www.cpimario.com

 :comp:

229
Visual Basic 6.0 e inferiores / Re: Solo Numeros En Textbox
« en: Sábado 3 de Febrero de 2007, 23:22 »
Yo uso una rutina parecida a esta:

Código: Text
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2.     Dim strValidChars As String
  3.     Dim strTitle As String
  4.     Dim strCharLetter As String
  5.     strCharLetter = UCase(Chr$(KeyAscii))
  6.     'Cambiando strValidChar se puede usar para filtrar
  7.     'cualquier conjunto de caracteres
  8.     strValidChars = "0123456789.,"
  9.     If InStr(strValidChars, strCharLetter) Then
  10.         KeyAscii = Asc(strCharLetter)
  11.     ElseIf KeyAscii = 8 Or KeyAscii = 13 Then
  12.     Else
  13.         'Opcional, si deseas darle un aviso al usuario
  14.         'Lo puedes eliminar
  15.         strTitle = "+ Convención +"
  16.         MsgBox "Escriba solo números, puntos o comas.", vbInformation, strTitle
  17.         KeyAscii = 0
  18.     End If
  19. End Sub
  20.  
:comp:

230
Visual Basic 6.0 e inferiores / Re: Diferntes Colores En Un Textbox
« en: Jueves 1 de Febrero de 2007, 22:55 »
Te sugiero colocar el código en un control Timer. En propiedades del control elige interval de 60,000 y dejas la propiedad Enabled = false

Código: Text
  1. Private Sub tmrIDLE_Timer()
  2.     On Error Resume Next
  3.     mlngContar = mlngContar + 1
  4.     If mlngContar = 2 Then
  5.         'Código para hacer ping
  6.         mlngContar = 0
  7.     End If
  8. End Sub
  9.  

Cuando desees comprobar ips conectadas activas el control Timer, por ejemplo
Código: Text
  1. Timer.enabled =true
  2.  
:comp:

231
Visual Basic 6.0 e inferiores / Re: Diferntes Colores En Un Textbox
« en: Jueves 1 de Febrero de 2007, 18:53 »
Te debe servir algo así:

Código: Text
  1.     Dim variable1 As String
  2.     Dim variable2 As String
  3.     Dim variable3 As String
  4.  
  5.     variable1 = "pepe"
  6.     variable2 = "Juan"
  7.     variable3 = "antonio"
  8.    
  9.     RichTextBox1.SelColor = vbRed
  10.     RichTextBox1.SelText = variable1 & " "
  11.     RichTextBox1.SelColor = vbBlack
  12.     RichTextBox1.SelText = variable2 & " "
  13.     RichTextBox1.SelColor = vbRed
  14.     RichTextBox1.SelText = variable3
  15.     RichTextBox1.SelColor = vbBlack
  16.  

 :comp:

232
Visual Basic para principiantes / Re: Alguien Q Me Ayude
« en: Jueves 18 de Enero de 2007, 00:31 »
No te explicas lo suficiente.

Una manera de imprimir un formulario es abrir el VB6, cargar el proyecto que estás elaborando y mostrar el formulario que deseas imprimir, en el menú 'Archivo' del VB busca la opción 'Imprimir' en la ventana que aparece selecciona del cuadro imprimir la opción 'Imagen del formulario' y dale un clic en el botón Aceptar.

Espero esta información te sea útil.

:comp:


233
Visual Basic 6.0 e inferiores / Re: List Box
« en: Miércoles 17 de Enero de 2007, 17:35 »
Utiliza 'Format (Función)' revisa la ayuda de VB, puedes usar algo parecido a esto

Código: Text
  1.     List1.AddItem Format(123.12, "@@@@@@@@@@@@")
  2.     List1.AddItem Format(1234.12, "@@@@@@@@@@@@")
  3.     List1.AddItem Format(12345.12, "@@@@@@@@@@@@")
  4.     List1.AddItem Format(123456.12, "@@@@@@@@@@@@")
  5.  
  6.  
:comp:


234
Visual Basic 6.0 e inferiores / Re: Subir Fotos
« en: Jueves 11 de Enero de 2007, 18:08 »
Revisa esta discusión:

http://foros.solocodigo.com/index.php?show...l=base+de+datos

Hay un archivo adjunto para descargar y que te puede servir.

:comp:

235
Visual Basic 6.0 e inferiores / Re: Abrir Archivo
« en: Sábado 6 de Enero de 2007, 00:55 »
Para que deseas abrir el documento. Deseas abrirlo para verlo en tu aplicación, o deseas que abra word con un documento en blanco para traspasarle datos de tu aplicación o deseas que Word abra un documento existente para mostrarselo al usuario.
Las rutinas difieren según lo que desees.

 :comp:

236
Visual Basic 6.0 e inferiores / Re: Comodines De Busqueda
« en: Sábado 6 de Enero de 2007, 00:44 »
Depende de que sistema de bases de datos usas en DAO el comodín es el signo de muntiplicación * en ADO el comodín es el %

El error pueden ser los espacios que hay después del primer comodín y antes del último comodín, tu escribiste:
Código: Text
  1. "'% " & text1.text & " %' "
  2.  

Trata con esto
Código: Text
  1. "'%" & text1.text & "%' "
  2.  

 :comp:

237
Visual Basic 6.0 e inferiores / Re: Como Ingresar Solamente Comas Y Puntos
« en: Viernes 5 de Enero de 2007, 19:34 »
Este es el código que utilizo.

Código: Text
  1. Private Sub txtStartAge_KeyPress(keyAscii As Integer)
  2.    Dim strTitle As String
  3.    Dim strNum As String
  4.    strNum = ".,0123456789"
  5.    If InStr(strNum, Chr$(keyAscii)) Then
  6.    ElseIf keyAscii = 8 Or keyAscii = 13 Then
  7.    Else
  8.       strTitle = "+ Convención +"
  9.       gstrMsg = "Escriba solo números, puntos y comas."
  10.       MsgBox gstrMsg, vbInformation, strTitle
  11.       keyAscii = 0
  12.    End If
  13. End Sub
  14.  

 :comp:

238
Visual Basic 6.0 e inferiores / Re: 1 != 1 ??
« en: Jueves 4 de Enero de 2007, 21:42 »
Revisa esta rutina casi igual a la que coloque anteriormente y verás que no funciona con variables Double.

Código: Text
  1. Option Explicit
  2.  
  3. Dim Movement As Double
  4. Const Speed As Double = 0.1
  5.  
  6. Private Sub Timer1_Timer()
  7.     If 1 = Int(Movement) Then
  8.        Movement = 0
  9.     Else
  10.         Movement = Movement + Speed
  11.     End If
  12.    
  13.     Debug.Print Movement
  14.    
  15.     If Movement = 0.3 Or Movement = 0.8 Or Movement = 0.9 Then
  16.         Stop
  17.     End If
  18. End Sub
  19.  

Verás que el error que mencionas puede reproducirse con esta rutina, además notarás que tampoco se detiene con los decimales 0.3, 0.8 y 0.9.
Es un error en VB. No sé cual es el motivo, hay que tratar de averiguar que alternativa puede existir.

 :comp:

239
Visual Basic 6.0 e inferiores / Re: Establecer Retorno De Un Ejecutable
« en: Jueves 4 de Enero de 2007, 17:49 »
Te proporciono el enlace donde hay una buena explicación del ShellExecute y los valores devueltos, espero te sirva.

http://www.gamarod.com.ar/trucos/ejecutar_...ando_el_api.asp

 :comp:

240
Visual Basic 6.0 e inferiores / Re: 1 != 1 ??
« en: Jueves 4 de Enero de 2007, 07:59 »
Por favor coloca el código con el que defines las variables. Lo que parece estar fallando es que la expresión int( Movement) no tenga exactamente el valor de 1

El siguiente código si funciona:

Código: Text
  1. Option Explicit
  2.  
  3. Dim Movement As Single
  4. Const Speed As Single = 0.1
  5.  
  6. Private Sub Timer1_Timer()
  7.     If 1 = Int(Movement) Then
  8.         Movement = 0
  9.     Else
  10.         Movement = Movement + Speed
  11.     End If
  12. End Sub
  13.  

241
Visual Basic 6.0 e inferiores / Re: Diferencia Funcion Y Funcion$
« en: Martes 2 de Enero de 2007, 17:32 »
Mid() es para manejar variable tipo variante.
Mid$() maneja como variable de cadena de texto.

Mid$() es una función más rápida que Mid().

Te proporciono un enlace muy bueno donde explican como se optimiza el manejo de las cadenas de texto en VB.

http://www.aivosto.com/vbtips/stringopt.html

 
Feliz año
 :hola:
  :comp:

242
Visual Basic 6.0 e inferiores / Re: Envio De Correos Con Vb6.0
« en: Martes 26 de Diciembre de 2006, 23:30 »
Revisa el siguiente enlace:

http://www.recursosvisualbasic.com.ar/htm/...cx-dll-3.htm#21

Hay una DLL para enviar emails con código fuente para VB. Personalmente no lo he visto, tal vez pueda servirte.

 :comp:

243
Visual Basic 6.0 e inferiores / Re: Valor Inicial De Una Variable En Vb 6.0
« en: Domingo 24 de Diciembre de 2006, 18:11 »
Coloca las variables a inicializar en el evento Form_Initialize. Este evento solo se dispara la primera vez que abres la forma.

 :comp:

244
Bases de Datos / Re: Problemas Para Compilar Access En Vb Fuera De Mipc
« en: Miércoles 6 de Diciembre de 2006, 21:23 »
Revisa la siguiente discusión:

http://foros.solocodigo.com/index.php?show...c=6905&hl=mscal

 :comp:

245
Visual Basic 6.0 e inferiores / Re: Capturar Video (hacer Zapping)
« en: Lunes 4 de Diciembre de 2006, 23:05 »
Este no es un foro para hacer esas preguntas. Pero te adelanto que se requiere un hardware dedicado a sintonización de los canales de televisión y una tarjeta de video común y corriente no puede hacerlo. Busca sintonizadores de TV marca ATI, PixelView,
PINNACLE, Advantek TV Tuner USB 2.0 etc, etc
 
 :comp:

246
Visual Basic 6.0 e inferiores / Re: Sacar El Idioma Del Pc
« en: Sábado 2 de Diciembre de 2006, 00:21 »
Espero te sirva el ejemplo que te adjunto:

 :comp:

247
Visual Basic 6.0 e inferiores / Re: Como Saber Si Existe Un Directorio
« en: Viernes 1 de Diciembre de 2006, 21:47 »
Les comparto el que yo uso.
Código: Text
  1. Public Function DirExists(sDir As String) As Boolean
  2.     If sDir = "" Then
  3.         DirExists = False
  4.     End If
  5.     On Error Resume Next
  6.     DirExists = ((GetAttr(sDir) And vbDirectory) <> 0)
  7. End Function
  8.  
:comp:

248
Visual Basic para principiantes / Re: Valor De Una Funcion
« en: Miércoles 29 de Noviembre de 2006, 22:48 »
Creo que se te olvidó colocar la forma (Frmcolores.frm), solo colocaste el archivo vbp.
 :blink:

249
Visual Basic 6.0 e inferiores / Re: Guardar Textos En Imagenes
« en: Martes 28 de Noviembre de 2006, 15:37 »
Imprime el texto en un PictureBox y luego guardas la imagen.

 :comp:

250
Visual Basic 6.0 e inferiores / Re: Problema Con Richtext Box
« en: Martes 28 de Noviembre de 2006, 05:19 »
En RichTextBox no es fácil, pero encontré la forma que pudieras implementar algo parecido.
Te adjunto un ejemplo del uso de la propiedad RightMargin que puede servirte.

 :comp:

---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.

http://www.igmario.com/index2.html

Páginas: 1 ... 8 9 [10] 11 12 ... 26