Page 1 sur 1
[v4 beta 10] Bug ... ? Backcolor [Résolu]
Publié : ven. 14/avr./2006 17:23
par jerexgrz
Voici un petit code :
Code : Tout sélectionner
InitSprite()
InitMouse()
InitKeyboard()
OpenScreen(800,600,16,"test")
x.l = MouseX()
y.l = MouseY()
LoadSprite(1,"c:\wizard\icnormal.bmp")
Repeat
ExamineKeyboard()
ExamineMouse()
StartDrawing(ScreenOutput())
;BackColor(RGB(170,150,0))
Box(0,0,800,600,RGB(170,150,0))
StopDrawing()
DisplaySprite(1,MouseX(),MouseY())
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Comme on peut voir, je dessine une boite jaune à la place d'un ecran noir. Si je fais la meme chose avec backcolor, il ne se passe absolument rien ! (quelque soit la couleur par ex: 170 ou du rgb(170,150,0).
Publié : ven. 14/avr./2006 18:09
par Dr. Dri
BackColor change la couleur d'arrière plan des fonctions de dessin.
Code : Tout sélectionner
InitSprite()
InitMouse()
InitKeyboard()
OpenScreen(800,600,16,"test")
Repeat
ExamineKeyboard()
ExamineMouse()
If StartDrawing(ScreenOutput())
BackColor(RGB(170,150,0))
DrawText(100, 100, "fond jaune")
BackColor(RGB(85,125,255))
DrawText(100, 120, "fond pas jaune")
StopDrawing()
EndIf
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Dri
Publié : ven. 14/avr./2006 19:45
par jerexgrz
Ok ! Merci *DRY.
Par contre : ca je suis sur que c'est un bugginous celui la !
Code : Tout sélectionner
...
procedure Dimension ( longueur.l, Largeur.l)
for YY = 1 to (longueur+10)
...
next yy
endprocedure
Si on passe, 15 dans la longueur en appelant la procedure, apparement dans la boucle, cela ne fait rien ! (=0)
le +10 permet de verifier, car quand j'ecris des donnees dans un fichier zz.txt , le +10 me permet d'ecrire les 10 lignes et si je le modifie par 6, du coup, le fichier contient +6 ligne alors que normalement le resultat devrait etre de 25 ( 15 +10) ou 21 (15+6).
Publié : ven. 14/avr./2006 19:53
par jerexgrz
[quote="jerexgrz"]Ok ! Merci *DRY.
Publié : ven. 14/avr./2006 23:31
par Dr. Dri
il faudrait un code plus complet, là avec ça y'a pas de bug
Code : Tout sélectionner
Procedure Dimension ( longueur.l, Largeur.l)
For YY = 1 To longueur
Debug YY
Next YY
Debug "---"
EndProcedure
Dimension(15, 0)
Dimension(6, 0)
Dri
Publié : dim. 16/avr./2006 11:00
par jerexgrz
Oups, le dernier msg n'a pas été effacé !
Non ! il n'y a pas de bug ! Merci encore dry.
J'avais fait une erreur ds la procedure dimension( ...) , au lieu de largeur, j'avais ecrit largueur et dans le code, j'avais ecrit largeur. C pour ca, que ca ne fonctionnait pas du tout !! ( a cause d'un U en trop !)