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
» Planétarium virtuel.
par Pedro Alvarez Sam 21 Juil 2018 - 16:57

» Roues dentées
par jean_debord Sam 21 Juil 2018 - 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 decouvrir les fonctions

Aller en bas 
AuteurMessage
silverman

avatar

Nombre de messages : 659
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: