Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
»  Simuler l’appui d'une touche ou combinaison de touches
Sam 16 Sep - 13:58 par Admin

» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Bienvenue.bas

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

Re: Bienvenue.bas

Message par Admin le Mer 9 Sep - 1:04

Code:

' ******************************************************************************
'                 Bienvenue.bas
'                 Par Papydall
' ******************************************************************************
Demarrer()
end
' ******************************************************************************
SUB Demarrer()
    init()
    debut()
    suite()
END
' ******************************************************************************
SUB Init()
    FULL_SPACE 0 : CAPTION 0,"Bienvenue dans PANORAMIC"
    SCENE3D 1 : COLOR 1, 0,0,0 : 3D_TEXT 1,"PAPYDALL TE SOUHAITE LA BIENVENUE "
    FULL_SPACE 1 : 3D_COLOR 1,0,0,255 : 3D_POSITION 1,-7,-.5,1
END_SUB
' ******************************************************************************
SUB debut()
    dim_local i
    FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 1,i : WAIT 10 : NEXT i
    FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 1,i,i,i : WAIT 10 : NEXT i
    3D_TEXT 2,"NOUVEAU VISITEUR" : 3D_COLOR 2,255,0,0
    3D_POSITION 2,-3.5,-.5,1
    FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 2,i : WAIT 10 : NEXT i
    FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 2,i,i,i : WAIT 10 : NEXT i

END_SUB
' ******************************************************************************
SUB suite()
    dim_local i
    3D_TEXT 3,"BONNE PROGRAMMATION EN PANORAMIC" : 3D_COLOR 3,0,255,0
    3D_POSITION 3,-1.5,-.5,1
    FOR i = 0 TO 500 STEP 2 : 3D_Y_ROTATE 3,i : 3D_Z_ROTATE 3,i : WAIT 30 : NEXT i
    FOR i = 1 TO .01 STEP -.005 : 3D_SCALE 3,i,i,i : WAIT 30 : NEXT i
    3D_POSITION 3,-5,.5,1 : 3D_COLOR 3,255,255,0
    FOR i = .01 TO 1 STEP .005 : 3D_SCALE 3,i/2,i/2,i/2 : WAIT 30 : NEXT i
END_SUB
' ******************************************************************************
Fichiers joints
Bienvenue.zip Le zip contient le .BAS et le .EXEVous n'avez pas la permission de télécharger les fichiers joints.(889 Ko) Téléchargé 2 fois

_________________
Invité, merci d'être passé par ici.
avatar
Admin
Admin

Messages : 68
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum