Horloge vb

Télécharger le projet
Commenter

Description

C'est une horloge simple qui affiche l'heure que l'on inscrit dans une série de textbox ! Fonctionne en temps réel

Source / Exemple : 


Public angle As Double
Public xa As Double
Public xb As Double
Public ya As Double
Public yb As Double

Public xa1 As Double
Public xb1 As Double
Public ya1 As Double
Public yb1 As Double

Public xa2 As Double
Public xb2 As Double
Public ya2 As Double
Public yb2 As Double

Public rayon As Double
Public rayon1 As Double
Public rayon2 As Double

Public heure As Integer
Public minute As Integer
Public seconde As Integer

Public Function tourne(arotation As Double)
Me.Line (xa, ya)-(xb, yb), vbWhite

rotrad = arotation * (3.141592654 / 180)
xb = xa + (rayon * Cos(rotrad))
yb = ya + (rayon * Sin(rotrad))

Me.Line (xa, ya)-(xb, yb), vbBlack
End Function

Public Function tourne1(arotation1 As Double)
Me.Line (xa1, ya1)-(xb1, yb1), vbWhite

rotrad = arotation1 * (3.141592654 / 180)
xb1 = xa1 + (rayon1 * Cos(rotrad))
yb1 = ya1 + (rayon1 * Sin(rotrad))

Me.Line (xa1, ya1)-(xb1, yb1), vbBlack
End Function

Public Function tourne2(arotation2 As Double)
Me.Line (xa2, ya2)-(xb2, yb2), vbWhite

rotrad = arotation2 * (3.141592654 / 180)
xb2 = xa2 + (rayon2 * Cos(rotrad))
yb2 = ya2 + (rayon2 * Sin(rotrad))

Me.Line (xa2, ya2)-(xb2, yb2), vbBlack
End Function

Private Sub Command1_Click()
If Timer2.Enabled = True Then
Timer2.Enabled = False
Command1.Caption = "START"
Else
Timer2.Enabled = True
Command1.Caption = "STOP"
End If
End Sub

Private Sub Form_Load()

xa = Me.Width / 2
ya = Me.Height / 2
xa1 = xa
ya1 = ya
xa2 = xa
ya2 = ya

rayon = 1500
rayon1 = 1250
rayon2 = 750

seconde = 0
minute = 0
heure = 0
End Sub

Private Sub Text1_Change()
If Text1.Text <> "" Then
seconde = Text1.Text
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> "" Then
minute = Text2.Text
End If
End Sub

Private Sub Text3_Change()
If Text3.Text <> "" Then
heure = Text3.Text
End If
End Sub

Private Sub Timer1_Timer()
Me.Circle (xa, ya), 1300
Me.Circle (xa, ya), 1400
If seconde = 60 Then
seconde = 0
minute = minute + 1
End If
If minute = 60 Then
minute = 0
heure = heure + 1
End If
tourne1 (minute * 6 - 90)
tourne2 (heure * 30 - 90)
tourne (seconde * 6 - 90)
Text1.Text = seconde
Text2.Text = minute
Text3.Text = heure
End Sub

Private Sub Timer2_Timer()
seconde = seconde + 1
End Sub

Conclusion :


Il y a des bugs dans la saisie de l'heure.
Télécharger le projet

Codes Sources

A voir également

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.