FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» PANORAMIC V 1
album photos v0.2 Emptypar papydall Aujourd'hui à 5:28

» Je teste PANORAMIC V 1 beta 1
album photos v0.2 Emptypar papydall Aujourd'hui à 2:48

» bouton dans autre form que 0
album photos v0.2 Emptypar leclode Hier à 13:59

» KGF_dll - nouvelles versions
album photos v0.2 Emptypar Klaus Hier à 11:41

» Gestion d'un système client-serveur.
album photos v0.2 Emptypar Klaus Hier à 10:23

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
album photos v0.2 Emptypar Froggy One Jeu 2 Mai 2024 - 11:16

» @Jack
album photos v0.2 Emptypar Jack Mar 30 Avr 2024 - 20:40

» trop de fichiers en cours
album photos v0.2 Emptypar papydall Lun 29 Avr 2024 - 23:39

» Une calculatrice en une ligne de programme
album photos v0.2 Emptypar jean_debord Dim 28 Avr 2024 - 8:47

» Form(résolu)
album photos v0.2 Emptypar leclode Sam 27 Avr 2024 - 17:59

» Bataille navale SM
album photos v0.2 Emptypar jjn4 Ven 26 Avr 2024 - 17:39

» Les maths du crocodile
album photos v0.2 Emptypar jean_debord Jeu 25 Avr 2024 - 10:37

» Naissance de Crocodile Basic
album photos v0.2 Emptypar jean_debord Jeu 25 Avr 2024 - 8:45

» Dessine-moi une galaxie
album photos v0.2 Emptypar jjn4 Lun 22 Avr 2024 - 13:47

» Erreur END_SUB
album photos v0.2 Emptypar jjn4 Lun 22 Avr 2024 - 13:43

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2024
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier
Le Deal du moment : -21%
LEGO® Icons 10329 Les Plantes Miniatures, ...
Voir le deal
39.59 €

 

 album photos v0.2

Aller en bas 
4 participants
AuteurMessage
debut




Nombre de messages : 104
Localisation : Canada
Date d'inscription : 12/01/2008

album photos v0.2 Empty
MessageSujet: album photos v0.2   album photos v0.2 EmptyVen 14 Mai 2010 - 13:00

bonjour Very Happy

jai terminé ma premier version dun album photos cheers

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.zip

dans les autres versions je vais faire un zip qui va contenir tou les fichier includes

alp a+ Very Happy


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
Revenir en haut Aller en bas
jjn4

jjn4


Nombre de messages : 2693
Date d'inscription : 13/09/2009

album photos v0.2 Empty
MessageSujet: +++   album photos v0.2 EmptyVen 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+ jocolor
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
JL35




Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyVen 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 ?
Revenir en haut Aller en bas
Jack
Admin
Jack


Nombre de messages : 2386
Date d'inscription : 28/05/2007

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyVen 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%
Revenir en haut Aller en bas
https://panoramic.1fr1.net
debut




Nombre de messages : 104
Localisation : Canada
Date d'inscription : 12/01/2008

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyVen 14 Mai 2010 - 21:13

bonjour Very Happy

(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 lol!

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
Revenir en haut Aller en bas
debut




Nombre de messages : 104
Localisation : Canada
Date d'inscription : 12/01/2008

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyVen 14 Mai 2010 - 22:28

bonjour Very Happy

jai rédui mon code a beaucoup moin de ligne cheers

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+ Very Happy


Dernière édition par debut le Ven 14 Mai 2010 - 23:11, édité 1 fois
Revenir en haut Aller en bas
JL35




Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyVen 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.
Revenir en haut Aller en bas
debut




Nombre de messages : 104
Localisation : Canada
Date d'inscription : 12/01/2008

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptySam 15 Mai 2010 - 2:21

bonjour Very Happy

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 cheers

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
Revenir en haut Aller en bas
JL35




Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptySam 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...
Revenir en haut Aller en bas
debut




Nombre de messages : 104
Localisation : Canada
Date d'inscription : 12/01/2008

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyDim 16 Mai 2010 - 0:52

encore bonjour Very Happy

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
Revenir en haut Aller en bas
debut




Nombre de messages : 104
Localisation : Canada
Date d'inscription : 12/01/2008

album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 EmptyDim 23 Mai 2010 - 10:54

bonjour Very Happy

je vien de terminé ma version 0.2 de lalbum photos

le lien pour pouvoir le téléchargé

http://debut2010.e-monsite.com/

merci alp Very Happy
Revenir en haut Aller en bas
jjn4

jjn4


Nombre de messages : 2693
Date d'inscription : 13/09/2009

album photos v0.2 Empty
MessageSujet: +++   album photos v0.2 EmptyDim 23 Mai 2010 - 13:46

Huuuumm !
Ca commence à prendre forme.
Super !
king

Je rappelle que sur mon site, l'histoire drôle est modifiée tous les dimanche (et on est dimanche)
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
Contenu sponsorisé





album photos v0.2 Empty
MessageSujet: Re: album photos v0.2   album photos v0.2 Empty

Revenir en haut Aller en bas
 
album photos v0.2
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Super album photo de famille
» Classement de photos
» Affichage de photos
» Album Photos avec liste 0.2
» Un album photos comme du temps des grands-mères

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: