et OUI je nage , je compred rien de rien a purebasic ....
snif snif .........


aide moi
jbernard
Code : Tout sélectionner
;/Constantes Window
Enumeration
#Window_0
EndEnumeration
If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_SystemMenu, "Fenêtre 1",0)
Repeat
Select WaitWindowEvent()
Case #PB_EventCloseWindow : quit = 1
EndSelect
Until quit = 1
End
EndIf
L'éditeur, c'est bien, mais c'est certainement pas le meilleur moyen d'apprendre comment une fenêtre fonctionne. Sinon, autant lire les codes qui sont dans les exemplesjulien a écrit :Il faut que tu génère la boucle des évènement, l'éditeur visuel peut te le faire... pour l'activer il faut cocher la checkBox (case) des préférences du projet depuis le visual
Non, tu peux aussi bien mettre des valeurs, par exemple 0, dans ce cas précis. Par contre, quand tu as plusieurs constantes, c'est plus simple de se souvenir du nom que du numero.jbernard13 a écrit :merci chris
dis moi on est obliger de creer des constantes ?
Enumeration
#Window_0
EndEnumeration
explique les constantes en details
merci
Jbernard
Code : Tout sélectionner
InitSprite()
InitMouse()
InitKeyboard()
OpenScreen(800,600,32,"Dessin")
#Fond=0
#Souris=1
CreateSprite(#Fond,800,600)
CreateSprite(#Souris,16,16)
StartDrawing(SpriteOutput(#Souris))
Circle(1,1,2,RGB(255,255,255))
StopDrawing()
Repeat
DisplaySprite(#Fond,0,0)
DisplayTransparentSprite(#Souris,MouseX(),MouseY())
ExamineMouse()
If MouseButton(1)
StartDrawing(SpriteOutput(#Fond))
If oldx>-1 And oldy>-1
LineXY(oldx,oldy,MouseX(),MouseY(),RGB(255,255,255))
oldx=MouseX() : oldy=MouseY()
Else
oldx=MouseX() : oldy=MouseY()
EndIf
StopDrawing()
Else
oldx=-1 : oldy=-1
EndIf
ExamineKeyboard()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)