Soyez le premier à donner votre avis sur cette source.
Vue 17 419 fois - Téléchargée 1 058 fois
Public Function DessineHorloge(heure As Byte, minute As Byte, seconde As Byte, _ lPictureBox As PictureBox) On Error Resume Next Dim HX As Long, HY As Long, i As Long, tempVar As Long Dim CentreX As Long, CentreY As Long CentreX = lPictureBox.ScaleWidth / 2 CentreY = lPictureBox.ScaleHeight / 2 With lPictureBox .Cls For i = 1 To 12 HX = Int((CentreY - 40) * Cos((((i * 30) - 90) / 180) * 3.141592654)) HY = Int((CentreY - 40) * Sin((((i * 30) - 90) / 180) * 3.141592654)) .CurrentX = HX + CentreX - .TextWidth(i) .CurrentY = HY + CentreY - (.TextHeight(i) / 2) .DrawWidth = 10 lPictureBox.Print i Next i lPictureBox.Circle (CentreX, CentreY), (CentreY - .DrawWidth) .DrawWidth = 1 End With 'Les minutes tempVar = ((heure + (minute / 60)) * 30) HX = Int((CentreY - 70) * Cos(((tempVar - 90) / 180) * 3.141592654)) HY = Int((CentreY - 70) * Sin(((tempVar - 90) / 180) * 3.141592654)) lPictureBox.Line (CentreX, CentreY)-(CentreX + HX, CentreY + HY), vbBlack 'Les minutes tempVar = ((minute + (seconde / 60)) * 6) HX = Int((CentreY - 60) * Cos(((tempVar - 90) / 180) * 3.141592654)) HY = Int((CentreY - 60) * Sin(((tempVar - 90) / 180) * 3.141592654)) lPictureBox.Line (CentreX, CentreY)-(CentreX + HX, CentreY + HY), vbBlack 'Les secondes tempVar = (seconde * 6) HX = Int((CentreY - 50) * Cos(((tempVar - 90) / 180) * 3.141592654)) HY = Int((CentreY - 50) * Sin(((tempVar - 90) / 180) * 3.141592654)) lPictureBox.Line (CentreX, CentreY)-(CentreX + HX, CentreY + HY), vbRed End Function
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.