PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

Horloge 4 cadrans

http://forums.purebasic.com/french/viewtopic.php?t=16185

Page 1 sur 2

Horloge 4 cadrans

Publié : lun. 18/juil./2016 7:14
par Micoute
Bonjour à tous, comme promis, je poste un programme que j'avais déjà fais, mais que j'ai repris pour l'améliorer, toutes les aiguilles dans le même centre, je ne trouvais pas trop joli, j'ai commenté les lignes ayant trait au son, car chez moi, elle fait tic-tac, parce que je n'ai pas joint le fichier .wav.

Vous avez du remarqué que je fais souvent des calendriers et des horloges, mais c'est parce le temps qui passe, ça me passionne.

Code : Tout sélectionner

EnableExplicit

Enumeration
  #Fenetre_principale
EndEnumeration

Enumeration 
  #Trotteuse
  #GrandeAiguille
  #PetiteAiguille
  #Spr_Jour_Sem
  #Spr_Jour_Mois
  #Spr_H24
  #Fond
  #Son
EndEnumeration

Enumeration Font
  #FontHeure
  #FontMinute
  #FontHeureGrasse
EndEnumeration

Define.l Evenement, EvenementGadget

Global StyleFen.i=#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered
Global Image.i
Global XC, YC, XCJ, YCJ, XCD, YCD, XCH, YCH, Rayon ;Coordonnées et rayon du point central du cercle
Global X.f, Y.f            ;Coordonnées des points sur le cercle 
Global N.i, Nj.f, xsec.s, xmin.s, xheure.s, xjour.s, s, m, h, j, jm, TailleImage = 1000, Texte.s, Jour.s, Digit, Tampon.s , h24

;Global PreviousTime, Time 


;Coordonnées et rayon du point central du cercle
XC  = 400:YC  = 400
XCJ = 200:YCJ = 300 ;jours semaine
XCD = 600:YCD = 300 ;jours mois
XCH = 400:YCH = 600 ;cadran 24 heures

If Not (InitSprite() And InitSound() And InitKeyboard()) 
  End
EndIf

