| Mai 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 | 31 | | |  Calendrier |
|
| | | ICONES à glissière |  |
| | | Auteur | Message |
|---|
Invité
Invité
| | Sujet: ICONES à glissière Jeu 24 Déc 2009 - 0:35 | |
| Ceci est un utilitaire, qui certainement ne sera pas adopter, parce qu'il semble difficile à intégrer. J'ai cherché une solution pour pouvoir intégrer des icônes de menus, sans qu'il soit nécessaire de télécharger les fichiers, ou charger ceux ci dans un programme. Cela demande beaucoup de codes. Mais si vous êtes intéressé, j'ai fais à coté deux programmes, l'un pour créer des icônes, et l'autre est un programme qui conçoit l'intégralité du code pour mettre les icônes de son choix, en quelque clic. Quelques secondes suffisent. (le code obtenu est simplié par rapport à celui-cin sans rien perdre) Joyeux Noël. ( PS: JL35, ta pendule est pas mal - j'ai pas voulu y faire de commentaires dessus pour pas enlever le nom du créateur dans l'encart de gauche) - Code:
-
' Présentation du programme pour intégrer les outils dans un autre programme
width 0,500:height 0,150 :left 0,600:top 0,100:border_small 0:color 0,220,255,210
' variables de départ pour le programme
dim sce,ico, pict ,mem , alfaico%,messag$,saut$,gd%,a%,click%,n%,d% ,a$
' $$ -1) 1 variable par PICTURE (icone de menu)
dim ico1 :' créé nouveau fichier
dim ico2 :' ouvrir
dim ico3 :' enregistrement
dim ico4 :' nouvelle liste
dim ico5 :' préférence
dim ico6 :' adapte la fenêtre
dim ico7 :' efface
dim ico8 :' renomme
dim ico9 :' stop
dim ico10 :' Père Noël
dim ico11 :' cadeaux
dim ico12 :' bloc note
dim ico13 :' calculatrice
' label de départ à intégrer obligatoirement (ou modifier le programme)
label cadre,alfaICONE,glisse,click,lequel,rien,jouer,fin
' label pour un icone, et 1 pour le branchement lors du click (ici message1)
label iconeNouveau ,message1 :' créé nouveau fichier
label iconeOUVRE ,message2 :' ouvrir un document
label iconEnregistre ,message3 :' enregistrement
label iconeNewItem ,message4 :' nouvelle liste
label iconePreference,message5 :' boite préférence
label iconeADAPTE ,message6 :' adapter les objets à la fenêtre
label iconeEFFACE ,message7 :' efface un ...
label iconeRENOMME ,message8 :' renomme un truc
label iconSTOP :' pas de message branchement direct à terminate
label iconePerenoel ,message10:' père Noël
label iconeCADEAUX ,message11:' cadeaux
label iconeNOTE ,message12:' bloc note
label iconeCALCUL ,message13:' calculatrice
saut$=chr$(10)+chr$(13):' saut à la ligne suivante
sce=1 :' numéro du premier objet, à modifier si les objets sont à inclure dans un autre programme
ico=sce+1 :' numéro de l'objet ALPHA qui est le texte de présentation de l'icone
pict= ico +1 :' numéro de l'objet SCROLL_BAR
mem =pict+1 :' numero du MEMO qui ici remplace l'exécution de l'icone menu cliqué
' numérotation des objets PICTURE qui simule une commande de menu
ico1 = mem +1 :' ici nouveau Fichier
ico2 =ico1 +1 :' ici ouvrir document
ico3 =ico2 +1 :' ici enregistrement
ico4 =ico3 +1 :' ici nouvelle liste
ico5 =ico4 +1 :' préférence
ico6 =ico5 +1 :' adapter la fenêtre
ico7 =ico6 +1 :' efface
ico8 =ico7 +1 :' renomme
ico9 =ico8 +1 :' stop
ico10=ico9 +1 :' Père Noël
ico11=ico10+1 :' cadeaux
ico12=ico11+1 :' bloc note
ico13=ico12+1 :' calculatrice
' ======Ce PICTURE peut-être supprimé, avait au départ pour but de faire un fond de couleur====
picture sce:left sce,0:top sce,0:width sce,210:height sce,38:color sce,220,255,210
hint sce,"glisser le curseur"+saut$+"changer de menu"
' MEMO mem sert de démonstration du bon fonctionnement, mais tous les icones sont branchés ici
memo mem:left mem,0:top mem,40:width mem,490:height mem,80:font_bold mem:font_size mem,12
' Scroll_bar sert au défilement de chaque icone du menu
scroll_bar pict:left pict,50:top pict,23:width pict,150:height pict,8
hint pict,"glisser le curseur"+saut$+"changer de menu"
' if faut adapter la variable >pict< au nombre d'icones (ici 3 pour 3 icones)
min pict,1:max pict,13:on_change pict,glisse
' ici ^^
' ^^
' =============maintenant 1 PICTURE par icone (au départ sauf le 1er HIDExx=====
picture ico1:width ico1,30:height ico1,30:left ico1,10:top ico1,2
2d_target_is ico1 :gosub iconeNouveau :on_click ico1,lequel
picture ico2:width ico2,30:height ico2,30:left ico2,10:top ico2,2:hide ico2
2d_target_is ico2 :gosub iconeOUVRE :on_click ico2,lequel
picture ico3:width ico3,30:height ico3,30:left ico3,10:top ico3,2:hide ico3
2d_target_is ico3 :gosub iconEnregistre :on_click ico3,lequel
picture ico4:width ico4,30:height ico4,30:left ico4,10:top ico4,2:hide ico4
2d_target_is ico4 :gosub iconeNewItem :on_click ico4,lequel
picture ico5:width ico5,30:height ico5,30:left ico5,10:top ico5,2:hide ico5:on_click ico5,lequel
2d_target_is ico5 :gosub iconepreference :on_click ico5,lequel
picture ico6:width ico6,30:height ico6,30:left ico6,10:top ico6,2:hide ico6:on_click ico6,lequel
2d_target_is ico6 :gosub iconeADAPTE :on_click ico6,lequel
picture ico7:width ico7,30:height ico7,30:left ico7,10:top ico7,2:hide ico7:on_click ico7,lequel
2d_target_is ico7 :gosub iconeEFFACE :on_click ico7,lequel
picture ico8:width ico8,30:height ico8,30:left ico8,10:top ico8,2:hide ico8:on_click ico8,lequel
2d_target_is ico8 :gosub iconeRENOMME :on_click ico8,lequel
picture ico9:width ico9,30:height ico9,30:left ico9,10:top ico9,2:hide ico9:on_click ico9,lequel
2d_target_is ico9 :gosub iconSTOP :on_click ico9,fin
picture ico10:width ico10,30:height ico10,30:left ico10,10:top ico10,2:hide ico10:on_click ico10,lequel
2d_target_is ico10 :gosub iconePerenoel :on_click ico10,lequel
picture ico11:width ico11,30:height ico11,30:left ico11,10:top ico11,2:hide ico11:on_click ico11,lequel
2d_target_is ico11 :gosub iconeCADEAUX :on_click ico11,lequel
picture ico12:width ico12,30:height ico12,30:left ico12,10:top ico12,2:hide ico12:on_click ico12,lequel
2d_target_is ico12 :gosub iconeNOTE :on_click ico12,lequel
picture ico13:width ico13,30:height ico13,30:left ico13,10:top ico13,2:hide ico13:on_click ico13,lequel
2d_target_is ico13 :gosub iconeCALCUL :on_click ico13,lequel
' ==============================================================================
END
' ==============================================================================
glisse:
gd%=position(pict) : clear mem :color mem ,220,255,210
' $$ adapter TO ... au dernier icone
for a%=ico1 to ico13 :hide a%:next a%
' ^^
' ^^
' =======chaque changement de glissière arrive ici donc mettre à jour==========
' message accompagnant chaque icone lors du déplacement de la glissière
select gd%
case 1:show ico1
messag$="Nouveau":gosub alfaICONE
case 2:show ico2
messag$="Ouvrir":gosub alfaICONE
case 3:show ico3
messag$="sauvegarder":gosub alfaICONE
case 4:show ico4
messag$="Ajouter une nouvelle liste":gosub alfaICONE
case 5:show ico5
messag$="adapter les préférences":gosub alfaICONE
case 6:show ico6
messag$="adapter les objets à la fenêtre":gosub alfaICONE
case 7:show ico7
messag$="effacer un objet ou ?":gosub alfaICONE
case 8:show ico8
messag$="renommer un truc":gosub alfaICONE
case 9:show ico9
messag$="Arrêt du programme":gosub alfaICONE
case 10:show ico10
messag$="Le père Noël nouveau est arrivé":gosub alfaICONE:gosub jouer
case 11:show ico11
messag$="Et apporte des CADEAUX":gosub alfaICONE
case 12:show ico12
messag$="Bloc Notes":gosub alfaICONE
case 13:show ico13
messag$="calculatrice":gosub alfaICONE
end_select
return
' °°°°°°°°°°°°°°°°°°°°°°°°°°°°
lequel:
color mem,255,255,255:item_add mem,"SIMULATION DE COMMANDE"
' ------------------
for a%=ico1 to ico13:' <<== mettre ici le dernier icone ( to ico5 to ico6 ...)
' ^^^^^
if clicked(a%)=1 then exit_for
next a% :click%=a%
' ------------------
' simulation du click
2d_target_is click% :if click%<ico10 or click%>ico11 then gosub click:wait 150:gosub cadre
if click%>ico9 then clear mem :' efface simulation de commande
a%=a%-4 :' ico1=5, écart entre ico1 et - case 1 -
' tous les picture sont branché ici lorsqu'on clic dessus
' ==============UNE CASE PAR ICONE=======================
select a%
case 1 :gosub message1 :' nouveau
case 2 :gosub message2 :' ouvrir
case 3 :gosub message3 :' sauvegarder
case 4 :gosub message4 :' ajouter une liste
case 5 :gosub message5 :' boite propriété
case 6 :gosub message6 :' adapte à la fenêtre
case 7 :gosub message7 :' efface
case 8 :gosub message8 :' renomme
case 9 :goto fin :' stop arrêt du programme
case 10:gosub message10 :' père Noël
case 11:gosub message11 :' cadeaux
case 12:gosub message12 :' bloc note
case 13:gosub message13 :' calculatrice
end_select
return
' =============================================================================
message1:
item_add mem, "CLIQUEZ 1: Nouveau "
return
' --
message2:
item_add mem, "CLIQUEZ 2: Ouvrir un socument"
return
' --
message3:
item_add mem, "CLIQUEZ 3: boite enregistrement"
return
' --
message4:
item_add mem, "CLIQUEZ 4: boite pour ajouter une nouvelle liste"
return
' --
message5:
item_add mem,"CLIQUEZ 5: boite préférence"
return
' --
message6:
item_add mem,"CLIQUEZ 6: adapte la fenêtre"
return
' --
message7:
item_add mem,"CLIQUEZ 7: efface ? à définir"
return
' --
message8:
item_add mem,"CLIQUEZ 8: renomme quelque chose"
return
' --
' message9
' pas de message, stop
return
' --
message10:
item_add mem, "JOYEUX NOEL A L'ENSEMBLE DU FORUM":item_add mem,"de Panoramic, et à Jack pour le travail énorme qu'il fait"
return
' --
message11:
item_add mem, "Bonheur et PROSPÉRITÉ à tous":item_add mem,"et passez de Bonnes fêtes de fin d'année"
return
' --
message12:
a$=""
rem for a%=1 to 100:a$=a$+chr$(9):next a%:item_add mem,a$
item_add mem, "CLIQUEZ 12: Bloc Notes "+chr$(9)+chr$(9):execute "notepad.exe"
return
' --
message13:
item_add mem, "CLIQUEZ 13: calculatrice ":execute "calc.exe"
return
' =============================================================================
' ---------cadre entourant chaque icone-----
cadre:
2d_pen_color 200,200,200
2d_pen_width 2
2d_line 0,0,29,0:2d_line 0,0,29,0
2d_line 0,1,0,29:2d_line 1,1,27,1:2d_line 1,2,25,2:2d_line 1,1,1,27:2d_line 2,3,2,25
2d_pen_color 150,150,150:2d_line 29,1,29,28:2d_line 28,1,28,27:2d_line 27,2,27,25
2d_line 2,26,27,26:2d_line 2,27,27,27:2d_line 1,28,28,28
return
click:
2d_pen_width 2:2d_pen_color 218,175,133
2d_line 0,0,29,0:2d_line 0,0,29,0
2d_line 0,1,0,29:2d_line 1,1,27,1:2d_line 1,2,25,2:2d_line 1,1,1,27:2d_line 2,3,2,25
2d_pen_color 216,216,164:2d_line 29,1,29,28:2d_line 28,1,28,27:2d_line 27,2,27,25
2d_line 2,26,27,26:2d_line 2,27,27,27:2d_line 1,28,28,28
return
' ----------alfa
alfaICONE:
if alfaico%=1 then delete ico
alpha ico:left ico,50:top ico,0:alfaICO%=1
caption ico,messag$::hint ico,"glisser le curseur"+saut$+"changer de menu"
return
iconeNouveau:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,255,140:2d_rectangle 8,5,16,23:2d_rectangle 16,10,21,23:2d_pen_color 255,255,140:2d_line 16,11,16,22:2d_line 17,6,20,9:2d_line 17,7,19,9:2d_line 17,8,17,9:2d_line 15,11,15,22:2d_pen_color 0,0,0:2d_line 16,5,21,10:2d_line 8,22,20,22
return
' --
iconeOUVRE:
gosub cadre :2d_rectangle 5,8,21,23:2d_fill_color 255,255,255:2d_pen_color 160,162,48:for a%=5 to 18:2d_line a%,23,a%+3,15:next a%:2d_pen_color 0,0,0 :2d_line 5,8,5,23:2d_line 5,23,18,23:2d_line 18,23,23,15:2d_line 23,15,9,15:2d_line 9,15,5,23:2d_line 5,8,9,8:2d_line 9,8,9,10:2d_line 9,10,19,10:2d_line 19,10,19,15:2d_line 12,8,12,5:2d_line 12,5,22,5:2d_line 22,5,22,8:2d_line 22,9,18,7:2d_line 22,9,26,7
return
' --
iconEnregistre:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 0,0,0:2d_line 6,6,23,6:2d_line 6,6,6,22:2d_line 23,6,23,24:2d_line 7,24,23,24:2d_line 9,6,9,14:2d_line 20,6,20,14:2d_line 20,9,23,9:2d_line 10,15,19,15:2d_rectangle 10,18,20,24:2d_fill_color 255,255,255:2d_pen_color 255,255,255:2d_rectangle 17,20,19,23:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 7,7,9,23:2d_rectangle 10,16,22,17:2d_rectangle 21,10,22,23
return
' --
iconeNewItem:
gosub cadre :2d_pen_color 0,0,0:2d_line 6,5,21,5:2d_line 21,5,22,6:2d_line 22,6,22,8:2d_line 22,8,25,8:2d_line 25,8,25,13:2d_line 25,13,22,13:2d_line 22,13,22,23:2d_line 22,23,21,25:2d_line 21,25,5,25:2d_line 5,25,4,24:2d_line 4,24,4,6:2d_line 4,6,6,5:2d_line 22,16,25,16:2d_line 25,16,25,22:2d_line 25,22,22,22:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 23,17,24,21:2d_fill_color 150,210,240:2d_pen_color 160,162,48:2d_rectangle 12,8,16,22:2d_rectangle 7,13,21,17:2d_pen_color 150,210,240:2d_rectangle 13,12,15,18
return
' --
iconepreference:
gosub cadre :2d_pen_color 0,0,0 :2d_line 5,6,5,23:2d_line 23,6,23,23:2d_line 6,5,22,5 :2d_line 6,24,22,24:2d_fill_color 0,0,0:2d_rectangle 16,19,21,21:2d_line 7,7,7,21 :2d_pen_color 0,196,0 :2d_rectangle 10,7,19,8:2d_rectangle 11,9,12,21:2d_rectangle 10,20,14,21:2d_rectangle 13,13,18,14:2d_pen_color 0,196,0:2d_line 17,7,19,11:2d_line 17,13,20,9:2d_line 19,7,20,9:2d_line 19,8,19,10:2d_line 20,10,18,14
return
' --
iconeADAPTE:
gosub cadre :2d_fill_color 150,210,240:2d_rectangle 12,8,16,22:2d_rectangle 7,13,22,17:2d_pen_color 150,210,240:2d_line 10,7,18,7:2d_line 12,6,16,6:2d_line 13,5,15,5:2d_line 14,4,14,3:2d_line 9,7,14,3:2d_line 18,7,14,3:2d_line 14,3,19,7:2d_line 23,10,23,20:2d_line 23,10,26,15:2d_line 26,15,23,20:2d_line 24,12,24,19:2d_line 25,14,25,17:2d_line 6,10,6,20:2d_line 3,15,6,10:2d_line 3,15,6,20:2d_line 5,12,5,18:2d_line 4,16,4,14:2d_line 9,23,19,23:2d_line 9,23,14,26:2d_line 14,26,19,23:2d_line 11,24,17,24:2d_line 13,25,15,25:2d_pen_color 255,0,0:2d_line 14,5,14,25:2d_line 5,15,24,15
return
' --
iconeEFFACE:
gosub cadre :2d_pen_color 0,0,0:2d_line 5,9,5,24:2d_line 5,24,20,24:2d_line 5,9,11,9:2d_line 11,9,11,5:2d_line 14,5,16,5:2d_line 16,5,18,4:2d_line 18,4,24,10:2d_line 24,10,19,15:2d_line 19,15,13,9:2d_line 13,9,16,5:2d_line 15,11,20,6:2d_line 20,24,20,14:2d_line 11,5,16,5:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 18,10,20,12:2d_rectangle 19,9,22,11:2d_line 16,11,20,7:2d_line 20,7,23,10:2d_line 23,10,19,14:2d_line 19,14,16,11:2d_line 17,11,20,8:2d_line 19,13,19,13:2d_pen_color 255,255,140:2d_fill_color 255,255,140:2d_rectangle 6,14,17,23:2d_rectangle 19,16,18,23:2d_rectangle 6,10,13,13:2d_line 12,6,14,6:2d_line 12,6,12,9:2d_line 14,6,12,9:2d_line 12,10,18,16:2d_line 14,13,14,13:2d_pen_color 255,0,0:2d_line 18,5,19,6:2d_line 19,6,15,10:2d_line 15,10,14,9:2d_line 14,9,17,6:2d_line 17,6,18,5:2d_line 18,5,15,7:2d_line 15,7,18,6:2d_line 18,6,15,9
return
' --
iconeRENOMME:
gosub cadre :2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 12,4,23,6:2d_rectangle 21,6,23,15:2d_line 19,16,25,16:2d_line 21,17,23,17:2d_line 22,18,22,18:2d_line 8,5,4,14:2d_line 8,5,12,14:2d_line 5,14,8,7 :2d_line 8,7,11,14:2d_line 6,12,10,12:2d_pen_color 0,0,0:2d_fill_color 0,0,0:2d_rectangle 12,17,13,26:2d_rectangle 11,17,19,18:2d_line 14,21,20,21:2d_line 19,17,20,19:2d_line 20,19,20,21 :2d_rectangle 11,26,20,25:2d_line 21,23,21,23 :2d_line 21,23,19,21:2d_line 21,23,21,26:2d_line 18,17,20,20:2d_line 20,24,20,24
return
' --
iconSTOP:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,200,0:2d_rectangle 5,5,24,24:2d_pen_color 255,0,0:2d_line 21,8,8,21:2d_line 20,8,8,20:2d_line 9,21,21,9:2d_line 8,8,21,21:2d_line 9,8,21,20:2d_line 8,9,20,21
return
' --
iconePerenoel:
gosub rien :2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 14,10,22,14:2d_line 18,15,20,15:2d_line 18,16,20,16:2d_line 19,17,20,15:2d_pen_color 255,200,0:2d_line 13,15,13,10:2d_line 16,15,17,15:2d_line 16,16,17,17:2d_pen_color 145,73,250:2d_line 16,14,15,15:2d_line 15,16,16,17:2d_line 16,17,16,17:2d_line 17,19,19,19:2d_line 18,20,18,20:2d_line 13,10,11,11:2d_line 12,11,7,13:2d_line 10,13,6,16:2d_line 10,15,5,19:2d_line 9,18,7,18:2d_line 8,19,5,19:2d_line 9,18,5,22:2d_line 9,21,6,25:2d_line 5,22,8,22:2d_line 8,23,8,25:2d_fill_color 145,73,250:2d_rectangle 9,24,10,25:2d_line 11,23,9,27:2d_line 9,27,14,25:2d_line 14,25,10,25:2d_line 14,25,13,29:2d_line 19,26,13,27:2d_line 19,26,13,29:2d_line 19,26,19,29:2d_line 19,29,24,26:2d_line 25,25,19,28:2d_line 26,27,24,25:2d_line 24,25,26,24:2d_line 26,24,29,23:2d_line 28,24,26,20:2d_line 26,20,29,20:2d_line 29,20,26,17:2d_line 28,17,26,18:2d_line 29,17,25,14:2d_line 25,14,27,13:2d_line 27,14,22,10:2d_line 21,10,22,10:2d_line 15,10,13,10:2d_line 17,9,15,11:2d_line 18,10,19,10:2d_line 21,9,19,10:2d_line 23,9,22,5:2d_line 21,5,13,7:2d_line 16,8,12,8:2d_line 14,9,12,9:2d_line 20,14,23,16:2d_line 20,14,23,16:2d_line 20,14,20,16:2d_line 1,2,1,5:2d_line 1,6,4,6:2d_line 4,6,5,2:2d_line 1,2,3,1:2d_line 3,1,5,3:2d_line 0,4,3,3:2d_pen_color 247,121,132:2d_fill_color 247,121,132:2d_rectangle 14,1,20,4:2d_line 20,4,14,6:2d_line 9,3,19,1:2d_line 9,3,14,3:2d_pen_color 255,0,0:2d_line 19,0,6,3:2d_line 21,2,19,0:2d_line 21,2,20,4:2d_line 5,3,13,4:2d_line 13,4,13,6:2d_line 13,5,16,4:2d_line 16,12,17,12:2d_pen_color 200,134,65:2d_line 12,15,14,10:2d_line 22,10,23,15:2d_line 20,12,19,12:2d_pen_color 145,73,250:2d_line 16,19,18,21:2d_line 20,19,17,21
return
' --
iconeCadeaux:
gosub rien :2d_pen_color 0,0,0:2d_fill_color 255,0,0:2d_line 2,12,14,18:2d_line 14,18,18,16:2d_line 23,13,27,11:2d_line 27,18,27,11:2d_line 27,18,14,27:2d_line 14,18,14,27:2d_line 2,20,14,27:2d_line 2,12,2,20:2d_line 16,7,27,11:2d_line 2,12,16,7:2d_line 6,10,7,9:2d_line 7,9,5,7:2d_line 12,10,13,11:2d_line 14,11,14,10:2d_line 13,9,12,6:2d_line 12,5,12,3:2d_line 11,3,10,4:2d_line 10,5,9,6:2d_line 9,7,9,8:2d_line 9,9,11,10:2d_line 15,9,18,7:2d_line 19,6,21,6:2d_line 21,7,21,8:2d_pen_color 0,196,0:2d_line 11,4,11,5:2d_line 11,5,10,6:2d_line 10,6,10,8:2d_line 10,8,12,8:2d_line 12,8,11,5:2d_line 11,5,11,8:2d_line 13,4,13,6:2d_line 13,6,13,7:2d_line 13,7,14,9:2d_line 14,9,14,6:2d_line 14,6,14,5:2d_line 10,8,13,10:2d_line 13,10,12,9:2d_line 20,7,16,9:2d_line 16,9,18,7:2d_line 18,7,20,7:2d_pen_color 0,0,0:2d_line 20,6,19,8:2d_line 19,8,16,9:2d_pen_color 0,196,0:2d_line 21,6,19,9:2d_line 19,9,15,10:2d_line 15,10,15,11:2d_line 15,11,17,12:2d_line 17,12,19,12:2d_line 19,12,21,10:2d_line 21,10,22,9:2d_line 22,9,21,8:2d_line 21,8,21,7:2d_line 21,7,20,9:2d_line 20,9,21,9:2d_line 21,9,19,11:2d_line 19,11,16,11:2d_line 16,11,19,10:2d_line 19,10,14,12:2d_line 14,12,14,13:2d_line 14,13,16,14:2d_line 16,14,19,15:2d_line 19,15,19,14:2d_line 19,14,20,13:2d_line 20,13,22,13:2d_line 22,13,19,13:2d_line 19,13,15,12:2d_line 15,12,18,14:2d_line 12,11,9,11:2d_line 9,11,6,12:2d_line 6,12,6,11:2d_line 6,11,7,10:2d_line 7,10,6,8:2d_line 6,8,8,9:2d_line 8,9,10,10:2d_line 10,10,8,10:2d_line 8,10,7,11:2d_line 13,12,11,12:2d_line 11,12,7,14:2d_line 7,14,9,15:2d_line 9,15,12,13:2d_line 12,13,12,12:2d_line 12,12,9,14:2d_line 6,15,8,16:2d_line 8,16,8,23:2d_line 8,23,6,21:2d_line 6,21,6,15:2d_line 6,15,8,17:2d_line 8,17,7,18:2d_line 7,18,7,21:2d_line 7,21,7,17:2d_line 22,14,20,15:2d_line 20,15,20,22:2d_line 20,22,22,21:2d_line 22,21,22,14:2d_line 22,14,21,15:2d_line 21,15,21,21:2d_pen_color 255,0,0:2d_line 4,12,5,12:2d_line 5,12,5,13:2d_line 5,13,7,13:2d_line 7,13,9,12:2d_line 9,12,7,12:2d_line 7,12,10,12:2d_line 16,7,15,8:2d_line 15,8,15,9:2d_line 22,9,21,11:2d_line 21,11,20,12:2d_line 20,12,23,12:2d_line 23,12,26,11:2d_line 26,11,22,10:2d_line 22,10,22,11:2d_line 22,11,24,11:2d_line 13,14,10,15:2d_line 10,15,14,17:2d_line 14,17,18,15:2d_line 18,15,16,15:2d_line 16,15,13,14:2d_line 13,14,12,15:2d_line 12,15,14,16:2d_line 14,16,15,16:2d_line 15,16,13,15:2d_line 26,12,26,18:2d_line 26,18,23,20:2d_line 23,20,23,14:2d_line 23,14,26,12:2d_line 26,12,23,15:2d_line 23,15,26,14:2d_line 26,14,23,16:2d_line 23,16,26,16:2d_line 26,16,25,18:2d_line 25,18,25,13:2d_line 25,13,24,15:2d_line 24,15,24,19:2d_line 19,16,15,18:2d_line 15,18,15,26:2d_line 15,26,14,26:2d_line 14,26,19,23:2d_line 19,23,19,16:2d_line 19,16,18,17:2d_line 18,17,18,23:2d_line 18,23,17,24:2d_line 17,24,17,17:2d_line 17,17,16,18:2d_line 16,18,16,24:2d_line 3,13,3,20:2d_line 3,20,5,21:2d_line 5,21,5,15:2d_line 5,15,4,14:2d_line 4,14,4,20:2d_line 9,16,9,23:2d_line 9,23,13,26:2d_line 13,26,13,19:2d_line 13,19,9,16:2d_line 9,16,10,18:2d_line 10,18,10,23:2d_line 10,23,11,24:2d_line 11,24,11,18:2d_line 11,18,12,19:2d_line 12,19,12,25:2d_pen_color 0,0,0:2d_line 27,11,23,13:2d_line 19,15,14,18:2d_line 14,18,14,27:2d_line 6,14,2,12
return
' --
iconeverre:
' code pas du tout obtimisé, fait rapidement pour essayer une nouvelle commande dans le programme
' de création d'icone d'autant qu'il ne présentera pas d'intéret d'être repris (vrai aussi pour cadeaux)
gosub rien
' --
iconeNOTE:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,255,255:2d_rectangle 3,3,26,26:2d_line 19,4,3,20:2d_line 9,26,26,9:2d_line 17,6,21,8:2d_line 21,8,23,12:2d_line 19,5,22,6:2d_line 22,6,25,10:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,26:2d_line 3,25,3,26:2d_line 25,4,25,4:2d_pen_color 255,0,0:2d_line 20,5,22,5:2d_line 22,5,24,7:2d_line 24,7,25,9:2d_line 25,9,25,7:2d_line 25,7,23,5:2d_line 23,5,22,4:2d_line 22,4,20,4:2d_line 20,4,24,4:2d_line 24,4,25,5:2d_line 25,5,25,6:2d_line 25,6,23,4:2d_line 3,26,3,26:2d_line 3,25,4,26:2d_line 21,3,23,3:2d_line 26,6,26,8:2d_pen_color 0,196,0:2d_line 18,6,21,7:2d_line 21,7,23,9:2d_line 23,9,24,11:2d_line 19,6,21,6:2d_line 21,6,23,9:2d_line 22,8,23,10:2d_pen_color 255,255,140:2d_line 4,20,17,7:2d_line 17,7,18,7:2d_line 18,7,5,20:2d_line 5,20,6,20:2d_line 6,20,18,8:2d_line 22,12,9,24:2d_line 9,24,9,23:2d_line 9,23,22,11:2d_line 22,11,21,11:2d_line 21,11,9,22:2d_pen_color 255,200,0:2d_pen_color 255,200,0:2d_line 19,8,7,20:2d_line 7,20,7,21:2d_line 7,21,20,8:2d_line 20,8,20,9:2d_line 20,9,8,21:2d_line 8,21,8,22:2d_line 8,22,20,11:2d_line 20,11,20,10:2d_line 20,10,21,10:2d_line 21,10,21,9:2d_pen_color 0,0,0:2d_line 17,6,19,7:2d_line 19,7,21,8:2d_line 21,8,22,10:2d_line 22,10,23,12:2d_line 19,5,22,6:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,25:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 4,22,6,25:2d_line 6,22,8,25:2d_line 8,25,6,25:2d_pen_color 150,210,240:2d_line 4,6,15,6:2d_line 4,9,12,9:2d_line 4,12,9,12:2d_line 4,15,6,15:2d_line 22,15,25,15:2d_line 25,12,25,12
return
' --
iconeCALCUL:
gosub cadre :2d_pen_color 160,162,48:2d_fill_color 160,162,48:2d_rectangle 3,3,26,5:2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 25,4,26,5:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 3,6,26,26:2d_pen_color 255,255,255:2d_line 4,8,25,8:2d_line 4,9,25,9:2d_pen_color 100,100,100:2d_line 9,11,14,11:2d_line 14,11,14,12:2d_line 14,12,9,12:2d_line 16,11,19,11:2d_line 19,11,19,12:2d_line 19,12,16,12:2d_line 21,11,25,11:2d_line 25,11,25,12:2d_line 25,12,21,12:2d_line 4,14,6,14:2d_line 6,14,6,15:2d_line 6,15,4,15:2d_line 9,14,10,14:2d_line 10,14,10,15:2d_line 10,15,9,15:2d_line 13,14,14,14:2d_line 14,14,14,15:2d_line 14,15,13,15:2d_line 17,14,18,14:2d_line 18,14,18,15:2d_line 18,15,17,15:2d_line 22,14,22,15:2d_line 22,15,21,15:2d_line 21,15,21,14:2d_line 4,18,6,18:2d_line 6,18,6,19:2d_line 6,19,4,19:2d_line 9,18,10,18:2d_line 10,18,10,19:2d_line 10,19,9,19:2d_line 13,18,14,18:2d_line 14,18,14,19:2d_line 14,19,13,19:2d_line 17,18,18,18:2d_line 18,18,18,19:2d_line 18,19,17,19:2d_line 21,18,22,18:2d_line 22,18,22,19:2d_line 22,19,21,19:2d_line 4,22,6,22:2d_line 6,22,6,23:2d_line 6,23,4,23:2d_line 9,22,10,22:2d_line 10,22,10,23:2d_line 10,23,9,23:2d_line 13,22,14,22:2d_line 14,22,14,23:2d_line 14,23,13,23:2d_line 17,22,18,22:2d_line 18,22,18,23:2d_line 18,23,17,23:2d_line 21,22,22,22:2d_line 22,22,22,23:2d_line 22,23,21,23:2d_pen_color 255,0,0:2d_line 10,12,13,12:2d_line 5,15,6,15:2d_line 21,9,24,9:2d_line 5,19,6,19:2d_line 5,23,6,23:2d_line 17,12,18,12:2d_line 23,12,24,12:2d_pen_color 255,255,255:2d_line 6,4,14,4
return :2d_pen_color 160,162,48:2d_line 15,5,12,1:2d_line 12,1,10,0:2d_line 10,0,9,0:2d_line 9,0,7,1:2d_line 7,1,6,3:2d_line 6,3,5,5:2d_line 5,5,5,8:2d_line 5,8,6,12:2d_line 6,12,7,15:2d_line 7,15,8,15:2d_line 8,15,9,15 :2d_line 9,15,10,15:2d_line 10,15,10,14:2d_line 10,14,9,12:2d_line 9,12,9,10:2d_line 9,10,9,8:2d_line 9,8,11,5:2d_line 11,5,12,4:2d_line 12,4,15,6:2d_line 15,6,16,4:2d_line 16,4,17,2:2d_line 17,2,19,0:2d_line 19,0,21,0:2d_line 21,0,22,1:2d_line 22,1,24,3:2d_line 24,3,25,6:2d_line 25,6,24,11:2d_line 24,11,23,14:2d_line 23,14,22,16:2d_line 22,16,20,19:2d_line 20,19,22,15:2d_line 22,15,21,12:2d_line 21,12,21,10:2d_line 21,10,20,9:2d_line 20,9,16,10:2d_line 16,10,15,12:2d_line 15,12,15,15:2d_line 15,15,16,18:2d_line 16,18,18,19:2d_line 18,19,18,21:2d_line 18,21,19,21:2d_line 19,21,18,22:2d_line 18,22,17,22:2d_line 17,22,16,23:2d_line 16,23,16,24:2d_line 16,24,15,25:2d_line 15,25,12,22:2d_line 12,22,11,21:2d_line 11,21,12,20:2d_line 12,20,12,19:2d_line 12,19,14,18:2d_line 14,18,14,17:2d_line 14,17,13,16:2d_line 13,16,11,16:2d_line 11,16,12,15:2d_line 12,15,14,14:2d_line 14,14,14,16:2d_line 14,16,13,15:2d_line 13,15,15,16:2d_line 15,16,15,24:2d_line 15,24,16,22:2d_line 16,22,16,19:2d_line 16,19,17,20:2d_line 17,20,17,21:2d_line 17,21,17,19:2d_line 17,19,13,19:2d_line 13,19,12,21:2d_line 12,21,14,20:2d_line 14,20,14,23:2d_line 14,23,12,20:2d_line 9,14,7,14:2d_line 7,14,6,7:2d_line 6,7,6,5:2d_line 6,5,8,2:2d_line 8,2,8,1:2d_line 8,1,8,14:2d_line 8,14,9,13:2d_line 9,13,7,13:2d_line 7,13,7,1:2d_line 7,1,11,1:2d_line 11,1,14,5:2d_line 14,5,10,1:2d_line 10,1,10,6:2d_line 10,6,9,7:2d_line 9,7,9,2:2d_line 9,2,12,4:2d_line 12,4,11,4:2d_line 11,4,16,5:2d_line 16,5,19,1:2d_line 19,1,21,1:2d_line 21,1,21,9:2d_line 21,9,22,14:2d_line 22,14,22,1:2d_line 22,1,24,7:2d_line 24,7,24,11:2d_line 24,11,22,13:2d_line 22,13,23,13:2d_line 23,13,23,3:2d_line 23,3,24,6:2d_line 24,6,20,1:2d_line 20,1,20,9:2d_line 20,9,16,9:2d_line 16,9,17,8
2d_line 17,8,19,8:2d_line 19,8,19,2:2d_line 19,2,16,6:2d_line 16,6,17,7:2d_line 17,7,18,7:2d_line 18,7,18,4:2d_line 18,4,17,6:2d_pen_color 255,0,0:2d_rectangle 14,11,11,10:2d_rectangle 18,14,19,16:2d_line 20,14,19,17:2d_line 19,17,17,15:2d_line 17,15,17,14:2d_line 11,12,14,11:2d_line 14,11,13,12:2d_line 13,12,12,13:2d_pen_color 0,0,0:2d_line 11,14,10,17:2d_line 10,17,13,17:2d_line 13,17,9,19:2d_line 9,19,11,18:2d_line 11,18,11,20:2d_line 11,20,10,21:2d_line 10,21,9,22:2d_line 9,22,8,23:2d_line 8,23,8,24:2d_line 8,24,5,25:2d_line 5,25,3,25:2d_line 9,16,8,16:2d_line 8,16,7,17:2d_line 7,17,5,17:2d_line 5,17,4,19:2d_line 4,19,2,20:2d_line 2,20,2,19:2d_line 2,19,0,20:2d_line 0,20,0,24:2d_line 0,24,1,26:2d_line 1,26,2,23:2d_line 2,23,2,20:2d_line 9,23,11,25:2d_line 11,25,11,25:2d_line 11,25,8,25:2d_line 13,7,11,6:2d_line 11,6,12,5:2d_line 12,5,16,7:2d_line 16,7,16,8:2d_line 16,8,15,8:2d_line 15,8,16,8:2d_line 16,8,14,13:2d_line 14,13,13,14:2d_line 10,8,10,11:2d_line 10,11,11,14:2d_line 18,12,17,12:2d_line 17,12,16,11:2d_line 16,11,19,10:2d_line 19,10,21,11:2d_line 21,11,21,15:2d_line 21,15,20,17:2d_line 20,17,19,18:2d_line 19,18,18,18:2d_line 18,18,17,17:2d_line 17,17,16,16:2d_line 19,18,20,22:2d_line 20,22,18,22:2d_line 20,20,21,21:2d_line 21,21,22,22:2d_line 22,22,24,23:2d_line 24,23,26,24:2d_line 26,24,27,23:2d_line 27,23,28,22:2d_line 28,22,29,25:2d_line 25,29,23,29:2d_line 23,29,21,29:2d_line 21,29,19,27:2d_line 19,27,19,26:2d_line 19,26,19,25:2d_line 19,25,19,24:2d_line 19,24,18,24:2d_line 18,24,17,23:2d_line 17,23,17,22:2d_line 18,27,18,28:2d_line 18,28,19,29:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 5,19,7,23:2d_line 6,18,8,19:2d_line 8,19,8,20:2d_line 8,20,8,21:2d_line 8,21,8,22:2d_line 8,22,6,24:2d_line 6,24,2,25:2d_line 2,25,3,23:2d_line 3,23,2,24:2d_line 2,24,2,21:2d_line 2,21,4,20:2d_line 4,20,3,22:2d_line 3,22,4,22:2d_line 4,22,4,24:2d_line 4,24,5,24:2d_pen_color 247,223,231:2d_line 22,23,25,25:2d_line 25,25,27,24:2d_line 27,24,28,24:2d_line 28,24,28,27:2d_line 28,27,25,28:2d_line 25,28,21,28:2d_line 21,28,21,27:2d_line 21,27,20,25:2d_line 20,25,20,24:2d_line 20,24,21,24:2d_line 21,24,18,23:2d_line 18,23,21,23:2d_line 21,23,22,27:2d_line 22,27,26,27:2d_line 26,27,27,26:2d_line 27,26,23,26:2d_line 23,26,22,24:2d_line 22,24,25,26:2d_line 25,26,27,24
rien:
' finalement rien
return
jouer:
gosub rien :midi_on:restore:for a%=1 to 6: read n%:read d%: midi_play n%,d%*2:next a%:midi_off :' temps /2
data 67,4 , 72,4 , 72,4 , 72,4 , 74,4 , 72,3 , 74,6 , 76,4 , 76,4 , 76,4 , 77,4 , 76,3
data 74,4 , 72,5 , 72,6 , 72,6 , 72,6 , 71,6 , 69,6 , 67,3 , 67,6 , 67,6 , 72,2 , 72,6
data 72,6 , 71,6 , 72,6 , 74,3 :' limiter à 6, trop long pour un icone
return
fin:
terminate
C'est là que l'on voit le manque de la fonction FILL "remplissage de couleur", qu'il faut combler de la façon que l'on peut avec des lignes à n'en plus finir. Une autre remarque que j'ai constaté: lors du déplassement du curseur, avec des codes MIDI, si on déplace le curseur par un clic bref, celui-ci attend, puis s'en va à l'autre bout puis fini par mettre un message d'erreur sur le code MIDI (la séquence musique a été intérompu et MIDI_OFF n'a pas jouer son rôle) Je reverrai ce problème plus tard, les bugs c'est pas ici |
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Jeu 24 Déc 2009 - 1:15 | |
| finalement, je vais les mettre. Ceci est le programme qui ma servi pour faire les icones. Il n'a rien de formidable, surtout qu'il a été fait à "l'arrache" c'est à dire sans savoir ce que j'allais faire, vu que les commandes je ne les avais pas encore utilisées, et que je ne connais pas bien la façon du dessin. Donc ce programme a été constamment modifié, au fur et à mesure que je l'utilisais pour résoudre mes problèmes. Il fonctionne et c'est déjà une chose. Si vous voulez intégrer une image pour copier dessus, il faut la modifier au format 600 x 600 pixels en laissant une marge pour le cadre qui simule un bouton. Le cadre ne se dessine pas, il est intégré au programme d'icone à glissière. Il n'y a pas d'aide Pour une couleur: cliquez sur une couleur, puis sur couleur ligne ou fill, ensuite sur créer commande. pour une ligne, définir la couleur ligne, ensuite: cliquer sur un point du cadre, position début, idem pour fin, cliquer ligne pour insérer une ligne. Une fois que le mot 2D_LIGNE ou 2D_RECTANGLE est visible, il n'est plus nécessaire de cliquer sur ligne. C'est la même méthode pour rectangle. Quand au cercle, j'ai été déçu par le résultat. Une autre possibilité pour dessiner une ligne qui se poursuit, est de cliquer sur le point de départ de la ligne, et de cliquer sur position fin, puis cocher ligne auto, chaque clic enregistre la commande. dans les lignes de code à droite sur la commande, on peut insérer une ligne ou la détruire. Chaque appui sur modifie redessine le dessin. masquer FILL, ne présente pas les surfaces déjà dessinées, pour voir ce que l'on fait. instant image montre l'image ponctuellement. en cochant cacher/voir fond affiche ou l'image de départ on peut y mettre des repères. pour les enlever ou modifier, aller directement dans le mémo les concernant . On peut sauvegarder le fichier obtenu (repère *.cde), et le relire, quand à REFAIRE, si on modifie le mémo de gauche en bas directement, refaire reconstitue la liste depuis ce mémo, alors que modifie, fait le mémo depuis la liste de droite. Le mémo à côté du mémo de gauche fait les même commandes, mais ajoute une variable L et H pour décaler l'icône pour une autre utilisation (il suffit de mettre par exemple L et H à 30 pour décaler l'icône de 30 pixels). Ne pas tenir compte de épaisseur, je ne l'ai pas programmé parce que je me suis rendu compte que le maxi de size dazns 2D est 20, et les traits je les avaient déjà fait à 20 sur la vue. CADRE, ne fait que le montrer mais la programmation est déjà faite, c'est seulement pour voir la place restante. Ce programme si il vous intéresse, vous pouvez le reprendre, le modifier, et si il y a amélioration, de nouveau le publier. Je ne connaissais pas la 2D avant, et on peut encore y faire des améliorations, et du nettoyage. - Code:
-
error_french
dim a%,LA% ,i%,code$,couleur$,rouge$,vert$,bleu$,x%,y%,x1%,y1%,ici$,la$,x2%,y2%
dim a$,b$ ,f$,l,h,lr$,lv$,lb$,fr$,fv$,fb$ ,x,y,m$,var$,expl$,bloq%,suit%
dim tab$(100),va%(100,4),lig%,a47$,a48$,a49$,a50$,a51$
label blanc,noir,jaune,vertgris,bleu,rouge,ligne,rectangle,couleurligne,couleurfill,ajouter
label clic,commence,abouti ,virgule ,faire,detruit,insert,modifie,relance,grille,prendre,bloq,debloc
label grisclair,grisfonce,marron,cadre,epaisseur,choix,repereVert,repereHoriz,sauve,reperage
label vertflash,orange,lecture,decode,cercle,violet,orangeclair,rougerose,quoimage,voir,ligneauto
label refaire
height 0,1010 :width 0,1200:' screen_x
lr$="00" :lv$="00" :lb$="00":fr$="00" :fv$="00" :fb$="00"
' ==============================================================================
picture 3:top 3,50:width 3,600:height 3,600 :on_click 3,clic
picture 92:top 92,50:width 92,600:height 92,600 :on_click 92,clic:hide 92:suit%=3
picture 93:top 93,50:width 93,600:height 93,600 :on_click 93,voir:hide 93
picture 82:left 82,610:top 82,450:width 82,60:height 82,60
button 4:left 4,510:top 4,850:width 4,80:caption 4,"LIGNE" :on_click 4,ligne
button 5:left 5,600:top 5,850:width 5,80:caption 5,"RECTANGLE" :on_click 5 ,rectangle
button 61:left 61,510:top 61,820:width 61,80:caption 61,"cadre" :on_click 61,cadre
button 83:left 83,510:top 83,880:width 83,80:caption 83,"cercle" :on_click 83,cercle
memo 84:left 84,450:top 84,655:width 84,250 : ' mémo aide
button 6:left 6,740:top 6,220:caption 6,"couleur ligne":width 6,100:on_click 6,couleurligne
button 7:left 7,850:top 7,220:caption 7,"couleur fill" :on_click 7,couleurfill
button 8:left 8,710:top 8,280:caption 8,"créer commande" :width 8,100:on_click 8,faire
button 9:left 9,820:top 9,280:caption 9,"insert commande":width 9,100:on_click 9,ajouter
picture 10:left 10,760:top 10,160:width 10,20:height 10,20:color 10,0,0,0 :on_click 10,noir
picture 11:left 11,780:top 11,160:width 11,20:height 11,20:color 11,255,255,255 :on_click 11,blanc
picture 12:left 12,800:top 12,160:width 12,20:height 12,20:color 12,160,162,48 :on_click 12,vertgris
picture 13:left 13,820:top 13,160:width 13,20:height 13,20:color 13,255,255,140 :on_click 13,jaune
picture 14:left 14,840:top 14,160:width 14,20:height 14,20:color 14,150,210,240 :on_click 14,bleu
picture 40:left 40,860:top 40,160:width 40,20:height 40,20:color 40,255,0,0 :on_click 40,rouge
picture 41:left 41,880:top 41,160:width 41,20:height 41,20:color 41,200,200,200 :on_click 41,grisclair
picture 42:left 42,900:top 42,160:width 42,20:height 42,20:color 42,150,150,150 :on_click 42,grisfonce
picture 43:left 43,920:top 43,160:width 43,20:height 43,20:color 43,200,134,65 :on_click 43,marron
picture 80:left 80,940:top 80,160:width 80,20:height 80,20:color 80,0,196,0 :on_click 80,vertflash
picture 81:left 81,960:top 81,160:width 81,20:height 81,20:color 81,255,200,0 :on_click 81,orange
picture 85:left 85,980:top 85,160:width 85,20:height 85,20:color 85,145,73,250 :on_click 85,violet
picture 86:left 86,1000:top 86,160:width 86,20:height 86,20:color 86,255,218,169:on_click 86,orangeclair
picture 87:left 87,1020:top 87,160:width 87,20:height 87,20:color 87,247,121,132:on_click 87,rougerose
memo 20:left 20,0:top 20,750:width 20,280:height 20,200 :bar_horizontal 20 :' création du code standart
memo 78:left 78,300:top 78,750:width 78,200:height 78,200:bar_horizontal 78 :' création du code avec écart position
edit 21:left 21,710:top 21,248:width 21,260 :' edit de commande
font_bold 21:font_color 21,255,0,0:font_size 21,14:height 21,28
edit 22:left 22,760:top 22,190:width 22,100 :' edit NOM de la couleur
edit 23:left 23,760:top 23, 0:width 23,200 :' edit pour x% et y%
picture 30:left 30,540:top 30,750:width 30,50:height 30,50:color 30,255,255,255
alpha 31:left 31,740:top 31,30:caption 31,"début x% y%"
alpha 32:left 32,850:top 32,30:caption 32,"fin de x% y%"
edit 33:left 33,700:top 33,50:width 33,30 :edit 74:left 74,740:top 74,50:width 74,30
edit 34:left 34,850:top 34,50:width 34,30 :edit 75:left 75,890:top 75,50:width 75,30
text 33,0:text 34,0:text 74,0:text 75,0
button 35:left 35,720:top 35,80:width 35,90:caption 35,"position début":on_click 35,commence
button 37:left 37,870:top 37,80:width 37,90:caption 37,"position fin" :on_click 37,abouti
button 62:left 62,720:top 62,120:width 62,90:caption 62,"épaisseur :":on_click 62,epaisseur
edit 63:left 63,820:top 63,120:width 63,50
' ----------------- REPERES --------------------
button 64:left 64,280:top 64,20 :width 64,130:caption 64,"repère verticale" :on_click 64,repereVert
button 65:left 65,610:top 65,150:width 65,100:caption 65,"repère horizontale":on_click 65,repereHoriz
alpha 66: top 66,25:left 66,420:caption 66,"repère x:"
edit 67:top 67,20 :left 67,465:width 67,30
alpha 68: top 68,25:left 68,520:caption 68,"repère y:"
edit 69:top 69,20 :left 69,565:width 69,30
memo 70:left 70,610:top 70,180:width 70,60:height 70,100:' repère verticale
memo 71:left 71,610:top 71,300:width 71,60:height 71,100:' repère horizontale
button 72:left 72,240:top 72,710:caption 72,"sauve":on_click 72,sauve
open_dialog 73 :save_dialog 36
clear 84:item_add 84,"OUVRIR: image en fond pour copier":item_add 84, "les fichiers images aux format BMP et JPG sont dans E:\icones\"
color 84,255,0,0
filter 73,"ouvrir|*.bmp;*.jpg"
f$=file_name$(73):if f$<>"_" then file_load 3,f$:file_load 93,f$
if f$<>"_" then stretch_on 82:file_load 82,f$
clear 84:color 84,255,255,255
button 77:left 77,10:top 77,710:caption 77,"lire":on_click 77,lecture
button 95:left 95,120:top 95,710:caption 95,"refaire":on_click 95,refaire
' -----------------------------------------------
list 45:left 45,710:top 45,320:width 45,30:height 45,500 :on_click 45,choix
list 46:left 46,742:top 46,320:width 46,80:height 46,500 :on_click 46,choix
memo 47:left 47,824:top 47,320:width 47,50:height 47,500
memo 48:left 48,876:top 48,320:width 48,50:height 48,500
memo 49:left 49,928:top 49,320:width 49,50:height 49,500
memo 50:left 50,980:top 50,320:width 50,50:height 50,500
memo 51:left 51,1037:top 51,320:width 51,130:height 51,500
alpha 89:left 89,1050:top 89,300:caption 89,"COMMENTAIRES"
button 88:left 88,690:top 88,827:width 88,90:caption 88,"détruit" :on_click 88,detruit
button 52:left 52,890:top 52,827:width 52,90:caption 52,"modifie" :on_click 52,debloc
button 53:left 53,790:top 53,827:width 53,90:caption 53,"insert" :on_click 53,insert
button 54:left 54,690:top 54,857:width 54,90:caption 54,"incrémenter"
button 15:left 15,990:top 15,857:width 15,90:caption 15,"instant image":on_click 15,voir
button 55:left 55,790:top 55,857:width 55,90:caption 55,"choix ligne" :on_click 55,prendre
button 76:left 76,1090:top 76,827:width 76,90:caption 76,"repère" :on_click 76,reperage
button 90:left 90,990:top 90,827:width 90,90:caption 90,"masquer FILL":on_click 90,bloq
check 91:left 91,890:top 91,857:width 91,110 :mark_on 91:caption 91,"cacher/voir fond"
check 94:left 94,990:top 94,250:width 94,100:caption 94,"ligne auto"
for a%=1 to 38:item_add 45,a%:next a%
gosub grille
lig%=1
on_click 91,quoimage:on_click 94,ligneauto
end
' ===================================
choix:
if clicked(45)=1 then color 45,255,255,200:lig%=item_index(45)
if clicked(46)=1 then color 46,255,255,200:lig%=item_index(46)
return
'----reperes------
repereVert:
if numeric(text$(67))=1
x=val(text$(67))
2d_target_is suit%
2d_pen_color 255,0,200
2d_pen_width 3
2d_line x,0,x,600
2d_pen_width 20
2d_pen_color val(lr$),val(lv$),val(lb$)
item_add 70,x
end_if
return
repereHoriz:
if numeric(text$(69))=1
y=val(text$(69))
2d_target_is suit%
2d_pen_color 255,0,200
2d_pen_width 3
2d_line 0,y,600,y
2d_pen_width 20
2d_pen_color val(lr$),val(lv$),val(lb$)
item_add 71,y
end_if
return
ligneauto:
clear 84:color 84,255,255,0
if checked(94)=1
item_add 84,"LIGNE AUTO: le pt de départ est position fin. Chaque click sur la grille"
item_add 84,"chaque click sur la grille dessine une ligne depuis le pt précédent"
else
item_add 84,"Annulation de LIGNE AUTO"
end_if
return
' ===============================================================
blanc:
rouge$="255":vert$="255":bleu$="255"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"blanc"
return
noir:
rouge$="0":vert$="0":bleu$="0"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"noir"
return
vertgris:
rouge$="160":vert$="162":bleu$="48"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"vert de gris"
return
jaune:
rouge$="255":vert$="255":bleu$="140"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"jaune"
return
bleu:
rouge$="150":vert$="210":bleu$="240"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"bleu"
return
rouge:
rouge$="255":vert$="0":bleu$="0"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"rouge"
return
grisclair:
rouge$="200":vert$="200":bleu$="200"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"gris clair"
return
grisfonce:
rouge$="150":vert$="150":bleu$="150"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"gris foncé"
return
marron:
rouge$="200":vert$="134":bleu$="65"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"marron"
return
vertflash:
rouge$="0":vert$="196":bleu$="0"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"vert flash"
return
orange:
rouge$="255":vert$="200":bleu$="0"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"orange"
return
violet:
rouge$="145":vert$="73":bleu$="250"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"violet"
return
orangeclair:
rouge$="255":vert$="218":bleu$="169"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"orange clair"
return
rougerose:
rouge$="247":vert$="121":bleu$="132"
couleur$=" "+rouge$+","+vert$+","+bleu$
text 22,"rouge rosé"
return
' ---------------
epaisseur:
code$="2D_PEN_WIDTH ":text 21,code$
return
' --
voir:
hide suit%:show 93
wait 1000:hide 93:show suit%
return
' --
quoimage:
if checked(91)=1
suit%=3:hide 92:show 3
else
suit%=92:hide 3:show 92
end_if
2d_target_is suit% :2d_pen_color val(lr$),val(lv$),val(lb$)
2d_fill_color val(fr$),val(fv$),val(fb$)
gosub relance
return
ligne:
clear 84:item_add 84,"cliquez sur le point de départ, et ensuite"
item_add 84,"sélectionnez :position de départ. faire la même chose"
item_add 84,"pour le 2ème point et :position de fin"
code$="2d_line ":text 21,code$
return
' --
rectangle:
clear 84:item_add 84,"cliquez sur le point de départ, et ensuite"
item_add 84,"sélectionnez :position de départ. faire la même chose"
item_add 84,"pour le 2ème point et :position de fin"
code$="2d_rectangle ":text 21,code$
return
' --
cercle:
code$="2d_circle ":text 21,code$ :clear 84
item_add 84,"cliquez sur le point de départ, et ensuite"
item_add 84,"cliquez sur position fin, pour définir le centre"
item_add 84,"Pour le RAYON, cliquez à droite sur le cercle"
item_add 84,"le calcul du rayon se fera par soustraction"
return
' ---------------------C A D R E------------------------------------------------
cadre:
clear 84:item_add 84,"CADRE":item_add 84,"ne se programme pas, donne seulement":item_add 84,"un aperçu"
code$="cadre":text 21,code$
2d_target_is 30
2d_pen_width 2:2d_pen_color 200,200,200:2d_line 10,10,39,10:2d_line 10,10,39,10
2d_line 10,11,10,39:2d_line 11,11,37,11:2d_line 11,12,35,12:2d_line 11,11,11,37:2d_line 12,13,12,35
2d_pen_color 150,150,150:2d_line 39,11,39,38:2d_line 38,11,38,37:2d_line 37,12,37,35
2d_line 12,36,37,36:2d_line 12,37,37,37:2d_line 11,38,38,38
2d_target_is suit% : l=00:h=00
2d_pen_width 20:2d_pen_color 200,200,200:2d_line 0+l,0+h,580+l,0+h:2d_line 0+l,20+h,0+l,580+h
2d_line 20+l,20+h,540+l,20+h:2d_line 20+l,40+h,500+l,40+h:2d_line 20+l,20+h,20+l,540+h
2d_line 20+l,60+h,20+l,500+h:2d_line 40+l,60+h,40+l,500+h
2d_pen_color 150,150,150:2d_line 580+l,20+h,580+l,580+h:2d_line 560+l,20+h,560+l,540+h
2d_line 540+l,40+h,540+l,500+h:2d_line 40+l,520+h,540+l,520+h:2d_line 40+l,540+h,540+l,540+h
2d_line 20+l,580+h,580+l,580+h
2d_line 40+l,520+h,540+l,520+h
2d_line 40+l,540+h,540+l,540+h
2d_line 20+l,560+h,560+l,560+h
return
' -------------------------
couleurligne:
code$="2d_pen_color"+couleur$:text 21,code$:lr$=rouge$:lv$=vert$:lb$=bleu$
return
' ---------------
couleurfill:
code$="2d_fill_color":text 21,code$:fr$=rouge$:fv$=vert$:fb$=bleu$
return
' --------------
ajouter:
' item_add 20,text$(21)
for a%=46 to 50 :item_delete a%,lig% :next a%
if left$(code$,6)="2d_pen"
item_insert 46,lig%,"2d_pen_color"
item_insert 47,lig%,rouge$
item_insert 48,lig%,vert$
item_insert 49,lig%,bleu$
item_insert 50,lig%,""
item_insert 51,lig%,""
end_if
if left$(code$,6)="2d_fil"
item_insert 46,lig%,"2d_fill_color"
item_insert 47,lig%,rouge$
item_insert 48,lig%,vert$
item_insert 49,lig%,bleu$
item_insert 50,lig%,""
item_insert 51,lig%,""
end_if
if left$(code$,6)="2d_lin"
item_insert 46,lig%,"2d_line"
item_insert 47,lig%,x1%
item_insert 48,lig%,y1%
item_insert 49,lig%,x2%
item_insert 50,lig%,y2%
item_insert 51,lig%,""
end_if
if left$(code$,6)="2d_rec"
item_insert 46,lig%,"2d_rectangle"
item_insert 47,lig%,x1%
item_insert 48,lig%,y1%
item_insert 49,lig%,x2%
item_insert 50,lig%,y2%
item_insert 51,lig%,""
end_if
if left$(code$,6)="2d_cir"
item_insert 46,lig%,"2d_circle"
item_insert 47,lig%,x1%
item_insert 48,lig%,y1%
item_insert 49,lig%,x2%-x1%
item_insert 50,lig%,""
item_insert 51,lig%,""
end_if
return
' ==============
clic:
if checked(94)=1
x1%=x2%:y1%=y2%
text 33,x1%:text 74,y1%
end_if
x=mouse_x_position(suit%) -la% : x%=x/20-frac(x/20)
y=mouse_y_position(suit%) -la% : y%=y/20-frac(y/20)
text 23,str$(x%)+" : "+str$(y%) +" *|* REEL: "+str$(x)+" : "+str$(y)
text 67,x:text 69,y
2d_target_is suit%
2d_pen_color val(lr$),val(lv$),val(lb$)
2d_fill_color val(fr$),val(fv$),val(fb$)
if checked(94)=1
x2%=x%:y2%=y%
text 34,x2%:text 75,y2%
code$="2d_line ":text 21,code$
gosub faire
end_if
return
' =========
commence:
ici$=str$(x%)+" , "+str$(y%)+" , "
x1%=x%:y1%=y% :text 33,x1%:text 74,y1%
return
virgule:
ici$="":la$="":text 33,"":text 34,""
return
abouti:
la$=str$(x%) +" , " + str$(y%)
x2%=x%:y2%=y% : text 34,x2%:text 75,y2%
return
' =========================================================================================================
' *********************************************************************************************************
faire:
2d_target_is suit% : 2d_pen_width 20
2d_pen_color val(lr$),val(lv$),val(lb$)
2d_fill_color val(fr$),val(fv$),val(fb$)
if left$(code$,6)="2D_PEN"
text 21,code$:item_add 46,"2d_pen_width":item_add 47,text$(63):item_add 48," ":item_add 49," "
item_add 50,"":item_add 51,""
' 2d_pen_width val(text$(63)) *20 20 est le maxi, donc il faudrait pour l'exemple faire boucle n fois
2d_target_is 30
2d_pen_width val(text$(63))
end_if
if left$(code$,6)="2d_pen" :' couleur crayon ou ligne
text 21,code$ :item_add 46,"2d_pen_color":item_add 47,rouge$:item_add 48,vert$:item_add 49,bleu$
item_add 50," ":item_add 51,"" :' commentaire
2d_target_is suit%
2d_pen_color val(rouge$),val(vert$),val(bleu$)
2d_target_is 30 : 2d_pen_width 1
2d_pen_color val(rouge$),val(vert$),val(bleu$)
lr$=rouge$:lv$=vert$:lb$=bleu$
end_if
if left$(code$,6)="2d_fil" :' couleur surface
text 21,code$
item_add 46,"2d_fill_color":item_add 47,rouge$:item_add 48,vert$:item_add 49,bleu$:item_add 50," "::item_add 51,""
2d_target_is suit%
2d_fill_color val(rouge$),val(vert$),val(bleu$)
2d_target_is 30 : 2d_pen_width 1
2d_fill_color val(rouge$),val(vert$),val(bleu$)
fr$=rouge$:fv$=vert$:fb$=bleu$
end_if
x1%=val(text$(33)):y1%=val(text$(74)):x2%=val(text$(34)):y2%=val(text$(75))
if left$(code$,6)="2d_lin" :' créer une ligne
text 21,code$+ici$+la$
item_add 46,"2d_line":item_add 47,x1%:item_add 48,y1%:item_add 49,x2%:item_add 50,y2%:item_add 51,""
2d_target_is suit%
2d_line x1%*20+l+10 , y1%*20+h+10 , x2%*20+l+10 , y2%*20+h+10
2d_target_is 30 : 2d_pen_width 1
2d_line x1%+10 , y1%-10 , x2%+10 , y2%-10
end_if
if left$(code$,6)="2d_rec" :' créer un rectangle plein
text 21,code$+ici$+la$
item_add 46,"2d_rectangle":item_add 47,x1%:item_add 48,y1%:item_add 49,x2%:item_add 50,y2%:item_add 51,""
2d_target_is suit%
2d_rectangle x1%*20+l+10 , y1%*20+h+10 , x2%*20+l+10 , y2%*20+h+10
2d_target_is 30 : 2d_pen_width 1
2d_rectangle x1%+10 , y1%+10 , x2%+10 ,y2%+10
end_if
if left$(code$,6)="2d_cir"
item_add 46,"2d_circle":item_add 47,x1%:item_add 48,y1%:item_add 49,x2%-x1%:item_add 50,"":item_add 51,""
2d_target_is suit% :2d_circle x1%*20+l+10 , y1%*20+h+10 , (x2%-x1%)*20+l+10
2d_target_is 30: 2d_pen_width 1
2d_circle x1%+10 ,y1%+10,x2%-x1%+10
end_if
gosub relance
return
'===========================
detruit:
for a%=46 to 51
if count(a%)=>lig% then item_delete a%,lig%
next a%
color 45,255,255,255:color 46,255,255,255
return
' --
insert:
item_insert 46,lig%,"":item_insert 47,lig%,"":item_insert 48,lig%,""
item_insert 49,lig%,"":item_insert 50,lig%,"":item_insert 51,lig%,""
color 45,255,255,255:color 46,255,255,255
return
' --
modifie:
' -----------
return
sauve:
clear 84:item_add 84,"SAUVEGARDE du fichier créé":item_add 84,"se trouve en E:\MEMO\icone\CRÉATION\"
color 84,255,0,0
filter 36,"SAUVE|*.cde"
m$=file_name$ (36)
if right$(m$,4)<>".cde" and m$<>"_" then m$=m$+".cde"
if m$<>"_" then file_save 20,m$
clear 84:color 84,255,255,255
return
decode:
b$=""
if a$<>"" then i%=instr(a$,var$)
if i%>0
b$=left$(a$,i%-1):a$=right$(a$,len(a$)-i%)
else
b$=a$:a$=""
end_if
return
' -----------------------
lecture:
clear 84:item_add 84,"LECTURE d'un fichier cde":item_add 84,"se trouve en E:\MEMO\icone\CRÉATION\"
color 84,255,0,0
filter 73,"lecture|*.cde"
m$=file_name$(73)
if m$<>"_"
file_load 20,m$
refaire:
for a%=46 to 50:clear a%:next a%
if count(20)>1
for a%=1 to count(20)
a$=item_read$(20,a%):var$=","
i%=instr(a$,":'")
if i%>0
item_add 51,right$(a$,len(a$)-i%-1)
a$=left$(a$,i%-1)
else
item_add 51,""
end_if
i%=instr(a$," ")
code$=left$(a$,i%-1):item_add 46,code$:a$=right$(a$,len(a$)-i%)
gosub decode:a47$=b$ : item_add 47,a47$
gosub decode:a48$=b$ : item_add 48,a48$
gosub decode:a49$=b$ : item_add 49,a49$
gosub decode:a50$=b$ : item_add 50,a50$
next a%
end_if
end_if
clear 84:color 84,255,255,255
return
' $$$$$$$$$$$$$$$$$$$$$
debloc:
bloq%=0:goto relance
bloq:
bloq%=1
relance:
clear 20:clear 78
2d_clear
if f$<>"_" then file_load 3,f$ :if suit%=3 then wait 500
' les repères verticaux et horizontaux
if count(70)>0
for a%=1 to count(70)
if numeric(item_read$(70,a%))=1 then x=val(item_read$(70,a%))
2d_target_is suit%
2d_pen_color 255,0,200
2d_pen_width 3
2d_line x,0,x,600
2d_pen_width 20
next a%
2d_pen_color val(lr$),val(lv$),val(lb$)
end_if
'
if count(71)>0
for a%=1 to count(71)
if numeric(item_read$(71,a%))=1 then y=val(item_read$(71,a%))
2d_target_is suit%
2d_pen_color 255,0,200
2d_pen_width 3
2d_line 0,y,600,y
2d_pen_width 20
next a%
2d_pen_color val(lr$),val(lv$),val(lb$)
end_if
2d_target_is suit% :' message lr$+" "+lv$+" "+lb$ +" suit%="+str$(suit%)
2d_pen_color val(lr$),val(lv$),val(lb$)
2d_fill_color val(fr$),val(fv$),val(fb$)
' __________________________________________
2d_target_is 30: 2d_clear : 2d_target_is suit% :' icone du centre, pour effacer désactiver 2d
delete 30
picture 30:left 30,540:top 30,750:width 30,50:height 30,50
if count(46)>0
for a%=1 to count(46)
a$=item_read$(46,a%)
b$=item_read$(47,a%):if numeric(b$)=1 then x1%=val(b$)
b$=item_read$(48,a%):if numeric(b$)=1 then y1%=val(b$)
b$=item_read$(49,a%):if numeric(b$)=1 then x2%=val(b$)
b$=item_read$(50,a%)
expl$=item_read$(51,a%):if expl$<>"" then expl$=":' "+expl$
if numeric(b$)=1
y2%=val(b$)
item_add 20,a$+" "+item_read$(47,a%)+","+item_read$(48,a%)+","+item_read$(49,a%)+","+b$ +expl$
item_add 78,a$+" "+item_read$(47,a%)+"+l,"+item_read$(48,a%)+"+h,"+item_read$(49,a%)+"+l,"+b$+"+h"+expl$
else
item_add 20,a$+" "+item_read$(47,a%)+","+item_read$(48,a%)+","+item_read$(49,a%)+expl$
item_add 78,a$+" "+item_read$(47,a%)+","+item_read$(48,a%)+","+item_read$(49,a%)+expl$
end_if
if a$<>"cadre"
' item_add 20,a$+" "+item_read$(47,a%)+","+item_read$(48,a%)+","+item_read$(49,a%)+","+b$
else
' item_add 20,a$
' METTRE LES CODES ICI
end_if
if a$="2d_pen_color"
2d_target_is suit%:2d_pen_color x1%,y1%,x2%:2d_pen_width 20
2d_target_is 30
2d_pen_color x1%,y1%,x2%
lr$=str$(x1%):lv$=str$(y1%):lb$=str$(x2%)
end_if
if a$="2d_fill_color"
fr$=str$(x1%):fv$=str$(y1%):fb$=str$(x2%)
2d_target_is suit%:2d_fill_color x1%,y1%,x2% :2d_pen_width 20
2d_target_is 30:2d_fill_color x1%,y1%,x2%
end_if
if a$="2d_line"
2d_target_is suit%:2d_line x1%*20+l+10 , y1%*20+h+10 , x2%*20+l+10 , y2%*20+h+10
2d_target_is 30:2d_line x1%+10,y1%+10,x2%+10,y2%+10
end_if
if bloq%=0
if a$="2d_rectangle"
2d_target_is suit%:2d_rectangle x1%*20+l+10 , y1%*20+h+10 , x2%*20+l+10 , y2%*20+h+10
2d_target_is 30:2d_rectangle x1%+10,y1%+10,x2%+10,y2%+10
end_if
end_if
if left$(code$,6)="2d_cir"
2d_target_is suit%:2d_circle x1%*20+10 , y1%*20+10 , (x2%-x1%)*20+10
2d_target_is 30:2d_circle x1%+10 ,y1%+10,x2%-x1%+10
end_if
next a%
end_if
gosub grille
2d_target_is suit%
2d_pen_color val(lr$),val(lv$),val(lb$)
2d_fill_color val(fr$),val(fv$),val(fb$)
return
' ________----------------___________
reperage:
2d_clear
file_load 3,f$ :wait 500
if count(70)>0
for a%=1 to count(70)
if numeric(item_read$(70,a%)))=1
x=val(item_read$(70,a%))
2d_target_is suit%
2d_pen_color 255,0,200
2d_pen_width 3
2d_line x,0,x,600
end_if
2d_pen_width 20
2d_pen_color val(lr$),val(lv$),val(lb$)
next a%
end_if
if count(71)>0
for a%=1 to count(71)
if numeric(item_read$(71,a%)))=1
y=val(item_read$(71,a%))
2d_target_is suit%
2d_pen_color 255,0,200
2d_pen_width 3
2d_line 0,y,600,y
end_if
2d_pen_width 20
2d_pen_color val(lr$),val(lv$),val(lb$)
next a%
end_if
gosub grille
return
grille:
2d_target_is suit%:2d_pen_width 1
2d_pen_color 200,200,200
la%=0
for a%=0 to 30
i%=a%*20+la%
2d_line i%,la%,i%,600+la%
2d_line la%,i%,600+la%,i%
next a%
' accentué
2d_pen_color 0,0,255
for a%=0 to 6
i%=a%*100+la%
2d_line i%,la%,i%,600+la%
2d_line la%,i%,600+la%,i%
next a%
2d_pen_color 255,0,0
for a%=0 to 3
i%=a%*200+la%
2d_line i%,la%,i%,600+la%
2d_line la%,i%,600+la%,i%
next a%
return
prendre:
message "choisie la ligne "+str$(lig%)
return
|
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Jeu 24 Déc 2009 - 1:27 | |
| maintenant 3ème et dernier programme: PROGRAMMATION DES ICÔNES pour les intégrer dans un nouveau programme. C'est tout simple, vous déplacez le curseur pour en choisir un, vous cliquez sur le 1er carré blanc qui l'intègre, puis vous définissez le label qui fera le branchement (où il y aura la programmation ) lorsque l'on clique dessus. les numéros d'objet se font avec des variables, et vous pouvez y mettre un autre nom au dessus, si vous le voulez, avec une valeur du numéro au départ autre que 1. On 2/3 4/5 clics selon le nombre d'icône, le programme est fait. Certainement que ces trois programmes vous ne les utiliserez pas. Maintenant je vais me faire tout petit, et aller penser au Père Noël, ou bien au petit Jésus. Qui sais? - Code:
-
rem programme pour installer les icones à glissière.
error_french
' Présentation du programme pour intégrer les outils dans un autre programme
' width 0,400:height 0,150 :left 0,600:top 0,100:border_small 0
full_space 0:color 0,220,255,210
' variables de départ pour le programme
dim sce,ico, pict,n% ,mem ,messag$,saut$,gd%,a%,nu%,d%,a$,t$,i$,lg$,ic$
dim icone%,d$,l$,fin$,compteur%
' $$ -1) 1 variable par PICTURE (icone de menu)
dim ico1 :' créé nouveau fichier
dim ico2 :' ouvrir
dim ico3 :' enregistrement
dim ico4 :' nouvelle liste
dim ico5 :' préférence
dim ico6 :' adapte la fenêtre
dim ico7 :' efface
dim ico8 :' renomme
dim ico9 :' stop
dim ico10 :' Père Noël
dim ico11 :' cadeaux
dim ico12 :' bloc note
dim ico13 :' calculatrice
' label de départ à intégrer obligatoirement (ou modifier le programme)
label cadre,glisse,fin,codage
' label pour un icone, et 1 pour le branchement lors du click (ici message1)
label iconeNouveau :' créé nouveau fichier
label iconeOUVRE :' ouvrir un document
label iconEnregistre :' enregistrement
label iconeNewItem :' nouvelle liste
label iconePreference :' boite préférence
label iconeADAPTE :' adapter les objets à la fenêtre
label iconeEFFACE :' efface un ...
label iconeRENOMME :' renomme un truc
label iconSTOP :' branchement direct à terminate
label iconeNOTE :' bloc note
label iconeCALCUL :' calculatrice
label image1,image2,image3,image4,image5,image6,image7,image8,image9,image10
label image11,image12,image13,image14,image15,image16,image17,image18,image19
label choisi,efface,execution
label ligne1,ligne2,ligne3,ligne4,ligne5,ligne6,ligne7,ligne8,ligne9,ligne10,ligne11
saut$=chr$(10)+chr$(13):' saut à la ligne suivante
sce=1 :' numéro du premier objet, à modifier si les objets sont à inclure dans un autre programme
ico=sce+5 :' numéro de l'objet ALPHA qui est le texte de présentation de l'icone
pict= ico +1 :' numéro de l'objet SCROLL_BAR
mem =pict+1 :' numero du MEMO qui ici remplace l'exécution de l'icone menu cliqué
' numérotation des objets PICTURE qui simule une commande de menu
ico1 = mem +1 :' ici nouveau Fichier
ico2 =ico1 +1 :' ici ouvrir document
ico3 =ico2 +1 :' ici enregistrement
ico4 =ico3 +1 :' ici nouvelle liste
ico5 =ico4 +1 :' préférence
ico6 =ico5 +1 :' adapter la fenêtre
ico7 =ico6 +1 :' efface
ico8 =ico7 +1 :' renomme
ico9 =ico8 +1 :' stop
ico10=ico9 +1 :' bloc note
ico11=ico10+1 :' calculatrice
alpha sce:top sce,0:left sce,450:font_size sce,12:caption sce,"définition du 1er objet:"
edit sce+1:top sce+1,0:left sce+1,610:width sce+1,70:font_size sce+1,12:text sce+1,"ico":height sce+1,20
font_bold sce+1
alpha sce+2:top sce+2,0:left sce+2,700:font_size sce+2,12:font_bold sce+2:caption sce+2,"N° de départ:"
edit sce+3:top sce+3,0:left sce+3,800:font_size sce+3,12:font_bold sce+3:text sce+3,"1":width sce+3,60
alpha ico:left ico,50:top ico,0:caption ico,"déplacez le curseur au départ, avant de commencer":font_size ico,11
' MEMO mem sert de démonstration du bon fonctionnement, mais tous les icones sont branchés ici
memo mem:left mem,0:top mem,40:width mem,390:height mem,80:font_size mem,10:font_bold mem
item_add mem,"déplacer le curseur, pour choisir l'icone à insérer dans la liste, et dans l'ordre voulu"
item_add mem,"cliquez sur le carré blanc, remplir les labels"
' Scroll_bar sert au défilement de chaque icone du menu
scroll_bar pict:left pict,50:top pict,23:width pict,200:height pict,8
hint pict,"glisser le curseur"+saut$+"changer de menu"
' if faut adapter la variable >pict< au nombre d'icones (ici 3 pour 3 icones)
min pict,1:max pict,11:on_change pict,glisse
' ici ^^
' ||
' =============maintenant 1 PICTURE par icone (au départ sauf le 1er HIDExx=====
picture ico1:width ico1,30:height ico1,30:left ico1,10:top ico1,2
2d_target_is ico1 :gosub iconeNouveau
picture ico2:width ico2,30:height ico2,30:left ico2,10:top ico2,2:hide ico2
2d_target_is ico2 :gosub iconeOUVRE
picture ico3:width ico3,30:height ico3,30:left ico3,10:top ico3,2:hide ico3
2d_target_is ico3 :gosub iconEnregistre
picture ico4:width ico4,30:height ico4,30:left ico4,10:top ico4,2:hide ico4
2d_target_is ico4 :gosub iconeNewItem
picture ico5:width ico5,30:height ico5,30:left ico5,10:top ico5,2:hide ico5
2d_target_is ico5 :gosub iconepreference
picture ico6:width ico6,30:height ico6,30:left ico6,10:top ico6,2:hide ico6
2d_target_is ico6 :gosub iconeADAPTE
picture ico7:width ico7,30:height ico7,30:left ico7,10:top ico7,2:hide ico7
2d_target_is ico7 :gosub iconeEFFACE
picture ico8:width ico8,30:height ico8,30:left ico8,10:top ico8,2:hide ico8
2d_target_is ico8 :gosub iconeRENOMME
picture ico9:width ico9,30:height ico9,30:left ico9,10:top ico9,2:hide ico9
2d_target_is ico9 :gosub iconSTOP
picture ico10:width ico10,30:height ico10,30:left ico10,10:top ico10,2:hide ico10
2d_target_is ico10 :gosub iconeNOTE
picture ico11:width ico11,30:height ico11,30:left ico11,10:top ico11,2:hide ico11
2d_target_is ico11 :gosub iconeCALCUL
gd%=ico1
' =================PROGRAMMATION CODAGE DU MENU=================================
for a%=0 to 12
picture a%+101:left a%+101, 10:top a%+101,a%*40+180:width a%+101, 30:height a%+101,30:hint a%+101,"cliquez pour copier l'icone"
alpha a%+201 :left a%+201, 50:top a%+201,a%*40+190:width a%+201, 30:height a%+201,20
edit a%+301 :left a%+301,80:top a%+301,a%*40+190:width a%+301,150:height a%+301,20
edit a%+401 :left a%+401,240:top a%+401,a%*40+185:width a%+401,100:height a%+401,20:font_size a%+401,12:font_bold a%+401
next a%
alpha 200 :left 200, 55:top 200,160 :width 200,30:caption 200,"N°":font_size 200,12
alpha 300 :left 300,120:top 300,160 :width 300,30:caption 300,"commande":font_size 300,12
alpha 400 :left 400,240:top 400,140 :caption 400," LABEL de "+saut$+"branchement":font_size 400,12
memo 98:left 98,400:top 98,35:width 98, width(0)-430:height 98,height(0)-70:font_size 98,12:font_bold 98
button 99 :left 99,0: top 99,135:width 99,50:caption 99,"EFFACE":on_click 99,efface
button 100 :left 100,80 :top 100,135 :width 100,150 :caption 100,"CODAGE DU MENU":on_click 100,codage
dlist 97: rem ' left 97,400:top 97,300:width 97, width(0)-630:height 97,height(0)-450:font_size 97,12:font_bold 97
dlist 96: rem ' left 96,390:top 96,600:width 96, width(0)-630:height 96,height(0)-750:font_size 96,12:font_bold 96
bar_both 98
dlist 95: rem ' left 95,0:top 95,700:width 95,390:height 95,240:font_size 95,12:font_bold 95
on_click 101,image1:on_click 102,image2:on_click 103,image3:on_click 104,image4
on_click 105,image5:on_click 106,image6:on_click 107,image7:on_click 108,image8
on_click 109,image9:on_click 110,image10:on_click 111,image11:on_click 112,image12
' ==============================================================================
end:' END
' ==============================================================================
efface:
if icone%>100
2d_target_is icone% :2d_clear
caption icone%+100 ,""
text icone%+200,"":color icone%+200,255,255,255
end_if
return
' -------------------------
codage:
clear 95:clear 96:clear 97:clear 98:ic$=text$(sce+1)
item_add 96,"cadre:"
item_add 96," 2d_pen_color 200,200,200:2d_pen_width 2: 2d_line 0,0,29,0:2d_line 0,0,29,0: 2d_line 0,1,0,29:2d_line 1,1,27,1:2d_line 1,2,25,2:2d_line 1,1,1,27:2d_line 2,3,2,25: 2d_pen_color 150,150,150:2d_line 29,1,29,28:2d_line 28,1,28,27:2d_line 27,2,27,25: 2d_line 2,26,27,26:2d_line 2,27,27,27:2d_line 1,28,28,28:return"
item_add 96,"' - -"
item_add 96,"click:"
item_add 96," 2d_pen_width 2:2d_pen_color 218,175,133:2d_line 0,0,29,0:2d_line 0,0,29,0:2d_line 0,1,0,29:2d_line 1,1,27,1:2d_line 1,2,25,2:2d_line 1,1,1,27:2d_line 2,3,2,25:2d_pen_color 216,216,164:2d_line 29,1,29,28:2d_line 28,1,28,27:2d_line 27,2,27,25:2d_line 2,26,27,26:2d_line 2,27,27,27:2d_line 1,28,28,28:return"
item_add 96,""
d$="dim "+text$(sce+1)+",gd%,a%,pict,":l$="label glisse,cadre,click,":compteur%=0
for nu%=1 to 13
t$=text$(sce+1)+str$(nu%)
if caption$(nu%+200)<>""
fin$=t$ :compteur%=compteur%+1
if nu%>1 then d$=d$+","
d$=d$+t$
if nu%>1 then l$=l$+","
l$=l$+text$(nu%+400)
if nu%>1
item_add 97,"picture "+t$+":left "+t$+",10:top "+t$+",2:width "+t$+",30:height "+t$+",30:hide "+t$+":on_click "+t$+","+text$(400+nu%)
else
item_add 97,"picture "+t$+":left "+t$+",10:top "+t$+",2:width "+t$+",30:height "+t$+",30"+":on_click "+t$+","+text$(400+nu%)
end_if
select val(caption$(nu%+200))
case 1:gosub ligne1
case 2:gosub ligne2
case 3:gosub ligne3
case 4:gosub ligne4
case 5:gosub ligne5
case 6:gosub ligne6
case 7:gosub ligne7
case 8:gosub ligne8
case 9:gosub ligne9
case 10:gosub ligne10
case 11:gosub ligne11
end_select
gosub execution
l$=l$+","+i$
item_add 97," 2d_target_is "+t$+":gosub cadre:gosub "+i$
end_if
next nu%
item_add 98,d$:item_add 98,l$
item_add 98," ' ________________________________"
item_add 98," ' numérations des objets"
a$=ic$+ "=" + text$(sce+3) + ":pict=" + ic$ + "+1:" + ic$ + "1=pict+2:"
for a%=2 to compteur%: a$=a$ + ic$ + str$(a%) + "="+ ic$ + str$(a%-1)+"+1":if a%<compteur% then a$=a$+":"
next a%:item_add 98,a$:item_add 98,""
' les objets
item_add 98,"alpha pict+1:left pict+1,50:top pict+1,0:font_size pict+1,11"
item_add 98,"scroll_bar pict:left pict,50:top pict,23:width pict,200:height pict,8"
item_add 98,"hint pict,"+chr$(34)+"glisser le curseur pour"+chr$(34)+"+chr$(10)+chr$(13)+"+chr$(34)+"changer de menu"+chr$(34)
' message "continuer"
item_add 98,""
for a%=1 to count(97)
item_add 98,item_read$(97,a%)
next a%
item_add 98,""
item_add 98,"min pict,1:max pict,"+str$(compteur%)+ ":on_change pict,glisse" :item_add 98,""
item_add 98," END :' END END END END END END END END END END END END"
item_add 98,"rem ============================================================="
item_add 98,""
' procédure GLISSE
item_add 98,"glisse:":item_add 98," gd%=position(pict)"
item_add 98," for a%=" + ic$ + "1 to " + ic$ + str$(compteur%) + ":hide a%:next a%"
item_add 98," select gd%"
for a%=1 to compteur%
item_add 98," case " + str$(a%) + ":show " + ic$ + str$(a%) + ":caption pict+1," + chr$(34) + text$(a%+300) + chr$(34)
next a%
item_add 98," end_select"
item_add 98,"return":item_add 98,"' - -"
for a%=1 to count(96)
item_add 98,item_read$(96,a%)
next a%
item_add 98,""
for a%=1 to count(95)
item_add 98,item_read$(95,a%)
next a%
item_add 98,""
return
' ==============================================================================
ligne1:
i$="iconeNouveau":lg$=" 2d_pen_color 0,0,0:2d_fill_color 255,255,140:2d_rectangle 8,5,16,23:2d_rectangle 16,10,21,23:2d_pen_color 255,255,140:2d_line 16,11,16,22:2d_line 17,6,20,9:2d_line 17,7,19,9:2d_line 17,8,17,9:2d_line 15,11,15,22:2d_pen_color 0,0,0:2d_line 16,5,21,10:2d_line 8,22,20,22:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne2:
i$="iconeOUVRE":lg$=" 2d_rectangle 5,8,21,23:2d_fill_color 255,255,255:2d_pen_color 160,162,48:for a%=5 to 18:2d_line a%,23,a%+3,15:next a%:2d_pen_color 0,0,0 :2d_line 5,8,5,23:2d_line 5,23,18,23:2d_line 18,23,23,15:2d_line 23,15,9,15:2d_line 9,15,5,23:2d_line 5,8,9,8:2d_line 9,8,9,10:2d_line 9,10,19,10:2d_line 19,10,19,15:2d_line 12,8,12,5:2d_line 12,5,22,5:2d_line 22,5,22,8:2d_line 22,9,18,7:2d_line 22,9,26,7:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne3:
i$="iconeENREGISTRE":lg$=" 2d_pen_color 0,0,0:2d_fill_color 0,0,0:2d_line 6,6,23,6:2d_line 6,6,6,22:2d_line 23,6,23,24:2d_line 7,24,23,24:2d_line 9,6,9,14:2d_line 20,6,20,14:2d_line 20,9,23,9:2d_line 10,15,19,15:2d_rectangle 10,18,20,24:2d_fill_color 255,255,255:2d_pen_color 255,255,255:2d_rectangle 17,20,19,23:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 7,7,9,23:2d_rectangle 10,16,22,17:2d_rectangle 21,10,22,23:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne4:
i$="iconeNewItem":lg$=" 2d_pen_color 0,0,0:2d_line 6,5,21,5:2d_line 21,5,22,6:2d_line 22,6,22,8:2d_line 22,8,25,8:2d_line 25,8,25,13:2d_line 25,13,22,13:2d_line 22,13,22,23:2d_line 22,23,21,25:2d_line 21,25,5,25:2d_line 5,25,4,24:2d_line 4,24,4,6:2d_line 4,6,6,5:2d_line 22,16,25,16:2d_line 25,16,25,22:2d_line 25,22,22,22:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 23,17,24,21:2d_fill_color 150,210,240:2d_pen_color 160,162,48:2d_rectangle 12,8,16,22:2d_rectangle 7,13,21,17:2d_pen_color 150,210,240:2d_rectangle 13,12,15,18:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne5:
i$="iconePROPRIETE":lg$=" 2d_pen_color 0,0,0 :2d_line 5,6,5,23:2d_line 23,6,23,23:2d_line 6,5,22,5 :2d_line 6,24,22,24:2d_fill_color 0,0,0:2d_rectangle 16,19,21,21:2d_line 7,7,7,21 :2d_pen_color 0,196,0 :2d_rectangle 10,7,19,8:2d_rectangle 11,9,12,21:2d_rectangle 10,20,14,21:2d_rectangle 13,13,18,14:2d_pen_color 0,196,0:2d_line 17,7,19,11:2d_line 17,13,20,9:2d_line 19,7,20,9:2d_line 19,8,19,10:2d_line 20,10,18,14:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne6:
i$="iconeADAPTE":lg$=" 2d_fill_color 150,210,240:2d_rectangle 12,8,16,22:2d_rectangle 7,13,22,17:2d_pen_color 150,210,240:2d_line 10,7,18,7:2d_line 12,6,16,6:2d_line 13,5,15,5:2d_line 14,4,14,3:2d_line 9,7,14,3:2d_line 18,7,14,3:2d_line 14,3,19,7:2d_line 23,10,23,20:2d_line 23,10,26,15:2d_line 26,15,23,20:2d_line 24,12,24,19:2d_line 25,14,25,17:2d_line 6,10,6,20:2d_line 3,15,6,10:2d_line 3,15,6,20:2d_line 5,12,5,18:2d_line 4,16,4,14:2d_line 9,23,19,23:2d_line 9,23,14,26:2d_line 14,26,19,23:2d_line 11,24,17,24:2d_line 13,25,15,25:2d_pen_color 255,0,0:2d_line 14,5,14,25:2d_line 5,15,24,15:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne7:
i$="iconeEFFACE":lg$=" 2d_pen_color 0,0,0:2d_line 5,9,5,24:2d_line 5,24,20,24:2d_line 5,9,11,9:2d_line 11,9,11,5:2d_line 14,5,16,5:2d_line 16,5,18,4:2d_line 18,4,24,10:2d_line 24,10,19,15:2d_line 19,15,13,9:2d_line 13,9,16,5:2d_line 15,11,20,6:2d_line 20,24,20,14:2d_line 11,5,16,5:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 18,10,20,12:2d_rectangle 19,9,22,11:2d_line 16,11,20,7:2d_line 20,7,23,10:2d_line 23,10,19,14:2d_line 19,14,16,11:2d_line 17,11,20,8:2d_line 19,13,19,13:2d_pen_color 255,255,140:2d_fill_color 255,255,140:2d_rectangle 6,14,17,23:2d_rectangle 19,16,18,23:2d_rectangle 6,10,13,13:2d_line 12,6,14,6:2d_line 12,6,12,9:2d_line 14,6,12,9:2d_line 12,10,18,16:2d_line 14,13,14,13:2d_pen_color 255,0,0:2d_line 18,5,19,6:2d_line 19,6,15,10:2d_line 15,10,14,9:2d_line 14,9,17,6:2d_line 17,6,18,5:2d_line 18,5,15,7:2d_line 15,7,18,6:2d_line 18,6,15,9:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne8:
i$="iconeNAME":lg$=" 2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 12,4,23,6:2d_rectangle 21,6,23,15:2d_line 19,16,25,16:2d_line 21,17,23,17:2d_line 22,18,22,18:2d_line 8,5,4,14:2d_line 8,5,12,14:2d_line 5,14,8,7 :2d_line 8,7,11,14:2d_line 6,12,10,12:2d_pen_color 0,0,0:2d_fill_color 0,0,0:2d_rectangle 12,17,13,26:2d_rectangle 11,17,19,18:2d_line 14,21,20,21:2d_line 19,17,20,19:2d_line 20,19,20,21 :2d_rectangle 11,26,20,25:2d_line 21,23,21,23 :2d_line 21,23,19,21:2d_line 21,23,21,26:2d_line 18,17,20,20:2d_line 20,24,20,24:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne9:
i$="iconeSTOP":lg$=" 2d_pen_color 0,0,0:2d_fill_color 255,200,0:2d_rectangle 5,5,24,24:2d_pen_color 255,0,0:2d_line 21,8,8,21:2d_line 20,8,8,20:2d_line 9,21,21,9:2d_line 8,8,21,21:2d_line 9,8,21,20:2d_line 8,9,20,21:return"
item_add 96,i$+":":item_add 96," "+lg$:item_add 96,"' - - ":return
' --
ligne10:
i$="iconeNOTE"
item_add 96,i$+":"
lg$=" 2d_pen_color 0,0,0:2d_fill_color 255,255,255:2d_rectangle 3,3,26,26:2d_line 19,4,3,20:2d_line 9,26,26,9:2d_line 17,6,21,8:2d_line 21,8,23,12:2d_line 19,5,22,6:2d_line 22,6,25,10:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,26:2d_line 3,25,3,26:2d_line 25,4,25,4:2d_pen_color 255,0,0:2d_line 20,5,22,5:2d_line 22,5,24,7:2d_line 24,7,25,9:2d_line 25,9,25,7:2d_line 25,7,23,5:2d_line 23,5,22,4:2d_line 22,4,20,4:2d_line 20,4,24,4:2d_line 24,4,25,5:2d_line 25,5,25,6:2d_line 25,6,23,4:2d_line 3,26,3,26:2d_line 3,25,4,26:2d_line 21,3,23,3:2d_line 26,6,26,8:2d_pen_color 0,196,0:2d_line 18,6,21,7:2d_line 21,7,23,9:2d_line 23,9,24,11:2d_line 19,6,21,6:2d_line 21,6,23,9:2d_line 22,8,23,10:2d_pen_color 255,255,140:2d_line 4,20,17,7:2d_line 17,7,18,7:2d_line 18,7,5,20:2d_line 5,20,6,20:2d_line 6,20,18,8:2d_line 22,12,9,24:2d_line 9,24,9,23:2d_line 9,23,22,11:2d_line 22,11,21,11:2d_line 21,11,9,22:2d_pen_color 255,200,0:2d_pen_color 255,200,0:2d_line 19,8,7,20:2d_line 7,20,7,21:2d_line 7,21,20,8"
item_add 96,lg$
lg$=" 2d_line 20,8,20,9:2d_line 20,9,8,21:2d_line 8,21,8,22:2d_line 8,22,20,11:2d_line 20,11,20,10:2d_line 20,10,21,10:2d_line 21,10,21,9:2d_pen_color 0,0,0:2d_line 17,6,19,7:2d_line 19,7,21,8:2d_line 21,8,22,10:2d_line 22,10,23,12:2d_line 19,5,22,6:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,25:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 4,22,6,25:2d_line 6,22,8,25:2d_line 8,25,6,25:2d_pen_color 150,210,240:2d_line 4,6,15,6:2d_line 4,9,12,9:2d_line 4,12,9,12:2d_line 4,15,6,15:2d_line 22,15,25,15:2d_line 25,12,25,12:return"
item_add 96,lg$:item_add 96,"' - - ":return
' --
ligne11:
i$="iconeCALCUL"
item_add 96,i$+":":item_add 96," 2d_pen_color 160,162,48:2d_fill_color 160,162,48:2d_rectangle 3,3,26,5:2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 25,4,26,5:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 3,6,26,26:2d_pen_color 255,255,255:2d_line 4,8,25,8:2d_line 4,9,25,9:2d_pen_color 100,100,100:2d_line 9,11,14,11:2d_line 14,11,14,12:2d_line 14,12,9,12:2d_line 16,11,19,11:2d_line 19,11,19,12:2d_line 19,12,16,12:2d_line 21,11,25,11:2d_line 25,11,25,12:2d_line 25,12,21,12"
item_add 96," 2d_line 4,14,6,14:2d_line 6,14,6,15:2d_line 6,15,4,15:2d_line 9,14,10,14:2d_line 10,14,10,15:2d_line 10,15,9,15:2d_line 13,14,14,14:2d_line 14,14,14,15:2d_line 14,15,13,15:2d_line 17,14,18,14:2d_line 18,14,18,15:2d_line 18,15,17,15:2d_line 22,14,22,15:2d_line 22,15,21,15:2d_line 21,15,21,14:2d_line 4,18,6,18:2d_line 6,18,6,19:2d_line 6,19,4,19:2d_line 9,18,10,18:2d_line 10,18,10,19:2d_line 10,19,9,19:2d_line 13,18,14,18:2d_line 14,18,14,19:2d_line 14,19,13,19:2d_line 18,19,17,19:2d_line 21,18,22,18"
item_add 96," 2d_line 22,18,22,19:2d_line 22,19,21,19:2d_line 4,22,6,22:2d_line 6,22,6,23:2d_line 6,23,4,23:2d_line 9,22,10,22:2d_line 10,22,10,23:2d_line 10,23,9,23:2d_line 13,22,14,22:2d_line 14,22,14,23:2d_line 14,23,13,23:2d_line 17,22,18,22:2d_line 18,22,18,23:2d_line 18,23,17,23:2d_line 21,22,22,22:2d_line 22,22,22,23:2d_line 22,23,21,23:2d_pen_color 255,0,0:2d_line 10,12,13,12:2d_line 5,15,6,15:2d_line 21,9,24,9:2d_line 5,19,6,19:2d_line 5,23,6,23:2d_line 17,12,18,12:2d_line 23,12,24,12:2d_pen_color 255,255,255:2d_line 6,4,14,4:return"
item_add 96,"' - - ":return
' -------------------------
execution:
item_add 95,text$(400+nu%)+":"
item_add 95,"2d_target_is " + t$ + ":gosub click:wait 150:gosub cadre"
if val(caption$(nu%+200))>0 and val(caption$(nu%+200))<9 :' stop
item_add 95," ' ici mettre code pour l'exécution "+text$(300+nu%)
end_if
if val(caption$(nu%+200))=9
item_add 95," terminate"
end_if
if val(caption$(nu%+200))=10
item_add 95," execute "+chr$(34)+"notepad.exe"+chr$(34)
end_if
if val(caption$(nu%+200))=11
item_add 95," execute "+chr$(34)+"calc.exe"+chr$(34)
end_if
if caption$(nu%+200)<>"9" then item_add 95,"return":item_add 95,"' - - - '"
return
' -------------------------
image1:
color 301,255,255,0:icone%=101
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image2:
color 301,255,255,0:icone%=102
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image3:
color 301,255,255,0:icone%=103
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image4:
color 301,255,255,0:icone%=104
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image5:
color 301,255,255,0:icone%=105
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image6:
color 301,255,255,0:icone%=106
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image7:
color 301,255,255,0:icone%=107
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image8:
color 301,255,255,0:icone%=108
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image9:
color 301,255,255,0:icone%=109
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image10:
color 301,255,255,0:icone%=110
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image11:
color 301,255,255,0:icone%=111
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image12:
color 301,255,255,0:icone%=112
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image13:
color 301,255,255,0:icone%=113
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image14:
color 301,255,255,0:icone%=114
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image15:
color 301,255,255,0:icone%=115
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image16:
color 301,255,255,0:icone%=116
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image17:
color 301,255,255,0:icone%=117
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image18:
color 301,255,255,0:icone%=118
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
image19:
color 301,255,255,0:icone%=119
2d_target_is icone%:text 200+icone%,messag$ :2d_clear:gosub cadre :caption icone%+100,str$(gd%)
gosub choisi:set_focus icone%+300
return
choisi:
select gd%
case 1:gosub iconeNOUVEAU
case 2:gosub iconeOUVRE
case 3:gosub iconEnregistre
case 4:gosub iconeNewItem
case 5:gosub iconepreference
case 6:gosub iconeADAPTE
case 7:gosub iconeEFFACE
case 8:gosub iconeRENOMME
case 9:gosub iconSTOP
case 10:gosub iconeNOTE
case 11:gosub iconeCALCUL
end_select
return
' ==============================================================================
glisse:
gd%=position(pict) : color mem ,220,255,210
' $$ adapter TO ... au dernier icone
for a%=ico1 to ico11 :hide a%:next a%
' ^^
' ^^
' =======chaque changement de glissière arrive ici donc mettre à jour==========
' message accompagnant chaque icone lors du déplacement de la glissière
select gd%
case 1:show ico1 :messag$="Nouveau":caption ico,messag$
case 2:show ico2 :messag$="Ouvrir":caption ico,messag$
case 3:show ico3 :messag$="sauvegarder":caption ico,messag$
case 4:show ico4 :messag$="Ajouter une nouvelle liste":caption ico,messag$
case 5:show ico5 :messag$="adapter les préférences":caption ico,messag$
case 6:show ico6 :messag$="adapter les objets à la fenêtre":caption ico,messag$
case 7:show ico7 :messag$="effacer un objet ou ?":caption ico,messag$
case 8:show ico8 :messag$="renommer un truc":caption ico,messag$
case 9:show ico9 :messag$="Arrêt du programme":caption ico,messag$
case 10:show ico10:messag$="Bloc Notes":caption ico,messag$
case 11:show ico11:messag$="calculatrice":caption ico,messag$
end_select
return
' °°°°°°°°°°°°°°°°°°°°°°°°°°°°
' =============================================================================
=============================================================================
' ---------cadre entourant chaque icone-----
cadre:
2d_pen_color 200,200,200
2d_pen_width 2
2d_line 0,0,29,0:2d_line 0,0,29,0
2d_line 0,1,0,29:2d_line 1,1,27,1:2d_line 1,2,25,2:2d_line 1,1,1,27:2d_line 2,3,2,25
2d_pen_color 150,150,150:2d_line 29,1,29,28:2d_line 28,1,28,27:2d_line 27,2,27,25
2d_line 2,26,27,26:2d_line 2,27,27,27:2d_line 1,28,28,28
return
' ============================
iconeNouveau:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,255,140:2d_rectangle 8,5,16,23:2d_rectangle 16,10,21,23:2d_pen_color 255,255,140:2d_line 16,11,16,22:2d_line 17,6,20,9:2d_line 17,7,19,9:2d_line 17,8,17,9:2d_line 15,11,15,22:2d_pen_color 0,0,0:2d_line 16,5,21,10:2d_line 8,22,20,22
return
' --
iconeOUVRE:
gosub cadre :2d_rectangle 5,8,21,23:2d_fill_color 255,255,255:2d_pen_color 160,162,48:for a%=5 to 18:2d_line a%,23,a%+3,15:next a%:2d_pen_color 0,0,0 :2d_line 5,8,5,23:2d_line 5,23,18,23:2d_line 18,23,23,15:2d_line 23,15,9,15:2d_line 9,15,5,23:2d_line 5,8,9,8:2d_line 9,8,9,10:2d_line 9,10,19,10:2d_line 19,10,19,15:2d_line 12,8,12,5:2d_line 12,5,22,5:2d_line 22,5,22,8:2d_line 22,9,18,7:2d_line 22,9,26,7
return
' --
iconEnregistre:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 0,0,0:2d_line 6,6,23,6:2d_line 6,6,6,22:2d_line 23,6,23,24:2d_line 7,24,23,24:2d_line 9,6,9,14:2d_line 20,6,20,14:2d_line 20,9,23,9:2d_line 10,15,19,15:2d_rectangle 10,18,20,24:2d_fill_color 255,255,255:2d_pen_color 255,255,255:2d_rectangle 17,20,19,23:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 7,7,9,23:2d_rectangle 10,16,22,17:2d_rectangle 21,10,22,23
return
' --
iconeNewItem:
gosub cadre :2d_pen_color 0,0,0:2d_line 6,5,21,5:2d_line 21,5,22,6:2d_line 22,6,22,8:2d_line 22,8,25,8:2d_line 25,8,25,13:2d_line 25,13,22,13:2d_line 22,13,22,23:2d_line 22,23,21,25:2d_line 21,25,5,25:2d_line 5,25,4,24:2d_line 4,24,4,6:2d_line 4,6,6,5:2d_line 22,16,25,16:2d_line 25,16,25,22:2d_line 25,22,22,22:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 23,17,24,21:2d_fill_color 150,210,240:2d_pen_color 160,162,48:2d_rectangle 12,8,16,22:2d_rectangle 7,13,21,17:2d_pen_color 150,210,240:2d_rectangle 13,12,15,18
return
' --
iconepreference:
gosub cadre :2d_pen_color 0,0,0 :2d_line 5,6,5,23:2d_line 23,6,23,23:2d_line 6,5,22,5 :2d_line 6,24,22,24:2d_fill_color 0,0,0:2d_rectangle 16,19,21,21:2d_line 7,7,7,21 :2d_pen_color 0,196,0 :2d_rectangle 10,7,19,8:2d_rectangle 11,9,12,21:2d_rectangle 10,20,14,21:2d_rectangle 13,13,18,14:2d_pen_color 0,196,0:2d_line 17,7,19,11:2d_line 17,13,20,9:2d_line 19,7,20,9:2d_line 19,8,19,10:2d_line 20,10,18,14
return
' --
iconeADAPTE:
gosub cadre :2d_fill_color 150,210,240:2d_rectangle 12,8,16,22:2d_rectangle 7,13,22,17:2d_pen_color 150,210,240:2d_line 10,7,18,7:2d_line 12,6,16,6:2d_line 13,5,15,5:2d_line 14,4,14,3:2d_line 9,7,14,3:2d_line 18,7,14,3:2d_line 14,3,19,7:2d_line 23,10,23,20:2d_line 23,10,26,15:2d_line 26,15,23,20:2d_line 24,12,24,19:2d_line 25,14,25,17:2d_line 6,10,6,20:2d_line 3,15,6,10:2d_line 3,15,6,20:2d_line 5,12,5,18:2d_line 4,16,4,14:2d_line 9,23,19,23:2d_line 9,23,14,26:2d_line 14,26,19,23:2d_line 11,24,17,24:2d_line 13,25,15,25:2d_pen_color 255,0,0:2d_line 14,5,14,25:2d_line 5,15,24,15
return
' --
iconeEFFACE:
gosub cadre :2d_pen_color 0,0,0:2d_line 5,9,5,24:2d_line 5,24,20,24:2d_line 5,9,11,9:2d_line 11,9,11,5:2d_line 14,5,16,5:2d_line 16,5,18,4:2d_line 18,4,24,10:2d_line 24,10,19,15:2d_line 19,15,13,9:2d_line 13,9,16,5:2d_line 15,11,20,6:2d_line 20,24,20,14:2d_line 11,5,16,5:2d_pen_color 150,210,240:2d_fill_color 150,210,240:2d_rectangle 18,10,20,12:2d_rectangle 19,9,22,11:2d_line 16,11,20,7:2d_line 20,7,23,10:2d_line 23,10,19,14:2d_line 19,14,16,11:2d_line 17,11,20,8:2d_line 19,13,19,13:2d_pen_color 255,255,140:2d_fill_color 255,255,140:2d_rectangle 6,14,17,23:2d_rectangle 19,16,18,23:2d_rectangle 6,10,13,13:2d_line 12,6,14,6:2d_line 12,6,12,9:2d_line 14,6,12,9:2d_line 12,10,18,16:2d_line 14,13,14,13:2d_pen_color 255,0,0:2d_line 18,5,19,6:2d_line 19,6,15,10:2d_line 15,10,14,9:2d_line 14,9,17,6:2d_line 17,6,18,5:2d_line 18,5,15,7:2d_line 15,7,18,6:2d_line 18,6,15,9
return
' --
iconeRENOMME:
gosub cadre :2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 12,4,23,6:2d_rectangle 21,6,23,15:2d_line 19,16,25,16:2d_line 21,17,23,17:2d_line 22,18,22,18:2d_line 8,5,4,14:2d_line 8,5,12,14:2d_line 5,14,8,7 :2d_line 8,7,11,14:2d_line 6,12,10,12:2d_pen_color 0,0,0:2d_fill_color 0,0,0:2d_rectangle 12,17,13,26:2d_rectangle 11,17,19,18:2d_line 14,21,20,21:2d_line 19,17,20,19:2d_line 20,19,20,21 :2d_rectangle 11,26,20,25:2d_line 21,23,21,23 :2d_line 21,23,19,21:2d_line 21,23,21,26:2d_line 18,17,20,20:2d_line 20,24,20,24
return
' --
iconSTOP:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,200,0:2d_rectangle 5,5,24,24:2d_pen_color 255,0,0:2d_line 21,8,8,21:2d_line 20,8,8,20:2d_line 9,21,21,9:2d_line 8,8,21,21:2d_line 9,8,21,20:2d_line 8,9,20,21
return
' --
iconeNOTE:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,255,255:2d_rectangle 3,3,26,26:2d_line 19,4,3,20:2d_line 9,26,26,9:2d_line 17,6,21,8:2d_line 21,8,23,12:2d_line 19,5,22,6:2d_line 22,6,25,10:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,26:2d_line 3,25,3,26:2d_line 25,4,25,4:2d_pen_color 255,0,0:2d_line 20,5,22,5:2d_line 22,5,24,7:2d_line 24,7,25,9:2d_line 25,9,25,7:2d_line 25,7,23,5:2d_line 23,5,22,4:2d_line 22,4,20,4:2d_line 20,4,24,4:2d_line 24,4,25,5:2d_line 25,5,25,6:2d_line 25,6,23,4:2d_line 3,26,3,26:2d_line 3,25,4,26:2d_line 21,3,23,3:2d_line 26,6,26,8:2d_pen_color 0,196,0:2d_line 18,6,21,7:2d_line 21,7,23,9:2d_line 23,9,24,11:2d_line 19,6,21,6:2d_line 21,6,23,9:2d_line 22,8,23,10:2d_pen_color 255,255,140:2d_line 4,20,17,7:2d_line 17,7,18,7:2d_line 18,7,5,20:2d_line 5,20,6,20:2d_line 6,20,18,8:2d_line 22,12,9,24:2d_line 9,24,9,23:2d_line 9,23,22,11:2d_line 22,11,21,11:2d_line 21,11,9,22:2d_pen_color 255,200,0:2d_pen_color 255,200,0:2d_line 19,8,7,20:2d_line 7,20,7,21:2d_line 7,21,20,8:2d_line 20,8,20,9:2d_line 20,9,8,21:2d_line 8,21,8,22:2d_line 8,22,20,11:2d_line 20,11,20,10:2d_line 20,10,21,10:2d_line 21,10,21,9:2d_pen_color 0,0,0:2d_line 17,6,19,7:2d_line 19,7,21,8:2d_line 21,8,22,10:2d_line 22,10,23,12:2d_line 19,5,22,6:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,25:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 4,22,6,25:2d_line 6,22,8,25:2d_line 8,25,6,25:2d_pen_color 150,210,240:2d_line 4,6,15,6:2d_line 4,9,12,9:2d_line 4,12,9,12:2d_line 4,15,6,15:2d_line 22,15,25,15:2d_line 25,12,25,12
return
' --
iconeCALCUL:
gosub cadre
2d_pen_color 160,162,48:2d_fill_color 160,162,48:2d_rectangle 3,3,26,5:2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 25,4,26,5:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 3,6,26,26:2d_pen_color 255,255,255:2d_line 4,8,25,8:2d_line 4,9,25,9:2d_pen_color 100,100,100:2d_line 9,11,14,11:2d_line 14,11,14,12:2d_line 14,12,9,12:2d_line 16,11,19,11:2d_line 19,11,19,12:2d_line 19,12,16,12:2d_line 21,11,25,11:2d_line 25,11,25,12:2d_line 25,12,21,12
2d_line 4,14,6,14:2d_line 6,14,6,15:2d_line 6,15,4,15:2d_line 9,14,10,14:2d_line 10,14,10,15:2d_line 10,15,9,15:2d_line 13,14,14,14:2d_line 14,14,14,15:2d_line 14,15,13,15:2d_line 17,14,18,14:2d_line 18,14,18,15:2d_line 18,15,17,15:2d_line 22,14,22,15:2d_line 22,15,21,15:2d_line 21,15,21,14:2d_line 4,18,6,18:2d_line 6,18,6,19:2d_line 6,19,4,19:2d_line 9,18,10,18:2d_line 10,18,10,19:2d_line 10,19,9,19:2d_line 13,18,14,18:2d_line 14,18,14,19:2d_line 14,19,13,19:2d_line 18,19,17,19:2d_line 21,18,22,18
2d_line 22,18,22,19:2d_line 22,19,21,19:2d_line 4,22,6,22:2d_line 6,22,6,23:2d_line 6,23,4,23:2d_line 9,22,10,22:2d_line 10,22,10,23:2d_line 10,23,9,23:2d_line 13,22,14,22:2d_line 14,22,14,23:2d_line 14,23,13,23:2d_line 17,22,18,22:2d_line 18,22,18,23:2d_line 18,23,17,23:2d_line 21,22,22,22:2d_line 22,22,22,23:2d_line 22,23,21,23:2d_pen_color 255,0,0:2d_line 10,12,13,12:2d_line 5,15,6,15:2d_line 21,9,24,9:2d_line 5,19,6,19:2d_line 5,23,6,23:2d_line 17,12,18,12:2d_line 23,12,24,12:2d_pen_color 255,255,255:2d_line 6,4,14,4
return
' code pas du tout obtimisé, fait rapidement pour essayer une nouvelle commande dans le programme
' de création d'icone d'autant qu'il ne présentera pas d'intéret d'être repris (vrai aussi pour cadeaux)
' --
iconeNOTE:
gosub cadre :2d_pen_color 0,0,0:2d_fill_color 255,255,255:2d_rectangle 3,3,26,26:2d_line 19,4,3,20:2d_line 9,26,26,9:2d_line 17,6,21,8:2d_line 21,8,23,12:2d_line 19,5,22,6:2d_line 22,6,25,10:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,26:2d_line 3,25,3,26:2d_line 25,4,25,4:2d_pen_color 255,0,0:2d_line 20,5,22,5:2d_line 22,5,24,7:2d_line 24,7,25,9:2d_line 25,9,25,7:2d_line 25,7,23,5:2d_line 23,5,22,4:2d_line 22,4,20,4:2d_line 20,4,24,4:2d_line 24,4,25,5:2d_line 25,5,25,6:2d_line 25,6,23,4:2d_line 3,26,3,26:2d_line 3,25,4,26:2d_line 21,3,23,3:2d_line 26,6,26,8:2d_pen_color 0,196,0:2d_line 18,6,21,7:2d_line 21,7,23,9:2d_line 23,9,24,11:2d_line 19,6,21,6:2d_line 21,6,23,9:2d_line 22,8,23,10:2d_pen_color 255,255,140:2d_line 4,20,17,7:2d_line 17,7,18,7:2d_line 18,7,5,20:2d_line 5,20,6,20:2d_line 6,20,18,8:2d_line 22,12,9,24:2d_line 9,24,9,23:2d_line 9,23,22,11:2d_line 22,11,21,11:2d_line 21,11,9,22:2d_pen_color 255,200,0:2d_pen_color 255,200,0:2d_line 19,8,7,20:2d_line 7,20,7,21:2d_line 7,21,20,8:2d_line 20,8,20,9:2d_line 20,9,8,21:2d_line 8,21,8,22:2d_line 8,22,20,11:2d_line 20,11,20,10:2d_line 20,10,21,10:2d_line 21,10,21,9:2d_pen_color 0,0,0:2d_line 17,6,19,7:2d_line 19,7,21,8:2d_line 21,8,22,10:2d_line 22,10,23,12:2d_line 19,5,22,6:2d_line 3,20,6,21:2d_line 6,21,8,23:2d_line 8,23,9,25:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 4,22,6,25:2d_line 6,22,8,25:2d_line 8,25,6,25:2d_pen_color 150,210,240:2d_line 4,6,15,6:2d_line 4,9,12,9:2d_line 4,12,9,12:2d_line 4,15,6,15:2d_line 22,15,25,15:2d_line 25,12,25,12
return
' --
iconeCALCUL:
gosub cadre :2d_pen_color 160,162,48:2d_fill_color 160,162,48:2d_rectangle 3,3,26,5:2d_pen_color 255,0,0:2d_fill_color 255,0,0:2d_rectangle 25,4,26,5:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 3,6,26,26:2d_pen_color 255,255,255:2d_line 4,8,25,8:2d_line 4,9,25,9:2d_pen_color 100,100,100:2d_line 9,11,14,11:2d_line 14,11,14,12:2d_line 14,12,9,12:2d_line 16,11,19,11:2d_line 19,11,19,12:2d_line 19,12,16,12:2d_line 21,11,25,11:2d_line 25,11,25,12:2d_line 25,12,21,12:2d_line 4,14,6,14:2d_line 6,14,6,15:2d_line 6,15,4,15:2d_line 9,14,10,14:2d_line 10,14,10,15:2d_line 10,15,9,15:2d_line 13,14,14,14:2d_line 14,14,14,15:2d_line 14,15,13,15:2d_line 17,14,18,14:2d_line 18,14,18,15:2d_line 18,15,17,15:2d_line 22,14,22,15:2d_line 22,15,21,15:2d_line 21,15,21,14:2d_line 4,18,6,18:2d_line 6,18,6,19:2d_line 6,19,4,19:2d_line 9,18,10,18:2d_line 10,18,10,19:2d_line 10,19,9,19:2d_line 13,18,14,18:2d_line 14,18,14,19:2d_line 14,19,13,19:2d_line 17,18,18,18:2d_line 18,18,18,19:2d_line 18,19,17,19:2d_line 21,18,22,18:2d_line 22,18,22,19:2d_line 22,19,21,19:2d_line 4,22,6,22:2d_line 6,22,6,23:2d_line 6,23,4,23:2d_line 9,22,10,22:2d_line 10,22,10,23:2d_line 10,23,9,23:2d_line 13,22,14,22:2d_line 14,22,14,23:2d_line 14,23,13,23:2d_line 17,22,18,22:2d_line 18,22,18,23:2d_line 18,23,17,23:2d_line 21,22,22,22:2d_line 22,22,22,23:2d_line 22,23,21,23:2d_pen_color 255,0,0:2d_line 10,12,13,12:2d_line 5,15,6,15:2d_line 21,9,24,9:2d_line 5,19,6,19:2d_line 5,23,6,23:2d_line 17,12,18,12:2d_line 23,12,24,12:2d_pen_color 255,255,255:2d_line 6,4,14,4
return :2d_pen_color 160,162,48:2d_line 15,5,12,1:2d_line 12,1,10,0:2d_line 10,0,9,0:2d_line 9,0,7,1:2d_line 7,1,6,3:2d_line 6,3,5,5:2d_line 5,5,5,8:2d_line 5,8,6,12:2d_line 6,12,7,15:2d_line 7,15,8,15:2d_line 8,15,9,15 :2d_line 9,15,10,15:2d_line 10,15,10,14:2d_line 10,14,9,12:2d_line 9,12,9,10:2d_line 9,10,9,8:2d_line 9,8,11,5:2d_line 11,5,12,4:2d_line 12,4,15,6:2d_line 15,6,16,4:2d_line 16,4,17,2:2d_line 17,2,19,0:2d_line 19,0,21,0:2d_line 21,0,22,1:2d_line 22,1,24,3:2d_line 24,3,25,6:2d_line 25,6,24,11:2d_line 24,11,23,14:2d_line 23,14,22,16:2d_line 22,16,20,19:2d_line 20,19,22,15:2d_line 22,15,21,12:2d_line 21,12,21,10:2d_line 21,10,20,9:2d_line 20,9,16,10:2d_line 16,10,15,12:2d_line 15,12,15,15:2d_line 15,15,16,18:2d_line 16,18,18,19:2d_line 18,19,18,21:2d_line 18,21,19,21:2d_line 19,21,18,22:2d_line 18,22,17,22:2d_line 17,22,16,23:2d_line 16,23,16,24:2d_line 16,24,15,25:2d_line 15,25,12,22:2d_line 12,22,11,21:2d_line 11,21,12,20:2d_line 12,20,12,19:2d_line 12,19,14,18:2d_line 14,18,14,17:2d_line 14,17,13,16:2d_line 13,16,11,16:2d_line 11,16,12,15:2d_line 12,15,14,14:2d_line 14,14,14,16:2d_line 14,16,13,15:2d_line 13,15,15,16:2d_line 15,16,15,24:2d_line 15,24,16,22:2d_line 16,22,16,19:2d_line 16,19,17,20:2d_line 17,20,17,21:2d_line 17,21,17,19:2d_line 17,19,13,19:2d_line 13,19,12,21:2d_line 12,21,14,20:2d_line 14,20,14,23:2d_line 14,23,12,20:2d_line 9,14,7,14:2d_line 7,14,6,7:2d_line 6,7,6,5:2d_line 6,5,8,2:2d_line 8,2,8,1:2d_line 8,1,8,14:2d_line 8,14,9,13:2d_line 9,13,7,13:2d_line 7,13,7,1:2d_line 7,1,11,1:2d_line 11,1,14,5:2d_line 14,5,10,1:2d_line 10,1,10,6:2d_line 10,6,9,7:2d_line 9,7,9,2:2d_line 9,2,12,4:2d_line 12,4,11,4:2d_line 11,4,16,5:2d_line 16,5,19,1:2d_line 19,1,21,1:2d_line 21,1,21,9:2d_line 21,9,22,14:2d_line 22,14,22,1:2d_line 22,1,24,7:2d_line 24,7,24,11:2d_line 24,11,22,13:2d_line 22,13,23,13:2d_line 23,13,23,3:2d_line 23,3,24,6:2d_line 24,6,20,1:2d_line 20,1,20,9:2d_line 20,9,16,9:2d_line 16,9,17,8
2d_line 17,8,19,8:2d_line 19,8,19,2:2d_line 19,2,16,6:2d_line 16,6,17,7:2d_line 17,7,18,7:2d_line 18,7,18,4:2d_line 18,4,17,6:2d_pen_color 255,0,0:2d_rectangle 14,11,11,10:2d_rectangle 18,14,19,16:2d_line 20,14,19,17:2d_line 19,17,17,15:2d_line 17,15,17,14:2d_line 11,12,14,11:2d_line 14,11,13,12:2d_line 13,12,12,13:2d_pen_color 0,0,0:2d_line 11,14,10,17:2d_line 10,17,13,17:2d_line 13,17,9,19:2d_line 9,19,11,18:2d_line 11,18,11,20:2d_line 11,20,10,21:2d_line 10,21,9,22:2d_line 9,22,8,23:2d_line 8,23,8,24:2d_line 8,24,5,25:2d_line 5,25,3,25:2d_line 9,16,8,16:2d_line 8,16,7,17:2d_line 7,17,5,17:2d_line 5,17,4,19:2d_line 4,19,2,20:2d_line 2,20,2,19:2d_line 2,19,0,20:2d_line 0,20,0,24:2d_line 0,24,1,26:2d_line 1,26,2,23:2d_line 2,23,2,20:2d_line 9,23,11,25:2d_line 11,25,11,25:2d_line 11,25,8,25:2d_line 13,7,11,6:2d_line 11,6,12,5:2d_line 12,5,16,7:2d_line 16,7,16,8:2d_line 16,8,15,8:2d_line 15,8,16,8:2d_line 16,8,14,13:2d_line 14,13,13,14:2d_line 10,8,10,11:2d_line 10,11,11,14:2d_line 18,12,17,12:2d_line 17,12,16,11:2d_line 16,11,19,10:2d_line 19,10,21,11:2d_line 21,11,21,15:2d_line 21,15,20,17:2d_line 20,17,19,18:2d_line 19,18,18,18:2d_line 18,18,17,17:2d_line 17,17,16,16:2d_line 19,18,20,22:2d_line 20,22,18,22:2d_line 20,20,21,21:2d_line 21,21,22,22:2d_line 22,22,24,23:2d_line 24,23,26,24:2d_line 26,24,27,23:2d_line 27,23,28,22:2d_line 28,22,29,25:2d_line 25,29,23,29:2d_line 23,29,21,29:2d_line 21,29,19,27:2d_line 19,27,19,26:2d_line 19,26,19,25:2d_line 19,25,19,24:2d_line 19,24,18,24:2d_line 18,24,17,23:2d_line 17,23,17,22:2d_line 18,27,18,28:2d_line 18,28,19,29:2d_pen_color 255,218,169:2d_fill_color 255,218,169:2d_rectangle 5,19,7,23:2d_line 6,18,8,19:2d_line 8,19,8,20:2d_line 8,20,8,21:2d_line 8,21,8,22:2d_line 8,22,6,24:2d_line 6,24,2,25:2d_line 2,25,3,23:2d_line 3,23,2,24:2d_line 2,24,2,21:2d_line 2,21,4,20:2d_line 4,20,3,22:2d_line 3,22,4,22:2d_line 4,22,4,24:2d_line 4,24,5,24:2d_pen_color 247,223,231:2d_line 22,23,25,25:2d_line 25,25,27,24:2d_line 27,24,28,24:2d_line 28,24,28,27:2d_line 28,27,25,28:2d_line 25,28,21,28:2d_line 21,28,21,27:2d_line 21,27,20,25:2d_line 20,25,20,24:2d_line 20,24,21,24:2d_line 21,24,18,23:2d_line 18,23,21,23:2d_line 21,23,22,27:2d_line 22,27,26,27:2d_line 26,27,27,26:2d_line 27,26,23,26:2d_line 23,26,22,24:2d_line 22,24,25,26:2d_line 25,26,27,24
rem case 10: item_add 95," execute "+chr$(34)+"notepad.exe"+chr$(34)+":return"
rem case 11: item_add 95," execute "+chr$(34)+"calc.exe"+chr$(34)+":return"
fin:
terminate
Il n'y a pas de sauvegarde, vous récupérer le programme par copier/coller. |
| | | | JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: ICONES à glissière Jeu 24 Déc 2009 - 9:45 | |
| Merci cosmos pour tes commentaires concernant mes petits codes.
Quant aux tiens, mon Dieu ! quel morceau ! et c'est compacté au maximum.
Je n'ai guère le temps maintenant mais il faudra que je regarde ça à tête reposée.
J'ai cherché moi aussi (enfin c'est ce que j'ai cru comprendre à première vue) le moyen d'intégrer de petites images (des icônes par exemple) au code, sous forme de datas par exemple, pour éviter d'avoir à joindre des fichiers annexes, mais ça devient très vite très volumineux même pour une petite image. C'est à l'étude.
En tout cas merci à toi cosmos, passe de bonnes fêtes, bon Noël.
Bon Noël à tous ici sur le forum, en particulier à Jack ! | |
| | | | jjn4
Nombre de messages : 2703
Date d'inscription : 13/09/2009
| | Sujet: Superbe ! Jeu 24 Déc 2009 - 12:06 | |
| C'est un superbe ensemble de programmes ! Le 2° sutout, est absolument magnifique et est compliqué comme un tableau de bord d'avion de ligne. D'ailleurs, (sans vouloir aucunement être critique) j'avoue que je n'ai pas compris grand chose à ces 3 programmes. Le premier, si un peu. Si j'ai bien compris, il y a des choses qui ne fonctionnent pas encore, dedans, puis des souhaits de Noël, un bloc-notes et une calculatrice. Le mélange des genres a le mérite d'être original. Les 2 autres tableaux (avec le 3° qui reprend le 1°) sont plus complexes. Alors, je sais bien qu'il y a des explications sur le site, mais quand même. Je crois que mon avion de ligne va s'écraser. Il faudra que je prenne des cours de pilotage. Si je puis me permettre de donner un conseil : dans les programmes complexes comme cela, sans aller jusqu'à faire un sous-programme d'aide qui pourrait être également assez compliqué, le plus simple, c'est des mettre des hint à chaque objet système expliquant brièvement et clairement à quoi sert ce bouton (ou ce memo...) et comment il fonctionne. Avec cette méthode, ça gagne nettement en clarté. Après tout, ayons l'esprit pratique, à quoi sert de faire un beau cadeau si les gens n'y comprennent rien ? Merci cependant pour cette longue et belle réalisation !  | |
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Jeu 24 Déc 2009 - 12:35 | |
| Merci jjn4
Mon seul cadeaux est le premier. Je voulais intégrer les icônes dans un programme, et je ne savais pas si j'allais publier les deux autres.
Le 2ème m'a permis de faire les icônes, et je ne pensais le publier que si on me le demandais. Quant au 3ème, je l'ai fait pour moi, parce que je ne pense qu'on donnera suite à mes idées.
Et comme je suis fou, alors j'ai mis les trois.
J'ai raison sur le fond, vu que le premier ne t'intéresses pas. Même si j'ai caché au maximum le codage, je doute fort, qu'on veuille s'en servir.
Pour moi le meilleur est le dernier, il est très simple à utiliser, et en quelques clics il recompose le premier en simplifiant. Les icônes du Père Noël et du cadeaux n'ont pas été intégrer vu qu'ils sont devenus alors inutiles. Là il n'y a aucune complication, le codage qui en résulte est directement intégrable dans un nouveau programme par copie/coller. Et celui-là peut avoir de l'intérêt. Mais à quoi bon mettre des tas d'aide pour des programmes qui serviront pas. Si vraiment vous voulez donner suite à cela, à partir de là, je ferais le maximum pour le vous aider.
Joyeux Noël |
| | | | jjn4
Nombre de messages : 2703
Date d'inscription : 13/09/2009
| | Sujet: Paradoxe Jeu 24 Déc 2009 - 12:57 | |
| C'est une sorte de cercle vicieux. Tu dis : à quoi bon donner des explications, vu que personne ne s'en servira. Mais si tu ne donnes pas d'explication, les gens ne vont pas tellement comprendre, si bien que personne ne s'en servira. Et alors, ce sont les prémisses qui rejoignent la conclusion, ou la conclusion qui rejoint les prémisses ? Ca me rappelle l'histoire de l'oeuf et de la poule... C'est lequel des deux qui a commencé le cycle ?  | |
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Jeu 24 Déc 2009 - 13:15 | |
| Je m'en veux , j'aurai jamais du mettre les 2 autres programmes comme je l'avais prévu au départ, et attendre les conclusions du premier. C'est de celui-là que j'attends des nouvelles pour l'instant, et voir si je dois donner suite aux deux autres. Mais je n'ai jamais été suivi dans ce que je fais, donc pourquoi aujourd'hui?. J'ai mis les deux autres, parce qu'on été le 24, et j'ai pensé pendant un moment que je serais tranquille pour deux jours, et c'est l'inverse qui se produit.
Si vous le voulez, je les retire, et selon vos désirs,je les remets avec l'aide qui convient si vous êtes preneur. Je pensais avoir mis suffisamment d'explication ici en mettant ceux-ci dans l'accompagnement du programme.
"Mea culpa, mea culpa, mea maxima culpa"
@+ |
| | | | Jack
Admin
Nombre de messages : 2386
Date d'inscription : 28/05/2007
| | Sujet: Re: ICONES à glissière Mar 29 Déc 2009 - 11:39 | |
| - Citation :
- je n'ai jamais été suivi dans ce que je fais, donc pourquoi aujourd'hui?
Détrompes-toi. D'ici quelques semaines, je mettrai sur le site les plus réussies de vos réalisations et celle-ci en fait partie. | |
| | | | jjn4
Nombre de messages : 2703
Date d'inscription : 13/09/2009
| | Sujet: Non, non Mar 29 Déc 2009 - 12:06 | |
| Ah, mais non, ne culpabilise pas comme ça ! C'est nous qui sommes un peu trop speed. Tu sais, on fait tous un peu comme les enfants, on copie le programme sans le lire, on le met en marche, on essaie au hasard pour comprendre en quoi ça consiste, et au bout de 2 ou 3 minutes, si on s'aperçoit qu'on ne voit pas plus de quoi il s'agit qu'à la première seconde, alors on laisse tomber. Pour te rendre justice, je viens d'y passer plus de temps. Surtout n'efface pas ce que tu as mis. On peut y trouver des idées. Car c'est vrai que tes programmes ont souvent plein d'idées originales. Par exemple, dans le premier, qui était ton cadeau, tu montres qu'on peut faire des faux boutons contenant des icônes, non seulement avec le raccourci de copies d'écran et de file_load dans un picture, comme on a l'habitude de le faire, mais aussi avec des 2d_line et des 2d_rectangle, ce qui est intéressant. Alors, haut les coeurs, Maître Jedi Cosmos70 !  | |
| | | | Jean Claude
Nombre de messages : 5950
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: ICONES à glissière Mar 29 Déc 2009 - 13:42 | |
| Pleinement d'accord avec JJN4,
Tes programmes sont compliqués, AUJOURD'HUI POUR MOI, mais demain ? je serais peut-être plus à même de les analyser. L'idée de Jack de mettre en avant les meilleurs programmes est excellente.
C'est un véritable utilitaire que tu as mis en ligne, le seul problème c'est qu'il n'y a pas de tutoriel. Je m'aperçois, grace à toi et d'autres, que mes coinnaissances en programmation (même BASIC) sont très légères. Et c'est avec des codes comme les tiens que l'envie de progresser s'installe.
Tu es un vrai passionné de programmation, et si (pour ma part) il n'y a pas de commentaire, c'est que je ne suis pas de taille à le faire. Alors continu de nous faire profiter de tes codes. Le jour ou je serais capable d'en faire autant, t'inquiète pas, je l'ouvrirais ma grande gueu....
J'ai repris la programmation depuis que j'ai découvert PANORAMIC, et c'etait en mai 2009. Depuis j'ai fait beaucoups de progrès et c'est grace à ce que je trouve sur le Forum. Parfois je me demande ou est la limite entre l'apprentissage et la plagia, mais je l'avoue je copie, dans la mesure ou je les comprends, vos méthodes de programmation aux uns et aux autres.
Donc ne croit pas que ce que tu fais est inutile. ( pas pour moi en tout cas)
A+ | |
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Mar 29 Déc 2009 - 14:53 | |
| Merci, je suis un peu surpris que l'on me crois supérieur à d'autre. C'est faux, lorsque je regarde vos programme, je me dis que je ne suis plus à la hauteur par rapport à vous, et que je devrais décocher un peu du forum. En fait, lorsqu'on fait un code, on est dedans, et on a facile à s'y retrouver parce que l'on sait ce qu'on veut faire, et comment le faire.
Le code d'une autre personne, c'est tout à fait différent, on ne sait pas trop au départ comment l'analyser, on ne sait pas à quoi servent les variables, et il faut souvent du temps pour comprendre.
Mes programmes ne sont pas plus compliqués que les vôtres, seulement je concentre mes lignes, lorsque celles-ci sont valides, afin de pouvoir monter ou descendre dans le programme plus facilement.
Mais je ne vous ai pas beaucoup aidé avec la série des 3 programmes, j'ai tout fait pour cacher le code, afin que vous vous posiez la question "comment il a fait".
J'avais l'intention de remettre une version le lendemain plus lisible, mais comme j'étais déçu des réactions, j'ai évité le forum pour faire autre chose.
Mais pour ces codes qui sont à rallonge, comme je voudrais avoir un éditeur qui replis les procédures à la demande, et permette de vérifier plus haut, plus bas ce qui est écris, sans avoir à sauter toutes les lignes qui nous gènes. Sur un autre poste, j'ai parlé de GFA Basic d'Atari, celui-ci dans sa 2ème édition; le permettait.
Si il y en a qui ne comprennent pas, une procédure repliée, n'était visible que par le label de celui-ci, on déplié ou replié selon ses besoins, aussi on pouvait voir les parties qui concernaient le codage en cours, en évitant le reste.
Peut-être ce sera le cadeaux de Noël prochain.
@+ |
| | | | Jean Claude
Nombre de messages : 5950
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: ICONES à glissière Mar 29 Déc 2009 - 17:13 | |
| - Citation :
- lorsqu'on fait un code, on est dedans, et on a facile à s'y retrouver parce que l'on sait ce qu'on veut faire, et comment le faire.
Le code d'une autre personne, c'est tout à fait différent, on ne sait pas trop au départ comment l'analyser, on ne sait pas à quoi servent les variables, et il faut souvent du temps pour comprendre C'est bien pour cela que laisser ces codes sur le forum est utile. | |
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Mar 29 Déc 2009 - 20:16 | |
| Le problème est qu'il y avait polémique.
J'avais malgrès tout mis ces deux programmes en pensant que si le premier était accepté, l'envie de vouloir faire d'autres icônes était alors possible avec le 2ème. Mais il n'est pas fini, aussi pour moi, il me paraissais plus simple de le retirer provisoirement (je me sentais plutôt idiot après coup de l'avoir mis tout de suite). Quand au 3ème, à quoi il sert si les deux premiers sont critiqués, vu que il reproduit le 1er programme en plus simple, en régénèrent le code selon ses désires. D'ailleurs ce programme, je vais le compléter pour moi pour inclure selon mes besoins dans d'autre programme les commandes que j'ai déjà faites. L'accumulation des différents codes que nous avons mis devient fastidieux lorsque ceux-ci dépassent un certain nombre.
Je suis parti sur un autre codage pour autre chose, pour l'instant, si vous êtes toujours intéressé, je reprendrai les 2 programmes à votre demande.
Maintenant, rien ne vous empêche de le reprendre.
Jack a dit que la commande INCLUDE était dans ses projets. Malgrès tout, le fait qu'il faut dissocier DIM et LABEL du reste des codes, et avec la numérotation des objets, comment cela se passera t'il?. Je pense que pour cette fonction, il faudra attendre en plus les variables locales.
J'arrête, ce sont des supputations sur des choses que je ne sais pas. |
| | | | jjn4
Nombre de messages : 2703
Date d'inscription : 13/09/2009
| | Sujet: Re: ICONES à glissière Mer 30 Déc 2009 - 1:01 | |
| @cosmos70 : En te lisant : - Citation :
- Le problème est qu'il y avait polémique.
Le mot « polémique » m'a semblé un peu fort, alors j'ai consulté wikipedia, pour être sûr : « Est polémique un discours qui agresse ouvertement un adversaire. » Tu sais, je crois qu'on a surtout dit qu'on ne comprenait pas bien, mais je ne pense pas que moi ou quelqu'un d'autre ait jamais eu pour intention de t'agresser ou de dire que ce n'était pas bon, ou quoi que ce soit de ce genre. On fait souvent des réponses assez directes et de l'humour assez décoiffant, mais rassure-toi, c'est avec chaleur, en fait. D'ailleurs, il n'y a que toi qui te dévalorise, en fait, tu es un bon, tout le monde te le dit !  | |
| | | | Invité
Invité
| | Sujet: Re: ICONES à glissière Mer 30 Déc 2009 - 2:02 | |
| Merci, mais je crois qu'il est temps de tourner la page. Une nouvelle année arrive avec de nouveaux objectifs. J'essaye simplement d'expliquer les choses sans plus, et j'en ai assez dites. Trop c'est trop (ça ne te concerne pas en disant cela) mais j'aimerai maintenant passer à autre chose. J'en ai vu des vertes et des pas mure, et chaque fois j'ai tourné la page. Ne parlons plus d'agression, mais maintenant d'avenir.
Merci de mettre un terme à cela. Pour ma part, c'est ce que je vais faire, et volontairement ne plus répondre pour arrêter cr poste qui ne correspond plus à de la programmation.
Soyons fou, et passons à autre chose. Là ça fait 3/4 d'heure que je redémarre mon ordi qui s'est planté, malgrès tout les nettoyage et registre, il est vraiment à bout de souffle. Je sais ce qu'il faut faire, mais les moyens j'en ai plus, il y a d'autres priorités plus importantes.
Je te dis donc bonne nuit.
@+ |
| | | | Contenu sponsorisé
| | Sujet: Re: ICONES à glissière | |
| |
| | | | | | ICONES à glissière | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
