Un "PAGICIEL" Parcourt de pages Panoramic

Invité

Merci pour ton aide. Je regarderai ce soir ton fichier. En faite j'ai téléchargé depuis NotePad++ qui va très bien avec HTML. Je n'ai pas de problème d’accents avec ce programme, et c'est avec celui-là que j'utilisais avant.

Te donner des fichiers d'exemple, je ne peux pas, vu que mon programme devient seulement opérationnel. Et encore, la vision des images entre-autre n'est pas encore opérationnel, tout comme les alphas. J'ai énormément de mal à trouver du temps pour programmer.D'ici un mois ou deux, ce sera ok. Je voulais il y a 2 mois faire un tutoriel de Panoramic avec, et c'est d'actualité en ce moment, mais Pagiciel n'était pas près. Car avec on pouvait faire des leçons et même des exercices. Pour le contrôle de ceux-ci, il faut aussi faire les modules de corrections. Ça c'était juste un aperçu pour montrer ce qu'on pouvait faire avec.
Pour l'instant, il peut servir pour avoir un classement et lancer des programmes Panoramic, vu que le loader fonctionnent et ça permet à partir de là, de les retrouver. On n'encombre pas avec les petits programmes le disque dur, en se demandant à quoi tel titre qu'on a fait il y a plusieurs mois, peut servir. Il n'y a pas encore les images, qui montre le visu du programme en fonctionnement, mais on les rajoutes après, une fois les procédures faites. Mais ce programme deviendra une base de départ pour moi, avec des modules grid, tableaux,.

Pour moi, au départ, j'ajoute dans le volet gauche: document, programme, courrier, aide.... Et selon le choix que j'ai fait au départ, en cliquant par exemple sur document: je mets tout mes documents dans cette page qui elle-même à son propre classement. Le volet gauche, c'est comme si c'était les onglets d'un navigateur. C'est vertical au lieu d'être horizontal. Il y a trop à dire. Tant que les modules ne sont pas fait, il y a une limite au programme.
Donc si vous êtes intéressés, je continuerais à parler de l'avancement, mais dans le cas contraire, je ferais juste une mise à jour sur le webdaw, avec un fichier de rapport, pour ne pas encombrer continuellement le forum avec ce programme.

Voila, voila, voila!
A propos, j'ai mis une correction sur le webdaw cet-après midi, après avoir vu qu'un caractère "¤" n'était pas le bon dans une ligne pour une sauvegarde dans un item du list 110. Mais comme j'étais préssé, j'ai oublié avant de refaire zip, de modifier l'exécutable. Je ferais cela ce soir.

EDIT:
Je rajoute mais j'en ai déjà parlé, que pour un programme complexe, une page servira pour un programme en petits morceaux, avec des explications, des images, des plans, afin de comprendre le codage. Les parties de codes pourrait être écrites dans Panoramic pour avoir la syntaxe, et l'aide, et ensuite recopiées dans Pagiciel. C'est un programme dont je dois le voir en 3D dans la conception pour le comprendre, et j'avoue qu'actuellement les différents éditeurs ne permettent pas de faire cela, et que je ne me lancerais pas sans pouvoir voir les explications.

Invité

Je viens de reprendre le programme avec ces histoire de type de police, et mis à jour l'exécutable. Plusieurs fois j'ai relu tout le listing et je pense en mettant de côté le texte des remarques, que ce qui est exécuté est finalisé.

Autre chose: l'indentation n'est pas formidable. Cela vient du fait que l'indentation auto de PSPad, plus les caractères TAB et les espaces ne sont pas lues de la même façon avec Panoramic_Editor.

Lorsque j'aurai un peu de temps, je ferai des pages pour montrer des exemples.

EDIT
Je viens de regarder les autres postes, et les problèmes liés aux programmes compilés. Personnellement je n'ai pas ce problème, seul avec le programme source, il y a des problèmes si le dossier n'est pas imposé par un enregistrement. Ce serais bien d'avoir un rapport sur l'installation de ce logiciel, car si il n'y a pas de problème, la solution est là. Il faut dire que je ne me sers jamais des dossiers users. Trop méfiant avec les virus qui regardent d'après ce que j'ai déjà lu ce type de dossier.

Invité

Je viens de regarder de près le fichier que m'a envoyez Nardo que je remercie sur l'aide de Pagiciel. Hier soir j'avais pas tellement vu de différence, mais j'avais oublié d'associer le ficher style.css qui va avec. Donc sur le WebDav, j'ai mis le fichier HTML dans le dossier PAGICIEL, et donc vous pouvez aller le voir.
Personnellement j'avais fait cet aide rapidement car je ne souvenais plus trop des codes, et je n'avais pas le temps de cherché, j'avais fait au plus simple, selon mes souvenirs.

Invité

VOILA! ne voulant pas ouvrir un dossier BUG, et comme personne n'interviendra pour valider ou non ce que j'affirme, finalement je mets ce problème dans pagiciel, vu que c'est en travaillant sur celui-là que je l'ai trouvé.