OpenWindow(#Fenetre_principale, 0, 0, TailleImage, TailleImage, "Horloge calendrier", StyleFen)
If OpenWindowedScreen(WindowID(#Fenetre_principale), 0, 0, TailleImage, TailleImage, 1, 0, 0)
  
;  CatchSound(#son, ?Son)
;  SoundVolume(#son, 10)
  
  CreateSprite(#Spr_Jour_Sem, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Spr_Jour_Mois, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Spr_H24, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Trotteuse, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#GrandeAiguille, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#PetiteAiguille, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Fond, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  
  LoadFont(#FontHeure, "Arial", 30, #PB_Font_Bold)
  LoadFont(#FontMinute, "Arial", 15)
  LoadFont(#FontHeureGrasse, "Arial", 40, #PB_Font_Bold)
  
  If StartDrawing(SpriteOutput(#Spr_Jour_Sem)) ;-sprite des jours de semaine
    
    LineXY(398, 400, 398, 305, $353535)
    LineXY(399, 400, 399, 300, $353535)
    LineXY(400, 400, 400, 295, $353535)
    LineXY(401, 400, 401, 300, $353535)
    LineXY(402, 400, 402, 305, $353535)
    
    Circle(400, 400, 15, $353535)
    StopDrawing()
    
  EndIf
  
  If StartDrawing(SpriteOutput(#Spr_Jour_Mois)) ;-sprite des jours du mois
    
    LineXY(398, 400, 398, 305, $353535)
    LineXY(399, 400, 399, 300, $353535)
    LineXY(400, 400, 400, 295, $353535)
    LineXY(401, 400, 401, 300, $353535)
    LineXY(402, 400, 402, 305, $353535)
    
    Circle(400, 400, 15, $353535) ;Centre
    
    StopDrawing()
  EndIf
  
  If StartDrawing(SpriteOutput(#Spr_H24)) ;-sprite du cadran 24 heures
    
    LineXY(398, 400, 398, 305, $353535)
    LineXY(399, 400, 399, 300, $353535)
    LineXY(400, 400, 400, 295, $353535)
    LineXY(401, 400, 401, 300, $353535)
    LineXY(402, 400, 402, 305, $353535)
    
    Circle(400, 400, 15, $353535)
    
    StopDrawing()
  EndIf  
  
  If StartDrawing(SpriteOutput(#Trotteuse)) ;-sprite de la trotteuse
    LineXY(398, 550, 398, 65, $2323C8)
    LineXY(399, 550, 399, 60, $2323C8)
    LineXY(400, 550, 400, 55, $2323C8)
    LineXY(401, 550, 401, 60, $2323C8)
    LineXY(402, 550, 402, 65, $2323C8)
    
    Circle(400, 530, 10, $2323C8) ; la
    Circle(400, 535,  9, $2323C8) ; queue
    Circle(400, 540,  8, $2323C8) ; de
    Circle(400, 545,  7, $2323C8) ; la
    Circle(400, 550,  6, $2323C8) ; trotteuse
    Circle(400, 400, 15, $2323C8) ;le centre de la trotteuse
    
    Circle(400, 400, 25, $2323C8)
    StopDrawing()
  EndIf
  
  If StartDrawing(SpriteOutput(#GrandeAiguille)) ;-sprite de la grande aiguille
    LineXY(390, 400, 390,  20, $1)
    LineXY(390,  20, 400,  12, $1) ;\
    LineXY(400,  12, 410,  20, $1) ;/
    LineXY(410,  20, 410, 400, $1)
    LineXY(410, 400, 390, 400, $1)
    FillArea(400, 300, $1, $1)
    Circle(400, 400, 10, $1)
    StopDrawing()
  EndIf
  
  If StartDrawing(SpriteOutput(#PetiteAiguille)) ;-sprite petite aiguille
    
    LineXY(390, 160, 390, 410, $1)
    LineXY(390, 160, 400, 145, $1) ;pointe \
    LineXY(400, 145, 410, 160, $1) ;pointe /
    LineXY(410, 160, 410, 410, $1)
    LineXY(390, 410, 410, 410, $1)
    FillArea(400, 300, $1, $1)
    StopDrawing()
  EndIf
  
  
  If StartDrawing(SpriteOutput(#Fond)) ;- fond
    
    Circle(400, 400, 800, $404040) ;Couleur de fond de l'image
                                   ;Point central
    Circle(400, 400, 400, $AA4E30) ;contour horloge
    
    
    Circle(XCH, YCH, 110, $80DD80) ;cadran 24 heures
    
    ;-Les secondes (0 à 59)
    Rayon = 350
    For N = 0 To 364 Step 6
      X = XC + Rayon * Cos(N * #PI / 180)
      Y = YC + Rayon * Sin(N * #PI / 180)
      Circle(X,Y,3, $97FB98)
    Next
    
    ;-Les jours de semaine (lundi à dimanche)
    Circle(XCJ, YCJ, 110, $80DD80) ;contour semainier
    DrawText(390-XCJ,290-100, "Dim",255, $80DD80)
    DrawRotatedText(475-XCJ,320-100, "Lun",311,1)
    DrawRotatedText(485-XCJ,430-100, "Mar",87,1)
    DrawRotatedText(425-XCJ,485-100, "Mer",25,1)
    DrawRotatedText(350-XCJ,475-100, "Jeu",335,1)
    DrawRotatedText(310-XCJ,407-100, "Ven",290,1)
    DrawRotatedText(300-XCJ,350-100, "Sam",60,1)
    
    ;-Les Chiffres des jours (1 à 31)
    
    Circle(XCD, YCD, 110, $80DD80)
    
    Digit=0
    Rayon = 100
    Nj.f = 0
    While Nj < 360
      
      Digit+1
      
      X = XCD + Rayon * Cos(Nj * #PI / 180)
      Y = YCD + Rayon * Sin(Nj * #PI / 180)
      Tampon=Str(Digit)
      
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, $1)
      DrawingMode(#PB_2DDrawing_Default)
      Nj + 11.613
    Wend
    
    ;-Les Chiffres des heures (1 à 12)
    Digit=2
    Rayon = 270
    DrawingFont(FontID(#FontHeure))        
    For N = 0 To 345 Step 30
      Digit+1
      If Digit>12
        Digit = Mod(12,4) + 1
      EndIf
      
      X = XC + Rayon * Cos(N * #PI / 180)
      Y = YC + Rayon * Sin(N * #PI / 180)
      Tampon=Str(Digit)
      
      DrawingMode(#PB_2DDrawing_Transparent)
      If Digit % 3 <> 0
        DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, RGB(255, 255, 255))
      ElseIf Digit % 3 = 0
        DrawingFont(FontID(#FontHeureGrasse))
        DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, RGB(255, 255, 255))
        DrawingFont(FontID(#FontHeure))
      EndIf
      DrawingMode(#PB_2DDrawing_Default)
    Next
    
    ;-Les Chiffres du petit cadran (1 à 24)
    Digit=5
    Rayon = 100
    DrawingFont(FontID(#FontMinute))        
    For N = 0 To 360 Step 15
      Digit+1
      If Digit>23
        Digit = 0
      EndIf
      
      X = XCH + Rayon * Cos(N * #PI / 180)
      Y = YCH + Rayon * Sin(N * #PI / 180)
      Tampon=Str(Digit)
      
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, 0)
      DrawingMode(#PB_2DDrawing_Default)
    Next
    
    ;-Les Chiffres des minutes (0 à 59)
    Digit=15
    Rayon = 390
    DrawingFont(FontID(#FontMinute))
    For N = 0 To 359 Step 6
      Digit+1
      If Digit>60
        Digit = 1
      EndIf
      
      X = XC + Rayon * Cos(N * #PI / 180)
      Y = YC + Rayon * Sin(N * #PI / 180)
      Tampon=Str(Digit-1)
      
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, RGB(255, 255, 255))
      DrawingMode(#PB_2DDrawing_Default)
    Next
    
    StopDrawing()
  EndIf
EndIf

Repeat ;Evemement 2D
  
  ; Libération de la file d'attente de la fenetre
  Repeat 
    Evenement = WindowEvent()
    
    Select Evenement    
      Case #PB_Event_CloseWindow
        End
    EndSelect  
  Until Evenement=0 
  
  ;Deroulement 2D
  ClearScreen(RGB(0, 0, 0))
  xsec.s = FormatDate("%ss", Date())
  xmin.s = FormatDate("%ii", Date())
  xheure.s = FormatDate("%hh", Date())
  
  xjour.s = FormatDate("%dd", Date())
  jm = (Val(xjour)-1)*11.613
  
  If Val(xheure) > 11
    xheure = Str(Val(xheure)-12)
  EndIf
  
  s = Val(xsec) * 6
  m = (Val(xmin) * 60 + Val(xsec)) / 10
  h = (Val(xheure) * 60 + Val(xmin)) / 2
  j = DayOfWeek(Date()) * (360 / 7)
  h24 = (Val(xheure) * 60 + Val(xmin)) / 4 ; système 24 h
  
  ZoomSprite(#Trotteuse, TailleImage, TailleImage)
  ZoomSprite(#GrandeAiguille, TailleImage, TailleImage)
  ZoomSprite(#PetiteAiguille, TailleImage, TailleImage)
  ZoomSprite(#Spr_Jour_Sem, TailleImage, TailleImage)
  ZoomSprite(#Spr_Jour_Mois, TailleImage, TailleImage)
  ZoomSprite(#Fond, TailleImage, TailleImage)
  
  RotateSprite(#Trotteuse, s, #PB_Absolute)
  RotateSprite(#GrandeAiguille, m, #PB_Absolute)
  RotateSprite(#PetiteAiguille, h, #PB_Absolute)
  RotateSprite(#Spr_Jour_Sem, j, #PB_Absolute)
  RotateSprite(#Spr_Jour_Mois, jm+90, #PB_Absolute)
  Select Hour(Date())
      Case  0 To 11
    RotateSprite(#Spr_H24, h24, #PB_Absolute)
  Case 12 To 23
    RotateSprite(#Spr_H24, h24-180, #PB_Absolute)
  EndSelect  
  Debug Hour(Date())
  
  DisplayTransparentSprite(#Fond, 0, 0, 255)
  DisplayTransparentSprite(#Spr_Jour_Sem, -250, -120, 255)
  DisplayTransparentSprite(#Spr_Jour_Mois, 250, -125, 255)
  DisplayTransparentSprite(#Spr_H24, 100, 350, 255)
  DisplayTransparentSprite(#PetiteAiguille, 0, 0, 255)
  DisplayTransparentSprite(#GrandeAiguille, 0, 0, 255)
  DisplayTransparentSprite(#Trotteuse, 0, 0, 255)
  
  
;  Time = s
  
;  If Time - PreviousTime > 0 Or Time - PreviousTime < 0
;    PreviousTime = s
;    PlaySound(#son)
;  EndIf
  
  If ExamineKeyboard()
    If KeyboardReleased(#PB_Key_Escape)
      End
    EndIf
  EndIf
  
  FlipBuffers()
ForEver

;DataSection
;  Son:
;  IncludeBinary #PB_Compiler_FilePath + "\Data\Tic.Wav"
;  FinSon:
;EndDataSection
; IDE Options = PureBasic 5.50 beta 2 (Windows - x86)
; EnableThread
; EnableXP
; UseIcon = ..\..\Gfx\icones\Chrono.ico
; Executable = ..\..\..\Compil\Horloge Calendrier complete.exe
; EnableUnicode

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 9:30
par Ar-S
Super que tu reprennes les codes :P
J'ai fait une petite modif' perso ou j'ai réuni les sec et les cercles. J'ai aussi écarté les chiffres heures pour ne pas trop qu'ils chevauchent les autres cadrans.

Code : Tout sélectionner

EnableExplicit

Enumeration
  #Fenetre_principale
EndEnumeration

Enumeration
  #Trotteuse
  #GrandeAiguille
  #PetiteAiguille
  #Spr_Jour_Sem
  #Spr_Jour_Mois
  #Spr_H24
  #Fond
  #Son
EndEnumeration

Enumeration Font
  #FontHeure
  #FontMinute
  #FontHeureGrasse
EndEnumeration

Define.l Evenement, EvenementGadget

Global StyleFen.i=#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered
Global Image.i
Global XC, YC, XCJ, YCJ, XCD, YCD, XCH, YCH, Rayon ;Coordonnées et rayon du point central du cercle
Global X.f, Y.f            ;Coordonnées des points sur le cercle
Global N.i, Nj.f, xsec.s, xmin.s, xheure.s, xjour.s, s, m, h, j, jm, TailleImage = 1000, Texte.s, Jour.s, Digit, Tampon.s , h24

;Global PreviousTime, Time


;Coordonnées et rayon du point central du cercle
XC  = 400:YC  = 400
XCJ = 200:YCJ = 300 ;jours semaine
XCD = 600:YCD = 300 ;jours mois
XCH = 400:YCH = 600 ;cadran 24 heures

If Not (InitSprite() And InitSound() And InitKeyboard())
  End
EndIf

OpenWindow(#Fenetre_principale, 0, 0, TailleImage, TailleImage, "Horloge calendrier", StyleFen)
If OpenWindowedScreen(WindowID(#Fenetre_principale), 0, 0, TailleImage, TailleImage, 1, 0, 0)
 
;  CatchSound(#son, ?Son)
;  SoundVolume(#son, 10)
 
  CreateSprite(#Spr_Jour_Sem, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Spr_Jour_Mois, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Spr_H24, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Trotteuse, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#GrandeAiguille, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#PetiteAiguille, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
  CreateSprite(#Fond, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
 
  LoadFont(#FontHeure, "Arial", 25, #PB_Font_Bold)
  LoadFont(#FontMinute, "Arial", 10)
  LoadFont(#FontHeureGrasse, "Arial", 40, #PB_Font_Bold)
 
  If StartDrawing(SpriteOutput(#Spr_Jour_Sem)) ;-sprite des jours de semaine
   
    LineXY(398, 400, 398, 305, $353535)
    LineXY(399, 400, 399, 300, $353535)
    LineXY(400, 400, 400, 295, $353535)
    LineXY(401, 400, 401, 300, $353535)
    LineXY(402, 400, 402, 305, $353535)
   
    Circle(400, 400, 15, $353535)
    StopDrawing()
   
  EndIf
 
  If StartDrawing(SpriteOutput(#Spr_Jour_Mois)) ;-sprite des jours du mois
   
    LineXY(398, 400, 398, 305, $353535)
    LineXY(399, 400, 399, 300, $353535)
    LineXY(400, 400, 400, 295, $353535)
    LineXY(401, 400, 401, 300, $353535)
    LineXY(402, 400, 402, 305, $353535)
   
    Circle(400, 400, 15, $353535) ;Centre
   
    StopDrawing()
  EndIf
 
  If StartDrawing(SpriteOutput(#Spr_H24)) ;-sprite du cadran 24 heures
   
    LineXY(398, 400, 398, 305, $353535)
    LineXY(399, 400, 399, 300, $353535)
    LineXY(400, 400, 400, 295, $353535)
    LineXY(401, 400, 401, 300, $353535)
    LineXY(402, 400, 402, 305, $353535)
   
    Circle(400, 400, 15, $353535)
   
    StopDrawing()
  EndIf 
 
  If StartDrawing(SpriteOutput(#Trotteuse)) ;-sprite de la trotteuse
    LineXY(398, 550, 398, 65, $2323C8)
    LineXY(399, 550, 399, 60, $2323C8)
    LineXY(400, 550, 400, 55, $2323C8)
    LineXY(401, 550, 401, 60, $2323C8)
    LineXY(402, 550, 402, 65, $2323C8)
   
    Circle(400, 530, 10, $2323C8) ; la
    Circle(400, 535,  9, $2323C8) ; queue
    Circle(400, 540,  8, $2323C8) ; de
    Circle(400, 545,  7, $2323C8) ; la
    Circle(400, 550,  6, $2323C8) ; trotteuse
    Circle(400, 400, 15, $1313b8) ;le centre de la trotteuse
   
    Circle(400, 400, 25, $2323C8)
    StopDrawing()
  EndIf
 
  If StartDrawing(SpriteOutput(#GrandeAiguille)) ;-sprite de la grande aiguille
    LineXY(390, 400, 390,  20, $1)
    LineXY(390,  20, 400,  12, $1) ;\
    LineXY(400,  12, 410,  20, $1) ;/
    LineXY(410,  20, 410, 400, $1)
    LineXY(410, 400, 390, 400, $1)
    FillArea(400, 300, $1, $1)
    Circle(400, 400, 10, $1)
    StopDrawing()
  EndIf
 
  If StartDrawing(SpriteOutput(#PetiteAiguille)) ;-sprite petite aiguille
   
    LineXY(390, 160, 390, 410, $1)
    LineXY(390, 160, 400, 145, $1) ;pointe \
    LineXY(400, 145, 410, 160, $1) ;pointe /
    LineXY(410, 160, 410, 410, $1)
    LineXY(390, 410, 410, 410, $1)
    FillArea(400, 300, $1, $1)
    StopDrawing()
  EndIf
 
 
  If StartDrawing(SpriteOutput(#Fond)) ;- fond
   
    Circle(400, 400, 800, $404040) ;Couleur de fond de l'image
                                   ;Point central
    Circle(400, 400, 400, $AA4E30) ;contour horloge
   
   
    Circle(XCH, YCH, 110, $80DD80) ;cadran 24 heures
   
    ;-Les secondes (0 à 59)
    Rayon = 390
    For N = 0 To 364 Step 6
      X = XC + Rayon * Cos(N * #PI / 180)
      Y = YC + Rayon * Sin(N * #PI / 180)
      Circle(X,Y,10, $97FB98)
    Next
   
    ;-Les jours de semaine (lundi à dimanche)
    Circle(XCJ, YCJ, 110, $80DD80) ;contour semainier
    DrawText(390-XCJ,290-100, "Dim",255, $80DD80)
    DrawRotatedText(475-XCJ,320-100, "Lun",311,1)
    DrawRotatedText(485-XCJ,430-100, "Mar",87,1)
    DrawRotatedText(425-XCJ,485-100, "Mer",25,1)
    DrawRotatedText(350-XCJ,475-100, "Jeu",335,1)
    DrawRotatedText(310-XCJ,407-100, "Ven",290,1)
    DrawRotatedText(300-XCJ,350-100, "Sam",60,1)
   
    ;-Les Chiffres des jours (1 à 31)
   
    Circle(XCD, YCD, 110, $80DD80)
   
    Digit=0
    Rayon = 100
    Nj.f = 0
    While Nj < 360
     
      Digit+1
     
      X = XCD + Rayon * Cos(Nj * #PI / 180)
      Y = YCD + Rayon * Sin(Nj * #PI / 180)
      Tampon=Str(Digit)
     
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, $1)
      DrawingMode(#PB_2DDrawing_Default)
      Nj + 11.613
    Wend
   
    ;-Les Chiffres des heures (1 à 12)
    Digit=2
    Rayon = 350
    DrawingFont(FontID(#FontHeure))       
    For N = 0 To 345 Step 30
      Digit+1
      If Digit>12
        Digit = Mod(12,4) + 1
      EndIf
     
      X = XC + Rayon * Cos(N * #PI / 180)
      Y = YC + Rayon * Sin(N * #PI / 180)
      Tampon=Str(Digit)
     
      DrawingMode(#PB_2DDrawing_Transparent)
      If Digit % 3 <> 0
        DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, RGB(255, 255, 255))
      ElseIf Digit % 3 = 0
        DrawingFont(FontID(#FontHeureGrasse))
        DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, RGB(255, 255, 255))
        DrawingFont(FontID(#FontHeure))
      EndIf
      DrawingMode(#PB_2DDrawing_Default)
    Next
   
    ;-Les Chiffres du petit cadran (1 à 24)
    Digit=5
    Rayon = 100
    DrawingFont(FontID(#FontMinute))       
    For N = 0 To 360 Step 15
      Digit+1
      If Digit>23
        Digit = 0
      EndIf
     
      X = XCH + Rayon * Cos(N * #PI / 180)
      Y = YCH + Rayon * Sin(N * #PI / 180)
      Tampon=Str(Digit)
     
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, $0)
      DrawingMode(#PB_2DDrawing_Default)
    Next
   
    ;-Les Chiffres des minutes (0 à 59)
    Digit=15
    Rayon = 390
    DrawingFont(FontID(#FontMinute))
    For N = 0 To 359 Step 6
      Digit+1
      If Digit>60
        Digit = 1
      EndIf
     
      X = XC + Rayon * Cos(N * #PI / 180)
      Y = YC + Rayon * Sin(N * #PI / 180)
      Tampon=Str(Digit-1)
     
      DrawingMode(#PB_2DDrawing_Transparent)
      DrawText(X-TextWidth(Tampon)/2, Y-TextHeight(Tampon)/2, Tampon, $0);RGB(255, 255, 255))
      DrawingMode(#PB_2DDrawing_Default)
    Next
   
    StopDrawing()
  EndIf
EndIf

Repeat ;Evemement 2D
 
  ; Libération de la file d'attente de la fenetre
  Repeat
    Evenement = WindowEvent()
   
    Select Evenement   
      Case #PB_Event_CloseWindow
        End
    EndSelect 
  Until Evenement=0
 
  ;Deroulement 2D
  ClearScreen(RGB(0, 0, 0))
  xsec.s = FormatDate("%ss", Date())
  xmin.s = FormatDate("%ii", Date())
  xheure.s = FormatDate("%hh", Date())
 
  xjour.s = FormatDate("%dd", Date())
  jm = (Val(xjour)-1)*11.613
 
  If Val(xheure) > 11
    xheure = Str(Val(xheure)-12)
  EndIf
 
  s = Val(xsec) * 6
  m = (Val(xmin) * 60 + Val(xsec)) / 10
  h = (Val(xheure) * 60 + Val(xmin)) / 2
  j = DayOfWeek(Date()) * (360 / 7)
  h24 = (Val(xheure) * 60 + Val(xmin)) / 4 ; système 24 h
 
  ZoomSprite(#Trotteuse, TailleImage, TailleImage)
  ZoomSprite(#GrandeAiguille, TailleImage, TailleImage)
  ZoomSprite(#PetiteAiguille, TailleImage, TailleImage)
  ZoomSprite(#Spr_Jour_Sem, TailleImage, TailleImage)
  ZoomSprite(#Spr_Jour_Mois, TailleImage, TailleImage)
  ZoomSprite(#Fond, TailleImage, TailleImage)
 
  RotateSprite(#Trotteuse, s, #PB_Absolute)
  RotateSprite(#GrandeAiguille, m, #PB_Absolute)
  RotateSprite(#PetiteAiguille, h, #PB_Absolute)
  RotateSprite(#Spr_Jour_Sem, j, #PB_Absolute)
  RotateSprite(#Spr_Jour_Mois, jm+90, #PB_Absolute)
  Select Hour(Date())
      Case  0 To 11
    RotateSprite(#Spr_H24, h24, #PB_Absolute)
  Case 12 To 23
    RotateSprite(#Spr_H24, h24-180, #PB_Absolute)
  EndSelect 
  Debug Hour(Date())
 
  DisplayTransparentSprite(#Fond, 0, 0, 255)
  DisplayTransparentSprite(#Spr_Jour_Sem, -250, -120, 255)
  DisplayTransparentSprite(#Spr_Jour_Mois, 250, -125, 255)
  DisplayTransparentSprite(#Spr_H24, 100, 350, 255)
  DisplayTransparentSprite(#PetiteAiguille, 0, 0, 255)
  DisplayTransparentSprite(#GrandeAiguille, 0, 0, 255)
  DisplayTransparentSprite(#Trotteuse, 0, 0, 255)
 
 
;  Time = s
 
;  If Time - PreviousTime > 0 Or Time - PreviousTime < 0
;    PreviousTime = s
;    PlaySound(#son)
;  EndIf
 
  If ExamineKeyboard()
    If KeyboardReleased(#PB_Key_Escape)
      End
    EndIf
  EndIf
 
  FlipBuffers()
ForEver

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 9:34
par Micoute
Super look, j'adore !

Merci pour l'initiative.

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 10:15
par JohnJohnsonSHERMAN
Micoute is back !
Super ce p'tit code, micoute... Je me cherchais justement une horloge de bureau suite a la fin des gadgets windows avec Windows 8 et 10, et bien je l'ai trouvée ! Nan... elle est un peu grosse pour rester sur mon bureau, mais j'adore le concept, avec les 3 petits cadrans, c'est bien pensé et joliment fait en plus, tout en 2d Drawing !! Merci de ce code , Micoute

Par contre niveau processeur... ca bouffe ! Surtout sur un vieux Dell des années 2002 avec XP dessus... Donc j'ai rajouté ligne 270 un Delay(50), qui laisse fonctionner l'horloge, mais qui libére aussi 50% de mon vieux proco d'un coup ;). Sinon on pourrait aussi mettre un WaitWindowEvent(50) a la place du WindowEvent(), puisque WaitWindowEvent() est bloquant jusqu'a ce qu'un événement se passe, ou que le timer se finisse, ca remplacerait le Delay(50).

Ca donnc ca :

Code : Tout sélectionner

Repeat ;Evemement 2D

  ; Libération de la file d'attente de la fenetre
  Repeat
    Evenement = WaitWindowEvent(50)
   
    Select Evenement   
      Case #PB_Event_CloseWindow
        End
    EndSelect
  Until Evenement=0
  
 ; Delay(50)
J'ai juste repris le début de la boucle evenementielle pour ne pas tout remettre.
Avec WaitWindowEvent(50) ca fonctionne aussi bien, avec moins de charge au niveau du matériel (proco + ventilo qui se met a turbiner comme un réacteur d'avion :mrgreen: =

En tout cas merci pour ce code Micoute !

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 12:04
par Zorro
heu ... excusez moi mais , faudrai m'expliquer un truc !! ??

Code : Tout sélectionner

CreateSprite(#Spr_Jour_Sem, 800, 800, SpriteQuality(#PB_Sprite_BilinearFiltering))
je lis la doc , et il est dit :
#Sprite Le numéro d'identifiant du nouveau sprite.

#PB_Any peut être utilisé pour générer automatiquement ce numéro.
Largeur, Hauteur Les dimensions du nouveau sprite, en pixels.

Mode (optionnel) Peut être une combinaison de (utiliser '|')
#PB_Sprite_PixelCollision: Ajoute des informations spéciales pour gérer les collisions de pixels à travers SpritePixelCollision().
#PB_Sprite_AlphaBlending : Le sprite est créé avec un canal alpha (transparence), nécessaire pour utiliser DisplayTransparentSprite()

chez moi le parametre :

Code : Tout sélectionner

SpriteQuality(#PB_Sprite_BilinearFiltering)
posé en Mode ne fonctionne pas !!
(et je pense que c'est normal )
puisque le parametre attentdu est soit :
#PB_Sprite_PixelCollision
soit
#PB_Sprite_AlphaBlending

donc le code plante chez moi !! ?? (Pb 5.42 ou Pb 5.50 beta1)

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 12:37
par Ar-S
Effectivement c'est une coquille

Micoute, c'est dans cet ordre que tu dois l'appliquer :

Code : Tout sélectionner

 If StartDrawing(SpriteOutput(#Fond)) ;- fond
SpriteQuality(#PB_Sprite_BilinearFiltering)

(... la suite ...)

StopDrawing()

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 12:44
par Micoute
Ok, merci et pendant que je suis là, j'aimerais savoir si on peut dessiner un sprite sur un autre sprite, car je souhaiterais que chaque cadran avec ses caractères serve de base pour y fixer l'aiguille.

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 13:09
par Ar-S
Bien sur, il faut juste ensuite les afficher dans le bon ordre (ton aiguille après ton cadran)
Tu peux même les faire bouger ^^

Code : Tout sélectionner


Enumeration
  #Fenetre_principale
EndEnumeration

Enumeration
  #S1
  #S2
EndEnumeration

Define.l Evenement, EvenementGadget

Global StyleFen.i=#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered

If Not (InitSprite() And InitSound() And InitKeyboard())
  End
EndIf

OpenWindow(#Fenetre_principale, 0, 0, 200, 200, "Horloge calendrier", StyleFen)

If OpenWindowedScreen(WindowID(#Fenetre_principale), 0, 0, 200, 200, 1, 0, 0)
  
  ; Création de 2 sprites vides
  CreateSprite (#S1,100,100)
  CreateSprite (#S2,50,50)
  
  StartDrawing(SpriteOutput(#S1))
    Box(0,0,100,100,$00CCFF) ; Carré orange
  StopDrawing()
  
  StartDrawing(SpriteOutput(#S2))
    Box(0,0,100,100,$0000FF) ; Carré rouge
  StopDrawing()
  
  

EndIf

x = 50


Repeat ;Evemement 2D
 
  ; Libération de la file d'attente de la fenetre
  Repeat
    Evenement = WindowEvent()
   
    Select Evenement   
      Case #PB_Event_CloseWindow
        End
    EndSelect 
  Until Evenement=0
 
  ClearScreen(RGB(0, 0, 0))
  
  DisplaySprite(#S1,50,50)
  
  If X >= 100
    Dir = -1
  ElseIf X <= 50 
    Dir = 1
  EndIf
  X+DIR
  DisplaySprite(#S2,X,50)

 
  FlipBuffers()
ForEver

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 13:53
par JohnJohnsonSHERMAN
C'est bizarre, je n'ai pas eu d'erreur avec le premier code, cad celui de Micoute, puis avec la version de Ar-S... Qui sait, mon ordi corrige peut-être tout seul ? :mrgreen: :mrgreen:

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 14:09
par Zorro
JohnJohnsonSHERMAN a écrit :C'est bizarre, je n'ai pas eu d'erreur avec le premier code, cad celui de Micoute, puis avec la version de Ar-S... Qui sait, mon ordi corrige peut-être tout seul ? :mrgreen: :mrgreen:

c'est surement parce que tu lances les codes, sans le debugger actif ! ;)

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 14:49
par Shadow
Whaaaa pas mal :o
Jolie tous ça, l'amélioration de Ar-s est très bien aussi !

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 16:05
par Bernie
c'est pas mal

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 16:58
par JohnJohnsonSHERMAN
Debugger actif :

Code : Tout sélectionner

InitSprite()
OpenWindow(0,0,0,1000,1000,"Test")
OpenWindowedScreen(WindowID(0),10,10,800,800)
CreateSprite(1,10,10,SpriteQuality(#PB_Sprite_BilinearFiltering))
StartDrawing(SpriteOutput(1))
Box(0,0,10,10,$FF0000)
StopDrawing()

Repeat
  event = WaitWindowEvent()
  ClearScreen($000000)
  DisplaySprite(1,50,50)
  FlipBuffers()
Until event = #PB_Event_CloseWindow
Ca ne provoque chez moi aucune erreur, ce qui est tout a fait normal en fait, puisque SpriteQuality() ne renvoie aucune valeur, comme spécifié dans la doc :
SpriteQuality()

Syntaxe

SpriteQuality(Qualite)

Description

Change la qualité de rendu d'un sprite.

Arguments

Qualite La qualité d'affichage du sprite.
Peut-être l'une des valeurs suivantes:

#PB_Sprite_NoFiltering : Pas de filtrage, plus rapide, mais laid après un zoom / rotation (par défaut).
#PB_Sprite_BilinearFiltering: Filtrage bilinéaire, plus lent mais propre lors de zoom / rotation.

Valeur de retour

Aucune.
C'est comme si Micoute n'avais rien précisé dans le paramétre Mode de CreateSprite()

Et j'utilise toujours mon debugger, Zorro :P

Re: Horloge 4 cadrans

Publié : lun. 18/juil./2016 18:29
par Zorro
JohnJohnsonSHERMAN a écrit :Et j'utilise toujours mon debugger, Zorro :P

ben j'en suis pas sur !!

regarde cette video qui demontre que le bug est bien signalé par le debugger ! (CQFD)
code de Micoute

https://youtu.be/HosAYYtJd4w


et ici , avec ton code : (meme punition ! )
https://youtu.be/MQBjzlOve78

Re: Horloge 4 cadrans

Publié : mar. 19/juil./2016 11:00
par JohnJohnsonSHERMAN
Image

Alors??? Peut-être que en effet sur EPB ca génére une erreur, mais en tout cas avec l'éditeur officiel, il n'y a aucune erreur. Tu vois sur cette image que le debugger est actif, et que l'application fonctionne sans erreur 8) 8)
C'est tout !
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru