[Pascal] Horloge

Horloge [Pascal] - Delphi/Pascal - Programmation

Marsh Posté le 19-10-2008 à 14:46:55    

salut ,
 
je voudrai faire une horloge en Turbo pascal.
J'ai deja commencer a dessiner l'horloge et les aiguilles , mais je bloque sur le fait de faire bouger les aiguilles tout les secondes , minutes et heures...
 
je sais qu'il faut récupéré avec la commande  
 

Code :
  1. GetTime ( var Hour , Min , Sec , Cent : word )


 
 
mais apres j'en sais pas plus :(
 
merci de m'eclaicir !
 
voila mon code :
 
 

Code :
  1. program horloge1;
  2.   uses WinTGr , wintext ,windos ;
  6. {===================================================}
  7. {===================================================}
  8.                       {procedure _1}
  11.   procedure   horloge  ;
  13.   var angle ,i : integer ;
  15.         begin
  17.         penwidth (3);
  18.         i :=0 ;
  19.         angle := 0 ;                                 { on dessine l'horloge }
  21.      repeat
  23.      position ( 0,0, angle );
  24.      forwd (200 ) ;
  25.       i := i+1 ;
  26.      angle := angle +30 ;
  27.      until i= 12  ;
  28. end;
  30. {===================================================}
  31. {===================================================}
  32.                       {procedure _2}
  38.   procedure Rosace ( taille , angle : word ) ;
  39.   var i : integer ;
  41.   begin
  42.   penColor ( 4 );
  43.   penwidth (2);
  44.   position (0,0 , angle );
  45.   turn (-21);
  47.   i :=0 ;
  48.   repeat
  50.   forwd (taille/12);
  51.   turn (3 ) ;
  52.   i := i+1 ;
  54.   until i= 15 ;
  56.   turn (135);
  57.     i :=0 ;
  59. repeat
  61.   forwd (taille/12);
  62.   turn (3);
  63.   i := i+1 ;
  65.   until i= 15 ;
  68.   end;
  70. { Fin de la Procedure La rosace }
  74. {debut de la procedure      Get Time }
  76. procedure getTime ( var h , m ,s , c : word )   ;
  77.      begin
  78.      end;
  80.   var
  81.   i:integer  ;
  82.   angle : word ;
  84. begin
  86.    initTurtle ( 'horloge' , 450,450 ) ;
  87.   horloge ;
  88. Rosace  ( 100 , 50 ) ;
  89. Rosace  ( 150 , 50 ) ;
  90. readkey ;
  94. end.


 

Reply

Marsh Posté le 19-10-2008 à 14:46:55   

Reply

Marsh Posté le 20-10-2008 à 18:51:09    

C'est du Turbo pascal ca ?  
 
Si ca peut servir vla un petit bout d'un code d'une horloge  en Turbo pascal  :
(ya des trucs pas utilisés la dans les vars )
 
VAR
  tmp,
  h,m,s,ms : WORD;
  i,e      : INTEGER;
  data2:file;
  c1,c2,c3 : STRING[2];
  z:integer;
  olds,
  news     : STRING;
  h_unite, h_dizaine : integer;
  m_unite, m_dizaine : integer;
  s_unite, s_dizaine : integer;
 
...
 
 REPEAT
 
    GETTIME(h,m,s,ms);
    h_dizaine := h div 10;
    h_unite   := h - (h_dizaine * 10);
    m_dizaine := m div 10;
    m_unite   := m - (m_dizaine * 10);
    s_dizaine := s div 10;
    s_unite   := s - (s_dizaine * 10);
    if ( h_dizaine = 0 ) then h_dizaine := 10;
    if ( h_unite = 0 )   then h_unite := 10;
    if ( m_dizaine = 0 ) then m_dizaine := 10;
    if ( m_unite = 0 )   then m_unite := 10;
    if ( s_dizaine = 0 ) then s_dizaine := 10;
    if ( s_unite = 0 )   then s_unite := 10;
    STR(h:2,c1);
    STR(m:2,c2);
    STR(s:2,c3);
UNTIL  (KEYPRESSED);
  asm
     XOR AH,AH
     MOV AL,$3
     INT $10
  end;


---------------

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed