papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Avoir ou Etre ? Etre ou Avoir ? Drôle de question, non ? Jeu 7 Déc 2023 - 0:31 | |
| Tout est dans le code. Il suffit de clicker sur (dans) les pages pour lire et feuilleter le livre - Code:
-
rem ============================================================================
rem Les mystères du verbe "AVOIR" et du verbe "ÊTRE" en poème par un expert
rem de la langue " française " Yves DUTEIL.
rem Papydall le 06 / 12 / 2023
rem ============================================================================
Init()
GUI()
Livre(titre1$,titre2$,auteur$,nb_page)
end
rem ============================================================================
SUB Init()
label Gestion_Clic
dim xc,yc,x,y,nb_page,i
dim titre1$,titre2$,auteur$
dim r,g,b
width 0,1300 : height 0,800
top 0,(screen_y - height(0))/2 : left 0, (screen_x - width(0))/2
xc = width(0)/2 : yc = height(0)/2
titre1$ = "Les mystères du verbe ''AVOIR'' et du verbe ''ÊTRE''"
titre2$ = "en poème par un expert de la langue française"
auteur$ = "Yves DUTEIL"
nb_page = 10
END_SUB
rem ============================================================================
SUB GUI()
color 0,0,0,128
alpha 10 : top 10,10 : left 10, 150 : font_bold 10 : font_size 10,14
font_name 10,"arial" : font_color 10,255,255,255
caption 10," Veuillez patienter ... Je me prépare ..."
picture 100 : width 100,xc-100 : height 100,2*yc-170
top 100,100 : left 100,xc-width(100)/2 : on_click 100,Gestion_Clic : hide 100
cursor_point 100 : font_name 100,"arial" : font_bold 100 : font_size 100,14
font_color 100,255,255,255
END_SUB
rem ============================================================================
SUB Livre(titre1$,titre2$,auteur$,nb_page)
dim_local i, t$
for i = 101 to 100+nb_page
picture i : width i,width(100) : height i,height(100)-40 : top i,120
if even(i) = 0 then left i,80 : else : left i,xc+30
on_click i,Gestion_Clic : hide i : cursor_point i
font_bold i : font_name i,"arial" : font_size i,14 : font_color i,200,50,20
Afficher_Page(i)
next i
Rediger_Pages()
t$ = "Cliquer sur le livre pour l'ouvrir ...."
t$ = t$ + " ou sur la croix rouge pour quitter ..."
2d_target_is 100 : print_target_is 100
2d_fill_color 150,100,50 : 2d_rectangle 0,0,width(100),height(100)
2d_pen_width 5 : 2d_pen_color 250,150,25 : 2d_line 20,0,20,height(100)
print_locate 50,050 : print titre1$ : print_locate 70,080 : print titre2$
font_size 100,18 : print_locate 180,height(100)-100 : print "Auteur : " + auteur$
show 100
caption 0,"Cliquer sur le livre pour l'ouvrir"
caption 10,string$(70," ") + " Papydall vous présente"+ chr$(13) +chr$(13)+ titre1$ + " " + titre2$
END_SUB
rem ============================================================================
SUB Afficher_Page(p)
print_target_is p : font_color p,0,0,0 : 2d_fill_color 255,255,255
font_size p,10 : font_name p,"arial"
2d_target_is p : 2d_pen_color 0,0,0
if odd(p) > 0
if p > 101
2d_line 1,1,1,height(p)
2d_line 3,1,3,height(p)
2d_line 5,1,5,height(p)
end_if
print_locate 010,height(p)-50
else
if p < 100 + nb_page
2d_line width(p)-7,1,width(p)-7,height(p)
2d_line width(p)-5,1,width(p)-5,height(p)
2d_line width(p)-3,1,width(p)-3,height(p)
end_if
print_locate width(p)-70,height(p)-50
end_if
print "Page " + str$(p-100)
END_SUB
rem ============================================================================
SUB Ouvrir_Livre()
dim_local i,j,t$
t$ = "Cliquer dans les pages pour feuilleter le livre ..."
t$ = t$ + " ou sur la croix rouge pour quitter ..."
for i = 100 to 100 + nb_page : off_click i : next i
caption 0,t$
hide 100 : 2d_target_is 0 : print_target_is 0
2d_fill_color 150,50,20 : 2d_pen_color 10,0,0 : 2d_pen_width 5
if even(number_click) > 0
for i = 2*xc-50 to 30 step -5
2d_rectangle i,100,2*xc-50,2*yc-50 : for j = 1 to 3000 : next j : ' temporisation
next i
else
for i = 30 to 2*xc-50 step 5
2d_rectangle 30,100,i,2*yc-50 : for j = 1 to 3000 : next j : ' temporisation
next i
end_if
for i = xc-10 to xc+10
2d_pen_color 12.5*abs(xc-i),12.5*abs(xc-i),12.5*abs(xc-i)
2d_line i,top(100),i,top(100) + height(100)
next i
2d_fill_color 255,255,255 : show 10
for i = 101 to 100 + nb_page : Afficher_Page(i) : on_click i,Gestion_Clic : next i
END_SUB
rem ============================================================================
Gestion_Clic:
Ouvrir_Livre()
i = number_click
if i = 100
show 101 : show 102
return
end_if
if i = 101
hide 10 : hide 101 : hide 102 : show 100
2d_target_is 0 : cls : on_click 100,Gestion_Clic
caption 0,"Cliquer sur le livre pour l'ouvrir .... ou sur la croix rouge pour quitter ..."
return
end_if
if i > 101 and i < 100 + nb_page
if even(i) = 1
show i+1 : show i+2
else
hide i : hide i+1 : show i-2 : show i-1
end_if
end_if
if i = 100 + nb_page
for i = 101 to 100 + nb_page : hide i : next i
hide 10 : show 100 : 2d_target_is 0 : cls
caption 0,"Cliquer sur le livre pour l'ouvrir .... ou sur la croix rouge pour quitter ..."
on_click 100,Gestion_Clic
end_if
return
rem ============================================================================
SUB Rediger_Pages()
Page_1()
Page_2()
Page_3()
Page_4()
Page_5()
Page_6()
Page_7()
Page_8()
Page_9()
Page_10()
END_SUB
rem ============================================================================
SUB Page_1()
print_target_is 101
font_size 101,14 : font_color 101,200,50,20
print_locate 50,050 : print "Loin des vieux livres de grammaire,"
print_locate 50,100 : print "Écoutez comment un beau soir,"
print_locate 50,150 : print "Ma mère m'enseigna les mystères"
print_locate 50,200 : print "Du verbe être et du verbe avoir."
print_locate 50,300 : print "Parmi mes meilleurs auxiliaires,"
print_locate 50,350 : print "Il est deux verbes originaux."
print_locate 50,400 : print "Avoir et Être étaient deux frères"
print_locate 50,450 : print "Que j'ai connus dès le berceau."
END_SUB
rem ============================================================================
SUB Page_2()
print_target_is 102
font_size 102,14 : font_color 102,200,50,20
print_locate 50,050 : print "Bien qu'opposés de caractère,"
print_locate 50,100 : print "On pouvait les croire jumeaux,"
print_locate 50,150 : print "Tant leur histoire est singulière."
print_locate 50,200 : print "Mais ces deux frères étaient rivaux."
print_locate 50,300 : print "Ce qu'Avoir aurait voulu être"
print_locate 50,350 : print "Être voulait toujours l'avoir."
print_locate 50,400 : print "À ne vouloir ni dieu ni maître,"
print_locate 50,450 : print "Le verbe Être s'est fait avoir."
END_SUB
rem ============================================================================
SUB Page_3()
print_target_is 103
font_size 103,14 : font_color 103,200,50,20
print_locate 50,050 : print "Son frère Avoir était en banque"
print_locate 50,100 : print "Et faisait un grand numéro,"
print_locate 50,150 : print "Alors qu'Être, toujours en manque."
print_locate 50,200 : print "Souffrait beaucoup dans son ego."
print_locate 50,300 : print "Pendant qu'Être apprenait à lire"
print_locate 50,350 : print "Et faisait ses humanités,"
print_locate 50,400 : print "De son côté sans rien lui dire"
print_locate 50,450 : print "Avoir apprenait à compter."
END_SUB
rem ============================================================================
SUB Page_4()
print_target_is 104
font_size 104,14 : font_color 104,200,50,20
print_locate 50,050 : print "Et il amassait des fortunes"
print_locate 50,100 : print "En avoirs, en liquidités,"
print_locate 50,150 : print "Pendant qu'Être, un peu dans la lune"
print_locate 50,200 : print "S'était laissé déposséder."
print_locate 50,300 : print "Avoir était ostentatoire"
print_locate 50,350 : print "Lorsqu'il se montrait généreux,"
print_locate 50,400 : print "Être en revanche, et c'est notoire,"
print_locate 50,450 : print "Est bien souvent présomptueux."
END_SUB
rem ============================================================================
SUB Page_5()
print_target_is 105
font_size 105,14 : font_color 105,200,50,20
print_locate 50,050 : print "Avoir voyage en classe Affaires."
print_locate 50,100 : print "Il met tous ses titres à l'abri."
print_locate 50,150 : print "Alors qu'Être est plus débonnaire,"
print_locate 50,200 : print "Il ne gardera rien pour lui."
print_locate 50,300 : print "Sa richesse est tout intérieure,"
print_locate 50,350 : print "Ce sont les choses de l'esprit."
print_locate 50,400 : print "Le verbe Être est tout en pudeur,"
print_locate 50,450 : print "Et sa noblesse est à ce prix."
END_SUB
rem ============================================================================
SUB Page_6()
print_target_is 106
font_size 106,14 : font_color 106,200,50,20
print_locate 50,050 : print "Un jour à force de chimères"
print_locate 50,100 : print "Pour parvenir à un accord,"
print_locate 50,150 : print "Entre verbes ça peut se faire,"
print_locate 50,200 : print "Ils conjuguèrent leurs efforts."
print_locate 50,300 : print "Et pour ne pas perdre la face"
print_locate 50,350 : print "Au milieu des mots rassemblés,"
print_locate 50,400 : print "Ils se sont répartis les tâches"
print_locate 50,450 : print "Pour enfin se réconcilier."
END_SUB
rem ============================================================================
SUB Page_7()
print_target_is 107
font_size 107,14 : font_color 107,200,50,20
print_locate 50,050 : print "Le verbe Avoir a besoin d'Être"
print_locate 50,100 : print "Parce qu'être, c'est exister."
print_locate 50,150 : print "Le verbe Être a besoin d'avoirs"
print_locate 50,200 : print "Pour enrichir ses bons côtés"
print_locate 50,300 : print "Et de palabres interminables"
print_locate 50,350 : print "En arguties alambiquées,"
print_locate 50,400 : print "Nos deux frères inséparables"
print_locate 50,450 : print "Ont pu être et avoir été."
END_SUB
rem ============================================================================
SUB Page_8()
print_target_is 108
font_size 108,14 : font_color 108,200,50,20
print_locate 050,250 : print "Oublie ton passé, qu'il soit simple ou composé,"
print_locate 050,300 : print "Participe à ton Présent pour que ton Futur soit"
print_locate 330,350 : print "Plus que Parfait."
END_SUB
rem ============================================================================
SUB Page_9()
print_target_is 109
font_size 109,20 : font_color 109,20,50,200
print_locate 050,200 : print "Papydall vous souhaite"
print_locate 030,350 : print "un bien ETRE et un grand AVOIR !"
END_SUB
rem ============================================================================
SUB Page_10()
print_target_is 110
font_size 110,30 : font_color 110,20,50,200
print_locate 200,260 : print "F I N"
END_SUB
rem ============================================================================
| |
|
Calendrier
