Reminder : programme de rappel

Soyez le premier à donner votre avis sur cette source.

Vue 7 760 fois - Téléchargée 651 fois

Description

Un autre petit code sans pretentions, qui affiche une msgbox et joue un ptit son genre sonnerie de vieux telephone, vous rappellant les evenements importants que vous aurez programmes.
il ajoute une cle dans le registre pour se lancer au demarage de windows (n'utilise que peu de ressources processeur), verifie toutes les 10 secondes s'il ne faut pas afficher un message.

pour programmer un evenement ajoutez une ligne dans le fichier DATA.ini comme suit :
jj/mm/aaaa hh:mm texte
il affichera une msgbox le jour jj, au moi mm, l'annee aaaa, a l'heure hh:mm
les jj, mm, et aaaa peuvent etre remplacer par des x pour un lancement recursifs (tous les jours, tous les mois, tout les ans etc..)

bug : lorsque la ligne est imcomplete ou mal completee, par exemple si le jour n'est ecrit que sur 1 caractere.

@++

Source / Exemple :


Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub timer1_timer()
'Declaration des variables
Dim file As String, disclaimer As String 'les chemins d'acces aux fichiers
Dim ligne As String, hCour As String, aCour As String, mCour As String, jCour As String, a As String, m As String, j As String, h As String, texte As String

'definition des chemins d'acces
disclaimer = App.Path & "\disclaimer.wav"
file = App.Path & "\Data.ini"

Open file For Input As #1
'parcours du fichier en verifiant les lignes une par une
While Not (EOF(1))
    'definition des variables locales
    hCour = Mid(Time, 1, 5)
    jCour = Mid(Date, 1, 2)
    mCour = Mid(Date, 4, 2)
    aCour = Mid(Date, 7, 4)
    'lecture de la ligne courante du fichier
    Line Input #1, ligne
    j = Mid(ligne, 1, 2)
    m = Mid(ligne, 4, 2)
    a = Mid(ligne, 7, 4)
    h = Mid(ligne, 12, 5)
    texte = Mid(ligne, 17)
    
    If h = hCour And (a = aCour Or a = "xxxx") And (m = mCour Or m = "xx") And (j = jCour Or j = "xx") Then
        PlaySound disclaimer, 0, 0
        MsgBox texte, Title:="Rappel :"
    End If
    
Wend
Close #1
End Sub

Private Sub Form_Load()

'creation de la cle de registre pour le lancement au demarage
Dim WshShell As Variant
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Reminder.exe", App.Path & "\" & App.EXEName & ".exe"

App.TaskVisible = False 'fait en sorte que le programme n'apparaisse pas dans le gestionnaire des taches
Form1.Visible = False
'configuration du timer
Timer1.Interval = 10000
Timer1.Enabled = True

End Sub

Conclusion :


bug : lorsque la ligne est imcomplete ou mal completee, par exemple si le jour n'est ecrit que sur 1 caractere.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Delta_Danger)