Recordatorio de cumpleaños con ventana al estilo skype..

Actualmente existen diversas formas de que te recuerden el cumpleaños de tus amig@s, familiares, compañeros de trabajo, etc, ya sea atrevés de tu correo electrónico, el facebook, u otro programa utilizado.
Pero es muy satisfactorio cuando tenemos la posibilidad de nosotros mismos de diseñar el programa para poder personalizarlo a nuestro gusto.

En esta ocasión les comparto un sencillo programa que realicé en visual basic 6.0 que sirve para recordarnos cuando alguien esté de beneplacitos. Lo bonito del programa es que al ejecutarse no es visible en pantalla, solo al momento de que coincida la fecha actual con la fecha de cumpleaños de la persona que se encuentre guardada en un archivo de texto que usa el programa, y se mostrará al estilo de la antigua ventana de notificación del desaparecido messenger, ahora Skype, y emitirá un sonido caracteristico.

La imagen muestra un ejemplo del programa cuando se muestra al coincidir la fecha.

Para que el programa se ejecute diariamente, deben agregarlo a las tareas programadas de windows y configurar dicha tarea para que se ejecute a determinada hora del día o cuando se inicie sesión en windows.


El código del programa que ejecuta la comparación de fechas es el siguiente:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1 ' reproducción asíncrona
Dim hoy As Date
Dim hora As Date

Dim sHoy As String
Dim sFecha As String
Dim sHora As String
Dim sString As String

Dim contador As Integer

Private Sub cargar()
'Esto es lo que muestra el formulario como el msn
    Call SlideForm(frmReminder, MOSTRAR, 200, 5)
   
    Call Redondear_Formulario(Me, 33)
   
    snd = sndPlaySound(App.Path & "\reminder.wav", SND_ASYNC)

End Sub


Private Sub Form_Load()

hoy = Format(Now, "dd/mm")

sHoy = Left(hoy, 5)


Open App.Path & "\lista.txt" For Input As #1

    While Not EOF(1) 'haga hasta leer la última línea
   
         Input #1, sFecha, aString 'variables de cada línea
                       
         If sHoy = sFecha Then   'si coinciden las fechas
        
             cadena = cadena & vbCrLf & aString
          
              Me.lblMensaje = "Hoy cumple:"
                                   
              Me.lblNombre = cadena
             
              contador = contador + 1
             
              If contador <> 0 Then
           
                  Call cargar   'Muestre la ventanita
            End If
           
                 
             
        End If
       
    Wend
   
Close #1
End Sub


Private Sub imgCerrar_Click()

Call SlideForm(frmReminder, ocultar, 200, 85)

End Sub



El código que permite que se muestre la ventana al estilo de notificación y con los bordes redondeados es un poco extenso, por tal razón no lo mostraré aca pero les dejo un link para que puedan descargarlo, estudiarlo y realizarles las modificaciones que ustedes prefieran.

El programa viene anexo con un archivo de texto en el cual deben colocar la fecha de cumpleaños de la persona, asi como su nombre.

Si la persona cumple el 23 de abril y se llama Shakira Meberack, deben colocar una cone l siguiente formato:

23/04,Shakira Mebarack

Descargar programa reminder



No olviden comentar. Hasta la proxima.