Cela n'a pas été simple. Il a fallu que je fasse un programme de débogage particulier pour voir. J'ai plus de 3200 lignes en n'incluant pas les sub de Klaus, et plus de 80 sous-programmes ou procédures, et des messages d'erreur sans numéro de ligne.

J'ai la preuve qu'il y a un problème avec Panoramic concernant les sub. La complexité pour montrer fait que je renonce à le faire. Mais dans ce bout de code:

Code:: TROUVE_OBJET:
q$="trouve_objet:":o(65):mop%=1
gosub position_105
height 105,g%(nombre_memo%+count(110),1 ) -100
' message "retour de trouve_objet:"
p(65)
return

je me trouve arrété à la ligne juste avant p(65)

p(65) est le pendant de o(65).
La sub o(x) et p(x)

Code:: ' chaque sous-routine ou procédure a un n° pour pouvoir suivre le programme'
sub o(m%)
qq$(m%)=q$ :' qq$(m%) est le nom de la sub, et le mettre en tableau me permet de le récupérer avec p(m%)
p%=p%+1
if variable("ql$")=0 then dim ql$
item_add 9,string$(p%*3," " ) + q$:file_save 9,"c:\PANO\controle.txt"
ql$=right$(ql$+"|"+q$,230)
caption 0,ql$ : ' les noms sont cumulés, mais je garde les derniers noms pour afficher sur une page
end_sub

sub p(m%)
item_add 9,string$(p%*3," " ) +"/"+ qq$(m%)+"/":file_save 9,"c:\PANO\controle.txt"
if p%>1 then p%=p%-1
end_sub

En ne tenant conte que des dernières lignes:
explode()
/explode()/
explode()
/explode()/
trouve_objet:
position_105:
/position_105:/
et en plus dans mon loader, j'ai un débogeur, qui liste chaque ligne, je ne mets évidement que les dernières:

Code:: 559| return
419| end_if
420| p(17)
421| return
2447| q$="trouve_objet:":o(65):mop%=1
2448| gosub position_105
2143| q$="position_105:":o(60)
2144|    y%=mouse_y_position(105)+100
2145| if count(110) >0
2146| for a% = 1 to count(110)
2147| ' ..............................................................
2148|          if y% >= g%(nombre_memo%+a%,0) and y% <=g%(nombre_memo%+a%,1)
2290| ' ..............................................................
2291|          if a%=count(110) then exit_for : rem øviter le controle suivant sur la dernière ligne. Il ne peut y avoir d'insertion
2292|       if y% > g%(nombre_memo%+a%,1) and y% < g%(nombre_memo%+a%+1,0)
2296| next a%
2147| ' ..............................................................
2148|          if y% >= g%(nombre_memo%+a%,0) and y% <=g%(nombre_memo%+a%,1)
2290| ' ..............................................................
2291|          if a%=count(110) then exit_for : rem øviter le controle suivant sur la dernière ligne. Il ne peut y avoir d'insertion
2292|       if y% > g%(nombre_memo%+a%,1) and y% < g%(nombre_memo%+a%+1,0)
2296| next a%
2147| ' ..............................................................
2148|          if y% >= g%(nombre_memo%+a%,0) and y% <=g%(nombre_memo%+a%,1)
2290| ' ..............................................................
2291|          if a%=count(110) then exit_for : rem øviter le controle suivant sur la dernière ligne. Il ne peut y avoir d'insertion
2292|       if y% > g%(nombre_memo%+a%,1) and y% < g%(nombre_memo%+a%+1,0)
2296| next a%
2147| ' ..............................................................
2148|          if y% >= g%(nombre_memo%+a%,0) and y% <=g%(nombre_memo%+a%,1)
2290| ' ..............................................................
2291|          if a%=count(110) then exit_for : rem øviter le controle suivant sur la dernière ligne. Il ne peut y avoir d'insertion
2292|       if y% > g%(nombre_memo%+a%,1) and y% < g%(nombre_memo%+a%+1,0)
2293|             x% = a% : inactive 0 : show 109 : TO_FOREGROUND 109
2294|             exit_for
2297| ' message "ressource?3"
2298| end_if
2299| ' message "ressource?4"
2300| ' END_SUB : <<= 'position_105
2301| p(60)
2302| return
2449| height 105,g%(nombre_memo%+count(110),1 ) -100

les sub o(m%) et p(%), ne sont pas listées, hors du listage. Les lignes précédentes sont lues à la suite de la lecture de celles*ci pendant le déroulement du programme, mais c'est le source original, ce n'est qu'une représentation. Sinon le n° de ligne et la barre "|" provoquerait une erreur.

J'obtiens le message suivant:

Spoiler:

Ma foi, si Jack veut voir se qui se passe, je peux encore lui faire une vidéo, et mettre tout l'ensemble pour voir.

J'ai essayé d'habiller ta routine TROUVE_OBJET qui pose problème. Mais ça doit venir du code dans o(), p() ou position_105, car avec ce que je peux naïvement imaginer, ça marche;

Code:: label trouve_objet, position_105
dim q$,g%(300,3),nombre_memo%, mop%
nombre_memo% = 10
dlist 110 : item_add 110,"aaa"
g%(nombre_memo%+count(110),1) = 300

