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
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 23:33

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 5613
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 : 5865
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 : 5613
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 : 5865
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 : 6018
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 : 5613
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
» 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: