Horloge numérique cool

Soyez le premier à donner votre avis sur cette source.

Vue 4 489 fois - Téléchargée 491 fois

Description

Ce petit demo permet d'afficher l'heure sur une feuille, mais avec effet de mirroir ou ..., vous allez voir. tout est dans le zip.

J'ai pas vu pareil sur vbfrance, je l'avais fait il y a plus de deux ans, et je l'ai retrouvé sur un de mes cds.

Zip = 3 Ko.

Contrôles : Deux boutons de commande, deux Timers et deux PictureBoxs font l'affaire.

Source / Exemple :


'Ce petit prog permer d'afficher l'heure en numérique sur votre feuille.
'il peut être inséré dans une appli plus grande.

'il ne prends pas beaucoup d'aspace.
'à vous de me donner votre avis.

'email : amajbour@hotmail.com
'déposé sur vbfrance le 13 Octobre 2003
'pour débutant(et -pourquoi pas- :pour les autres)

Private Sub cmdClose_Click()
    'Quitter le demo
    End
End Sub
Private Sub cmdShow_Click()
    'Teste pour l'affichage :

    'Si l'affichage est 'Inversion',
    If cmdShow.Caption = "&Effet de Mirroir" Then
    'On affiche l'affichage mirroire
        Call ShowEffect("Mirror")
    'et on change la caption du bouton d'affichage
        cmdShow.Caption = "&Inversion"
    Else
    'Sinon :
    'On affiche l'affichage mirroire
        Call ShowEffect("Invert")
    'et on change la caption du bouton d'affichage
        cmdShow.Caption = "&Effet de Mirroir"
    End If
End Sub
Private Sub Form_Load()
    'Définir l'Interval des Timer (temps de répitition)
    'ici : 1000 ==> une fois par seconde
    Timer1.Interval = 1000
    Timer2.Interval = 1000

    'Définition de la lagreur de la feuille
    Width = 3150

    'Définition de la hauteur de la feuille
    Height = 1990

    'Définition de la couleur de l'arrière plan
    BackColor = vbBlack
End Sub
Private Sub Picture1_GotFocus()
    'Envoyer le focus vers le bouton de fermeture
    'sur réception de ce premier
    cmdShow.SetFocus
End Sub
Private Sub Picture2_GotFocus()
    'Envoyer le focus vers le bouton de fermeture
    'sur réception de ce premier
    cmdShow.SetFocus
End Sub
Private Sub Timer1_Timer()
    'Efaccer l'affichage précedent pour pouvoir afficher le suivant
    Picture1.Cls
    Picture2.Cls

    'Ecriture de l'heure dans le premier PictureBox 'Picrture1' avec la méthode PaintPicture
    Picture1.Print Format(Time, "hh:mm:ss AM/PM")

    'Copie du contenu de 'Picture1' dans 'Picture2' avec Inversion avec la méthode PaintPicture
    Picture2.PaintPicture Picture1.Image, Picture2.Width - 460, 0, -Picture2.Width, Picture2.Height
End Sub
Private Sub Timer2_Timer()
    'Efaccer l'affichage précedent pour pouvoir afficher le suivant
    Picture1.Cls
    Picture2.Cls

    'Ecriture de l'heure dans le premier PictureBox 'Picrture1' avec la méthode PaintPicture
    Picture1.Print Format(Time, "hh:mm:ss AM/PM")

    'Copie du contenu de 'Picture1' dans 'Picture2' avec Effet de mirroir avec la méthode PaintPicture
    Picture2.PaintPicture Picture1.Image, 0, Picture2.Height, Picture2.Width, -Picture2.Height
End Sub
Public Static Function ShowEffect(ByVal Effect As String)
    If Effect = "Mirror" Then
        'Désactivation du Timer 1 (chargé de l'effet Inversion)
        Timer1.Enabled = False
        
        'Execution du timer 2 avant son activation
        Timer2_Timer 'Pour ne pas avoir à attendre une seconde avant l'affichage
        
        'Activation du Timer 2 (chargé de l'effet Inversion)
        Timer2.Enabled = True
    Else
        'Execution du timer 1 avant son activation
        Timer1_Timer 'Pour ne pas avoir à attendre une seconde avant l'affichage

        'Activation du Timer 1 (chargé de l'effet Inversion)
        Timer1.Enabled = True
        
        'Désactivation du Timer 2 (chargé de l'effet Mirroire)
        Timer2.Enabled = False
    End If
End Function

Conclusion :


Je ne vois pas de bug, ça n'utilise ni Dll ni API, ni rien du tout d'ailleur.

même pas beaucoup d'espace mémoire.

sinon, contactez moi.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
42
Date d'inscription
jeudi 27 février 2003
Statut
Membre
Dernière intervention
1 décembre 2003

je t'en prie patemino.
Messages postés
80
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
22 mars 2007

C'est marrant ca cool comme tu dit !
Merci

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.