memo 105

gosub trouve_objet
message "fini"
end

TROUVE_OBJET:
q$="trouve_objet:":o(65):mop%=1
gosub position_105
height 105,g%(nombre_memo%+count(110),1 ) -100
' message "retour de trouve_objet:"
p(65)
return

position_105:
top 105,10 : left 105,10
return

sub o(n%)
message "o"
end_sub

sub p(n%)
message "p"
end_sub

Invité

J'allais faire dodo.
La routine est bonne, et marche généralement bien. Sauf que parfois, j'obtiens un message d'erreur, je ne sais plus quoi, erreur système, quelque chose de ce genre, juste avant d'aller au return. Pourtant j'en ai fait des tonnes de contrôle, et c'est pour cela que j'ai fait une sub o() et p(), pour voir que c'était correcte.

Dans le cas présent, il n'y a pas de création de fichier, comme le message d'erreur affiche. Surtout pas à cet endroit. Je mettrais demain sur webdrive, pagiciel. Mais le problème c'est que j'utilise un lanceur, auquel j'ai ajouté un suivi de lignes, pour savoir ce qui se passe. A moins de mettre la version qui est modifié avec les lignes. Pour exemple du codage fait pas le loader:

Code:: r(2376):' ============================================================================================================================'

r(2378):insert_110:
r(2379):q$="insert_110:":o(62)
r(2380): insert_110()
r(2381): p(62)
r(2382):return

r(2384):sub insert_110()
r(2385):q$="insert_110()":o(63)
r(2386): a%=item_index(112)
r(2387): select a%
r(2388): case 1:' memo
r(2389): x% = x%+1
r(2390):    rem "memo |0| C |sup|sup|¤|fichier|programme" á
r(2391): item_insert 110,x%,"memo |0| |4|5| | |" :' ok'
r(2392): file_save_110()
r(2393): for y% = count(110) to x% step -1
r(2394): g%(y%,0)=g%(y%-1,0) : g%(y%,1) = g%(y%-1,1)
r(2395): next y%
r(2396): gosub clic_depart
r(2397): case 2:' memo_liste
r(2398): x% = x%+1
r(2399):          rem list |Courier New|10|GCRTS|5|6| |programme á
r(2400): item_insert 110,x%,"list |Courier New|10|TS|5| | |" :' ok'
r(2401): file_save_110()
r(2402): for y% = count(110) to x% step -1
r(2403): g%(y%,0)=g%(y%-1,0) : g%(y%,1) = g%(y%-1,1)
r(2404): next y%
r(2405): gosub clic_depart
r(2406): case 3:' alpha
r(2407): x% = x%+1
r(2408):    rem "alpha |0| C |sup|sup|¤|fichier|programme" á
r(2409): item_insert 110,x%,"alpha |0| |4|5| | |" :' ok'
r(2410): file_save_110()
r(2411): for y% = count(110) to x% step -1
r(2412): g%(y%,0)=g%(y%-1,0) : g%(y%,1) = g%(y%-1,1)
r(2413): next y%
r(2414): gosub clic_depart
r(2415): case 4:' image
r(2416):          x% = x%+1
r(2417):    ' image |100_2249 (Small).BMP|G:\Galipédia\ESPACE\IMAGES\100_2249 (Small).JPG|150|640|480|0.75|640|480|0100000001000||
r(2418):          item_insert 110,x%,"image |||150|640|480|0.75|640|480|0100000001000||"
r(2419): file_save_110()
r(2420): for y% = count(110) to x% step -1
r(2421): g%(y%,0)=g%(y%-1,0) : g%(y%,1) = g%(y%-1,1)
r(2422): next y%
r(2423): gosub picture_essai_
r(2424): gosub clic_depart
r(2425): case 5:' annuler
r(2426):    hide 109:active 0:to_foreground 0
r(2427): end_select

r(2429): ' if OBJECT_EXISTS(109) = 1 then delete 109
r(2430): p(63)
r(2431):end_sub

r(2433):menu_ajout_memu:
r(2434):q$="menu_ajout_menu":o(64)
r(2435): menu_ajout_menu()
r(2436):p(64)
r(2437):return

r(2439):SUB MENU_AJOUT_MENU()

r(2441):END_SUB

r(2445):' ============================================================================================================================'
r(2446):TROUVE_OBJET:
r(2447):q$="trouve_objet:":o(65):mop%=1
r(2448): gosub position_105
r(2449): height 105,g%(nombre_memo%+count(110),1 ) -100
r(2450): ' message "retour de trouve_objet:"
r(2451): p(65)
r(2452):return
r(2453):' ============================================================================================================================'
r(2454):menu_ajout_memo:
r(2455):q$="menu_ajout_memo:":o(66)
r(2456): ajout_memo()
r(2457): hide 26 :' form 1
r(2458): inactive 0 : hide 352 : hide 367 : show 350 : to_foreground 350
r(2459):' dir_change dossier$
r(2460):p(66)
r(2461):return
r(2462):menu_ajout_list:
r(2463):q$="menu_ajout_list:":o(67)
r(2464): ajout_list()
r(2465): ' revoir le principe de valider pour ajouter un list'
r(2466): inactive 0:show 130:active 130:to_foreground 130
r(2467): p(67)
r(2468):return

r(2470):menu_ajout_alpha:
r(2471):q$="menu_ajout_alpha:":o(68)
r(2472): ajout_alpha()
r(2473): inactive 0:show 352:hide 367 : show 350 : to_foreground 350
r(2474): p(68)
r(2475):return

r(2477):' ======================================================================================================================================
r(2478):CLIC_BUTTON_FEUILLE:
r(2479):q$="clic_button_feuille":o(69)
r(2480): timer_off 499 : t%=0
r(2481): show 4: inactive 0
r(2482): p(69)
r(2483):return
r(2484):close_4:
r(2485):q$="close_4:":o(70)
r(2486): hide 4:active 0: to_foreground 0
r(2487): p(70)
r(2488):return
r(2489):' ======================================================================================================================================

r(2491):CLIC_VALIDE_FEUILLE:

r(2493):sub clic_valide_feuille()
r(2494):q$="clic_valide_feuille()":o(71)
r(2495): if number_click = 353 :' bouton VALIDE
r(2496):    font_color 6,encre%(1),encre%(2),encre%(3) : color 6,fond%(1),fond%(2),fond%(3)
r(2497): if nu%(objet%)+1 > count(look%+100)
r(2498): rem "fond%(1)|fond%(2)|fond%(3)|encre%(1)|encre%(2)|encre%(3)|attribut$|size%|font$|puce"
r(2499): item_add look% + 100,str$(fond%(1))+"|"+str$(fond%(2))+"|"+str$(fond%(3))+"|"+str$(encre%(1))+"|"+str$(encre%(2))+"|"+str$(encre%(3))+"|"+attribut$+"|"+str$(size%)+"|"+font$+"|"+"-" :' pour la puce ou non avec le caract šre ou autre
r(2500): else
r(2501): item_delete look%+100,nu%(objet%)+1 :' dlist param štres
r(2502): item_insert look%+100,nu%(objet%)+1,str$(fond%(1))+"|"+str$(fond%(2))+"|"+str$(fond%(3))+"|"+str$(encre%(1))+"|"+str$(encre%(2))+"|"+str$(encre%(3))+"|"+attribut$+"|"+str$(size%)+"|"+font$+"|"+"-" :' pour la puce ou non avec le caract šre ou autre
r(2503): end_if
r(2504): ' l á il faudrait sauvegarder dans model$
r(2505): file_save look%+100,model$+"modele"+str$(modele%)+"\"+str$(look%+100)+".txt"
r(2506): FILE_OPEN_WRITE 1,look$
r(2507): FILE_WRITELN 1,modele%
r(2508): FILE_WRITELN 1,nu%(1)
r(2509): FILE_CLOSE 1
r(2510): hide 350:inactive 350:active 0
r(2511):    gosub clic_depart
r(2512): end_if
r(2513): hide 350: inactive 350 : active 0 : ' timer_on 499
r(2514): p(71)
r(2515):end_sub
r(2516):' ======================================================================================================================================
r(2517):CLIC_VALIDE_ALPHA:
r(2518):rem "alpha |0| C |4|5|¤|fichier|programme"

r(2520):sub clic_valide_alpha()
r(2521):q$="clic_valide_alpha()":o(72)
r(2522): ' ici le bouton est valide
r(2523): height 105,0:' height 115,0
r(2524): if ajout%=1

r(2526):' .............................................................'
r(2527): rem "alpha |0| C |sup|sup|¤|fichier|programme" á
r(2528): rem 1 |2| 3 | 4 | 5 |6| 7 | 8 (champ) á
r(2529): rem |style|copier| á

r(2531): a$= "alpha |" + str$(nu%(objet%) ) + "|" + str$(width(352) ) + "|"
r(2532): a$ = a$ + text$(346)
r(2533): if checked(366) = 1 then a$=a$+ "|5|" : else : a$ = a$ + "|5|" :' 4 et 5 sont juste là pour compter les champs
r(2534): ' mais ne servent pas, peuvent àtre utile ensuite
r(2535): if checked(386) = 1 :' option sauve auto ou par fichier
r(2536): a$ = a$ +"¤|"+ text$(387)+"|" :' avec le nom d.un fichier dans le champ 7
r(2537): else
r(2538): a$ = a$ +" ||" :' le texte sera dans le champ 8 ( á la suite) et sauvegardé avec le list 110
r(2539): end_if

r(2541): item_add 110, a$ :' C.EST BON !!!!!!! pour ajouter un memo, manque la hauteur de 105 et 115
r(2542): file_save_110()
r(2543): gosub clic_depart

r(2545):' .............................................................'
r(2546): else

r(2548):    a$="alpha |" + str$(nu%(objet%))+"|"+ str$(width(352) ) + "|"
r(2549): ' memo | 2 |
r(2550): a$ = a$ +text$(346)
r(2551):    if checked(366) = 1 then a$=a$+"|5|":else:a$=a$+"|5|" :' pour l'instant non'
r(2552): if checked(386) = 1 and text$(387) <> "" :' enregistrement par fichier
r(2553): rem il faut d'abord enregistrer le memo concerné
r(2554): ' file_save nombre_memo%+x%,text$(387) :' vaut mieux l'éviter, si il existe, et qu'on vient de mettre pour fichier, celui-ci en mémoire pourrait àtre effac ø.
r(2555): a$=a$+"¤|" + text$(387)+"|" :' dans l.edit 387, se trouve le nom du fichier
r(2556): ' 6 7 |
r(2557): item_delete 110,x%
r(2558): item_insert 110,x%, a$
r(2559): else
r(2560): ' il faut récupérer le texte du memo 352 et enregistrement de la ligne item_ 110
r(2561): if count(352) > 0
r(2562): if width(352) > width(0)-left(nb_memo%)-125 then width 352,width(0)-left(nb_memo%)-125
r(2563): c$=" | |" : d$ = c$
r(2564): ' 6 7

r(2566): rem il faut d'abord sauvegarder le memo, pour relire le fichier et savoir où sont les retour-chariot
r(2567): file_save 352,dossier$ + "provisoir.txt"
r(2568): file_open_read 1,dossier$ + "provisoir.txt"
r(2569): while file_eof(1) <> 1
r(2570): file_readln 1,c$
r(2571): d$ = d$ + c$ + ""
r(2572): end_while
r(2573): file_close 1
r(2574): c$ = left$(d$,len(d$)-1 ) :' on retire le dernier return
r(2575): end_if
r(2576): item_delete 110,x%
r(2577): item_insert 110,x%, a$ +c$

r(2579): end_if :' <== checked(386)=1 sauve par fichier
r(2580): FILE_SAVE_110()

r(2582): DELETE_OBJET() : clear 110
r(2583): GOSUB CLIC_DEPART :' re_affiche
r(2584): hint nb_memo%,"alpha:"+str$(nb_memo%)

r(2586): active 0 : to_foreground 0 : inactive 350
r(2587):    p(72)
r(2588):    end_sub
r(2589): end_if
r(2590): p(72)
r(2591):end_sub

r(2593):' ======================================================================================================================================

r(2595):MODIFIE_LIST103:
r(2596):q$="modifie_list103:":o(73)
r(2597): if count(2) >0
r(2598): clear 103
r(2599): for a%=1 to count(2)
r(2600): item_add 103, item_read$(2,a%)
r(2601): next a%
r(2602): end_if
r(2603): rem reste á enregistrer la feuille
r(2604): file_save 103, feuille$
r(2605): hide 4 : active 0
r(2606): ' timer_on 499
r(2607): p(73)
r(2608):return

r(2610):close_350:
r(2611):q$="close_350:":o(74)
r(2612): active 0
r(2613): p(74)
r(2614):return

r(2616):' =============================================================================='
r(2617):' &&&&&&&&&&&&&&&&& CODE POUR MENU ANCRE &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'
r(2618):' =============================================================================='
r(2619):    list 127:left 127,40:top 127,130:width 127,155:height 127,300
r(2620):    list 128:left 128,195:top 128,130:width 128,200:height 128,300
r(2621):    alpha 126:left 126,420:top 126,110:caption 126,"ANCREs TROUVÉs"
r(2622):    list 129:left 129,405:top 129,130:width 129,150:height 129,300
r(2623):main_alpha:
r(2624):q$="main_alpha:":o(75)
r(2625): clear 129
r(2626): if count(110) > 0
r(2627):    for a% = 1 to count(110)
r(2628):       explode("|",item_read$(110,a%))
r(2629):       if left$(check$(1),5) = "alpha" and check$(4) <> "" then item_add 129,check$(4)
r(2630):    next a%
r(2631): end_if
r(2632): show 150
r(2633): p(75)
r(2634):return

r(2636):valide_ancre:
r(2637):q$="valide_ancre:":o(76)
r(2638): gosub main_alpha_
r(2639): ' hide 150
r(2640): p(76)
r(2641):return

r(2643):close_150:
r(2644):q$="close_150:":o(77)
r(2645): hide 150
r(2646): p(77)
r(2647):return

r(2649):main_alpha_:
r(2650):q$="main_alpha_:":o(78)
r(2651): if text$(154) <>"" and text$(155) <> ""
r(2652): if count(127) > 0
r(2653):    for a%=1 to count(127)
r(2654):       if item_read$(127,a%)= text$(154) then file_save_110():p(78):return
r(2655):    next a%

r(2657): end_if
r(2658): item_add 127, text$(154)
r(2659): item_add 128, text$(155)
r(2660): end_if

r(2662): if menu$=""
r(2663): menu$ = "menu |" + text$(154) + "!" + text$(155)
r(2664): else
r(2665): menu$ = menu$ + "|" + text$(154) + "!" + text$(155)
r(2666): end_if

r(2668): item_add 110,menu$
r(2669): file_save_110()

r(2671): gosub clic_depart
r(2672): p(78)
r(2673):return
r(2674):' ==============================================================================
r(2675):clic_list_ancre:
r(2676):q$="clic_list_ancre:":o(79)
r(2677): text 155,item_index$(129)
r(2678): p(79)
r(2679):return

r(2681):clic_menu_page:
r(2682):q$="clic_menu_page:":o(80)
r(2683): clic_menu%=item_index(127)
r(2684): text 154,item_read$(127,clic_menu%) : text 155,item_read$(128,clic_menu%)
r(2685): active 156
r(2686): p(80)
r(2687):return

r(2689):' ==============================================================================

r(2691):clic_modifie_ancre:
r(2692):q$="clic_modifie_ancre:":o(81)
r(2693): rem modifie les noms et ancres cliqués.
r(2694): item_delete 127,clic_menu% :item_insert 127,clic_menu%,text$(154)
r(2695): item_delete 128,clic_menu% :item_insert 128,clic_menu%,text$(155)
r(2696): menu$ = "menu "
r(2697): if count(127)>0
r(2698):    for a%=1 to count(127)
r(2699):       menu$ = menu$ + "|" + item_read$(127,a%) +"!" + item_read$(128,a%)
r(2700):    next a%
r(2701):    item_add 110,menu$
r(2702):    file_save_110()
r(2703): end_if
r(2704): inactive 156
r(2705): p(81)
r(2706):return
r(2707):' ======================================================================================================'
' ***OFF_TRACE***

sub o(m%)
qq$(m%)=q$
p%=p%+1
if variable("ql$")=0 then dim ql$
item_add 9,string$(p%*3," " ) + q$:file_save 9,"c:\PANO\controle.txt"
ql$=right$(ql$+"|"+q$,230)
caption 0,ql$
end_sub

sub p(m%)
item_add 9,string$(p%*3," " ) +"/"+ qq$(m%)+"/":file_save 9,"c:\PANO\controle.txt"
if p%>1 then p%=p%-1
end_sub

Je vais mettre le code r()

Code:: Sub r(lig%)
item_add 5350,right$(" " + str$(lig%),4) +"| "+ item_read$(5351,lig%)
file_save 5350,"C:\PANO\5350.bas"
END_SUB
' --------

Dans le loader pour déboguer, j'inserts un dlist 5350 et 5351, dans le 5351, je charge le programme, pour retrouver les n° de lignes, alors que 5350, deux N° peut probable d'utilisation, les lignes lues à la suite, s'accumulent.

Mais j'affirme qu'il n'y a pas d'erreur dans le sous-programme TROUVE_OBJET.

Juste une remarque en passant, et ça concerne ce programme et ta dll, concernant les dimensions d'une image. largeur et hauteur avec ta dll me donne 0. Peut-être que format d'un appareil Kodac est différent. J'avais une routine que j'ai utilisé en juin/juillet, et j'ai du la reprendre. Mais c'est pas important, ça marche tel que je l'avais fait. Je remes la formulation de la dll:

Code:: ' res% = dll_call3("AnalyzeJPG",adr(teste$),adr(w%),adr(h%))
' res% = dll_call0("GetPictureHeight")

que j'ai mis de côté.

Et bien Klaus: bon Sleep

et

etc...

Invité

Désolé, ce matin, je n'ai pu mettre les programmes en ligne.
J'ai fais une vidéo, et cela m'a pris beaucoup de temps en raison de mauvaise qualité de programmes choisis, des paramètres à trouver et ajuster, et du son qui n'allais pas.
J'ai mis un zip sur le Webdav de la vidéo. J'allais mettre aussi les programmes, en oubliant qu'il fallait que je refasse les dossiers qui correspondaient à la vidéo. Il est trop tard pour refaire un dossier complet, d'autant que j'ai adopté de chemins complet pour lancer mes programmes sans problème.
Donc je verrais cela demain, ou plutôt ce soir, vu l'heure.

J'ai oublié: dans le dossier: PROBLEME PAGICIEL

panoramic@cosmos70 et panoramic123.

Juste une remarque: les textes n'ont pas d'importance. A un moment donné il y a eu tel problème, et cela me sert de mémoire, comme les images et photos, ne servent de teste. Le contenu n'a aucune importance, et sert à la mise au point.

Invité

Bonsoir,
J'ai mis dans ce dossier un autre zip. Celui-ci est l'installation du programme, tel que je l'ai montré dans la vidéo. Il suffira de mettre ce dossier ensuite à la poubelle, pour effacer ces horreurs.
Maintenant j'ai besoin de réfléchir et de faire des recherches.

Bonjour cosmos,
entre l'appel à o(65) et l'appel à p(65) il s'écoule combien de temps ?

Es-tu sûr que ton file_save de la procédure o() soit terminé avant le file_save de la procédure p() ?

J'ai comme un doute vu le message d'erreur que tu as...

Cette fonction est non-bloquante: tu lances l'execution d'un bon gros FILE_SAVE, tu vois ton disque dur travailler et pendant ce temp, ton programme continu à bosser...
Wink

Invité

