1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Date & Heure
  5. Affiche l'heure, le nom du jour et la date

Affiche l'heure, le nom du jour et la date

Soyez le premier à donner votre avis sur cette source.

Vue 7 530 fois - Téléchargée 602 fois

Télécharger le projet
Commenter

Description

Ce programme permet de vous donnez le nom du jour, la date et l'heure en temp réél en + si vous voulez qu'il demare automatiquement quand vous alumez votre ordi il sufi de le metre dans: menu démmarre\programes\démarrage

Source / Exemple : 


Option Explicit
Private Sub Form_load()
Me.Width = 3435
l1.Caption = Weekday(Date, vbMonday)
If l1.Caption = "1" Then l1.Caption = "Lundi"
If l1.Caption = "2" Then l1.Caption = "Mardi"
If l1.Caption = "3" Then l1.Caption = "Mercredi"
If l1.Caption = "4" Then l1.Caption = "Jeudi"
If l1.Caption = "5" Then l1.Caption = "Vendredi"
If l1.Caption = "6" Then l1.Caption = "Samedi"
If l1.Caption = "7" Then l1.Caption = "Dimanche"
Label3.Caption = Date
Label4.Caption = Time
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label4.Caption = Time
Timer1.Enabled = False
Timer1.Enabled = True
End Sub

Conclusion :


Pour ce code si vous telechargez pas le zip, il vous faut :
4 label
1 timer
c tout !
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
bobo_le_ouf
2 août 2001 à 19:25
tu devrai arranger (metre label1 au lieu de l1)le code paske y en a ki von pas comprendre... en + tu prévien pas...
jp50
2 août 2001 à 21:46
Tu n'a pas besoin de mettre
Timer1.Enabled = False
Timer1.Enabled = True
CoBRa
2 août 2001 à 23:30
Wai c po mal ;)
Nox
2 août 2001 à 23:54
facile... mais bien!

bonne prog!
olilefou
3 août 2001 à 11:01
la fonction WeekdayName t'arangerait bien...

Private Sub Form_load()
Me.Width = 3435
l1.Caption = WeekdayName(Weekday(Date, vbMonday), False, vbMonday)
Label3.Caption = Date
Label4.Caption = Time
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Date
Label4.Caption = Time
End Sub
S'inscrire maintenant

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 (OverDarck)