while-wend et data bug ou pas ?? (pas bug)

[Backup]

avec ce code , la premiere partie decode les data sans problemes
mais la deuxieme partie qui utilise While-wend m'affiche seulement le premier caractere !!

cherchez l'erreur ... ou ça deconne ?

Code : Tout sélectionner

;Decodeur
Restore cod:
repeat
	read.i a
	ad$=ad$+chr(a)
until  a=0
debug ad$ ; jusque la ok !! mais ....

; *******************************************
ad$=""
Restore cod:
while a=0
	read.i a
	ad$=ad$+chr(a)
wend
debug ad$
; ******************************************


DataSection
	cod:
	Data.i 115,105,32,109,97,32,116,97,110,116,101,32,101,110,32,97,118,97,105,101,110,116,44,32,111,110,32,108,39,97,112,112,101,108,101,114,97,105,32,116,111,110,116,111,110,32,33,0
EndDataSection
; 

; EPB

[PAPIPP]

Bonjour Dobro
Un petit coup de fatigue sans doute
Comme cela

;Decodeur
Restore cod:
Repeat
Read.i a
ad$=ad$+Chr(a)
Until a=0
Debug ad$ ; jusque la ok !! mais ....

; *******************************************
ad$=""
a=1 ; Réinitialisation de a avant lecture
Restore cod:
While a>0 ; tant que a>0
Read.i a
ad$=ad$+Chr(a)
Wend
Debug ad$
; ******************************************


DataSection
cod:
Data.i 115,105,32,109,97,32,116,97,110,116,101,32,101,110,32,97,118,97,105,101,110,116,44,32,111,110,32,108,39,97,112,112,101,108,101,114,97,105,32,116,111,110,116,111,110,32,33,0
EndDataSection
;

; EPB

A+

[Backup]

heu ! vous avez testé ?

car chez moi en Pb 5.11

si j'utilise while a>0 ou bien while a<>0 ou meme while a=0 ça ne marche pas , ma chaine est vide !!

j'obtiens un seul caractere avec while a=0 .... c'ets pour ça que j'utilise ceci

[Backup]

je viens de comprendre ou etait l'erreur

je fait restore , je pensai que le pointeur etait sur le debut de la chaine
ce qui est vrai , mais comme je teste en debut de boucle , la variable est encore a 0




Merci PAPIPP

ps : faites gaffe a ne pas parler de bug dans la rubrique Debutant ; ça semble mal vue par le bon dieu

[Fred]

Ce qui est mal vu, c'est que tu supposes directement que c'est un bug, et qu'en plus tu le fais sur les 2 forums.

[G-Rom]

Code : Tout sélectionner

: code de dobro
Enumeration
   #win
   #web1
   #web2
EndEnumeration
OpenWindow(#win,0,0,800,600,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
Restore url1:
Repeat
   Read.i a
   ad$=ad$+Chr(a)
 Until  a=0
 
Restore url2:
Repeat
   Read.i a
   ad2$=ad2$+Chr(a)
Until  a=0

 
 WebGadget(#web1,0, 0,300,300, ad$)
 WebGadget(#web2,0, 0,800,600, ad2$)
 HideGadget(#web1,1)
 
 
Repeat
   event= WaitWindowEvent(2)
Until event=#PB_Event_CloseWindow
DataSection
   url1:
   Data.i 104,116,116,112,58,47,47,119,119,119,46,121,111,117,116,117,98,101,46,99,111,109,47,118,47,79,89,73,122,105,85,100,102,55,95,103,63,118,101,114,115,105,111,110,61,51,38,108,111,111,112,61,49,38,97,117,116,111,112,108,97,121,61,49,0
   url2:
   Data.i 104,116,116,112,58,47,47,115,116,97,116,105,99,46,102,114,101,101,112,105,107,46,99,111,109,47,112,104,111,116,111,115,45,108,105,98,114,101,47,116,114,111,108,108,102,97,99,101,95,49,55,45,52,48,51,49,50,53,57,50,49,46,106,112,103,0
EndDataSection

met du son
==>[]