papydall
Nombre de messages : 7000 Age : 73 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: A vous de noter cet étudiant. Mar 23 Aoû 2016 - 0:02 | |
| - Code:
-
rem ============================================================================ rem A vous de noter cet étudiant rem Adaptation en Panoramic par papydall rem Ref : Post de Mireille Vigny sur G+ rem ============================================================================ label reponse,fin dim i,questions$(7),reponses$(7) width 0,700 data "Dans quelle bataille Napoléon est-il mort ?","A sa dernière bataille" data "Où a été signée la déclaration d'indépendance ?","Au bas de la page" data "Dans quel état se trouve la rivière Rio-Grand ?","Etat liquide" data "Quelle est la raison principale de divorce ?","Le mariage" data "Quelle est la raison principale de l'échec ?","Les examens" data "Qu'est-ce que vous ne pouvez jamais manger au petit déjeuner ?","Un dîner ou un souper" data "Qu'est-ce qui ressemble le plus à une demi-pomme ?","L'autre moitié" for i = 1 to 7 alpha i : top i,50*i : left i,10 : font_bold i : font_color i , 0,0,255 : font_size i,14 next i for i = 8 to 14 alpha i : top i,25+50*(i-7) : left i,10 : font_bold i : font_color i , 255,0,0 : font_size i,14 : hide i next i for i = 1 to 7 read questions$(i) : read reponses$(i) : caption i,"Q"+str$(i)+" : " +questions$(i) next i for i = 8 to 14 : caption i,"R"+str$(i-7)+" : " + reponses$(i-7) : next i button 20 : top 20,400 : left 20,200 : caption 20,"Réponses" : font_bold 20 : on_click 20,reponse button 30 : top 30,400 : left 30,300 : caption 30,"quitter" : font_bold 30 : inactive 30 : on_click 30,fin end rem ============================================================================ reponse: for i = 8 to 14 : show i : next i inactive 20 message "Cet étudiant a obtenu 0 sur cet examen."+chr$(13)+"Je lui aurais donné 7/7"+chr$(13)+"Et vous quelle note lui auriez-vous donné ?" active 30 return rem ============================================================================ fin: terminate return : ' ce return ne sert absolument à rien ! rem ============================================================================
Puisse ce code réveiller quelques uns! | |
|
JL35
Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007
| Sujet: Re: A vous de noter cet étudiant. Mar 23 Aoû 2016 - 0:17 | |
| Ah non, à la rigueur 6/7, mais Napoléon est mort dans son lit à Sainte-Hélène. à moins qu'on parle de sa bataille contre la maladie ? | |
|
papydall
Nombre de messages : 7000 Age : 73 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Re: A vous de noter cet étudiant. Mar 23 Aoû 2016 - 0:50 | |
| Très bien vu | |
|
Contenu sponsorisé
| Sujet: Re: A vous de noter cet étudiant. | |
| |
|