Box(a,b,c,d,couleur) [Résolu]
Publié : mar. 18/juin/2013 15:58
Je repasse dans la section debutant avec un code simple mais qui ne marche pas sur ma machine.
J'essaye d'afficher un simple carré mais ca ne marche pas !!!
Serais je fatigué apres avoir codé tout un jeu
Ce code fonctionne t''il chez vous ? :
J'essaye d'afficher un simple carré mais ca ne marche pas !!!
Serais je fatigué apres avoir codé tout un jeu
Ce code fonctionne t''il chez vous ? :
Code : Tout sélectionner
If InitSprite() And InitMouse() And InitKeyboard() And InitSound()
Else
MessageRequester("Erreur", "InitSprite() And InitMouse() And InitKeyboard() And InitSound() : impossible")
End
EndIf
If ExamineDesktops()
scr_w = DesktopWidth(0)
scr_h = DesktopHeight(0)
; scr_w = 1024
; scr_h = 768
OpenScreen(scr_w,scr_h,32,"")
Else
MessageRequester("Erreur", "OpenScreen impossible")
End
EndIf
;*********************************************************************************
Repeat
ClearScreen(0)
ExamineMouse()
mx=MouseX()
my=MouseY()
Mb_Left=MouseButton(#PB_MouseButton_Left)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StartDrawing(ScreenOutput())
Box(100,100,200,150,RGB(255,0,0))
StopDrawing()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)