Bonjour, je viens de réussir a crée mon premier prgm, il s'agit de mon Emploie Du Temps !!
Code
EffEcr
Output(3,5,"EMPLOIE")
Output(5,5,"DU TEMPS")
Output(4,5,"-------")
Output(6,5,"--------")
Pause
EffEcr
Lbl Y
Menu("Quel jour","LUNDI",A,"MARDI",B,"MERCREDI",C,"JEUDI",D,"VENDREDI",E,"QUITTER",2)
Lbl 2
Stop
EffEcr
End
Lbl A
Menu("QUAND","MATIN",G,"APRES-MIDI",H)
Pause
Goto Y
Lbl G
Disp "*****","*****","*****","*****"
Pause
EffEcr
Goto Y
Lbl H
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl B
Menu("QUAND","MATIN",I,"APRES-MIDI",J)
Pause
EffEcr
Goto Y
Lbl I
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl J
Disp "****","****","****,","****"
Pause
EffEcr
Goto Y
Lbl C
Menu("QUAND","MATIN",K,"APRES-MIDI",L)
Pause
EffEcr
Goto Y
Lbl K
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl L
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl D
Menu("QUAND","MATIN",O,"APRES-MIDI",P)
Pause
EffEcr
Goto Y
Lbl O
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl P
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl E
Menu("QUAND","MATIN",S,"APRES-MIDI",T)
Pause
EffEcr
Goto Y
Lbl S
Disp "****","****","****","****"
Pause
EffEcr
Goto Y
Lbl T
Disp "****","*****","****","****"
Pause
EffEcr
Goto Y
Bien sur, a la place des etoiles "*" mettez vos matières !!!
made2kill Invité
Posté le : Ven 07 Oct 2011, 11:28
Basique mais c'est toujours intéréssant et rigolo, bon début.
Maintenant, challenge: essaie de le faire en graphique, comme un vrai calendrier, avec des cases avec les matières dedans.
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 07 Oct 2011, 15:18
Les pauses qui suivent les menus ne servent à rien.
Je pense qu'on peut simplifer ainsi dans un premier temps.
Code
EffEcr
Output(3,5,"EMPLOI
Output(5,5,"DU TEMPS
Lbl 1
Pause
EffEcr
Menu("JOUR","LUNDI",A,"MARDI",B,"MERCREDI",C,"JEUDI",D,"VENDREDI",E,"QUITTER",2
Lbl 2
Stop
Lbl A
Menu("QUAND","MATIN",G,"APRES-MIDI",H
Lbl B
Menu("QUAND","MATIN",I,"APRES-MIDI",J
Lbl C
Menu("QUAND","MATIN",K,"APRES-MIDI",L
Lbl D
Menu("QUAND","MATIN",M,"APRES-MIDI",N
Lbl E
Menu("QUAND","MATIN",O,"APRES-MIDI",P
Lbl G
Disp "*****","*****","*****","*****
Goto 1
Lbl H
Disp "****","****","****","****
Goto 1
Lbl I
Disp "****","****","****","****
Goto 1
Lbl J
Disp "****","****","****,","****
Goto 1
Lbl K
Disp "****","****","****","****
Goto 1
Lbl L
Disp "****","****","****","****
Goto 1
Lbl M
Disp "****","****","****","****
Pause
Goto 1
Lbl N
Disp "****","****","****","****
Goto 1
Lbl O
Disp "****","****","****","****
Goto 1
Lbl P
Disp "****","*****","****","****
Goto 1
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Sam 08 Oct 2011, 10:17
@Sandro j'ai dit EDT (initiales de Emploi du temps), pas Edit...
Voilà enfin la bête!!! Ca m'a pris une bonne partie de la journée d'hier pour faire ce prog, en espérant que ça vous plaira!!
Code
Lbl 1
ClrHome
Input "JOUR ? ",Str1
If Str1="MERCREDI
Then
" "üStr2
Goto 18
Else
Input "MATIN/APREM?",Str2
End
Lbl 18
ClrDraw
AxesOff
FnOff
ClrHome
0üXmin
66üXmax
0üYmax
95üYmax
Horizontal 0
Horizontal 95
Vertical 0
Vertical 66
Horizontal 19
Horizontal 38
Horizontal 57
Horizontal 76
Vertical 14
If Str1="MERCREDI" and Str2=" " or Str2="MATIN" or Str2="APREM" or Str2="APRES-MIDI" and Str1="LUNDI" or Str1="MARDI" or Str1="JEUDI" or Str1="VENDREDI <-Même moi je ne comprends pas très bien cette ligne x) mais ca marche alors faites pas chier é_é
Then
Goto [THETA]
Else
Goto 1
End
Lbl [THETA]
If Str2="MATIN
Goto V
If Str2="APREM" or Str2="APRES-MIDI
Goto W
Lbl V
Text(3,6,"8H
Text(16,6,"9H
Text(29,6,"10H
Text(42,6,"11H
Text(55,6,"12H
Goto 2
Lbl W
Text(3,6,"13H
Text(16,6,"14H
Text(29,6,"15H
Text(42,6,"16H
Text(55,6,"17H
Goto 3
Lbl 2
If Str1="LUNDI
Goto 11
If Str1="MARDI
Goto 12
If Str1="MERCREDI
Goto 13
If Str1="JEUDI
Goto 14
If Str1="VENDREDI
Goto 15
Lbl 11
Text(3,26,"cours du lundi matin 8h
Text(16,26,"cours du lundi matin 9h
Text(29,26,"cours du lundi matin 10h
Text(42,26,"cours du lundi matin 11h
Text(55,26,"cours du lundi midi
Goto Q
Lbl 12
Text(3,26,"cours du mardi matin 8h
Text(16,26,"cours du mardi matin 9h
Text(29,26,"cours du mardi matin 10h
Text(42,26,"cours du mardi matin 11h
Text(55,26,"cours du mardi midi
Goto Q
Lbl 13
Text(3,26,"cours du mercredi matin 8h
Text(16,26,"cours du mercredi matin 9h
Text(29,26,"cours du mercredi matin 10h
Text(42,26,"cours du mercredi matin 11h
Text(55,26,"cours du mercredi midi
Goto Q
Lbl 14
Text(3,26,"cours du jeudi matin 8h
Text(16,26,"cours du jeudi matin 9h
Text(29,26,"cours du jeudi matin 10h
Text(42,26,"cours du jeudi matin 11h
Text(55,26,"cours du jeudi midi
Goto Q
Lbl 15
Text(3,26,"cours du vendredi matin 8h
Text(16,26,"cours du vendredi matin 9h
Text(29,26,"cours du vendredi matin 10h
Text(42,26,"cours du vendredi matin 11h
Text(55,26,"cours du vendredi midi
Goto Q
Lbl 3
If Str1="LUNDI
Goto 21
If Str1="MARDI
Goto 22
If Str1="JEUDI ben oui parce que je sais pas vous mais moi, j'ai pas de cours le mercredi après-midi é_é
Goto 23
If Str1="VENDREDI
Goto 24
Lbl 21
Text(3,26,"cours du lundi après-midi 13h
Text(16,26,"cours du lundi après-midi 14h
Text(29,26,"cours du lundi après-midi 15h
Text(42,26,"cours du lundi après-midi 16h
Text(55,26,"cours du lundi après-midi 17h
Goto Q
Lbl 22
Text(3,26,"cours du mardi après-midi 13h
Text(16,26,"cours du mardi après-midi 14h
Text(29,26,"cours du mardi après-midi 15h
Text(42,26,"cours du mardi après-midi 16h
Text(55,26,"cours du mardi après-midi 17h
Goto Q
Lbl 23
Text(3,26,"cours du jeudi après-midi 13h
Text(16,26,"cours du jeudi après-midi 14h
Text(29,26,"cours du jeudi après-midi 15h
Text(42,26,"cours du jeudi après-midi 16h
Text(55,26,"cours du jeudi après-midi 17h
Goto Q
Lbl 24
Text(3,26,"cours du vendredi après-midi 13h
Text(16,26,"cours du vendredi après-midi 14h
Text(29,26,"cours du vendredi après-midi 15h
Text(42,26,"cours du vendredi après-midi 16h
Text(55,26,"cours du vendredi après-midi 17h
Lbl Q
0üK
Repeat K
getKeyüK
End
ClrHome
ClrDraw
ZStandard
AxesOn
FnOn
DelVar Str1DelVar Str2Output(1,1,"
Voilà! Mon prog marche, la Françe gagne au rugby contre les rosbifs(là c'est la pause), que demander de plus?
---------------------- Aussi connu sous le nom de f/x=x².
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mar 18 Oct 2011, 22:08
J'ai un peu regerdé, et voici quelques suggestions:
-pour matin ou aprem ainsi que pour les jours de la semaine, il serrait je pense intéréssant d'utiliser des menus (c'est bien plus pratique que de devoir les entrer à la main.
-voir s'il n'est pas possible de regrouper tous les cours de la periode choisie dans une chaîne (juste après les Menus) et faire un seul et unique affichage avec les sousChaînes.(et même à la limite utiliser une boucle For avec, pour placer les 5 lignes). Sinon, juste enregistrer les cours dans des chaînes et généraliser l'affichage.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes