PureBasic

Forums PureBasic
Nous sommes le Jeu 18/Oct/2018 6:06

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 132 messages ]  Aller à la page Précédente  1 ... 5, 6, 7, 8, 9
Auteur Message
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 9:44 
Hors ligne

Inscription: Mar 22/Mar/2016 10:12
Messages: 284
Localisation: En France
Salut Yogi

c’est ça que tu veux faire :

Code:
;--- 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


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 10:16 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 1930
une chose que devrait faire les Modos
c'est de systematiquement proposer ce liens a tout nouveau membre

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://stline.ddns.net/STLINE/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 11:55 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 06/Aoû/2016 15:55
Messages: 90
Localisation: dijon
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 :)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 12:32 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 1930
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://stline.ddns.net/STLINE/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 17:12 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 06/Aoû/2016 15:55
Messages: 90
Localisation: dijon
@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 :)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 17:20 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 1930
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://stline.ddns.net/STLINE/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 17:51 
Hors ligne

Inscription: Mar 22/Mar/2016 10:12
Messages: 284
Localisation: En France
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


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Lun 08/Aoû/2016 18:07 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 06/Aoû/2016 15:55
Messages: 90
Localisation: dijon
@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 :)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Jeu 11/Aoû/2016 12:28 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 08/Déc/2013 23:19
Messages: 598
Localisation: Hérault
Salut Yogi!!!!

Tiens tu étais à l'Alchimie l'année dernière, tu y vas cette année ?

_________________
Mon site dédié à ma passion pour la programmation :
http://majikeyric.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Jeu 11/Aoû/2016 15:51 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 06/Aoû/2016 15:55
Messages: 90
Localisation: dijon
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 :)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Jeu 11/Aoû/2016 18:04 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 08/Déc/2013 23:19
Messages: 598
Localisation: Hérault
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.

_________________
Mon site dédié à ma passion pour la programmation :
http://majikeyric.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Bienvenue !
MessagePosté: Jeu 11/Aoû/2016 20:53 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 06/Aoû/2016 15:55
Messages: 90
Localisation: dijon
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 :)


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 132 messages ]  Aller à la page Précédente  1 ... 5, 6, 7, 8, 9

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 4 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye