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 Marc Aujourd'hui à 1:24

» Demande pour Jack concernant PanExpress
par Marc Hier à 23:56

» Calculatrice
par joeeee2017 Hier à 9:35

» EPP_V01 éditeur pour Panoramic
par Jean Claude Hier à 8:51

» Planétarium virtuel.
par Jean Claude Lun 17 Sep 2018 - 18:14

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

» Plantage lors de l'exécution de EXIT_SUB
par Jack Lun 3 Sep 2018 - 18:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Drapeau à taille ajustable

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Drapeau à taille ajustable   Dim 11 Mar 2018 - 0:58

Bonjour à tous !

Rien d’extraordinaire !  Juste pour le plaisir de programmer, j'ai fait un drapeau...

Code:
' ------------------------------------------------------------------------------
'  PANORAMIC Tunisia Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.forumotion.com
' ------------------------------------------------------------------------------
' Tunisia_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
Tunisia_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB Tunisia_Flag(n%,x%,y%,w%)        
    DIM_LOCAL i%,j%,h%,r%,x1%,y1%,p%(10,2)
    DEGREES
    h%=2/3*w%
    r%=w%/3/2
    PICTURE n%
    WIDTH n%,w%
    HEIGHT n%,h%
    COLOR n%,232,0,11
    2D_TARGET_IS n%
    2D_PEN_COLOR 250,250,250
    2D_FILL_COLOR 250,250,250
    2D_CIRCLE w%/2,h%/2,r%
    2D_PEN_COLOR 232,0,11
    2D_FILL_COLOR 232,0,11
    2D_CIRCLE w%/2,h%/2,r%/1.333
    2D_PEN_COLOR 250,250,250
    2D_FILL_COLOR 250,250,250
    x1%=w%/2+(r%/2.2/2)
    y1%=h%/2
    2D_CIRCLE x1%,y1%,r%/1.333/1.333
    2D_PEN_COLOR 232,0,11
    r%=r%/2.62
    FOR i% = 180 to -180 STEP -36
        IF MOD(i%,72)=0
            p%(j%,0)=(COS(i%)*r%/2.62)+x1%
            p%(j%,1)=(SIN(i%)*r%/2.62)+y1%
        ELSE
            p%(j%,0)=(COS(i%)*r%)+x1%
            p%(j%,1)=(SIN(i%)*r%)+y1%
        END_IF
        j%=j%+1
    NEXT i%
    2D_POLY_FROM p%(0,0),p%(0,1)
    FOR j% = 0 to 10
        2D_POLY_TO p%(j%,0),p%(j%,1)
    NEXT j%
    2D_FLOOD x1%,y1%,232,0,11
    LEFT n%,x%
    TOP n%,y%
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Drapeau à taille ajustable   Dim 11 Mar 2018 - 1:25

Sur le même principe, un autre drapeau :

Code:
' ------------------------------------------------------------------------------
'  PANORAMIC French Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.forumotion.com
' ------------------------------------------------------------------------------
' FRENCH_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
French_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB French_Flag(n%,x%,y%,w%)       
    DIM_LOCAL i%,h%
    h%=2/3*w%
    PICTURE n%
    WIDTH n%,w%
    HEIGHT n%,h%
    COLOR n%,255,255,255
    2D_TARGET_IS n%
    2D_PEN_COLOR 0,0,180
    2D_FILL_COLOR 0,0,180
    2D_RECTANGLE 0,0,1/3*w%,h%
    2D_PEN_COLOR 255,0,0
    2D_FILL_COLOR 255,0,0
    2D_RECTANGLE 2/3*w%+1,0,w%,h%
    LEFT n%,x%
    TOP n%,y%
 END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Drapeau à taille ajustable   Dim 11 Mar 2018 - 1:26

Encore un autre...

Code:
' ------------------------------------------------------------------------------
'  PANORAMIC German Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.forumotion.com
' ------------------------------------------------------------------------------
' German_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
German_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB German_Flag(n%,x%,y%,w%)        
    DIM_LOCAL i%,h%
    h%=2/3*w%
    PICTURE n%
    WIDTH n%,w%
    HEIGHT n%,h%
    COLOR n%,0,0,0
    2D_TARGET_IS n%
    2D_PEN_COLOR 250,0,0
    2D_FILL_COLOR 250,0,0
    2D_RECTANGLE 0,1/3*h%+1,w%,h%
    2D_PEN_COLOR 255,204,0
    2D_FILL_COLOR 255,204,0
    2D_RECTANGLE 0,2/3*h%+1,w%,h%
    LEFT n%,x%
    TOP n%,y%
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Drapeau à taille ajustable   Dim 11 Mar 2018 - 1:29

Un dernier...

Code:
' ------------------------------------------------------------------------------
'  PANORAMIC English Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.forumotion.com
' ------------------------------------------------------------------------------
' English_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
English_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB English_Flag(n%,x%,y%,w%)
    DIM_LOCAL i%,h%
    h%=INT(2/3*w%)
    PICTURE n%
    WIDTH n%, w%
    HEIGHT n%,h%
    COLOR n%,0,0,180       
    2D_TARGET_IS n%
    2D_PEN_COLOR 250,250,250
    FOR i%= INT(h%/10*-1) TO INT(h%/10)
        2D_LINE 0,i%,w%,h%+i%
        2D_LINE 0,h%+i%,w%,i%
    NEXT i%
    2D_PEN_COLOR 250,0,1
    FOR i%= INT(h%/45*-1) TO INT(h%/45)
        2D_LINE 0,i%,w%,h%+i%
        2D_LINE 0,h%+i%,w%,i%
    NEXT i%
    2D_PEN_COLOR 250,250,251
    FOR i%= INT(w%/10*-1) TO INT(w%/10)         
        2D_LINE INT(w%/2+i%),0,INT(w%/2+i%),h%
        2D_LINE 0,INT(h%/2+i%),w%,INT(h%/2+i%)
    NEXT i%
    2D_PEN_COLOR 250,0,1
    FOR i%= INT(h%/15*-1) TO INT(h%/15)
        2D_LINE INT(w%/2+i%),0,INT(w%/2+i%),h%
        2D_LINE 0,INT(h%/2+i%),w%,INT(h%/2+i%)
    NEXT i%
    LEFT n%,x%
    TOP n%,y%
END_SUB

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Drapeau à taille ajustable   Dim 11 Mar 2018 - 3:23

Merci Marc.
Ça m’a fait un grand plaisir de voir le drapeau de mon pays la Tunisie.

Comme tu l’as si bien écrit
Marc a écrit:
Rien d’extraordinaire !  Juste pour le plaisir de programmer, …

Voici l’hymne national tunisien

Code:

rem ============================================================================
rem              Hymne National de la Tunisie
rem ============================================================================
dim t$
width 0,900 : height 0,600 : color 0,0,0,0
alpha 10 : top 10,50 : left 10,50  : font_bold 10 : font_name 10,"arial"
 font_size 10,10 : font_color 10,200,100,250
alpha 20 : top 20,50 : left 20,580 : font_bold 20 : font_name 20,"arial"
 font_size 20,10 : font_color 20,250,100,150
t$ = "Hymne National Tunisien" + chr$(13)
t$ = t$ + "Traduction française" + chr$(13) + chr$(13)
t$ = t$ + "Défenseurs de la patrie" + chr$(13)
t$ = t$ + string$(20,"=") + chr$(13)
t$ = t$ + "Ô défenseurs de la Nation, allons à la rencontre de la gloire !" + chr$(13)
t$ = t$ + " Mourons s'il le faut pour que vive la patrie ! " + chr$(13)
t$ = t$ + "Clame le sang qui coule dans nos veines." + chr$(13)
t$ = t$ + "Que n'y vive point quiconque refuse d'être au nombre de ses soldats !" + chr$(13)
t$ = t$ + "Tenus par notre serment de fidélité à son égard," + chr$(13)
t$ = t$ + "Nous vivrons sur son sol dans la dignité" + chr$(13)
t$ = t$ + "Ou nous mourrons, pour elle, dans la grandeur." + chr$(13)
t$ = t$ + "Sois maître de tes destinées, ô mon pays, et sois heureux !" + chr$(13)
t$ = t$ + "Car il n'est point de vie pour celui qui est privé de sa souveraineté." + chr$(13)
t$ = t$ + "Mon sang bouillant est tout ce que je possède de plus cher," + chr$(13)
t$ = t$ + "Je suis prêt à en faire sacrifice pour mon pays et pour mon peuple." + chr$(13)
t$ = t$ + "Gloire à toi, Tunisie ! De la grandeur de ton peuple, demeure à jamais fière !" + chr$(13)
t$ = t$ + "Regarde tes enfants se lancer, tels des lions," + chr$(13)
t$ = t$ + "À l'assaut de l'ennemi le jour du combat" + chr$(13)
t$ = t$ + "Notre héritage, parmi les nations, réside dans la force de nos bras" + chr$(13)
t$ = t$ + "Des bras aussi durs que le roc de ces imposants édifices" + chr$(13)
t$ = t$ + "Et qui portent haut l'étendard du pays." + chr$(13)
t$ = t$ + "Cet étendard qui fait notre fierté et qui est lui-même fier d'être porté par nous." + chr$(13)
t$ = t$ + "des bras qui nous propulsent vers les plus hauts sommets" + chr$(13)
t$ = t$ + "De la gloire et de la grandeur," + chr$(13)
t$ = t$ + "Qui nous garantissent la réalisation de nos voeux," + chr$(13)
t$ = t$ + "Qui font abattre des malheurs sur les ennemis de notre Patrie," + chr$(13)
t$ = t$ + "Mais qui sont pacifiques à l'égard de ceux qui nous veulent la paix." + chr$(13)
t$ = t$ + "Lorsqu'un peuple veut la vie, force est au destin de répondre" + chr$(13)
t$ = t$ + "Aux ténèbres de se dissiper et aux chaînes de se rompre !" + chr$(13)
 
caption 10,t$

t$ = "Ennachid Errasmi lel Joumhouria Ettounissia" + chr$(13) + chr$(13)+chr$(13)
t$ = t$ + "Humat Al-Hima" + chr$(13)
t$ = t$ + string$(20,"=") + chr$(13)
t$ = t$ + "Humat al-hima ya humat al-hima" + chr$(13)
t$ = t$ + "Halommou halommou li-majdi-z-zaman" + chr$(13)
t$ = t$ + "Laqad sarakhat fi 'ourouqina-d-dima" + chr$(13)
t$ = t$ + "Namoutou namoutou wa yahya-l-watan" + chr$(13)
t$ = t$ + "Litadwi-s-samawatou bira'diha" + chr$(13)
t$ = t$ + "Litarmi-s-sawa'iqou niranaha" + chr$(13)
t$ = t$ + "Ila 'izzi Tunis ila majdiha" + chr$(13)
t$ = t$ + "Rijala-l-biladi Wa shobbanaha" + chr$(13)
t$ = t$ + "Fala 'asha fi Tunis man khanaha" + chr$(13)
t$ = t$ + "Wa la 'asha man layssa min jundiha" + chr$(13)
t$ = t$ + "Namoutou wa nahya 'ala 'ahdiha" + chr$(13)
t$ = t$ + "Hayata-l-kirami wa mawta-l-'idham" + chr$(13)
t$ = t$ + "Warithna-s-sawa'ida bayn al-'oumam" + chr$(13)
t$ = t$ + "Soukhouran soukhouran kahadha-l-bina" + chr$(13)
t$ = t$ + "Sawa'idou yahtazzou fawqaha-l-'alam" + chr$(13)
t$ = t$ + "Noubahi bihi wa youbahi bina" + chr$(13)
t$ = t$ + "Wa fiha kafa li-l-'ula wa-l-himam" + chr$(13)
t$ = t$ + "Wa fiha dhamanun linayl-il-mouna" + chr$(13)
t$ = t$ + "Wa fiha li'a'da'i Tunis niqam" + chr$(13)
t$ = t$ + "Wa fiha liman salamouna-s-salam" + chr$(13)
t$ = t$ + "Idha-sh-sha'bou yawman 'arad al-hayat" + chr$(13)
t$ = t$ + "Fala boudda 'an yastajib al-qadar" + chr$(13)
t$ = t$ + "Wala boudda li-l-layli an yanjali" + chr$(13)
t$ = t$ + "Wa la boudda li-l-qaydi an yankassir" + chr$(13)

caption 20,t$
sound 30
file_load 30, "http://www.dinosoria.com/hymnes/hymne_tunisie.mp3"
play_wait 30
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Drapeau à taille ajustable   

Revenir en haut Aller en bas
 
Drapeau à taille ajustable
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Taille en pixels d'une police fixe
» Taille des polices pour Print dans un Picture
» Plus moyen d'avoir la bonne taille d'avatar... :'(
» Taille icone pour le dezl 560
» Modif police et taille d'écriture

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: