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  
 

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

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;