FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Demande pour Jack concernant PanExpress
par Jack Aujourd'hui à 7:48

» Calculatrice
par papydall Hier à 22:54

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Planétarium virtuel.
par Pedro Alvarez Mer 19 Sep 2018 - 9:28

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Jeu de Ping-Pong

Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Jeu de Ping-Pong   Jeu 3 Nov 2016 - 12:32

J'ai implémenté une version de l'ancêtre des jeux vidéo: le Ping-Pong. C'est fait par une fonction de KGF.dll. Voici le programme Panoramic qui l'utilise:
Code:
' test_PingPong.bas

label creer, supprimer, sortir
label halt, continuer, gauche, droite
label key

dim res%

dll_on "KGF.dll"

caption 0,"Jeu de Ping-Pong"
height 0,500
main_menu 1
  sub_menu 2 : parent 2,1 : caption 2,"Jeu"
    sub_menu 3 : parent 3,2 : caption 3,"Créer" : on_click 3,creer
    sub_menu 4 : parent 4,2 : caption 4,"Supprimer" : on_click 4,supprimer
    sub_menu 10 : parent 10,2 : caption 10,"-"
    sub_menu 11 : parent 11,2 : caption 11,"Sortir" : on_click 11,sortir
   
button 21 : top 21,10 : left 21,330 : caption 21,"Pause" : on_click 21,halt : hide 21
button 22 : top 22,40 : left 22,330 : caption 22,"Continuer" : on_click 22,continuer : hide 22
button 23 : top 23,70 : left 23,330 : caption 23,"Pause" : on_click 23,gauche : hide 23
button 24 : top 24,100 : left 24,330 : caption 24,"Continuer" : on_click 24,droite : hide 24

on_key_down 0,key

end

creer:
  show 21 : show 22 : show 23 : show 24
  res% = dll_call6("PingPong",handle(0),1,10,10,300,300)
  return
 
supprimer:
  res% = dll_call6("PingPong",0,0,0,0,0,0)
  hide 21 : hide 22 : hide 23 : hide 24
  return
 
sortir:
  res% = dll_call6("PingPong",0,0,0,0,0,0)
  terminate
 
halt:
  res% = dll_call6("PingPong",0,2,0,0,0,0)
  return
 
continuer:
  res% = dll_call6("PingPong",0,3,0,0,0,0)
  return
 
gauche:
  res% = dll_call6("PingPong",0,4,0,0,0,0)
  return

droite:
  res% = dll_call6("PingPong",0,5,0,0,0,0)
  return

key:
  select scancode
    case 37: gosub gauche
    case 39: gosub droite
  end_select
  return
Noubliez-pas de télécharger la dernière version de KGF.dll (lien dans la signature).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8083
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 3 Nov 2016 - 15:05

Bon exemple d' utilisation.
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Jeu de Ping-Pong
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Ping catastrophique en jeu
» Le ping....
» super ping
» Choisir son ping
» Ping variation etrange ..

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: