Pb openfile creatfile

Thyphoon · Message par **Thyphoon** » jeu. 16/sept./2004 20:11

alors je comprends pas
Je sauvegarde ma variable dans un table et je ne la récupère pas au même endroit mais décalé de +1
En gros la variable mis en Map(2,0,0) se retrouve en Map(2,0,1)
est ce quelqu'un peu m'expliquer ?

Merci d'avance

Code : Tout sélectionner

Dim Map.l(7,40,30)
Global Map
Global TablL.l
Global TablH.l

TablL=40
TablH=30


Procedure Loadtableau (NomFichier$)
        
      If OpenFile(0, NomFichier$)
      TablL=ReadLong()
      TablH=ReadLong()
      Thepaysagetype=ReadLong()
       
        For c=1 To 4
          For zx=0 To TablL
            For zy=0 To TablH
              Map(c,zx,zy)=ReadLong() 
            Next
          Next
        Next
        CloseFile(0)
      EndIf 
      Debug("BUG L:"+Str(Map(2,0,1)))
EndProcedure

Procedure Savetableau (NomFichier$)
      Debug("BUG S:"+Str(Map(2,0,0)))
      If CreateFile(0, NomFichier$)
      WriteLong(TablL)
      WriteLong(TablH)
      WriteLong(Thepaysagetype)
        WriteLong(Map(c,zx,zy)) 
        Debug "save"
        For c=1 To 4
          For zx=0 To TablL
            For zy=0 To TablH
              WriteLong(Map(c,zx,zy)) 
            Next
          Next
        Next
        Debug "FinSave"
        CloseFile(0)
      EndIf
EndProcedure

Map(2,0,0)=10
Savetableau ("test_bug.ddd")
Loadtableau ("test_bug.ddd")
Debug("result:"+Str(Map(2,0,0)))

nico · Message par **nico** » jeu. 16/sept./2004 20:48

C'est bien que tu en parles, c'est un bug très connu, il apparaît généralement après avoir passé de longues heures sur un code qui a grossi beaucoup trop vite et n'a donc pas eu le temps de mûrir.

Avec une ligne de code en moins, tu verras ça va mieux, allez je sais que tu vas trouver, c'est dans ta deuxième procédure.......

J'imagine la joie que tu ressent maintenant,

Ah, y a pas de quoi!

Thyphoon · Message par **Thyphoon** » jeu. 16/sept./2004 21:47

Lolllllll

merci beaucoup! Bon ba je vais chercher alors....j'ai pourtant déjà tester pendant 2 Bonne heure mais je recommence ..héhé c'est comme ça qu'on apprend !!

Thyphoon · Message par **Thyphoon** » jeu. 16/sept./2004 21:51

Youpie j'ai trouvé ...lollllllll
Bon vraiment trop nul le Thyphoon ! Dire que ça faisait 2H00 que je cherchais. En plus j'attends longtemps avant de poster sur le forum car tout le monde m'aide et j'ai pas encore eu l'occasion d'aider qui que ce soit..alors j'ai un peu honte...surtout pour une erreur de ce genre...Pffffffffff!!! En tout cas une chose est sur lorsqu'il y a un bug qu'on ne trouve pas le mieux c'est d'arrêter de faire autre chose et de revenir plustard dessus...Et comme par miracle on trouve la solution !!!
merci Nico !!

nico · Message par **nico** » ven. 17/sept./2004 11:26

Ben tu sais que moi même, j'y ai passé facile 1/2 heure

, je modifiais le code, des tests, ça m'intriguais et puis

et ensuite

Thyphoon · Message par **Thyphoon** » ven. 17/sept./2004 13:08

En tout cas merci pour le coup main ! c'est tres sympa d'avoir passé autant de temps dessus ! Tient si ça t'amuse (tes pas obligé) j'ai un autre bout de code qui bug... mais je pense que c'est un bug de purebasic et pas de moi enfin ça reste a voir.....ça se passe icihttp://purebasic.hmt-forum.com/viewtopic.php?t=1471 dernier code de la page !! tu verra ! et tu peux télécharger les images qui vont bien au premier post