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
» StratégoV8 et V9
par Minibug Aujourd'hui à 1:10

» Rotation d'une image d'un angle quelconque
par JL35 Hier à 23:02

» GRID_LOAD
par Jean Claude Hier à 21:04

» HVIEWER
par Yannick Hier à 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Jeu de Ping-Pong

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

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

MessageSujet: Jeu de Ping-Pong   Jeu 3 Nov 2016 - 14: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 : 8011
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 3 Nov 2016 - 17:05

Bon exemple d' utilisation.
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Jeu de Ping-Pong
Voir le sujet précédent Voir le sujet suivant 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: