bizarrerie avec object_exists

Invité

J'ai fait un premier programme d'essai avec Panoramic_editor pour faire des ancres à pagiciel.
Avec l'éditeur Panoramic le programme marche, mais une fois intégré dans Pagiciel, le teste que je mets pour savoir si un nom est déjà donné est dans la page, j'ai une erreur.
Donc j'ai fait un message qui est le suivant:

Code:: message "a%="+str$(a%)+t$+"menu_list%="+str$(menu_list%) +t$+"existe a%"+str$(object_exists(a%) )+t$+"existe: 154"+str$(object_exists(154) )

Normalement avec object_exists() je devrais avoir un résultat de 0 ou 1, et ce n'est pas le cas ici.
Je ne vais pas mettre Pagiciel qui bloque, mais la partie teste indépendante:

Code:: label main_alpha , clic_menu , clic_ancre , valide_ancre , close_150
dim menu_list%, menu_ancre% , clic_menu% ,t$:t$=chr$(13)
menu_list% = 168
main_menu 158
sub_menu 159:parent 159,158:caption 159,"ajouter une ancre":on_click 159,main_alpha

form 150:hide 150:width 150,700:height 150,500:left 150,screen_x/2-350:top 150,screen_y/2-250 :command_target_is 150 :on_close 150,close_150
picture 153:left 153,40:top 153,100:width 153,600:height 153,320
2d_target_is 153:2d_fill_color 245,245,170:2d_rectangle 0,0,160,320
2d_fill_color 230,250,255:2d_rectangle 161,0,600,320
alpha 151:left 151, 50:top 151,110:caption 151,"nom du branchement":font_bold 151
alpha 152:left 152,250:top 152,110:caption 152,"nom de l'ancre" :font_bold 152

edit 154:left 154, 10:top 154,10:width 154,180
edit 155:left 155,200:top 155,10:width 155,450

button 157:left 157,50 :top 157,60:caption 157,"valider" :on_click 157,valide_ancre
button 156:left 156,150:top 156,60:caption 156,"modifier":on_click 156,clic_ancre :inactive 156

end
' ==============================================

main_alpha:
show 150:return

valide_ancre:
main_alpha()
' hide 150
return

close_150:
hide 150
return

sub main_alpha()
dim_local a%
if text$(154) <>"" and text$(155) <> ""
if menu_list%>169
for a%=170 to menu_list% step 2
message "a%="+str$(a%)+t$+"menu_list%="+str$(menu_list%) +t$+"existe a%"+str$(object_exists(a%) )+t$+"existe: 154"+str$(object_exists(154) )
if text$(154) = caption$(a%) then exit_sub
next a%
end_if :' 0 1 2
menu_list%=menu_list%+2 :' 160 162 164
alpha menu_list%:caption menu_list%,text$(154) :top menu_list%,(menu_list%-170)*9+130:left menu_list%,50 :on_click menu_list%,clic_menu
menu_ancre%=menu_list%+1:' 161 163 165
alpha menu_ancre%:caption menu_ancre%,text$(155):top menu_ancre%,(menu_list%-170)*9+130:left menu_ancre%,220
end_if
end_sub

clic_menu:
clic_menu%=number_click
clic_menu(clic_menu%)
active 156
return

sub clic_menu(b%)
dim_local a%
for a%=170 to menu_list% step 2 : color a%,255,255,255:font_bold_off a%:next a%
text 154,caption$(b%) : text 155,caption$(b%+1)
color b%,255,255,50 : font_bold b%
wait 500:color b%,255,255,255:font_bold_off b%
end_sub

clic_ancre:
caption clic_menu% , text$(154)
caption clic_menu%+1 , text$(155)
inactive 156
return

le but est de cliquer sur le menu, qui m'ouvre une fenêtre, et de remplir les 2 edits en y mettant n'importe quoi.
Si je mets 2 lignes identiques dans l'edit de gauche en validant, normalement je sors avec exit_sub, mais dans pagiciel ça bloque. et le message sur l’existence de l'edit 154 est bizarre.

Sujet: Re: bizarrerie avec object_exists Dim 28 Oct 2012 - 17:49

Je n'y vois rien de bizarre. N'aurais-tu pas oublié un "=" ou un "=" dans ton message ? Comme ceci:

Code:: label main_alpha , clic_menu , clic_ancre , valide_ancre , close_150
dim menu_list%, menu_ancre% , clic_menu% ,t$:t$=chr$(13)
menu_list% = 168
main_menu 158
sub_menu 159:parent 159,158:caption 159,"ajouter une ancre":on_click 159,main_alpha

form 150:hide 150:width 150,700:height 150,500:left 150,screen_x/2-350:top 150,screen_y/2-250 :command_target_is 150 :on_close 150,close_150
picture 153:left 153,40:top 153,100:width 153,600:height 153,320
2d_target_is 153:2d_fill_color 245,245,170:2d_rectangle 0,0,160,320
2d_fill_color 230,250,255:2d_rectangle 161,0,600,320
alpha 151:left 151, 50:top 151,110:caption 151,"nom du branchement":font_bold 151
alpha 152:left 152,250:top 152,110:caption 152,"nom de l'ancre" :font_bold 152

edit 154:left 154, 10:top 154,10:width 154,180
edit 155:left 155,200:top 155,10:width 155,450

button 157:left 157,50 :top 157,60:caption 157,"valider" :on_click 157,valide_ancre
button 156:left 156,150:top 156,60:caption 156,"modifier":on_click 156,clic_ancre :inactive 156

end
' ==============================================

main_alpha:
show 150:return

valide_ancre:
main_alpha()
' hide 150
return

close_150:
hide 150
return

sub main_alpha()
dim_local a%
if text$(154) <>"" and text$(155) <> ""
if menu_list%>169
for a%=170 to menu_list% step 2
message "a%="+str$(a%)+t$+"menu_list%="+str$(menu_list%) +t$+"existe a%="+str$(object_exists(a%) )+t$+"existe: 154="+str$(object_exists(154) )
if text$(154) = caption$(a%) then exit_sub
next a%
end_if :' 0 1 2
menu_list%=menu_list%+2 :' 160 162 164
alpha menu_list%:caption menu_list%,text$(154) :top menu_list%,(menu_list%-170)*9+130:left menu_list%,50 :on_click menu_list%,clic_menu
menu_ancre%=menu_list%+1:' 161 163 165
alpha menu_ancre%:caption menu_ancre%,text$(155):top menu_ancre%,(menu_list%-170)*9+130:left menu_ancre%,220
end_if
end_sub

clic_menu:
clic_menu%=number_click
clic_menu(clic_menu%)
active 156
return

sub clic_menu(b%)
dim_local a%
for a%=170 to menu_list% step 2 : color a%,255,255,255:font_bold_off a%:next a%
text 154,caption$(b%) : text 155,caption$(b%+1)
color b%,255,255,50 : font_bold b%
wait 500:color b%,255,255,255:font_bold_off b%
end_sub

clic_ancre:
caption clic_menu% , text$(154)
caption clic_menu%+1 , text$(155)
inactive 156
return

Invité

Ce qui n'est pas normal, c'est le rapport sur object_exists qui devrait-être 0 ou 1, alors que je reçois:

Donc j'obtiens 1541. J'ai rajouté deux messages:

Citation :: for a%=170 to menu_list% step 2
message "a%="+str$(a%)+t$+"menu_list%="+str$(menu_list%) +t$+"existe a%"+str$(object_exists(a%) )+t$+"existe: 154"+str$(object_exists(154) )
message text$(154)
message caption$(a%)
if text$(154) = caption$(a%) then exit_for
next a%
if text$(154) = caption$(a%) then exit_sub

Ces 2 messages me donnent le même rapport, et n'apportent pas d'erreur, mais avec Pagiciel ensuite j'ai ce message d'erreur d'erreur ensuite:

la ligne en cause est la suivante:

Code:: if text$(154) = caption$(a%) then exit_sub

Tien? N'aurais-je pas la bonne version de Panoramic? Je vais refaire un exécutable du loader. Mais cela ne me dis pas pourquoi le message sur object_exists n'est pas 1.

Sujet: Re: bizarrerie avec object_exists Dim 28 Oct 2012 - 18:19

Le message EST 1 ! Exécute le code que j'ai posté en réponse ci-dessus. Le 1 est juste collé derrière le 154, faisant croire à un résultat de 1541.

Invité

Je suis désolé j'ai pas bien vu ce que tu as marqué, car j'étais sur le rapport et les envois d'images.
J'ai téléchargé la dernière version et maintenant cela marche.
Merci pour ton intervention, mais je remarque un manque de correction de ma part, vu que lorsqu'on regarde un problème que je pose, je cours trop vite dans mes réflexions, sans vraiment rentrer dans les réponses. Embarassed

Sujet: Re: bizarrerie avec object_exists Dim 28 Oct 2012 - 18:45

Pas de problème, Cosmos70. Cela nous arrive à tous d'avoir l'esprit préoccupé par autre chose. L'important, c'est que tu trouves une explication pour ton problème.

Invité

Merci de le prendre comme cela. Aujourd'hui je suis un privilégié. 25 heures pour un anniversaire. Je crois bien que c'est la première fois.
Pagiciel étant débloqué et ayant avancé, je regarderai cecsoir le problème de Ygeronimi. Je sais ce que c'est d'être dans la mer.. .

Sujet: Re: bizarrerie avec object_exists Dim 28 Oct 2012 - 19:35

Eh bien, heureux anniversaire !!!!!!!!!!!!!!!!!! Que tous les bienfaits de Panoramic te portent bonheur !

Sujet: Re: bizarrerie avec object_exists Dim 28 Oct 2012 - 19:53

Joyeux anniversaire

Invité

Merci bien à vous. 25 heures, je vais être sur les genoux.

Sujet: Re: bizarrerie avec object_exists Dim 28 Oct 2012 - 21:47

Bon anniversaire Cosmos ! Tiens le coup !

Invité

Merci JL35. Si c'était pas le cas d'une journée de 25 heures, ce qui est quand-même un cas rare, vous n'auriez rien su! Wink

Sujet: re Dim 28 Oct 2012 - 22:52

@ Cosmos70

Joyeux Anniversaire !

Ne t'en fais pas j'ai fait une pause "Age de Glace" avec mes gosses.

Invité

Merci, j'ai aussi la même pause.
C'est pas encore gagné avec les SUB dans pagiciel utilisant la dernière version. Sur la sub de tout à l'heure, avec ceci:

Code:: sub main_alpha()
dim_local a%

Sur la ligne Dim_local, j'ai le message d'erreur signifiant que la variable est déjà déclarée.
Faut-il que je mette la dernière version de Pagiciel?

Je dois préciser que ce problème intervient après une détection d'erreur dont je ne vois pas la cause, mais avec exit_sub? Je croyais que ce problème était résolu après la dernière version de Panoramic, mais ça recommence.
EDIT
Cela fonctionne de nouveau en supprimant l'erreur qui était que lorsque la liste était vérifiée, a% étant le n° d'un objet, avec next, a% étant incrémenté en sortie, il n'y avait plus d'objet.
Sleep

» Bizarrerie avec HEIGHT
» Bizarrerie avec picture
» Bizarrerie avec l'instruction message T
» bizarrerie avec mark_off sur click d'un objet picture
» Bizarrerie d'affichage