Novembre 2024 | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
---|
| | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | | Calendrier |
|
|
| album photos v0.2 | |
| | Auteur | Message |
---|
debut
Nombre de messages : 104 Localisation : Canada Date d'inscription : 12/01/2008
| Sujet: album photos v0.2 Ven 14 Mai 2010 - 13:00 | |
| bonjour jai terminé ma premier version dun album photos je suis très satisfait du résulta jutilise des include pour me simplifié le travail pour plus tard je pense que dans les autre versions dans le futur je vais devoir coder des milliers de lignes de code au moin 10.000 peut être encore + tou va dépendre de combien de ligne que panoramic peu faire? pour ceu qui aime pas les includes je vais mêtre un fichier sans include dans le .zip le lien pour le téléchargement des images + le fichier qui ne contien pas dinclude http://upload.yamalandia.com/rep3/10954771273795.zipdans les autres versions je vais faire un zip qui va contenir tou les fichier includes alp a+ cest le seul fichier album.bas a ouvrir album.bas - Code:
-
full_space 0
caption 0,"Album Photos V 0.1 14 Mai 2010" ' ------------------------------------------------ #include "label.bas" ' ------------------------------------------------ #include "picture.bas" ' ------------------------------------------------ gosub hide_g_image gosub hide_p_image gosub hide_g_icone gosub hide_p_icone ' ------------------------------------------------ #include "file-load.bas" ' ------------------------------------------------ rem largeur pour les grand images #include "width.bas"
rem hauteur pour les grand images #include "height.bas" ' ------------------------------------------------ rem bord supérieur pour les grand images #include "top.bas"
rem place son bord gauche pour les grand images #include "left.bas" ' ------------------------------------------------ gosub show_p_image gosub show_g_icone gosub show_p_icone ' ------------------------------------------------ rem exécute les on_click #include "on-click.bas" ' ------------------------------------------------ rem exécute les gosubs #include "gosub.bas" label.bas - Code:
-
label quitter label hide_g_icone,hide_p_icone,hide_p_image,hide_g_image label show_g_icone,show_p_icone,show_p_image label g1,g2,g3,g4,g5,g6,g7,g8,g9,g10,g11,g12,g13,g14 picture.bas - Code:
-
rem pictures pour grand images picture 1001 picture 1002 picture 1003 picture 1004 picture 1005 picture 1006 picture 1007 picture 1008 picture 1009 picture 1010 picture 1011 picture 1012 picture 1013 picture 1014
rem pictures pour petit images picture 1 picture 2 picture 3 picture 4 picture 5 picture 6 picture 7 picture 8 picture 9 picture 10 picture 11 picture 12 picture 13 picture 14
rem pictures pour grand icone picture 201 picture 202 picture 203 picture 204 picture 205 picture 206 picture 207 picture 208 picture 209 picture 210 picture 211 picture 212 picture 213 picture 214 picture 215 picture 216 picture 217 picture 218 picture 219 picture 220
rem pictures pour petit icone picture 101 picture 102 picture 103 picture 104 picture 105 picture 106 picture 107 picture 108 picture 109 picture 110 picture 111 picture 112 picture 113 picture 114 picture 115 picture 116 picture 117 picture 118 picture 119 picture 120 picture 121 picture 122 picture 123 picture 124 picture 125 picture 126 picture 127 file-load.bas - Code:
-
rem charger les grand images file_load 1001,"g1.jpg" file_load 1002,"g2.jpg" file_load 1003,"g3.jpg" file_load 1004,"g4.jpg" file_load 1005,"g5.jpg" file_load 1006,"g6.jpg" file_load 1007,"g7.jpg" file_load 1008,"g8.jpg" file_load 1009,"g9.jpg" file_load 1010,"g10.jpg" file_load 1011,"g11.jpg" file_load 1012,"g12.jpg" file_load 1013,"g13.jpg" file_load 1014,"g14.jpg"
rem charger les petit images file_load 1,"p1.jpg" file_load 2,"p2.jpg" file_load 3,"p3.jpg" file_load 4,"p4.jpg" file_load 5,"p5.jpg" file_load 6,"p6.jpg" file_load 7,"p7.jpg" file_load 8,"p8.jpg" file_load 9,"p9.jpg" file_load 10,"p10.jpg" file_load 11,"p11.jpg" file_load 12,"p12.jpg" file_load 13,"p13.jpg" file_load 14,"p14.jpg"
rem charger les grand icones file_load 201,"g-icone1-1.jpg" file_load 202,"g-icone2-0.jpg" file_load 203,"g-icone3-0.jpg" file_load 204,"g-icone4-0.jpg" file_load 205,"g-icone5-0.jpg" file_load 206,"g-icone6-0.jpg" file_load 207,"g-icone7-0.jpg" file_load 208,"g-icone8-0.jpg" file_load 209,"g-icone9-0.jpg" file_load 210,"g-icone10-0.jpg" file_load 211,"g-icone11-0.jpg" file_load 212,"g-icone12-0.jpg" file_load 213,"g-icone13-0.jpg" file_load 214,"g-icone14-0.jpg" file_load 215,"g-icone15-0.jpg" file_load 216,"g-icone16-0.jpg" file_load 217,"g-icone17-0.jpg" file_load 218,"g-icone18-0.jpg" file_load 219,"g-icone19-0.jpg" file_load 220,"quitter.jpg"
rem charger les petit icones file_load 101,"p-icone1-1.jpg" file_load 102,"p-icone2-0.jpg" file_load 103,"p-icone3-0.jpg" file_load 104,"p-icone4-0.jpg" file_load 105,"p-icone5-0.jpg" file_load 106,"p-icone6-0.jpg" file_load 107,"p-icone7-0.jpg" file_load 108,"p-icone8-0.jpg" file_load 109,"p-icone9-0.jpg" file_load 110,"p-icone10-0.jpg" file_load 111,"p-icone11-0.jpg" file_load 112,"p-icone12-0.jpg" file_load 113,"p-icone13-0.jpg" file_load 114,"p-icone14-0.jpg" file_load 115,"p-icone15-0.jpg" file_load 116,"p-icone16-0.jpg" file_load 117,"p-icone17-0.jpg" file_load 118,"p-icone18-0.jpg" file_load 119,"p-icone19-0.jpg" file_load 120,"p-icone20-0.jpg" file_load 121,"p-icone21-0.jpg" file_load 122,"p-icone22-0.jpg" file_load 123,"p-icone23-0.jpg" file_load 124,"p-icone24-0.jpg" file_load 125,"p-icone25-0.jpg" file_load 126,"p-icone26-0.jpg" file_load 127,"p-icone27-0.jpg" width.bas - Code:
-
rem largeur pour les grand images width 1001,837 width 1002,837 width 1003,837 width 1004,837 width 1005,837 width 1006,837 width 1007,837 width 1008,837 width 1009,837 width 1010,837 width 1011,837 width 1012,837 width 1013,837 width 1014,837
rem largeur pour les petit images width 1,70 width 2,70 width 3,70 width 4,70 width 5,70 width 6,70 width 7,70 width 8,70 width 9,70 width 10,70 width 11,70 width 12,70 width 13,70 width 14,70
rem largeur pour les grand icones width 201,169 width 202,169 width 203,169 width 204,169 width 205,169 width 206,169 width 207,169 width 208,169 width 209,169 width 210,169 width 211,169 width 212,169 width 213,169 width 214,169 width 215,169 width 216,169 width 217,169 width 218,169 width 219,169 width 220,169
rem largeur pour les petit icones width 101,30 width 102,30 width 103,30 width 104,30 width 105,30 width 106,30 width 107,30 width 108,30 width 109,30 width 110,30 width 111,30 width 112,30 width 113,30 width 114,30 width 115,30 width 116,30 width 117,30 width 118,30 width 119,30 width 120,30 width 121,30 width 122,30 width 123,30 width 124,30 width 125,30 width 126,30 width 127,30 height.bas - Code:
-
rem hauteur pour les grand images height 1001,600 height 1002,600 height 1003,600 height 1004,600 height 1005,600 height 1006,600 height 1007,600 height 1008,600 height 1009,600 height 1010,600 height 1011,600 height 1012,600 height 1013,600 height 1014,600
rem hauteur pour les petit images height 1,70 height 2,70 height 3,70 height 4,70 height 5,70 height 6,70 height 7,70 height 8,70 height 9,70 height 10,70 height 11,70 height 12,70 height 13,70 height 14,70
rem hauteur pour les grand icones height 201,30 height 202,30 height 203,30 height 204,30 height 205,30 height 206,30 height 207,30 height 208,30 height 209,30 height 210,30 height 211,30 height 212,30 height 213,30 height 214,30 height 215,30 height 216,30 height 217,30 height 218,30 height 219,30 height 220,30
rem hauteur pour les petit icones height 101,30 height 102,30 height 103,30 height 104,30 height 105,30 height 106,30 height 107,30 height 108,30 height 109,30 height 110,30 height 111,30 height 112,30 height 113,30 height 114,30 height 115,30 height 116,30 height 117,30 height 118,30 height 119,30 height 120,30 height 121,30 height 122,30 height 123,30 height 124,30 height 125,30 height 126,30 height 127,30 top.bas - Code:
-
rem bord supérieur pour les grand images top 1001,102 top 1002,102 top 1003,102 top 1004,102 top 1005,102 top 1006,102 top 1007,102 top 1008,102 top 1009,102 top 1010,102 top 1011,102 top 1012,102 top 1013,102 top 1014,102
rem bord supérieur pour les grand icones top 201,71 top 202,102 top 203,133 top 204,164 top 205,195 top 206,226 top 207,257 top 208,288 top 209,319 top 210,350 top 211,381 top 212,412 top 213,443 top 214,474 top 215,505 top 216,536 top 217,567 top 218,598 top 219,629 top 220,671
rem bord supérieur pour les petit icones top 101,71 top 102,71 top 103,71 top 104,71 top 105,71 top 106,71 top 107,71 top 108,71 top 109,71 top 110,71 top 111,71 top 112,71 top 113,71 top 114,71 top 115,71 top 116,71 top 117,71 top 118,71 top 119,71 top 120,71 top 121,71 top 122,71 top 123,71 top 124,71 top 125,71 top 126,71 top 127,71 left.bas - Code:
-
rem place son bord gauche pour les grand images left 1001,171 left 1002,171 left 1003,171 left 1004,171 left 1005,171 left 1006,171 left 1007,171 left 1008,171 left 1009,171 left 1010,171 left 1011,171 left 1012,171 left 1013,171 left 1014,171 rem show le rend visible show 1001
rem place son bord gauche pour les petit images left 1,0 left 2,71 left 3,142 left 4,213 left 5,284 left 6,355 left 7,426 left 8,497 left 9,568 left 10,639 left 11,710 left 12,781 left 13,852 left 14,923
rem place son bord gauche pour les grand icones left 201,1 left 202,1 left 203,1 left 204,1 left 205,1 left 206,1 left 207,1 left 208,1 left 209,1 left 210,1 left 211,1 left 212,1 left 213,1 left 214,1 left 215,1 left 216,1 left 217,1 left 218,1 left 219,1 left 220,1
rem place son bord gauche pour les petit icones left 101,171 left 102,202 left 103,233 left 104,264 left 105,295 left 106,326 left 107,357 left 108,388 left 109,419 left 110,450 left 111,481 left 112,512 left 113,543 left 114,574 left 115,605 left 116,636 left 117,667 left 118,698 left 119,729 left 120,760 left 121,791 left 122,822 left 123,853 left 124,884 left 125,915 left 126,946 left 127,977 on-click.bas - Code:
-
rem exécute le programme a partir du label quand lobjet système est cliqué
on_click 220,quitter
on_click 1,g1 on_click 2,g2 on_click 3,g3 on_click 4,g4 on_click 5,g5 on_click 6,g6 on_click 7,g7 on_click 8,g8 on_click 9,g9 on_click 10,g10 on_click 11,g11 on_click 12,g12 on_click 13,g13 on_click 14,g14
end
quitter: terminate
g1: rem hide rend invisible les objets système hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1001
return
g2: rem hide rend invisible les objets système hide 1001 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1002
return
g3: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1003
return
g4: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1004
return
g5: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1005
return
g6: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1006
return
g7: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1007
return
g8: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1008
return
g9: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1009
return
g10: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1011 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1010
return
g11: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1012 hide 1013 hide 1014
rem show le rend visible show 1011
return
g12: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1013 hide 1014
rem show le rend visible show 1012
return
g13: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1014
rem show le rend visible show 1013
return
g14: rem hide rend invisible les objets système hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1013 hide 1014
rem show le rend visible show 1014
return gosub.bas - Code:
-
rem hide rend invisible les grand images
hide_g_image:
hide 1001 hide 1002 hide 1003 hide 1004 hide 1005 hide 1006 hide 1007 hide 1008 hide 1009 hide 1010 hide 1011 hide 1012 hide 1013 hide 1014
return
rem hide rend invisible les petit images
hide_p_image:
hide 1 hide 2 hide 3 hide 4 hide 5 hide 6 hide 7 hide 8 hide 9 hide 10 hide 11 hide 12 hide 13 hide 14
return
rem hide rend invisible les objets système
hide_g_icone:
hide 201 hide 202 hide 203 hide 204 hide 205 hide 206 hide 207 hide 208 hide 209 hide 210 hide 211 hide 212 hide 213 hide 214 hide 215 hide 216 hide 217 hide 218 hide 219 hide 220 return
rem hide rend invisible les petit icones
hide_p_icone: hide 101 hide 102 hide 103 hide 104 hide 105 hide 106 hide 107 hide 108 hide 109 hide 110 hide 111 hide 112 hide 113 hide 114 hide 115 hide 116 hide 117 hide 118 hide 119 hide 120 hide 121 hide 122 hide 123 hide 124 hide 125 hide 126 hide 127
return
rem show rend visible les grand icones
show_g_icone:
show 201 show 202 show 203 show 204 show 205 show 206 show 207 show 208 show 209 show 210 show 211 show 212 show 213 show 214 show 215 show 216 show 217 show 218 show 219 show 220
return
rem show rend visible les petit icones
show_p_icone:
show 101 show 102 show 103 show 104 show 105 show 106 show 107 show 108 show 109 show 110 show 111 show 112 show 113 show 114 show 115 show 116 show 117 show 118 show 119 show 120 show 121 show 122 show 123 show 124 show 125 show 126 show 127
return
rem show rend visible les petit images
show_p_image:
show 1 show 2 show 3 show 4 show 5 show 6 show 7 show 8 show 9 show 10 show 11 show 12 show 13 show 14
return
Dernière édition par debut le Dim 23 Mai 2010 - 10:50, édité 1 fois | |
| | | jjn4
Nombre de messages : 2747 Date d'inscription : 13/09/2009
| Sujet: +++ Ven 14 Mai 2010 - 13:38 | |
| Eh, c'est un joli début (sans humour), car je suppose que c'est un début, car sinon, à quoi servent tous ces éléments gris à gauche ou en haut ? Je suppose que c'est pour mettre d'autres commandes. Juste une remarque. Pourquoi charger la mémoire avec tous ces élements gris exactement identiques (g-icone12-0, g-icone13-0, g-icone14-0,...) Ne suffirait-il pas de n'en faire qu'un seul qui serait chargé aux différents endroits avec un for to next (et qui s'appellerait g-icone-0) ? En tout cas, je te remercie pour la leçon sur les include que je n'avais jamais utilisé, finalement, ça a l'air très simple ! A+ | |
| | | JL35
Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007
| Sujet: Re: album photos v0.2 Ven 14 Mai 2010 - 14:26 | |
| Je n'ai pas (encore) essayé le programme, et ce que je dis rejoint peut-être ce que dit jjn4, mais pourquoi toutes ces descriptions interminables dans les caractéristiques des objets ? Je m'explique: - Code:
-
rem pictures pour grand images picture 1001 picture 1002 picture 1003 picture 1004 picture 1005 picture 1006 picture 1007 picture 1008 picture 1009 picture 1010 picture 1011 picture 1012 picture 1013 picture 1014 peut être remplacé par - Code:
-
for i% = 1001 to 1014: picture i%: next i% et de même pour tout le reste. Et le nombre de lignes est divisé par 15 ou 20... Pourquoi se fatiguer quand l'ordinateur est là pour faire le travail répétitif ? | |
| | | Jack Admin
Nombre de messages : 2395 Date d'inscription : 28/05/2007
| Sujet: Re: album photos v0.2 Ven 14 Mai 2010 - 16:05 | |
| Pouvoir faire: - Code:
-
for i% = 1001 to 1014: picture i%: next i% c'est là tout l'intérêt d'avoir des numéros associés aux objets ! Les numéros d'objets sont des nombres ou des expressions mathématiques. Ces expressions peuvent même être en réel. Seule la partie entière sera alors considérée comme numéro d'objet après évaluation de l'expression. J'ajouterai que: - Code:
-
rem charger les grand images file_load 1001,"g1.jpg" file_load 1002,"g2.jpg" file_load 1003,"g3.jpg" file_load 1004,"g4.jpg" file_load 1005,"g5.jpg" file_load 1006,"g6.jpg" file_load 1007,"g7.jpg" file_load 1008,"g8.jpg" file_load 1009,"g9.jpg" file_load 1010,"g10.jpg" file_load 1011,"g11.jpg" file_load 1012,"g12.jpg" file_load 1013,"g13.jpg" file_load 1014,"g14.jpg" peut se réduire à: - Code:
-
rem charger les grand images for i%=1 to 14 file_load 1000+i%,"g"+str$(i%)+".jpg" next i% | |
| | | debut
Nombre de messages : 104 Localisation : Canada Date d'inscription : 12/01/2008
| Sujet: Re: album photos v0.2 Ven 14 Mai 2010 - 21:13 | |
| bonjour (mais pourquoi toutes ces descriptions interminables dans les caractéristiques des objets ?) le pourquoi JL35 la raison cest que mon manque de savoir et limité mais avec les exemples que vous me donné sa va me simplifier énormément mon code + mon savoir va samélioré merci merci et encore merci JL35 + Jack je vais tout changé mon code qui est tellement long merci aussi jjn4 Juste une remarque. Pourquoi charger la mémoire avec tous ces élements gris exactement identiques (g-icone12-0, g-icone13-0, g-icone14-0,...) plus tard tous les éléments gris je vais les utilisé dans les autres versions a+ le travail ma temp | |
| | | debut
Nombre de messages : 104 Localisation : Canada Date d'inscription : 12/01/2008
| Sujet: Re: album photos v0.2 Ven 14 Mai 2010 - 22:28 | |
| bonjour jai rédui mon code a beaucoup moin de ligne plus tard quan je vais avoir le temp je vais le réduire encore - Code:
-
full_space 0
dim i%
caption 0,"Album Photos V 0.1 14 Mai 2010"
label quitter label hide_g_icone,hide_p_icone,hide_p_image,hide_g_image label show_g_icone,show_p_icone,show_p_image label g1,g2,g3,g4,g5,g6,g7,g8,g9,g10,g11,g12,g13,g14
rem pictures pour grand images for i% = 1001 to 1014: picture i%: next i%
rem pictures pour petit images for i% = 1 to 14: picture i%: next i%
rem pictures pour grand icone for i% = 201 to 220: picture i%: next i%
rem pictures pour petit icone for i% = 101 to 127: picture i%: next i%
gosub hide_g_image gosub hide_p_image gosub hide_g_icone gosub hide_p_icone
rem charger les grand images for i%=1 to 14 file_load 1000+i%,"g"+str$(i%)+".jpg" next i%
rem charger les petit images 1-14 for i%=1 to 14 file_load 0+i%,"p"+str$(i%)+".jpg" next i%
file_load 201,"g-icone1-1.jpg" file_load 202,"g-icone2-0.jpg" file_load 203,"g-icone3-0.jpg" file_load 204,"g-icone4-0.jpg" file_load 205,"g-icone5-0.jpg" file_load 206,"g-icone6-0.jpg" file_load 207,"g-icone7-0.jpg" file_load 208,"g-icone8-0.jpg" file_load 209,"g-icone9-0.jpg" file_load 210,"g-icone10-0.jpg" file_load 211,"g-icone11-0.jpg" file_load 212,"g-icone12-0.jpg" file_load 213,"g-icone13-0.jpg" file_load 214,"g-icone14-0.jpg" file_load 215,"g-icone15-0.jpg" file_load 216,"g-icone16-0.jpg" file_load 217,"g-icone17-0.jpg" file_load 218,"g-icone18-0.jpg" file_load 219,"g-icone19-0.jpg" file_load 220,"quitter.jpg"
rem charger les petit icones file_load 101,"p-icone1-1.jpg" file_load 102,"p-icone2-0.jpg" file_load 103,"p-icone3-0.jpg" file_load 104,"p-icone4-0.jpg" file_load 105,"p-icone5-0.jpg" file_load 106,"p-icone6-0.jpg" file_load 107,"p-icone7-0.jpg" file_load 108,"p-icone8-0.jpg" file_load 109,"p-icone9-0.jpg" file_load 110,"p-icone10-0.jpg" file_load 111,"p-icone11-0.jpg" file_load 112,"p-icone12-0.jpg" file_load 113,"p-icone13-0.jpg" file_load 114,"p-icone14-0.jpg" file_load 115,"p-icone15-0.jpg" file_load 116,"p-icone16-0.jpg" file_load 117,"p-icone17-0.jpg" file_load 118,"p-icone18-0.jpg" file_load 119,"p-icone19-0.jpg" file_load 120,"p-icone20-0.jpg" file_load 121,"p-icone21-0.jpg" file_load 122,"p-icone22-0.jpg" file_load 123,"p-icone23-0.jpg" file_load 124,"p-icone24-0.jpg" file_load 125,"p-icone25-0.jpg" file_load 126,"p-icone26-0.jpg" file_load 127,"p-icone27-0.jpg"
rem largeur pour les grand images
width 1001,837 width 1002,837 width 1003,837 width 1004,837 width 1005,837 width 1006,837 width 1007,837 width 1008,837 width 1009,837 width 1010,837 width 1011,837 width 1012,837 width 1013,837 width 1014,837
rem largeur pour les petit images width 1,70 width 2,70 width 3,70 width 4,70 width 5,70 width 6,70 width 7,70 width 8,70 width 9,70 width 10,70 width 11,70 width 12,70 width 13,70 width 14,70
rem largeur pour les grand icones width 201,169 width 202,169 width 203,169 width 204,169 width 205,169 width 206,169 width 207,169 width 208,169 width 209,169 width 210,169 width 211,169 width 212,169 width 213,169 width 214,169 width 215,169 width 216,169 width 217,169 width 218,169 width 219,169 width 220,169
rem largeur pour les petit icones width 101,30 width 102,30 width 103,30 width 104,30 width 105,30 width 106,30 width 107,30 width 108,30 width 109,30 width 110,30 width 111,30 width 112,30 width 113,30 width 114,30 width 115,30 width 116,30 width 117,30 width 118,30 width 119,30 width 120,30 width 121,30 width 122,30 width 123,30 width 124,30 width 125,30 width 126,30 width 127,30
rem hauteur pour les grand images height 1001,600 height 1002,600 height 1003,600 height 1004,600 height 1005,600 height 1006,600 height 1007,600 height 1008,600 height 1009,600 height 1010,600 height 1011,600 height 1012,600 height 1013,600 height 1014,600
rem hauteur pour les petit images height 1,70 height 2,70 height 3,70 height 4,70 height 5,70 height 6,70 height 7,70 height 8,70 height 9,70 height 10,70 height 11,70 height 12,70 height 13,70 height 14,70
rem hauteur pour les grand icones height 201,30 height 202,30 height 203,30 height 204,30 height 205,30 height 206,30 height 207,30 height 208,30 height 209,30 height 210,30 height 211,30 height 212,30 height 213,30 height 214,30 height 215,30 height 216,30 height 217,30 height 218,30 height 219,30 height 220,30
rem hauteur pour les petit icones height 101,30 height 102,30 height 103,30 height 104,30 height 105,30 height 106,30 height 107,30 height 108,30 height 109,30 height 110,30 height 111,30 height 112,30 height 113,30 height 114,30 height 115,30 height 116,30 height 117,30 height 118,30 height 119,30 height 120,30 height 121,30 height 122,30 height 123,30 height 124,30 height 125,30 height 126,30 height 127,30
rem bord supérieur pour les grand images top 1001,102 top 1002,102 top 1003,102 top 1004,102 top 1005,102 top 1006,102 top 1007,102 top 1008,102 top 1009,102 top 1010,102 top 1011,102 top 1012,102 top 1013,102 top 1014,102
rem bord supérieur pour les grand icones top 201,71 top 202,102 top 203,133 top 204,164 top 205,195 top 206,226 top 207,257 top 208,288 top 209,319 top 210,350 top 211,381 top 212,412 top 213,443 top 214,474 top 215,505 top 216,536 top 217,567 top 218,598 top 219,629 top 220,671
rem bord supérieur pour les petit icones top 101,71 top 102,71 top 103,71 top 104,71 top 105,71 top 106,71 top 107,71 top 108,71 top 109,71 top 110,71 top 111,71 top 112,71 top 113,71 top 114,71 top 115,71 top 116,71 top 117,71 top 118,71 top 119,71 top 120,71 top 121,71 top 122,71 top 123,71 top 124,71 top 125,71 top 126,71 top 127,71
rem place son bord gauche pour les grand images left 1001,171 left 1002,171 left 1003,171 left 1004,171 left 1005,171 left 1006,171 left 1007,171 left 1008,171 left 1009,171 left 1010,171 left 1011,171 left 1012,171 left 1013,171 left 1014,171 rem show le rend visible show 1001
rem place son bord gauche pour les petit images left 1,0 left 2,71 left 3,142 left 4,213 left 5,284 left 6,355 left 7,426 left 8,497 left 9,568 left 10,639 left 11,710 left 12,781 left 13,852 left 14,923 gosub show_p_image
rem place son bord gauche pour les grand icones left 201,1 left 202,1 left 203,1 left 204,1 left 205,1 left 206,1 left 207,1 left 208,1 left 209,1 left 210,1 left 211,1 left 212,1 left 213,1 left 214,1 left 215,1 left 216,1 left 217,1 left 218,1 left 219,1 left 220,1
gosub show_g_icone
rem place son bord gauche pour les petit icones left 101,171 left 102,202 left 103,233 left 104,264 left 105,295 left 106,326 left 107,357 left 108,388 left 109,419 left 110,450 left 111,481 left 112,512 left 113,543 left 114,574 left 115,605 left 116,636 left 117,667 left 118,698 left 119,729 left 120,760 left 121,791 left 122,822 left 123,853 left 124,884 left 125,915 left 126,946 left 127,977 gosub show_p_icone
rem exécute le programme a partir du label quand lobjet système est cliqué
on_click 220,quitter
on_click 1,g1 on_click 2,g2 on_click 3,g3 on_click 4,g4 on_click 5,g5 on_click 6,g6 on_click 7,g7 on_click 8,g8 on_click 9,g9 on_click 10,g10 on_click 11,g11 on_click 12,g12 on_click 13,g13 on_click 14,g14
end
quitter: terminate
g1: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1001 return
g2: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1002 return
g3: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1003 return
g4: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1004 return
g5: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1005 return
g6: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1006 return
g7: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1007 return
g8: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1008 return
g9: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1009 return
g10: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1010 return
g11: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1011 return
g12: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1012 return
g13: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1013 return
g14: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1014 return
rem hide rend invisible les grand images hide_g_image: for i% = 1001 to 1014: hide i%: next i% return
rem hide rend invisible les petit images hide_p_image: for i% = 1 to 14: hide i%: next i% return
rem hide rend invisible les objets système hide_g_icone: for i% = 201 to 220: hide i%: next i% return
rem hide rend invisible les petit icones hide_p_icone: for i% = 101 to 127: hide i%: next i% return
rem show rend visible les grand icones show_g_icone: for i% = 201 to 220: show i%: next i% return
rem show rend visible les petit icones show_p_icone: for i% = 101 to 127: show i%: next i% return
rem show rend visible les petit images show_p_image: for i% = 1 to 14: show i%: next i% return merci a+
Dernière édition par debut le Ven 14 Mai 2010 - 23:11, édité 1 fois | |
| | | JL35
Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007
| Sujet: Re: album photos v0.2 Ven 14 Mai 2010 - 22:42 | |
| Il y a encore beaucoup trop de lignes !!! Tous les width, top, left, height qui ont la même valeur peuvent se réduire à une boucle d'une seule ligne (voir ci-dessus). Et même les file_load, comme a montré Jack: - Code:
-
file_load 201,"g-icone1-1.jpg" file_load 202,"g-icone2-0.jpg" ... file_load 219,"g-icone19-0.jpg" remplacé par - Code:
-
file_load 201,"g-icone1-1.jpg" For i% = 202 To 219: File_Load i%,"g-icone"+str$(i%-200)+"-0.jpg": Next i% Même principe pour les on_click. Pour les dimensions qui ont des valeurs différentes, il serait peut-être bon de mettre ces valeurs dans des tableaux, et de les lire en boucle après. Tout ça dans l'esprit d'avoir un code le plus court possible (et plus facile à lire et à maintenir ensuite). Une petite remarque aussi: tu as mis beaucoup de lignes vides pour aérer, mais ça rend le listing beaucoup plus long et finalement plus difficile à suivre. Par exemple j'aurais mis une ligne vide entre chaque sous-programme, mais c'est tout. Au lieu de: - Code:
-
Rem commentaire 1
sousprogramme1:
for i% = ... next i%
return
Rem commentaire 2
sousprogramme2:
for i%... next i%
return ... j'aurais mis: - Code:
-
Rem commentaire 1 sousprogramme1: for i% = ... next i% return
Rem commentaire 2 sousprogramme2: for i%... next i% return ... le programme est moins aéré mais finalement plus lisible, les différentes parties étant mieux séparées. | |
| | | debut
Nombre de messages : 104 Localisation : Canada Date d'inscription : 12/01/2008
| Sujet: Re: album photos v0.2 Sam 15 Mai 2010 - 2:21 | |
| bonjour je les encore rédui mon code je pense que le gros du travail est fait il reste encore un peu de travail peut être pour encore réduire des lignes mais moi je suis plutot satisfait du dernier code le premier code était plutot énorme plus de 1,000 lignes de code la il fait juste 314 lignes de codes encore merci a+ - Code:
-
full_space 0
dim i%
caption 0,"Album Photos V 0.1 15 Mai 2010"
label quitter label hide_g_icone,hide_p_icone,hide_p_image,hide_g_image label show_g_icone,show_p_icone,show_p_image label g1,g2,g3,g4,g5,g6,g7,g8,g9,g10,g11,g12,g13,g14
rem pictures pour grand images for i% = 1001 to 1014: picture i%: next i%
rem pictures pour petit images for i% = 1 to 14: picture i%: next i%
rem pictures pour grand icone for i% = 201 to 220: picture i%: next i%
rem pictures pour petit icone for i% = 101 to 127: picture i%: next i%
gosub hide_g_image gosub hide_p_image gosub hide_g_icone gosub hide_p_icone
rem charger les grand images for i%=1 to 14:file_load 1000+i%,"g"+str$(i%)+".jpg":next i%
rem charger les petit images 1-14 for i%=1 to 14:file_load 0+i%,"p"+str$(i%)+".jpg":next i%
rem charger les grand icones file_load 201,"g-icone1-1.jpg" For i% = 202 To 219: File_Load i%,"g-icone"+str$(i%-200)+"-0.jpg": Next i%
file_load 220,"quitter.jpg"
rem charger les petit icones file_load 101,"p-icone1-1.jpg"
For i% = 102 To 127: File_Load i%,"p-icone"+str$(i%-100)+"-0.jpg": Next i%
rem largeur pour les grand images for i% = 1001 to 1014: width i%,837: next i%
rem largeur pour les petit images for i% = 1 to 14: width i%,70: next i%
rem largeur pour les grand icones for i% = 201 to 220: width i%,169: next i%
rem largeur pour les petit icones for i% = 101 to 127: width i%,30: next i%
rem hauteur pour les grand images for i% = 1001 to 1014: height i%,600: next i%
rem hauteur pour les petit images for i% = 1 to 14: height i%,70: next i%
rem hauteur pour les grand icones for i% = 201 to 220: height i%,30: next i%
rem hauteur pour les petit icones for i% = 101 to 127: height i%,30: next i%
rem bord supérieur pour les grand images for i% = 1001 to 1014: top i%,102: next i%
rem bord supérieur pour les grand icones top 201,71 top 202,102 top 203,133 top 204,164 top 205,195 top 206,226 top 207,257 top 208,288 top 209,319 top 210,350 top 211,381 top 212,412 top 213,443 top 214,474 top 215,505 top 216,536 top 217,567 top 218,598 top 219,629 top 220,671
rem bord supérieur pour les petit icones for i% = 101 to 127: top i%,71: next i%
rem place son bord gauche pour les grand images for i% = 1001 to 1014: left i%,171: next i%
rem show le rend visible show 1001
rem place son bord gauche pour les petit images left 1,0 left 2,71 left 3,142 left 4,213 left 5,284 left 6,355 left 7,426 left 8,497 left 9,568 left 10,639 left 11,710 left 12,781 left 13,852 left 14,923 gosub show_p_image
rem place son bord gauche pour les grand icones for i% = 201 to 220: left i%,1: next i%
gosub show_g_icone
rem place son bord gauche pour les petit icones left 101,171 left 102,202 left 103,233 left 104,264 left 105,295 left 106,326 left 107,357 left 108,388 left 109,419 left 110,450 left 111,481 left 112,512 left 113,543 left 114,574 left 115,605 left 116,636 left 117,667 left 118,698 left 119,729 left 120,760 left 121,791 left 122,822 left 123,853 left 124,884 left 125,915 left 126,946 left 127,977 gosub show_p_icone
rem exécute le programme a partir du label quand lobjet système est cliqué
on_click 220,quitter
on_click 1,g1 on_click 2,g2 on_click 3,g3 on_click 4,g4 on_click 5,g5 on_click 6,g6 on_click 7,g7 on_click 8,g8 on_click 9,g9 on_click 10,g10 on_click 11,g11 on_click 12,g12 on_click 13,g13 on_click 14,g14
end
quitter: terminate
g1: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1001 return
g2: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1002 return
g3: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1003 return
g4: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1004 return
g5: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1005 return
g6: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1006 return
g7: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1007 return
g8: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1008 return
g9: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1009 return
g10: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1010 return
g11: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1011 return
g12: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1012 return
g13: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1013 return
g14: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1014 return
rem hide rend invisible les grand images hide_g_image: for i% = 1001 to 1014: hide i%: next i% return
rem hide rend invisible les petit images hide_p_image: for i% = 1 to 14: hide i%: next i% return
rem hide rend invisible les objets système hide_g_icone: for i% = 201 to 220: hide i%: next i% return
rem hide rend invisible les petit icones hide_p_icone: for i% = 101 to 127: hide i%: next i% return
rem show rend visible les grand icones show_g_icone: for i% = 201 to 220: show i%: next i% return
rem show rend visible les petit icones show_p_icone: for i% = 101 to 127: show i%: next i% return
rem show rend visible les petit images show_p_image: for i% = 1 to 14: show i%: next i% return | |
| | | JL35
Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007
| Sujet: Re: album photos v0.2 Sam 15 Mai 2010 - 10:05 | |
| C'est beaucoup mieux, mais tu peux encore mieux faire. On remarque que pour les top et les left la progression est constante, donc ça peut se programmer facilement dans une boucle, avec une constante à additionner à chaque fois. Et si un jour tu veux modifier cette constante, ce sera beaucoup plus facile de le faire une seule fois que de tout recalculer à chaque ligne. C'est l'intérêt de tout paramétrer.
J'espère que tu comprends bien que dans mon esprit ce sont des critiques, non disons plutôt des remarques, qui se veulent constructives, enfin c'est ma manière de faire à moi, pas du tout une obligation légale, puisque les deux systèmes fonctionnent tout pareil ! simplement je pense à la facilité de lecture pour les utilisateurs, de relecture et de maintenance pour toi plus tard. Quand on reprend un de ses programmes au bout de quelque temps, on a parfois bien du mal à en retrouver la logique... | |
| | | debut
Nombre de messages : 104 Localisation : Canada Date d'inscription : 12/01/2008
| Sujet: Re: album photos v0.2 Dim 16 Mai 2010 - 0:52 | |
| encore bonjour enfin mon code terminé merci pour tou ceux qui mon aidé a le terminé a+ - Code:
-
full_space 0
dim i% dim n1%,n2%,n3%
caption 0,"Album Photos V 0.1 14 Mai 2010"
label quitter label hide_g_icone,hide_p_icone,hide_p_image,hide_g_image label show_g_icone,show_p_icone,show_p_image label g1,g2,g3,g4,g5,g6,g7,g8,g9,g10,g11,g12,g13,g14
rem pictures pour grand images for i% = 1001 to 1014: picture i%: next i%
rem pictures pour petit images for i% = 1 to 14: picture i%: next i%
rem pictures pour grand icone for i% = 201 to 220: picture i%: next i%
rem pictures pour petit icone for i% = 101 to 127: picture i%: next i%
gosub hide_g_image gosub hide_p_image gosub hide_g_icone gosub hide_p_icone
rem charger les grand images for i%=1 to 14:file_load 1000+i%,"g"+str$(i%)+".jpg":next i%
rem charger les petit images 1-14 for i%=1 to 14:file_load 0+i%,"p"+str$(i%)+".jpg":next i%
rem charger les grand icones file_load 201,"g-icone1-1.jpg" For i% = 202 To 219: File_Load i%,"g-icone"+str$(i%-200)+"-0.jpg": Next i%
file_load 220,"quitter.jpg"
rem charger les petit icones file_load 101,"p-icone1-1.jpg"
For i% = 102 To 127: File_Load i%,"p-icone"+str$(i%-100)+"-0.jpg": Next i%
rem largeur pour les grand images for i% = 1001 to 1014: width i%,837: next i%
rem largeur pour les petit images for i% = 1 to 14: width i%,70: next i%
rem largeur pour les grand icones for i% = 201 to 220: width i%,169: next i%
rem largeur pour les petit icones for i% = 101 to 127: width i%,30: next i%
rem hauteur pour les grand images for i% = 1001 to 1014: height i%,600: next i%
rem hauteur pour les petit images for i% = 1 to 14: height i%,70: next i%
rem hauteur pour les grand icones for i% = 201 to 220: height i%,30: next i%
rem hauteur pour les petit icones for i% = 101 to 127: height i%,30: next i%
rem bord supérieur pour les grand images for i% = 1001 to 1014: top i%,102: next i%
rem bord supérieur pour les grand icones n1% = 71: ' valeur de départ For i% = 201 To 219:Top i%, n1%:n1% = n1% + 31:Next i%
rem top pour quitter top 220,671
rem bord supérieur pour les petit icones for i% = 101 to 127: top i%,71: next i%
rem place son bord gauche pour les grand images for i% = 1001 to 1014: left i%,171: next i%
rem show le rend visible show 1001
rem place son bord gauche pour les petit images n2% = 0: ' valeur de départ For i% = 1 To 14:left i%, n2%:n2% = n2% + 71:Next i% gosub show_p_image
rem place son bord gauche pour les grand icones for i% = 201 to 220: left i%,1: next i%
gosub show_g_icone
rem place son bord gauche pour les petit icones n3% = 171: ' valeur de départ For i% = 101 To 127:left i%, n3%:n3% = n3% + 31:Next i% gosub show_p_icone
rem exécute le programme a partir du label quand lobjet système est cliqué
on_click 220,quitter
on_click 1,g1 on_click 2,g2 on_click 3,g3 on_click 4,g4 on_click 5,g5 on_click 6,g6 on_click 7,g7 on_click 8,g8 on_click 9,g9 on_click 10,g10 on_click 11,g11 on_click 12,g12 on_click 13,g13 on_click 14,g14
end
quitter: terminate
g1: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1001 return
g2: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1002 return
g3: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1003 return
g4: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1004 return
g5: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1005 return
g6: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1006 return
g7: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1007 return
g8: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1008 return
g9: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1009 return
g10: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1010 return
g11: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1011 return
g12: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1012 return
g13: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1013 return
g14: rem hide rend invisible les objets système for i% = 1001 to 1014: hide i%: next i% rem show le rend visible show 1014 return
rem hide rend invisible les grand images hide_g_image: for i% = 1001 to 1014: hide i%: next i% return
rem hide rend invisible les petit images hide_p_image: for i% = 1 to 14: hide i%: next i% return
rem hide rend invisible les objets système hide_g_icone: for i% = 201 to 220: hide i%: next i% return
rem hide rend invisible les petit icones hide_p_icone: for i% = 101 to 127: hide i%: next i% return
rem show rend visible les grand icones show_g_icone: for i% = 201 to 220: show i%: next i% return
rem show rend visible les petit icones show_p_icone: for i% = 101 to 127: show i%: next i% return
rem show rend visible les petit images show_p_image: for i% = 1 to 14: show i%: next i% return | |
| | | debut
Nombre de messages : 104 Localisation : Canada Date d'inscription : 12/01/2008
| Sujet: Re: album photos v0.2 Dim 23 Mai 2010 - 10:54 | |
| | |
| | | jjn4
Nombre de messages : 2747 Date d'inscription : 13/09/2009
| Sujet: +++ Dim 23 Mai 2010 - 13:46 | |
| Huuuumm ! Ca commence à prendre forme. Super ! | |
| | | Contenu sponsorisé
| Sujet: Re: album photos v0.2 | |
| |
| | | | album photos v0.2 | |
|
Sujets similaires | |
|
| Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |