Emploi du temps: (GT)
Comme son nom l'indique, ce programme permet de créer un emploi du temps de la semaine. Il ne vous est utile que si vous êtes étudiants et est valable tout au long de vos études. Il est très facile à consulter et il affiche instantanément tous vos horaires de cours. La grille de l'emploi du temps se divise en deux parties et va du lundi au samedi et de 8h00 à 18h00.
Vous pourrez voir plus bas que ce programme est divisé en deux sous programmes. Le premier permet d'inscrire tous vos cours dans la grille et le deuxième permet de lire cette grille une fois tous vos cours inscrits à l'intérieur.
Cette version du programme vous permet d'écrire toutes les lettres de l'alphabet en majuscule et permet également de tracer des barres obliques sur les cases correspondant aux heures de repas ou aux heures ou vous n'avez pas cours. Une deuxième version permettra d'écrire également des chiffres (numéros des salles de cours).
Ce programme est très simple d'utilisation. Au lancement du premier programme, une grille apparaîtra contenant toutes les cases allant du lundi au samedi de 8h00 à 14h00. La première case est celle située en haut à gauche; dès qu'un carré noir s'inscrit en haut à droite de l'écran, vous pouvez commencer à écrire avec les touches représentant les lettres sur votre calculatrice (sans appuyer sur Alpha avant). Une fois que vous avez entré ce que vous vouliez dans la première case, appuyez sur EXE. si vous voulez tracer une barre oblique, appuyez sur DEL, la barre se tracera alors et vous passerez à la prochaine case sans appuyer sur EXE. Une fois en bas d'une colonne, vous passerez en haut de la prochaine colonne. Une fois que vous avez terminé d'écrire dans la case en bas à droite et que vous avez appuyé sur EXE, l'image sera stockée dans ' StoPict 1' et l'écran s'effacera et une deuxième grille apparaîtra contenant les cases allant du lundi au samedi et de 15h00 à 18h00. Vous procéderez de la même manière pour inscire les informations dans les cases et une fois que vous aurez terminé, l'image sera stockée dans ' StoPict 2'.
Une fois ces opérations terminés, ce programme ne vous sera plus d'aucune utilité et vous devrez l'effacer. Attention, si vous avez stocké des images dans ' StoPict 1' ou ' StoPict 2', Veuillez les transférer dans d'autres ' StoPict' sous peine de vous les voir effacer.
Pour consulter votre emploi du temps, lancez le deuxième programme. La plage horaire de 8h00 à 14h00 apparait. Appuyez sur EXE et la plage de 15h00 à 18h00 apparait. Pour revenir à la première plage il vous suffira de réappuyer sur EXE et ainsi de suite...
Ces programmes ne fonctionnent que sur les modèles GT couleur. Pour les faire tourner sur les modèles GT monochrome, enlevez du contenu du programme les instuctions écrites en jaune.
La taille:
Premier programme: 1379 octets (pour GT couleurs)
Premier programme: 1362 octets (pour GT monochromes)
Deuxième programme: 34 octets (pour GT couleurs et monochromes)
A l'éxécution (StoPict): 8592 octets environ
Premier programme: (GT)
0 -> A ~ Z
ViewWindow 10,136,0,10,72,0
Lbl 0 : 72 -> A : 10 -> B : Cls
Green F-Line 17, A ,17, B
Green F-Line 37, A ,37, B
Green F-Line 57, A ,57, B
Green F-Line 77, A ,77, B
Green F-Line 97, A ,97, B
Green F-Line 117, A ,117, B
Green F-Line B, 65, 136, 65
Green F-Line B, 57, 136, 57
Green F-Line B, 49, 136, 49
Green F-Line B, 41, 136, 41
Green F-Line B, 33 , 136, 33
Green F-Line B, 25, 136, 25
Green F-Line B, 17 , 136, 17
Text 2 , 10, "LUN"
Text 2 , 30, "MAR"
Text 2 , 50, "MER"
Text 2 , 70, "JEU"
Text 2 , 90, "VEN"
Text 2 , 110, "SAM"
If J = 0
Then 4-> K
Else 1 -> K
IfEnd
Text 10, K, 8 + J
Text 18, K, 9 + J
Text 26, 1, 10 J
Text 34, 1, 11 + J
If I = 0
Then Text 42, 1, 12
Text 50, 1, 13
Text 58, 1, 14
Else 40 -> L
Lbl 3 : Isz L : Green Text L, 1, " "
( Il y a 31 espaces entre les guillemets ci-dessus. N'en oubliez aucun.)
Green Text L, 124, " "
( Il y a juste un espace entre les guillemets ci-dessus.)
L =/= 63 => Goto 3
IfEnd
Plot 0, 0
1 -> B : 10 -> C ~ D
Lbl 1 : Getkey -> A
A = 0 => Goto 1
A = 76 => Text C, D, "A"
A = 66 => Text C, D, "B"
A = 56 => Text C, D, C"
A = 46 => Text C, D, "D"
A = 36 => Text C, D, "E"
A = 26 => Text C, D, "F"
A = 75 => Text C, D, "G"
A = 65=> Text C, D, "H"
A = 55=> Text C, D, "I"
A = 45=> Text C, D, "J"
A = 35=> Text C, D, "K"
A = 25=> Text C, D, "L"
If A = 74
Then Text C, D, "M"
D + 2 -> D : IfEnd
If A = 64
Then Text C, D, "N"
Isz D : IfEnd
A = 54 => Text C, D, "O"
A = 73 => Text C, D, "P"
If A = 63
Then Text C, D, "Q"
Isz D : IfEnd
A = 53 => Text C, D, "R"
A = 43 => Text C, D, "S"
A = 33 => Text C, D, "T"
A = 72 => Text C, D, "U"
A = 62 => Text C, D, "V"
If A = 52
Then Text C, D, "W"
D + 2 -> D : IfEnd
A = 42 => Text C, D, "X"
A = 32 => Text C, D, "Y"
A = 71 => Text C, D, "Z"
( Il y a ci-dessus ecrit 26 fois la même instruction à quelque chose près. Utilisez le 'copier coller' sinon vous perdrez beaucoup de temps. Les informations concernant le 'copier coller' se trouvent dans la partie 'Astuce de programmation' de ce site.)
If A = 44
Then D + 5 -> G
- (C - 62 ) + 6 -> H
Green F-Line G, H +7, G + 21, H
Green Plot 0, 0
Isz B : Goto 2
IfEnd
D + 4 -> D : Plot 0, 0
If A = 31
Then Isz B : Goto 2
IfEnd
Goto 1
Lbl 2 : 10 -> B : B -> F
If B sup 7
Then 30 -> D : B - 7 -> F
IfEnd
If B sup 14
Then 50 -> D : B - 14 -> F
IfEnd
If B sup 21
Then 70 -> D : B - 21 -> F
IfEnd
If B sup 28
Then 90 -> D : B - 28 -> F
IfEnd
If B sup 35
Then 110 -> D : B - 35 -> F
IfEnd
Frac ( F div 7) -> E
E = 1 div 7 => 10 -> C
E = 2 div 7 => 18 -> C
E = 3 div 7 => 26 -> C
E = 4 div 7 => 34 -> C
If E = 5 div 7
Then If I = 0
Then 42 -> C
Else 10 -> C : D + 20 -> D : B + 3 -> B
IfEnd : IfEnd
E = 6 div 7 => 50 -> C
E = 0 => 58 -> C
If I = 1
Then B = 39 => Goto 1
IfEnd
B =/= 43 => Goto 1
I = 0 => StoPict 1
If I = 1
Then StoPict 2
Cls : Stop
IfEnd
7 -> J : 1 -> I
Goto 0
Deuxième programme: (GT)
ViewWindow 10,136,0,10,72,0
Lbl 0 : Cls : RclPict 1 $
Cls : RclPict 2 $
Goto 0