Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao!
Ho provato il tup programma, con FreePascal e funziona.
Ho trovato solo alcune piccole ingenuità:
Le librerie da dichiarare nella sezione uses sono: graph,wincrt,sysutils,dos
Le variabili sg ed ng (utilizzate per inizializzare la grafica), se usi Free Pascal, devono essere dichiarate necessariamente "smallint" (non integer).
L' istruzione " SetTextStyle ( TimesNewRomanFont, 90, 4 ) ; " va messa dopo aver inizializzato la grafica.
Stranamente, il colore "orange", non è riconosciuto. (Probabilmente è dovuto al fatto che tu usi un compilatore diverso dal mio).
Perchè scrivi
Codice sorgente - presumibilmente Pascal
...
for s:=0 to 23 dowriteln(' ');
writeln('1- OROLOGIO ANALOGICO 2- CRONOMETRO');
...
Non è meglio usare GoToXY()?
Ho notato, iniltre la funzione delay per l' attesa di un secondo. A mio avviso, non è il metodo migliore.
Ultima modifica effettuata da Poggi Marco il 03/05/2010 alle 23:37
()
Newbie
Messaggi: Iscritto:
Postato alle 0:17
Martedì, 04/05/2010
Si, per la funzione delay hai ragione. Ne creo una ad-hoc non appena rimetto mano sul mio pc.
Non ho usato gotoxy perchè in wincrt non c'è ne gotoxy ne clrscr ..viene comunque una cosa leggermente bruttina da vedere perchè, anche se poco potenti, quelle due funzioni facevano comodo per gestire la "grafica" del terminale.
infatti l'angolo di ore e minuti viene calcolato come se fossero secondi: cioè se, per esempio, siamo alle 10:13:12, la lancetta delle ore occupa la posizione che dovrebbe occupare alle 0:0:10 e quella dei minuti la posizione che dovrebbe occupare alle 0:0:13.
Scriverei le variabili s, m e h come longword(per aumentare il range)
quindi:
Codice sorgente - presumibilmente Pascal
gettime(ore,minuti,secondi,cento_secondi);
s:=secondi;
m:=minuti*60+s;
h:=(ore mod 12)*3600+minuti;
angolo_secondi:=270+s*6;
angolo_minuti:=270+m*0.1;
angolo_ore:=270+h*0.008333333;
Ultima modifica effettuata da Phi il 04/05/2010 alle 13:48