Bien que Psion Serie V possède de nombreuses de fonctions intégrées, il ne dispose pas de chronomètre. Néanmoins, une telle fonction est relativement simple à implanter. Il vous suffit, pour cela, d’utiliser le langage de programmation OPL. Ce langage, très proche du Pascal, est à la portée des débutants. De plus, le Psion Serie V a été conçu pour être programmé directement en OPL : il est inutile d’acquérir de logiciels supplémentaires.Pour créer le programme de chronomètre, cliquez sur l’icône Extras, puis choisissez Program OPL. Appuyez sur la touche Menu et cliquez sur Fichier/Nouveau. Dans la fenêtre de dialogue Création d’un nouveau fichier, saisissez Chrono et modifiez éventuellement les autres paramètres. Validez par un clic sur [ok].L’écran du Psion affiche alors deux lignes. Le curseur est positionné entre le mot clé PROC et .. (deux points) afin que vous y placiez le nom de la procédure (ici chrono). Saisissez alors le listing ci-après sans vous soucier des majuscules ou minuscules dans les noms de commandes, le langage OPL les interprète de la même manière.Après la saisie, appuyez sur l’icône Transcoder située en haut et à droite de l’écran. Cette opération de transcodage, ou compilation, transforme le texte du programme en code compréhensible pour le Psion. Le transcodage vérifie aussi la validité de votre code. Des messages vous signaleront les éventuelles erreurs de syntaxe. D’autres erreurs, telles que les arguments non valides, ne seront signalées que pendant l’exécution. Le transcodage doit être effectué chaque fois que vous opérez des modifications dans le code OPL.
Une fois l’opération terminée, une fenêtre de dialogue s’ouvre et vous demande si vous désirez exécuter le programme. Répondez positivement.Par la suite, le programme pourra être lancé directement en passant par l’écran Système. Vous remarquerez, en effet, que deux nouveaux fichiers y ont été ajoutés. L’un, nommé chrono, correspond au listing du programme. C’est celui que vous devez ouvrir si vous désirez y apporter des modifications. Le second document, nommé Chrono.opo, est le fichier exécutable qui démarre l’application.
Listing :
PROC chrono:
LOCAL k%,s%,se%,mi%
FONT 12,16
AT 15,5:PRINT “Chronomètre”
AT 3,9 :PRINT “Appuyez sur une touche pour démarrer”
GET
DO
CLS :mi%=0 :se%=0 :s%=SECOND
AT 1,3 :PRINT ” Appuyer sur S pour arrêter”
AT 1,5:PRINT ” et sur L pour les temps intermédiaires “
boucle::
k%=KEY AND $ffdf
IF k%=%S : GOTO pause::
ENDIF
IF k%=%L
AT 1,10:PRINT “Temps intermédiaire : “;mi%;”:”;
IF se%<10 :PRINT "0"; :ENDIF
PRINT se%;” “;
ENDIF
IF SECOND<>s%
s%=SECOND :se%=se%+1
IF se%=60 :se%=0 :mi%=mi%+1 :ENDIF
AT 1,8 : PRINT mi%,”Minutes”,
IF se%<10 :PRINT "0"; :ENDIF
PRINT se%,”Secondes”;
ENDIF
GOTO boucle::
pause::
mINIT
mCARD “Chrono”,”Redémarrer”,%r,”Remise à zéro”,%z,”Quitter”,%q
k%=MENU
IF k%=%r
GOTO boucle::
ENDIF
UNTIL k%<>%z
ENDP
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
