Probleme de data

[garzul]

Bonjour voila j'ai un probleme de data je comprend rien sur les data sa fait 1 heure que je cherche sur le forum sans trouver la réponse ou que j'essaye et la sa marche pas en faite je voudrai savoir comment par exemple en faisant sa

Code : Tout sélectionner

DataSection

Terrain1 : 
Data.f 0 , 1 

EndDataSection

On pourrai dire que 0 c'est un cube noir et 1 un cube blanc et je voudrai apres faire un genre de map comme sa pourriez vous me faire un exemple svp sinon si vous avez la flemme ( ce qui et probablement le cas ) m'expliquez tout simplement ?

[Heis Spiter]

http://purebasic.hmt-forum.com/viewtopic.php?t=1064

Tu as un bon exemple... Sur un post à toi en plus !

[garzul]

Bah merci mais j'y avais regarder le seul probleme c'est que j'ai modifier ce qu'il avait fait pour voir si je comprenais mais rien je comprend pas j'ai modifier et je trouve pas pareil que se quej e trouve dans les data .

[Le Soldat Inconnu]

j'ai rien compris, et en français, ça donne quoi ?

[garzul]

Excuse en français sa donne en faite j'ai compris Merci de l'avoir mis dans autre message car c'est ou sa devez aller ^^

[Le Soldat Inconnu]

[garzul]

Je te verais bien moderateur de forum ( tu le fais superbement bien )

[garzul]

Pourquoi sa marche pas ?

Code : Tout sélectionner

    StartDrawing(ScreenOutput())
  
    Restore Terrain1
    Read Boxx
    
    If  Boxx = 1
      
      Box(Boxx , 0 , 10 , 10 , RGB($76,$73,$BB))
  
    EndIf
    StopDrawing()

DataSection

Terrain1 : 
Data.f 0 , 0 , 1 , 1 , 1 , 1 , 1 , 1

EndDataSection

Je suis coincer par sa et rie,n a faire sa m'affiche pas la boite quez je veux

[Anonyme2]

Soit Boxx doit être un flottant car tes datas sont des flottants soit les datas doivent être de type long ce qui est plus normal car Box() accepte des long comme paramètres

Essaye déjà de mettre Data.l à la place de Data.f


Tu doit absolument utiliser StartDrawing avec un if au cas ou la fonction échourait

[garzul]

Re bonjour Voila j'ai (enfin) réussi a faire ce que je voulais mais il y a un autre probleme car quand je compile et que le programme tourne il y a un moment ou la procedure ( pour mon terrain et appeler ) et donc affiche box(...) mais au debut sa va puis apres il y a des interruption de la commande comme si on avait couper la ligne et apres sa reprend ( je saisp as si c'est clair mais bon ) regardez

Code : Tout sélectionner

  Procedure Jeux()
    
    ;Création des terrain avec les datas :)
    StartDrawing(ScreenOutput())
  
    Restore Terrain1
    
    For ligne = 0 To 600
      For colonne = 0 To 1
          Read sprite
          If sprite:Box(102 + ligne , 150 + colonne , 10 , 10 , RGB($A0,$E2,$DF)):EndIf
        Next
      Next
      
    StopDrawing()
  
  EndProcedure

Puis les data que la comande box(...) utilise

Code : Tout sélectionner

DataSection

Terrain1 : 
Data.f 0 , 1 , 2 , 3 , 4 , 5 , 6
EndDataSection

[Anonyme2]

Tu peux me dire combien de fois Read sprite va être appelé et combien tu as de datas correspondantes ?

[garzul]

Heu normalement read sprite et appeler en boucle et les datas bah yen a 5 ?

[Chris]

Heu normalement read sprite et appeler en boucle et les datas bah yen a 5 ?

Sacré Garzul

1200 appels de datas, et seulement 7 datas!

Tu constates pas comme un léger déséquilibre, là ?

[Anonyme2]

Sacré Garzul

[garzul]

C'est sur que sa aller moin bien marcher Merci les gars ^^