PRINT FIB(N), è l'istruzione chiave che chiama la funzione FIB e le "passa" il valore N inserito precedentemente dall'utente.
La variabile TEMPOESECUZIONE contiene i secondi impiegati per il calcolo della serie di Fibonacci. Ed infine alla variabile G viene assegnato il valore 1, il quale indica l'esecuzione del calcolo di N. Osservate la struttura di istruzioni LABEL-RETURN.
LABEL STARTTEST
CLEAR SCREEN
PRINT"------------------------------------------------------------"
PRINT "Ora inizia il programma di test delle unita' ALU della CPU."
PRINT "Espresso in base al numero di tempo in secondi impiegati per"
PRINT "il calcolo N di una serie di Fibonacci."
PRINT
INPUT "Inserisci un numero intero, possibilmente maggiore di 20 ? "N
print
print
PRINT "Il numero calcolato con la serie di Fibonacci e':"
inizio=val(mid$(time$,10))
PRINT FIB(N)
fine=val(mid$(time$,10))
PRINT
tempoesecuzione = fine-inizio
PRINT "Il tempo totale per l'esecuzione del test e' di ", tempoesecuzione, " secondi"
G=1
PAUSE 15
RETURN
Il codice contenuto nella struttura LABEL INFORMAZIONI-RETURN utilizza una serie di INPUT per ottenere delle informazioni hardware aggiuntive sul sistema test. Durante l'esecuzione vi verrà chiesto di visualizzare le informazioni appena introdotte in una finestra di dialogo (chiamata struttura LABEL FINESTRAVISUALIZZA). La variabile K=1 indica l'esecuzione di questa parte del programma.
LABEL INFORMAZIONI
CLEAR SCREEN
PRINT"---------------------------------------------------------------- "
PRINT"ORA INSERISCI UNA SERIE DI INFORMAZIONI SUL TUO SISTEMA HARDWARE "
PRINT" (I dati vanno inseriti senza spazi) "
PRINT"---------------------------------------------------------------- "
INPUT "Inserisci il tipo di processore? " PROC$
PRINT
INPUT "Indica la velocita' di clock della CPU (in Mhz)? " VELOCPU$
PRINT
INPUT "Inserisci la frequenza di bus principale del tuo sistema (o FSB) in Mhz? " FSB$
PRINT
INPUT "Inserisci il tipo di Scheda madre? " SCHEDA$
PRINT
INPUT "Inserisci la quantita' di ram del sistema? (in Mb) " MEM$
PRINT
INPUT "Inserisci il sistema operativo con cui stai utilizzando il test? " SISTEM$
PRINT
INPUT "Inserisci il tempo di esecuzione del test in secondi? " TEMP$
PRINT
INPUT "Vuoi visualizzare le informazioni appena inserite (si/no)? "VISUALIZZA$
IF VISUALIZZA$ = "si" THEN GOSUB FINESTRAVISUALIZZA
ENDIF
K=1
RETURN
La struttura LABEL FINESTRAVISUALIZZA-RETURN contiene i comandi necessari per poter visualizzare all'interno di una finestra di dialogo le informazioni inserite dall'utente nella struttura LABEL INFORMAZIONI-RETURN. L'istruzione OPEN-WINDOW 515,410 disegna una finestra di dialogo di dimensioni X=515 e Y=410. Le istruzioni TEXT sono composte da tre valori: il primo indica il punto X, il secondo indica il punto Y, ed infine il terzo contiene il testo da inserire a partire dai due punti X e Y precedentemente specificati. L'istruzione RECTANGLE disegna un rettangolo indicando il vertice in alto a sinistra X,Y e il vertice in basso a destra X,Y. L'istruzione LINE indica il punto X,Y dal quale deve essere disegnata una linea fino al punto X,Y specificato dopo il TO. CLOSE WINDOW ovviamente chiude la finestra di dialogo.
LABEL FINESTRAVISUALIZZA
Open Window 515,410
Text 120,35, "DATI SISTEMA HARDWARE CORRENTE"
Text 365,400, DATE$
rectangle 9, 10 to 500, 400
Line 30, 70 to 300, 70
Line 30, 120 to 300, 120
Line 30, 170 to 300, 170
Line 30, 220 to 300, 220
Line 30, 270 to 300, 270
Line 30, 320 to 300, 320
Line 30, 370 to 300, 370
Text 30, 95, "Processore"
Text 190,95, PROC$
Text 30, 145, "Velocità CPU (Mhz)"
Text 190,145, VELOCPU$
Text 30, 195, "FSB della CPU"
Text 190,195, FSB$
Text 30, 244, "Schedamadre"
Text 190,244, SCHEDA$
Text 30, 295, "Q.tà memoria di sistema"
Text 190,295, MEM$
Text 30, 346, "Sistema Operativo"
Text 190,346, SISTEM$
Text 30, 397, "Ris.del test in secondi"
Text 190,397, TEMP$
Pause 12
CLOSE WINDOW
Return
Menu Sezione/Pagina Successiva/Pagina Precedente/Torna alla Homepage
Sito:www.megaoverclock.it