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
» EPP_V01 éditeur pour Panoramic
par Minibug Hier à 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Hier à 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Hier à 15:58

» Planétarium virtuel.
par Pedro Alvarez Hier à 9:28

» Demande pour Jack concernant PanExpress
par Marc Mar 18 Sep 2018 - 23:56

» Calculatrice
par joeeee2017 Mar 18 Sep 2018 - 9:35

» 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

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 | 
 

 decouvrir les fonctions

Aller en bas 
AuteurMessage
silverman

avatar

Nombre de messages : 675
Age : 46
Localisation : Picardie
Date d'inscription : 18/03/2015

MessageSujet: decouvrir les fonctions   Ven 2 Fév 2018 - 14:32

Bonjour à tous

Histoire de bavarder un peu, voici des petits codes pour découvrir l'utilité des fonctions:
l'arrondi:
Code:
' arrondi
dim nombre

nombre=123.456789

print nombre
print ROUND(nombre,2) :' 2 chiffres après la virgule

END
fnc ROUND(nb,i%)
 dim_local tmp%
   if i%>17 then i%=17
   tmp%=power(10,i%)
   result int(nb*tmp%)/tmp%
end_fnc

formatage d'un nombre (XX zéro devant); J'ai eu besoin de cela pour effectuer du tri dans un list:
Code:
' formatage (XX zéro devant)
dim nombre

nombre=12.3

print nombre
print FORMAT_NUMBER_FOR_LIST$(nombre,5) :' 5 chiffres avant la virgule

print

nombre=456
print nombre
print FORMAT_NUMBER_FOR_LIST$(nombre,5)

END
fnc FORMAT_NUMBER_FOR_LIST$(nb,i%)
 dim_local siz
 siz=i%-len(str$(int(nb)))
   if siz>0
      result string$(siz,"0")+str$(nb)
   else
      result str$(nb)
   end_if
end_fnc

les 2 fonctions imbriquées:
Code:
dim nombre

nombre=123.456789

print nombre
print FORMAT_NUMBER_FOR_LIST$(ROUND(nombre,2),5) :' 5 chiffres avant la virgule et 2 chiffres après la virgule

END
fnc ROUND(nb,i%)
 dim_local tmp%
   if i%>17 then i%=17
   tmp%=power(10,i%)
   result int(nb*tmp%)/tmp%
end_fnc


fnc FORMAT_NUMBER_FOR_LIST$(nb,i%)
 dim_local siz
 siz=i%-len(str$(int(nb)))
   if siz>0
      result string$(siz,"0")+str$(nb)
   else
      result str$(nb)
   end_if
end_fnc

Plutôt pratique, n'est ce pas ? Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
decouvrir les fonctions
Revenir en haut 
Page 1 sur 1

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