Bienvenue !

Sujets variés concernant le développement en PureBasic
Bernie
Messages : 282
Inscription : mar. 22/mars/2016 10:12
Localisation : En France

Re: Bienvenue !

Message par Bernie »

Salut Yogi

c’est ça que tu veux faire :

Code : Tout sélectionner

;--- Initilisation :
EnableExplicit


If InitSprite()=0 Or InitKeyboard()=0 
  MessageRequester("Erreur", "Impossible d'initialiser le jeux  ")
  End
EndIf
;--- Les Constantes :
Enumeration Windows
  #Main_Window
EndEnumeration

Enumeration Game
  #Etoile0
  #Etoile1
  EndEnumeration

;--- Déclaration des procedures:
;--- Procedure pour le dessin des 2 étoiles
Declare CreationEtoiles()
;---;--- Initialisation des paramètres de départ des étoiles
Declare Initialisation()
;--- Deplacement des étoiles
Declare Deplacement()



;--Structure pour les infos des étoiles
Structure NewSprite
  Sprite.i
  PosX.i
  PosY.i
  Vitesse.i
  Id.b
 EndStructure


;--- Gestion des étoiles
;---Nombre d'étoiles
#MaxEtoiles= 99
;---Création d'un tableau pour les étoiles du scrolling
Global Dim etoiles.NewSprite(#MaxEtoiles)

;--- Variables globales diverses

Global gEvent,gWidth=800,gHeight=600,gI

;---Création de la surface du jeu
OpenWindow(#Main_Window,0,0,gWidth,gHeight,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(#Main_Window),0,0,gWidth,gHeight)



;---Affichage des procedures :
CreationEtoiles()
Initialisation()
;---Boucle principale du jeux
Repeat
  Repeat
    gEvent=WindowEvent()
    Select gEvent
      Case #PB_Event_CloseWindow
        End
    EndSelect
  Until gEvent=0
  ;--- Partie 2D
  ClearScreen(RGB(0, 0, 0))
  ;--- Deplacement des étoiles pour le scrolling
  Deplacement()
  
  ExamineKeyboard()
  
        
        
    
      
      
      
      
      
      

  
  FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape)



;--- les procédures :
;---Dessins des 2 étoiles
Procedure CreationEtoiles()
  CreateSprite(#Etoile0,2,2)
  CreateSprite(#Etoile1,2,2)
  ;---Dessin de l'étoile blanche
  StartDrawing(SpriteOutput(#Etoile0))
  Box(0, 0, 2, 2, $FFFFFF)
  StopDrawing()
  ;--Dessin de l'étoile grise
  StartDrawing(SpriteOutput(#Etoile1))
  Box(0, 0, 2, 2, $A9A9A9)
  StopDrawing()
EndProcedure
;--- Initialisation des paramètres de départ des étoiles
Procedure Initialisation()
  For gI = 0 To #MaxEtoiles
    With etoiles(gI)
      \PosY = Random(gHeight)
      \PosX = Random(gWidth,0)
      \Id = Random(1)
      \Vitesse = Random(8,2)
    EndWith
  Next
EndProcedure
;--- Deplacement des étoiles
Procedure Deplacement()
  For gI = 0 To #MaxEtoiles
    With etoiles(gI)
      DisplaySprite(\Id,\PosX,\PosY)
      \PosY + \Vitesse
      If \PosY >= gWidth
        \PosY - gWidth
      EndIf
    EndWith
  Next
EndProcedure
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: Bienvenue !

Message par Zorro »

une chose que devrait faire les Modos
c'est de systematiquement proposer ce liens a tout nouveau membre

http://www.purebasic.fr/french/viewtopic.php?f=1&t=6664

ps: au passage, je vois que G-Rom s'etait accaparé cet index, que j'avais fait (donc encore au nom de "Backup" )

le probleme c'est que Grom n'est plus là ...
Ar-s si tu pouvais t'accaparer le topic, ce serai pas mal ;)
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
yogi
Messages : 90
Inscription : sam. 06/août/2016 15:55
Localisation : dijon
Contact :

Re: Bienvenue !

Message par yogi »

bonjour monsieur zorro

cool ! merci pour ton code que je vais essayer cet après midi!
grand merci. pour info ce sera sous linux avec compression UPX à la suite
il va falloir que je comprenne le code avant, ne pas bêtement recopier sans comprendre

merci

stephane
hop ici grosse tour a moué: pentium G3258 à 3.20ghz + 16go de ram + 650gtx
sinon laptop bout de plastique 2 x centrino 1.8 ghz + 4 go de ram
Le tout sous Deepin OS 64b le bonheur :) et plein de virtualbox :)
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: Bienvenue !

Message par Zorro »

yogi a écrit :bonjour monsieur zorro

cool ! merci pour ton code que je vais essayer cet après midi!
heu j'ai pas donné de code , c'est Bernie ;)
moi j'ai juste mis un lien vers les Tuto Purebasic de ce forum
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
yogi
Messages : 90
Inscription : sam. 06/août/2016 15:55
Localisation : dijon
Contact :

Re: Bienvenue !

Message par yogi »

@zorro hey cool je vais aller voir tout cela une foi que le temps sera plus frais ce soir ! bravo ya rien a la tv donc c'est meilleur de faire cela :) ^^

@bernie: merci pour ton code qui marche très bien sous linux 64b. je vais essayer de comprendre le code:)

très bon début de soirée à tous les deux

yogib33r
hop ici grosse tour a moué: pentium G3258 à 3.20ghz + 16go de ram + 650gtx
sinon laptop bout de plastique 2 x centrino 1.8 ghz + 4 go de ram
Le tout sous Deepin OS 64b le bonheur :) et plein de virtualbox :)
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: Bienvenue !

Message par Zorro »

yogi a écrit :ya rien a la tv donc c'est meilleur de faire cela :) ^^
ha pas d'accords, il y a la serie, "Meurtre au paradis" sur France 2
une serie policiere bien Rafraîchissante qui se passe chez Huitbit ;)
avec un inspecteur anglais, bien cool , j'aime beaucoup cette serie :)
(et accessoirement les deux musiques du generique (debut et fin )

generique du debut : Finley Quaye - Sunday Shining
https://www.youtube.com/watch?v=1-ORJddr0QY

et generique de fin : your wondering now
https://www.youtube.com/watch?v=xEPfSWk0Lsw

j'ai mis ici les versions originales :)

Image
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Bernie
Messages : 282
Inscription : mar. 22/mars/2016 10:12
Localisation : En France

Re: Bienvenue !

Message par Bernie »

yogi a écrit :@zorro hey cool je vais aller voir tout cela une foi que le temps sera plus frais ce soir ! bravo ya rien a la tv donc c'est meilleur de faire cela :) ^^

@bernie: merci pour ton code qui marche très bien sous linux 64b. je vais essayer de comprendre le code:)

très bon début de soirée à tous les deux

yogib33r

le code n'est pas de moi j'ai appris avec Ar/s et falsam
Avatar de l’utilisateur
yogi
Messages : 90
Inscription : sam. 06/août/2016 15:55
Localisation : dijon
Contact :

Re: Bienvenue !

Message par yogi »

@zorro: yes oui cette série est bien sympa mais ces derniers temps je me porte plus vers le gore de série Z comme freekers qui est une pure merveille :)

@bernie: merci tout de même pour l'effet c'est bien sympa

très bonne soirée à tous les deux
hop ici grosse tour a moué: pentium G3258 à 3.20ghz + 16go de ram + 650gtx
sinon laptop bout de plastique 2 x centrino 1.8 ghz + 4 go de ram
Le tout sous Deepin OS 64b le bonheur :) et plein de virtualbox :)
Avatar de l’utilisateur
majikeyric
Messages : 602
Inscription : dim. 08/déc./2013 23:19
Contact :

Re: Bienvenue !

Message par majikeyric »

Salut Yogi!!!!

Tiens tu étais à l'Alchimie l'année dernière, tu y vas cette année ?
Avatar de l’utilisateur
yogi
Messages : 90
Inscription : sam. 06/août/2016 15:55
Localisation : dijon
Contact :

Re: Bienvenue !

Message par yogi »

bonjour toi !
oui j'étais a la chimie avec vital motion et xmen et les autres
je vois plus qui tu es :) dis moi tout :)
a bientôt

stéphane
hop ici grosse tour a moué: pentium G3258 à 3.20ghz + 16go de ram + 650gtx
sinon laptop bout de plastique 2 x centrino 1.8 ghz + 4 go de ram
Le tout sous Deepin OS 64b le bonheur :) et plein de virtualbox :)
Avatar de l’utilisateur
majikeyric
Messages : 602
Inscription : dim. 08/déc./2013 23:19
Contact :

Re: Bienvenue !

Message par majikeyric »

J'y étais mais on ne s'est pas rencontré, j'ai juste reconnu ton pseudo dans la liste des participants. Je suis parti tôt le samedi.
Je suis un afficionados des ordis Commodore (C64,Amiga...etc.) et......... de PureBasic... :)
Normalement j'y vais cette année, je suis déjà inscrit.
Avatar de l’utilisateur
yogi
Messages : 90
Inscription : sam. 06/août/2016 15:55
Localisation : dijon
Contact :

Re: Bienvenue !

Message par yogi »

ok pour ma part je ne vais pas aller a la ù-alchimie, je veux dire cette année
je vais aller à la grosse party l'année prochaine
sinon ya l'evoke ce week end mais trop loin
a l'année prochaine alors ^^
hop ici grosse tour a moué: pentium G3258 à 3.20ghz + 16go de ram + 650gtx
sinon laptop bout de plastique 2 x centrino 1.8 ghz + 4 go de ram
Le tout sous Deepin OS 64b le bonheur :) et plein de virtualbox :)
Répondre