Emploie du Temps---Par YOUKEF (forum)

Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1331
Réponses : 9
Type : discussion
Etat : réponses autorisées

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Emploie du Temps---Par YOUKEF

Youkef le 07/10/2011 à 10:50

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 le 07/10/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.

linkakro le 07/10/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

made2kill le 07/10/2011 à 18:48

Je vous annonce officiellement que mon EDT en graphique est presque fini!!

Je le posterai demain.

sandro le 07/10/2011 à 19:16

Ne l'édite pas, poste le plutôt en nouveau message derière le dernier message de ce topic.
Sandro

made2kill le 08/10/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?

made2kill le 10/10/2011 à 10:08

Y'a quelqu'un pour tester svp.

Meg le 18/10/2011 à 15:50

Putain respect mec

made2kill le 18/10/2011 à 20:18

Ca te plait?

Voilà le 8xp: Ici

sandro le 18/10/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

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Forum

Emploie du Temps---Par YOUKEF

Flux RSS

Abonnement à la newsletter