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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Faire rebondir une balle

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

avatar

Nombre de messages : 5501
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 - 5: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 : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 11: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 : 5501
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 - 22: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 : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 22: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 : 5920
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Faire rebondir une balle   Ven 5 Fév 2016 - 23: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 : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Faire rebondir une balle   Sam 6 Fév 2016 - 1: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
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Faire rebondir une balle
» code html pour faire rebondir une image
» 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 ?

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