jjn4
Nombre de messages : 2747 Date d'inscription : 13/09/2009
| Sujet: MENU-Fichiers Lun 9 Mai 2022 - 12:33 | |
| C'est un programme que j'utilise tous les jours et que je n'avais jamais publié. Eh bien, autant réparer cet oubli, d'autant qu'il est bien pratique. Vous le mettez, par exemple, sur le bureau, et il vous permet ensuite d'appeler tous les programmes habituellement utilisés, sans avoir besoin de chercher où ils sont. Il suffit de les intégrer dans sa liste (--> Ajout) En voici une image allégée (vous pouvez en mettre jusqu'à 60) En voici le programme : - Code:
-
rem ' MENU-Fichiers - par jjn4 - Rénové le 24/07/2021 ========================= dim a$ , a% , i% , j% : rem Variables provisoires générales dim cd$ : rem Répertoire courant dim NGA% : rem Numéro du Grid Affiché label aide , ajout , change , clic , go , modif cd$=dir_current$
rem form0 width 0,1365 height 0,720 caption 0," MENU des fichiers panoramic et autres" dlist 5 main_menu 10 sub_menu 11 parent 11,10 caption 11,"Ajout" on_click 11,ajout sub_menu 12 parent 12,10 caption 12,"Modifs" on_click 12,modif sub_menu 15 parent 15,10 caption 15,"Aide" on_click 15,aide rem Affichage des pictures for i%=1 to 6 for j%=1 to 10 panel i%*20+(j%-1)*2 : rem N° 20 à 118 à pas de 2 left i%*20+(j%-1)*2,(j%-1)*133+13 top i%*20+(j%-1)*2,(i%-1)*108+17 width i%*20+(j%-1)*2,123 height i%*20+(j%-1)*2,85 font_size i%*20+(j%-1)*2,60 color i%*20+(j%-1)*2,200,200,200 on_click i%*20+(j%-1)*2,go alpha i%*20+(j%-1)*2+130 : rem N° 150 à 268 à pas de 2 left i%*20+(j%-1)*2+130,(j%-1)*133+38 top i%*20+(j%-1)*2+130,(i%-1)*108+4 font_color i%*20+(j%-1)*2+130,255,0,0 alpha i%*20+(j%-1)*2+131 : rem N° 151 à 269 à pas de 2 left i%*20+(j%-1)*2+131,(j%-1)*133+130 top i%*20+(j%-1)*2+131,(i%-1)*108+101 font_size i%*20+(j%-1)*2+131,6 caption i%*20+(j%-1)*2+131,(i%-1)*10+j% next j% next i%
memo 300 : rem Base du système de modifications hide 300 left 300,10 width 300,1330 height 300,655 bar_vertical 300 if file_exists(cd$+"\Menu-fichier.txm")=0 file_save 300,cd$+"\Menu-fichier.txm" else file_load 300,cd$+"\Menu-fichier.txm" end_if i%=0 if count(300)>4 i%=1 while i%<count(300) a$=item_read$(300,i%) if numeric(a$)=1 a%=val(a$) j%=(a%*2)+18 caption j%+130,item_read$(300,i%+1) font_name j%,item_read$(300,i%+2) font_color j%,val(item_read$(300,i%+4)),val(item_read$(300,i%+5)),val(item_read$(300,i%+6)) caption j%,chr$(val(item_read$(300,i%+3))) end_if i%=i%+9 end_while end_if
rem Base du système d`ajout de données ======================================== panel 400 : rem Tableau des entrées hide 400 left 400,10 width 400,1330 height 400,655 alpha 405 parent 405,400 left 405,2 top 405,1 font_size 405,14 font_color 405,255,0,0 font_name 405,"Wingdings 3" caption 405,chr$(199) alpha 410 : rem Titre parent 410,400 left 410,50 top 410,8 font_bold 410 font_size 410,24 font_color 410,255,0,0 caption 410,"Entrée de données nouvelles :" ' Choix du numéro d'ordre alpha 420 parent 420,400 left 420,20 top 420,80 font_bold 420 font_size 420,14 caption 420,"Choisissez un numéro d'ordre dans la grille des lancés de programme :" combo 430 parent 430,400 left 430,40 top 430,110 width 430,90 font_bold 430 font_size 430,24 remplir() on_click 430,clic alpha 440 parent 440,400 left 440,1000 top 440,80 font_bold 440 font_size 440,14 font_color 440,0,0,255 caption 440,"Numéro choisi :" alpha 445 parent 445,400 left 445,950 top 445,75 font_size 445,25 font_color 445,255,0,0 font_name 445,"Webdings" caption 445,chr$(110) alpha 450 parent 450,400 left 450,1020 top 450,110 font_bold 450 font_size 450,14 font_color 450,255,0,0
' Inscription du nom du programme à afficher alpha 460 parent 460,400 left 460,20 top 460,200 font_bold 460 font_size 460,14 caption 460,"Inscription du nom du programme à ajouter :" edit 470 parent 470,400 left 470,40 top 470,230 width 470,395 font_bold 470 font_size 470,24 on_change 470,change alpha 480 parent 480,400 left 480,1000 top 480,200 font_bold 480 font_size 480,14 font_color 480,0,0,255 caption 480,"Nom du programme à ajouter :" alpha 485 parent 485,400 left 485,950 top 485,195 font_size 485,25 font_color 485,255,0,0 font_name 485,"Webdings" caption 485,chr$(110) alpha 490 parent 490,400 left 490,1020 top 490,230 font_bold 490 font_size 490,14 font_color 490,255,0,0
' Choix de la police de caractère et du numéro de police alpha 500 parent 500,400 left 500,20 top 500,320 font_bold 500 font_size 500,14 caption 500,"Choix de la police de caractère et du numéro de police :" combo 510 parent 510,400 left 510,40 top 510,350 width 510,250 font_bold 510 font_size 510,24 item_add 510,"Arial" item_add 510,"Symbol" item_add 510,"Webdings" item_add 510,"Wingdings" item_add 510,"Wingdings 2" item_add 510,"Wingdings 3" on_click 510,clic button 515 parent 515,400 left 515,310 top 515,350 width 515,100 height 515,50 font_bold 515 font_size 515,14 caption 515,"Voir 1" on_click 515,clic inactive 515 button 517 parent 517,400 left 517,430 top 517,350 width 517,100 height 517,50 font_bold 517 font_size 517,14 caption 517,"Voir 2" on_click 517,clic inactive 517 alpha 520 parent 520,400 left 520,1000 top 520,280 font_bold 520 font_size 520,14 font_color 520,0,0,255 caption 520,"Police choisie :" alpha 525 parent 525,400 left 525,950 top 525,275 font_size 525,25 font_color 525,255,0,0 font_name 525,"Webdings" caption 525,chr$(110) alpha 530 parent 530,400 left 530,1020 top 530,310 font_bold 530 font_size 530,14 font_color 530,255,0,0 alpha 540 parent 540,400 left 540,1000 top 540,340 font_bold 540 font_size 540,14 font_color 540,0,0,255 caption 540,"Numéro de police :" alpha 545 parent 545,400 left 545,950 top 545,335 font_size 545,25 font_color 545,255,0,0 font_name 545,"Webdings" caption 545,chr$(110) alpha 550 parent 550,400 left 550,1020 top 550,370 font_bold 550 font_size 550,14 font_color 550,255,0,0 alpha 560 parent 560,400 left 560,1220 top 560,340 font_size 560,40 font_color 560,255,0,0
' Détermination du répertoire et de l'adresse exacte du programme alpha 570 parent 570,400 left 570,20 top 570,460 font_bold 570 font_size 570,14 caption 570,"Détermination du répertoire et de l'adresse exacte du programme :" button 580 parent 580,400 left 580,40 top 580,490 width 580,580 height 580,50 font_bold 580 font_size 580,14 caption 580,"Parcourir la mémoire à la recherche du programme" on_click 580,clic alpha 590 parent 590,400 left 590,50 top 590,552 font_bold 590 font_size 590,14 font_color 590,0,0,255 caption 590,"Chemin du programme :" alpha 595 parent 595,400 left 595,5 top 595,542 font_size 595,25 font_color 595,255,0,0 font_name 595,"Webdings" caption 595,chr$(110) alpha 600 parent 600,400 left 600,5 top 600,577 font_size 600,10 font_color 600,255,0,0 alpha 610 parent 610,400 left 610,50 top 610,605 font_bold 610 font_size 610,14 font_color 610,0,0,255 caption 610,"Nom complet du programme :" alpha 615 parent 615,400 left 615,5 top 615,595 font_size 615,25 font_color 615,255,0,0 font_name 615,"Webdings" caption 615,chr$(110) alpha 620 parent 620,400 left 620,5 top 620,630 font_size 620,10 font_color 620,255,0,0 ' Bouton d'ajout d'une donnée du panneau d'ajout alpha 625 parent 625,400 left 625,870 top 625,460 font_size 625,100 font_color 625,255,0,0 font_name 625,"Wingdings 3" caption 625,chr$(198) hide 625 button 630 parent 630,400 left 630,1000 top 630,490 width 630,280 height 630,80 font_bold 630 font_size 630,24 caption 630,"Ajouter" on_click 630,clic inactive 630 ' Détermination de la couleur du logo alpha 640 parent 640,400 left 640,630 top 640,320 font_bold 640 font_size 640,14 caption 640,"Choix de la couleur du Logo :" option 645 parent 645,400 left 645,600 top 645,350 width 645,20 on_click 645,clic alpha 650 parent 650,400 left 650,625 top 650,350 caption 650,"Rouge" track_bar 660 parent 660,400 left 660,660 top 660,347 width 660,250 max 660,255 on_change 660,change option 665 parent 665,400 left 665,600 top 665,385 width 665,20 on_click 665,clic alpha 670 parent 670,400 left 670,635 top 670,385 caption 670,"Vert" track_bar 680 parent 680,400 left 680,660 top 680,382 width 680,250 max 680,255 on_change 680,change option 685 parent 685,400 left 685,600 top 685,420 width 685,20 on_click 685,clic alpha 690 parent 690,400 left 690,635 top 690,420 caption 690,"Bleu" track_bar 700 parent 700,400 left 700,660 top 700,417 width 700,250 max 700,255 on_change 700,change alpha 710 parent 710,400 left 710,912 top 710,350 font_color 710,255,0,0 caption 710,"0" alpha 720 parent 720,400 left 720,912 top 720,385 font_color 720,255,0,0 caption 720,"0" alpha 730 parent 730,400 left 730,912 top 730,420 font_color 730,255,0,0 caption 730,"0" alpha 740 parent 740,400 left 740,1000 top 740,400 font_bold 740 font_size 740,14 font_color 740,0,0,255 caption 740,"Couleur du Logo :" picture 750 parent 750,400 left 750,1190 top 750,406 width 750,115 height 750,65 color 750,0,0,0 button 760 parent 760,400 left 760,1000 top 760,430 width 760,170 height 760,42 font_bold 760 font_size 760,14 caption 760,"Voir la couleur" on_click 760,clic button 770 parent 770,400 left 770,670 top 770,455 width 770,80 height 770,50 font_size 770,24 font_name 770,"Wingdings 3" caption 770,chr$(116) on_click 770,clic inactive 770 button 780 parent 780,400 left 780,760 top 780,455 width 780,80 height 780,50 font_size 780,24 font_name 780,"Wingdings 3" caption 780,chr$(117) on_click 780,clic inactive 780 ' Tableau de choix du caractère de la poilce choisie grid 800 hide 800 parent 800,400 left 800,8 width 800,1315 height 800,640 grid_column_fixed 800,0 grid_column 800,16 grid_column_width 800,81 grid_row_fixed 800, 0 grid_row 800,7 grid_row_height 800,90 font_size 800,58 on_click 800,clic rem 1000 est utilisé pour l`open-dialog
end : ' =======================================================================
aide: : rem Explications sur le fonctionnement du programme =================== application_title " Aide du programme MENU" a$="Format de l'inclusion de fichiers :"+chr$(13) a$=a$+"- Numéro du fichier sur l'écran du programme menu"+chr$(13) a$=a$+"- Nom du fichier tel qu'il sera affiché à l'écran"+chr$(13) a$=a$+"- Police où se trouve l'image choisie pour le figurer"+chr$(13) a$=a$+"- Numéro de l'image choisie dans la police correspondante"+chr$(13) a$=a$+"- Quantité de couleur rouge intégrée au Logo"+chr$(13) a$=a$+"- Quantité de couleur vertes intégrée au Logo"+chr$(13) a$=a$+"- Quantité de couleur bleu intégrée au Logo"+chr$(13) a$=a$+"- Chemin du fichier pour le fonctionnement ultérieur du pg"+chr$(13) a$=a$+"- Nom long du fichier à appeler."+chr$(13)+chr$(13) a$=a$+"NOTA: les numéros des emplacements à l'écran vont de 1 à 60"+chr$(13) a$=a$+" de gauche à droite et de haut en bas." message a$ return
ajout: : rem Ajout d`une donnée nouvelle ====================================== if show(400)=0 show 400 caption 11,"Sortir" else hide 400 caption 11,"Ajout" dir_change cd$ end_if return
sub ajouter() : rem Ajouter un programme à la liste =========================== item_add 300,caption$(450) item_add 300,caption$(490) item_add 300,caption$(530) item_add 300,caption$(550) item_add 300,caption$(710) item_add 300,caption$(720) item_add 300,caption$(730) item_add 300,caption$(600) item_add 300,caption$(620) dir_change cd$ file_save 300,"Menu-fichier.txm" beep text 430,"" caption 450,"" text 470,"" caption 490,"" text 510,"" inactive 515 inactive 517 caption 530,"" caption 550,"" position 660,0 position 680,0 position 700,0 caption 710,"0" caption 720,"0" caption 730,"0" color 750,0,0,0 hide 625 inactive 630 caption 600,"" caption 620,"" show 445 show 485 show 525 show 545 show 595 show 615 mark_off 645 mark_off 665 mark_off 685 inactive 770 inactive 780 caption 560,"" remplir() end_sub
sub avance() : rem Avancer le bouton du track-bar de 10 ======================= dim_local v1av% , v2av% for v1av% = 645 to 685 step 20 if checked(v1av%)=1 v2av%=v1av%+15 end_if next v1av% if position(v2av%)<246 position v2av%,position(v2av%)+10 end_if end_sub
sub caract() : rem Caractère choisi dans la police ============================ dim_local xca% , yca% , v1ca% xca%=int(mouse_x_position(800)/82.18)+1 yca%=int(mouse_y_position(800)/91.43)+1 v1ca%=(yca%-1)*16+xca%+31+NGA%*112 caption 550,v1ca% font_name 560,caption$(530) caption 560,chr$(val(caption$(550))) hide 800 hide 545 end_sub
change: : rem Gestion de tous les on-change =================================== select number_change case 470 caption 490,text$(470) if caption$(490)<>"" hide 485 else show 485 end_if detect() case 660 : caption 710,position(660) case 680 : caption 720,position(680) case 700 : caption 730,position(700) end_select return
sub chemin() : rem Repérage du chemin du programme ============================ dim_local v1ch$ , v2ch$ , v3ch% open_dialog 1000 v1ch$=file_name$(1000) if v1ch$<>"" and v1ch$<>"_" caption 620,v1ch$ v2ch$=reverse$(v1ch$) v3ch%=instr(v2ch$,"\") caption 600,left$(v1ch$,len(v1ch$)-v3ch%+1) hide 595 hide 615 end_if delete 1000 end_sub
clic: : rem Regroupement de tous les on-click ================================= select number_click case 430 : caption 450,text$(430) : hide 445 : detect() case 510 : caption 530,text$(510) : active 515 : active 517 : hide 525 : detect() case 515 : police() : detect() case 517 : police() : detect() case 580 : chemin() : detect() case 630 : ajouter() case 645 : active 770 : active 780 case 665 : active 770 : active 780 case 685 : active 770 : active 780 case 760 : color 750,position(660),position(680),position(700) case 770 : recule() case 780 : avance() case 800 : caract() end_select return
sub detect() : rem Le programme détecte si la bouton Ajouter est à activer ==== if caption$(450)<>"" if caption$(490)<>"" if caption$(530)<>"" if caption$(550)<>"" if caption$(600)<>"" if caption$(620)<>"" active 630 show 625 end_if end_if end_if end_if end_if end_if end_sub
go: : rem Lancé d`une application ============================================= j%=number_click j%=(j%/2)-9 a%=0 if count(300)>0 for i%=1 to count(300) step 9 if item_read$(300,i%)=str$(j%) a%=i% exit_for end_if next i% end_if if a%>0 dir_change item_read$(300,a%+7) execute item_read$(300,a%+8) end_if return
modif: : rem Système de modification des données entrées ====================== if show(300)=0 show 300 caption 12,"Enregistrer et sortir" else hide 300 caption 12,"Réglages" dir_change cd$ file_save 300,"Menu-fichier.txm" end_if return
sub police() : rem Affichage des grilles de caractère de police =============== dim_local v1po% , v2po% , v3po% if number_click=515 v1po%=32 : NGA%=0 else v1po%=144 : NGA%=1 end_if font_name 800,text$(510) for v2po% = 1 to 7 for v3po% = 1 to 16 grid_write 800,v2po%,v3po%,chr$((v2po%-1)*16+(v3po%-1+v1po%)) next v3po% next v2po% show 800 end_sub
sub recule() : rem Recule le bouton du track-bar de 10 ======================== dim_local v1re% , v2re% for v1re% = 645 to 685 step 20 if checked(v1re%)=1 v2re%=v1re%+15 end_if next v1re% if position(v2re%)>9 position v2re%,position(v2re%)-10 end_if end_sub
sub remplir() : rem Remplir le combo des numéros disponibles ================== dim_local v1re% , v2re% , v3re% clear 5 clear 430 if count(300)>0 for v1re% = 1 to count(300) step 9 item_add 5,item_read$(300,v1re%) next v1re% end_if for v1re% = 1 to 60 v3re%=0 if count(5)>0 for v2re% = 1 to count(5) if str$(v1re%)=item_read$(5,v2re%) v3re%=1 exit_for end_if next v2re% if v3re%=0 item_add 430,v1re% end_if else item_add 430,v1re% end_if next v1re% end_sub
Vous pouvez aussi le trouver sur le Webdav n°2 (panoramic@jjn42) Bonne utilisation !
Dernière édition par jjn4 le Mar 10 Mai 2022 - 19:20, édité 1 fois | |
|