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
» Attention arnaque !
par Pedro Alvarez Hier à 20:03

» Qui fait quoi ?
par silverman Hier à 15:21

» ITEM_SELECT N,L pour synedit
par silverman Hier à 15:20

» Boussole
par jean_debord Hier à 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Planétarium virtuel.
par Pedro Alvarez Dim 15 Juil 2018 - 16:05

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Roues dentées
par jean_debord Mar 10 Juil 2018 - 11:30

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Faire rebondir une balle

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5979
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Faire rebondir une balle   Ven 5 Fév 2016 - 3:02

Code:

rem ============================================================================
rem      Faire rebondir une balle
rem ============================================================================
Init()
Demo()
Fin()
terminate
end

rem ============================================================================
SUB Init()
    dim xPos,yPos,xVit,yVit,r
    xPos = 100 : yPos = 100 : ' Position initiale
    xVit = 2   : yVit = 4   : ' Vitesse initiale à modifier si nécessaire
    r    = 20               : ' rayon de la balle
    picture 10 : full_space 10 : 2d_target_is 10 : 2d_fill_on : print_target_is 10
    font_color 10,255,255,255 : font_size 10,14  : font_bold 10
    caption 0,"Rebondissement de la balle sur les bords du PICTURE"
END_SUB
rem ============================================================================
SUB Demo()
    repeat
    ' Effacer la balle
        2d_fill_color 255,255,255 : 2d_pen_color 255,255,255 : 2d_circle xPos-r,yPos-r,r
    ' Calculer la nouvelle position
        xPos = xPos + xVit : yPos = yPos + yVit
    ' Rebondi sur les murs ?
        If (xPos < r) Or (xPos > Width(10))  then xVit = 0-xVit
        If (yPos < r) Or (yPos > Height(10)) Then yVit = 0-yVit
   ' Actualiser la position
        2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 : 2d_circle xPos-r,yPos-r,r
        Decors() : ' Redessiner le décors
    until scancode = 32
END_SUB
rem ============================================================================
SUB Decors()
    2d_fill_color 255,0,0
    print_locate 20,20 : print " Rebondissement de la balle sans destruction du décors "
    print_locate 150,50 : print " <ESPACE> pour continuer ... "
    2d_fill_color 255,255,000 : 2d_rectangle 200,100,400,300
    2d_fill_color 255,000,000 : 2d_circle  300,200,50
    2d_fill_color 000,000,255 : 2d_circle  300,200,25
    2d_fill_color 255,255,255 : 2d_circle  300,200,10
END_SUB
rem ============================================================================
SUB Fin()
    dim_local i,w,h
    w = width(0) : h = height(0)
    hide 10 : 2d_target_is 0 : print_target_is 0
    color 0,0,0,0 : font_size 0,24 : font_color 0,255,0,0
    repeat
            2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_point rnd(w),rnd(h)
           print_locate 20,200 : print " Demo terminée ! <ESC> pour quitter "
    until scancode = 27
    for i = h to 10 step -10 : height 0,i : pause 50 : next i
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5928
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 9:40

Pas mal mais pour un matheux comme toi, ce qui est drôle ce serait d'ajouter un amortissement lorsque la balle s'oppose à la pesenteur et d'accélération quand elle se déplace vers le bas et éventuellement un facteur d'écrasement de la balle qui l'ovaliserait un peu lors du contact contre l'obstacle avant qu'elle ne rebondisse. Tu ne crois quand même pas que l'on allait t'épargner ... non mais ...

Smile Enfin bon, c'est juste pour t'embêter principalement, je joue un peu mon troll là. A toi de voir si ça te tente ou pas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5979
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 20:04

Très bonne idée.
Vas-y , la balle est dans ton camp ! Basketball
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5928
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 20:23

Tu sais moi et les maths ... C'est trop loin tout ça ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6302
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 21:44

C'est pas des maths, c'est juste pour jouer à la baballe !
Allez Jicehel, renvoie-lui la balle à papyball... euh, pardon, papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5979
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 23:33

Bien ! Je suis prêt  pour rattraper cette baballe si elle est renvoyée avec la bonne vitesse et le bon angle.
Et pour t’aider, je te donne une information qui te sera nécessaire dans tes calculs : ne vise pas trop haut car je ne fais qu’un mètre soixante-huit avec un peu (plutôt beaucoup) d’embonpoint.
Voilà, un Panoramicien averti en vaut deux !

Je ressemble comme deux gouttes d'eau à ça !:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Faire rebondir une balle   

Revenir en haut Aller en bas
 
Faire rebondir une balle
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Faire rebondir une balle
» faire rebondir un bouton au clic [résolu]
» Affiches comment être et faire pour apprendre
» faire une copie du fichier de la license de SZ ?
» Impossible de faire une M.A.J avec Avira [Résolu]

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