Bonjour Nardo.
Franchement, je ne pensais même pas que quelqu'un regarderai.
Si je suis arrivé à faire ces routines, c'est que justement j'avais au bout d'un moment un blocage sans savoir où cela se produisait.
Je me suis posé la question cette nuit, si je ne pouvais pas ne laisser que les disons les 20 dernières lignes.
Je viens de faire l'essai de mettre en commentaire le file_save du fichier control.txt, et régler la largeur du message du caption 0, et ça marche mieux.
Donc cela te donne raison. Dans ce cas, les messages d'erreur que je reçois au bout d'un moment, serait que Panoramic va plus vite que Windows puisse gérer. Car ce sont toujours des messages d'erreur sans numéro de ligne, et bien souvent sans comprendre pourquoi. Comment mettre au point un programme important sans savoir ce qui se passe. Je vais faire une fenêtre suplémentaire, avec un list à la place du dlist pour voir le contenu. Encore faut-il pouvoir voir cette forme, si elle est en dessous, avec la fenêtre principale bloquée.

Vraiment j'en ai marre de faire toujours la même chose sans pouvoir avancer!

Citation :: entre l'appel à o(65) et l'appel à p(65) il s'écoule combien de temps ?
Es-tu sûr que ton file_save de la procédure o() soit terminé avant le file_save de la procédure p() ?
J'ai comme un doute vu le message d'erreur que tu as...

Qu'est ce que j'ai comme outils pour le savoir. Et qu'est-ce que j'ai comme réponse quant je pose une question. Qui sait qui peut me dire jusqu'où on peut aller avec Panoramic? J'ai demandé à quoi servait number_events. Je pensais que cela donnait la position du pointer de pile. J'ai posé la question et d'ailleurs plein d'autre par exemple si les on_change sur un edit ce qu'il en était de la pile, avec les on_change incessant. J'avais pendant un temps un message d'erreurs d'où j'ai oublié le nom. Pas de réponse. Pas de réponse. Pas de réponse.. Comme je l'ai signalé sur Webdrive, si sans avoir une réponse systématique, et d'ailleurs c'est impossible pour Jack, si il faisait un copie/collé des questions, et une fois toutes les un, deux ou trois mois, il reprenait ces questions pour apporter les réponses, aujourd'hui je saurais les limites de Panoramic.

J'ai vraiment l'impression de programmer dans le vide. Aujourd'hui, à chaque ligne, ou groupe de lignes si elles sont dans une boucle, je suis obligé de faire un essai, pour voir si ça passe! Pour les grands programmes, être obligé de procédé ainsi montre le problème que je rencontre.

Dans les deux autres langages que je connais, la détection d'évènnement se fait dans une boucle comme while/end_while. Si un évènement est détecté, on le détourne pour le résoudre, et la boucle recommence. Ici c'est plus simple, et c'est le succès de Panoramic. Mais dans un programme conséquent, est-ce qu'il n'y a pas un problème à ce niveau?

Je pense que pour ce genre de programme, je ne perdrais pas mon temps d'apprendre un autre langage. Cela fait 2/3 mois que je tourne en rond, et Pagiciel la première version a été publié le 1 juillet, donc depuis que j'ai commencé, cela fait 6 mois. C'est vrai que vu la reprise depuis la première version, j'ai reconsidéré plusieurs fois la méthode.

J'envoi, j'ai autre chose à faire.

Perso j'utiliserai un truc comme ça pour les log :

Code:: ' -----------------------------------
' initialisation du système de log
' -----------------------------------
InitLog("D:\test.log")
ClearLog() : ' je supprime le fichier log précédent, mais c'est pas obligatoire

MsgLog("Début du programme")
Test()
MsgLog("Fin du programme")

END

SUB Test()
DIM_LOCAL i
StartLog("Test()") : ' debut de notre procedure test
FOR i=0 TO 10
Test2(i)
IF i=3 THEN MsgLog("Exit for"):EXIT_FOR
NEXT i

MsgLog("valeur de i :"+STR$(i))
EndLog("Test")
END_SUB

SUB Test2(k)
StartLog("Test2("+str$(k)+")") : ' debut de procedure
' là on fait notre sauce...
' ....
' puis on veut memoriser un truc dans notre log
MsgLog("Point de controle :"+STR$(k*2.3))
' puis on continu notre traitement
' .....
EndLog("Test2") : ' Fin de procedure
END_SUB

' ==============================================================================
' PROCEDURES D'AIDE AU DEBUG
' ==============================================================================
SUB InitLog(File$)
DIM LogFile$:LogFile$=File$
DIM LogFileId% : LogFileId% = 945 : ' j'ai mis une valeur au hasard...
DIM LogLevel%: LogLevel%=1
END_SUB

SUB ClearLog()
IF FILE_EXISTS(LogFile$)=1 THEN FILE_DELETE LogFile$
LogLevel%=1
END_SUB

SUB MsgLog(msg$)
IF FILE_EXISTS(LogFile$)=0
FILE_OPEN_WRITE LogFileId%,LogFile$
ELSE
FILE_OPEN_APPEND LogFileId%,LogFile$
END_IF
FILE_WRITELN LogFileId%,STRING$(LogLevel%*2," ")+msg$
FILE_CLOSE LogFileId%
END_SUB

SUB StartLog(msg$)
MsgLog(msg$)
LogLevel%=LogLevel%+1
END_SUB

SUB EndLog(msg$)
LogLevel%=LogLevel%-1
MsgLog("End_"+msg$)
MsgLog("")
END_SUB

Maintenant, tu peux adapter MsgLog() à ta sauce... Wink

si tu passes par des FILE_OPEN, FILE_WRITE, FILE_CLOSE normalement tu ne devrais pas avoir de pb...

Invité

Voila!
Dans mon loader, pour le débogage, j'ai ajouté une forme full_space, décalée de 25 du bord, sur lequel j'ai mis le list des instructions. J'ai juste ajouté un on_click sur le list pour enregistrement éventuel.
La form 0 de pagiciel est full_space -15, pour éventuellement cliqué sur la forme de débogage.
Maintenant le programme marche plein gaz. Donc j'ai le débogage en arrière plan qui n'est pas trop dérangeante.
De plus la partie de visu des subs, seul le caption 0 est sollicité. On voit les dernieres procédures et sous-programmes, et c'est déja bien.

Invité

Je n'ai plus du tout pour le débogage, d'enregistrement de fichier. Mais au même endroit après un fonctionnement important de modifications, de décalage ou autre, j'ai le message suivant:
Out of systeme resources. Message qui m'a d'ailleurs emmené à rechercher un systeme de débogage.

Quelqu’un peut me dire à partir de quant il n'y a plus de ressource système! Comment avec Panoramic, je fais pour le savoir? Comment libérer de la ressource?

Si j'ai pas de réponse, je crois que je peux aller voir ailleurs! Apparemment la limite est facile à atteindre.

salut
Panoramic est tres gourmand en ressources (jusqu'à 70% )
Parfois apres avoir ferme toutes les applications Panoramic, on voit qu'il es toujours actif
en arriere plan
J'utlise Process lasso pour tuer le processus et je n'ai plus de message de depassement de capacites
pour un certain temps
Une piste peut-etre?

Pour la ressource systeme, tu dois forcement avoir quelque chose qui tourne en boucle quelque part alors qu'il ne devrait pas...
As-tu rajouté des wait dans les boucles longues ? (cela allège le système)
sinon :

Citation :: Dans ce cas, les messages d'erreur que je reçois au bout d'un moment, serait que Panoramic va plus vite que Windows puisse gérer.

Non, c'est tes accès disque qui sont longs...
La puissance d'un PC se mesure par son élément le plus faible... dans ton cas, ton disque doit ramer...
il y a longtemps que tu as fait une defrag ?... scratch

Invité

Non, j'ai supprimé les fichiers. Seul, reste le remplissage des objets de la page.
Et pendant le remplissage des objets, cela monte jusqu'à 56%.

Et tu n'as pas des procédures longues dans lesquelles tu pourrais mettre des wait ?
(je viens de jeter un coup d'oeil à tes popup... c'est une piste Wink

il y a à rajouter la disparition de celui-ci lorsque l'on quitte sa zone de manière à ne pas être obligé de cliquer obligatoirement sur un item)

Invité

Je viens de réédité, et je vois ton message après. Pendant la phase maxi de l'affichage, car c'est là que ça travail le plus, le maxi est 56%.
Maintenant tu parles de quelle sub? Si c'est lorsque je recherche l'emplacement, il n'y a qu'une dizaines d'objet, ensuite c'est traité ailleurs. C'est pas comme si j'étais en permanence dans la boucle, auquel cas j'aurai mis un wait, comme je le fais habituellement. Tu peux voir tous mes codes, je procède ainsi. Même execute_wait, que je n'utilise pas ici, je l'ai remplacé par execute, et une boucle d'attente en regardant pour qu'il n'y ai presque pas de ressource. Sur mon EEEPC, j'avais presque 80/90% de ressource, rien qu'en attente avec pratiquement pas de travail sur le programme en fonctionnement (celui de exécute). Je l'ai signalé plusieurs fois, mais personne n'a rien relevé.
Crois moi, C'est une chose que je regarde de près, et on peut pas dire que mon ordi chauffe.

Je me demande ce que c'est que ce message d'erreur sur la ressource. Avant c'était le fichier. Peut-être qu'il y a une pile qui est rempli. Je comprend très bien qu'avec les fichiers en constante sollicitation, il puisse y avoir un problème, mais cet ordinateur a les capacités: 6,00 Go de RAM, 64 bits, alors que sur mon XP, je n'avais que 500 Mo. EEEPC: 1,50 Go.
Si réellement il y a un dépassement de ressource, qu'est-ce que cela serait si je faisais des jeux d'arcade.

» Aide Panoramic en pages html
» Panoramic Android : petit défaut d'affichage pages d'aide
» Pages inaccessibles
» New-Editor-4 V.0.1.9.56
» Logithèque : une base de données en Panoramic pour Panoramic