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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 8:06 pm

» Projet de planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 4:46 pm

» Quantité de mémoire utilisée par un exe
par Jack Aujourd'hui à 4:39 pm

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12 am

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018, 2:25 pm

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018, 7:56 pm

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018, 7:14 pm

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018, 8:17 pm

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018, 8:52 pm

» Cadre pour image
par Jean Claude Mar 12 Juin 2018, 4:31 pm

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018, 2:02 pm

» Planétarium gratuit.
par Jean Claude Sam 09 Juin 2018, 6:50 pm

» Comment afficher une image sans fond.
par JL35 Sam 09 Juin 2018, 2:16 pm

» image_width(n) et image_height(n)
par silverman Sam 09 Juin 2018, 11:22 am

» Site sur la programmation sympa
par Jean Claude Jeu 07 Juin 2018, 11:20 am

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
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 03 Nov 2016, 1:32 pm

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 : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 03 Nov 2016, 4:05 pm

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: