Up ! Natural Language Support

Ce programme présente l'usage d!Up ! Natural Language Support pour prendre en compte la préférence culturelle de l'utilisateur.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/nls.upl.

Mode compilé

Commande de compilation


upscmp Source=nls.upl

Commande d'exécution

nls

Mode interprété


upssng Source=nls.upl

Fichier source


Source Composant "Exemple d'emploi de Up ! Nls" Version 4.0.0;



Principal

/*******/

Variable

/******/

   C : Nul Ou Caractere;



Debut
Si Pays==PaysFrance Alors

   Ecran.Ecrire("Pays==PaysFrance");

Sinon

   Ecran.Ecrire("Pays!=PaysFrance");

Fin Si

Si PageDeCode==PageWE8Iso8859P1 Alors

   Ecran.Ecrire("PageDeCode==PageWE8Iso8859P1");

Sinon

   Ecran.Ecrire("PageDeCode!=PageWE8Iso8859P1");

Fin Si

Si FuseauHoraire==FuseauBruxellesMadridParis Alors

   Ecran.Ecrire("FuseauHoraire==FuseauBruxellesMadridParis");

Sinon

   Ecran.Ecrire("FuseauHoraire!=FuseauBruxellesMadridParis");

Fin Si

Si Metrique==MetriqueMetre Alors

   Ecran.Ecrire("Metrique==MetriqueMetre");

Sinon

   Ecran.Ecrire("Metrique!=MetriqueMetre");

Fin Si

Si SousMetrique==SousMetriqueCentimetre Alors

   Ecran.Ecrire("SousMetrique==MetriqueCentimetre");

Sinon

   Ecran.Ecrire("SousMetrique!=MetriqueCentimetre");

Fin Si

Si SubMetrique==SubMetriqueKilometre Alors

   Ecran.Ecrire("SubMetrique==SubMetriqueKilometre");

Sinon

   Ecran.Ecrire("SubMetrique!=SubMetriqueKilometre");

Fin Si

Si Poids==PoidsKilogramme Alors

   Ecran.Ecrire("Poids==PoidsKilogramme");

Sinon

   Ecran.Ecrire("Poids!=PoidsKilogramme");

Fin Si

Si Temperature==TemperatureCelsius Alors

   Ecran.Ecrire("Temperature==TemperatureCelsius");

Sinon

   Ecran.Ecrire("Temperature!=TemperatureCelsius");

Fin Si

Si Angle==AngleDegre Alors

   Ecran.Ecrire("Angle==AngleDegre");

Sinon

   Ecran.Ecrire("Angle!=AngleDegre");

Fin Si


Ecran.Ecrire("SymboleDecimale="+SymboleDecimale);

Ecran.Ecrire("SymboleVirgule="+SymboleVirgule);

Ecran.Ecrire("SymboleMonetaire="+SymboleMonetaire);

Ecran.Ecrire("SymboleMetrique="+SymboleMetrique);

Ecran.Ecrire("SymboleSousMetrique="+SymboleSousMetrique);

Ecran.Ecrire("SymboleSubMetrique="+SymboleSubMetrique);

Ecran.Ecrire("SymbolePoids="+SymbolePoids);

Ecran.Ecrire("SymboleTemperature="+SymboleTemperature);

Ecran.Ecrire("SymboleAngle="+SymboleAngle);

Ecran.Ecrire("UniteMonetaire="+UniteMonetaire);

Ecran.Ecrire("UniteMetrique="+UniteMetrique);

Ecran.Ecrire("UniteSousMetrique="+UniteSousMetrique);

Ecran.Ecrire("UniteSubMetrique="+UniteSubMetrique);

Ecran.Ecrire("UnitePoids="+UnitePoids);

Ecran.Ecrire("UniteTemperature="+UniteTemperature);

Ecran.Ecrire("UniteAngle="+UniteAngle);



Ecran.Ecrire(Caractere(12345));

Ecran.Ecrire(Caractere(12345.67));

Ecran.Ecrire(Caractere(12345, FiltreMonnaieEntier));

Ecran.Ecrire(Caractere(12345.67, FiltreMonnaieReel));

Ecran.Ecrire(Caractere(DateSysteme()));

Ecran.Ecrire(Caractere(DateSysteme(), FiltreDate));

Ecran.Ecrire(Caractere(DateSysteme(), FiltreHeure));



Ecran.Ecrire("Le cours du Dollar="+Caractere(UnDollar));

Ecran.Ecrire("Le cours de la Livre="+Caractere(UneLivre));

Ecran.Ecrire("Le cours du Yen="+Caractere(CentYens));

Ecran.Ecrire("Le cours de l'Euro="+Caractere(UnEuro));



Ecran.Ecrire("Heure de Paris="+Caractere(ChangerFuseauHoraire(DateSysteme(),FuseauHoraire, 
FuseauBruxellesMadridParis)));

Ecran.Ecrire("Heure de New York="+Caractere(ChangerFuseauHoraire(DateSysteme(),FuseauHoraire, 
FuseauEstAmerique)));

Ecran.Ecrire("1 m en yd="+Caractere(ConvertirMetrique(1.0, 
MetriqueMetre, MetriqueYard)));

Ecran.Ecrire("1 yd en m="+Caractere(ConvertirMetrique(1.0, MetriqueYard, 
MetriqueMetre)));

Ecran.Ecrire("1 cm en ''="+Caractere(ConvertirSousMetrique(1.0, 
SousMetriqueCentimetre, SousMetriquePouce)));

Ecran.Ecrire("1 cm en '="+Caractere(ConvertirSousMetrique(1.0, 
SousMetriqueCentimetre, SousMetriquePied)));

Ecran.Ecrire("1 '' en cm="+Caractere(ConvertirSousMetrique(1.0, 
SousMetriquePouce, SousMetriqueCentimetre)));

Ecran.Ecrire("1 '' en '="+Caractere(ConvertirSousMetrique(1.0, 
SousMetriquePouce, SousMetriquePied)));

Ecran.Ecrire("1 ' en cm="+Caractere(ConvertirSousMetrique(1.0, 
SousMetriquePied, SousMetriqueCentimetre)));

Ecran.Ecrire("1 ' en ''="+Caractere(ConvertirSousMetrique(1.0, 
SousMetriquePied, SousMetriquePouce)));

Ecran.Ecrire("1 km en m terrestre="+Caractere(ConvertirSubMetrique(1.0, 
SubMetriqueKilometre, SubMetriqueMilleTerrestre)));

Ecran.Ecrire("1 km en m marin="+Caractere(ConvertirSubMetrique(1.0, 
SubMetriqueKilometre, SubMetriqueMilleMarin)));

Ecran.Ecrire("1 m terrestre en km="+Caractere(ConvertirSubMetrique(1.0, 
SubMetriqueMilleTerrestre, SubMetriqueKilometre)));

Ecran.Ecrire("1 m terrestre en m marin="+Caractere(ConvertirSubMetrique(1.0, 
SubMetriqueMilleTerrestre, SubMetriqueMilleMarin)));

Ecran.Ecrire("1 m marin en km="+Caractere(ConvertirSubMetrique(1.0, 
SubMetriqueMilleMarin, SubMetriqueKilometre)));

Ecran.Ecrire("1 m marin en m terrestre="+ 
Caractere(ConvertirSubMetrique(1.0, SubMetriqueMilleMarin, 
SubMetriqueMilleTerrestre)));

Ecran.Ecrire("1 kg en lb="+Caractere(ConvertirPoids(1.0, 
PoidsKilogramme, PoidsLivre)));

Ecran.Ecrire("1 kg en oz="+Caractere(ConvertirPoids(1.0, 
PoidsKilogramme, PoidsOnce)));

Ecran.Ecrire("1 lb en kg="+Caractere(ConvertirPoids(1.0, PoidsLivre, 
PoidsKilogramme)));

Ecran.Ecrire("1 lb en kg="+Caractere(ConvertirPoids(1.0, PoidsLivre, 
PoidsOnce)));

Ecran.Ecrire("1 oz en kg="+Caractere(ConvertirPoids(1.0, PoidsOnce, 
PoidsKilogramme)));

Ecran.Ecrire("1 oz en lb="+Caractere(ConvertirPoids(1.0, PoidsOnce, 
PoidsLivre)));

Ecran.Ecrire("0 °K en °C="+Caractere(ConvertirTemperature(0.0, 
TemperatureKelvin, TemperatureCelsius)));

Ecran.Ecrire("0 °K en °F="+Caractere(ConvertirTemperature(0.0, 
TemperatureKelvin, TemperatureFahrenheit)));

Ecran.Ecrire("0 °C en °K="+Caractere(ConvertirTemperature(0.0, 
TemperatureCelsius, TemperatureKelvin)));

Ecran.Ecrire("0 °C en °F="+Caractere(ConvertirTemperature(0.0, 
TemperatureCelsius, TemperatureFahrenheit)));

Ecran.Ecrire("0 °F en °K="+Caractere(ConvertirTemperature(0.0, 
TemperatureFahrenheit, TemperatureKelvin)));

Ecran.Ecrire("0 °F en °C="+Caractere(ConvertirTemperature(0.0, 
TemperatureFahrenheit, TemperatureCelsius)));

Ecran.Ecrire("Pi rad en °="+Caractere(ConvertirAngle(3.1416, 
AngleRadian, AngleDegre)));

Ecran.Ecrire("Pi rad en gr="+Caractere(ConvertirAngle(3.1416, 
AngleRadian, AngleGrade)));

Ecran.Ecrire("90 ° en rad="+Caractere(ConvertirAngle(90.0, AngleDegre, 
AngleRadian)));

Ecran.Ecrire("90 ° en gr="+Caractere(ConvertirAngle(90.0, AngleDegre, 
AngleGrade)));

Ecran.Ecrire("100 gr en rad="+Caractere(ConvertirAngle(100.0, 
AngleGrade, AngleRadian)));

Ecran.Ecrire("100 gr en °="+Caractere(ConvertirAngle(100.0, AngleGrade, 
AngleDegre)));

Ecran.Ecrire("1 cm en m="+Caractere(ConvertirSousMetriqueEnMetrique(1.0, 
SousMetriqueCentimetre, MetriqueMetre)));

Ecran.Ecrire("1 '' en m="+Caractere(ConvertirSousMetriqueEnMetrique(1.0, 
SousMetriquePouce, MetriqueMetre)));

Ecran.Ecrire("1 ' en m="+Caractere(ConvertirSousMetriqueEnMetrique(1.0, 
SousMetriquePied, MetriqueMetre)));

Ecran.Ecrire("1 m en cm="+Caractere(ConvertirMetriqueEnSousMetrique(1.0, 
MetriqueMetre, SousMetriqueCentimetre)));

Ecran.Ecrire("1 m en ''="+Caractere(ConvertirMetriqueEnSousMetrique(1.0, 
MetriqueMetre, SousMetriquePouce)));

Ecran.Ecrire("1 m en '="+Caractere(ConvertirMetriqueEnSousMetrique(1.0, 
MetriqueMetre, SousMetriquePied)));

Ecran.Ecrire("1 km en m="+Caractere(ConvertirSubMetriqueEnMetrique(1.0, 
SubMetriqueKilometre, MetriqueMetre)));

Ecran.Ecrire("1 m terrestre en m="+Caractere(ConvertirSubMetriqueEnMetrique(1.0, 
SubMetriqueMilleTerrestre, MetriqueMetre)));

Ecran.Ecrire("1 m marin en m="+Caractere(ConvertirSubMetriqueEnMetrique(1.0, 
SubMetriqueMilleMarin, MetriqueMetre)));

Ecran.Ecrire("1 m en km="+Caractere(ConvertirMetriqueEnSubMetrique(1.0, 
MetriqueMetre, SubMetriqueKilometre)));

Ecran.Ecrire("1 m en m terrestre="+Caractere(ConvertirMetriqueEnSubMetrique(1.0, 
MetriqueMetre, SubMetriqueMilleTerrestre)));

Ecran.Ecrire("1 m en m marin="+Caractere(ConvertirMetriqueEnSubMetrique(1.0, 
MetriqueMetre, SubMetriqueMilleMarin)));

Ecran.Ecrire(Message(Global, "Bonjour"));

Ecran.Ecrire(Traduire(Global, SectionDivers, "MerveilleuxUps"));

Fin Principal

Résultat de l'exécution

Pays==PaysFrance PageDeCode!=PageWE8Iso8859P1 FuseauHoraire==FuseauBruxellesMadridParis Metrique==MetriqueMetre SousMetrique==MetriqueCentimetre SubMetrique==SubMetriqueKilometre Poids==PoidsKilogramme Temperature==TemperatureCelsius Angle==AngleDegre SymboleDecimale=. SymboleVirgule=, SymboleMonetaire=� SymboleMetrique=m SymboleSousMetrique=cm SymboleSubMetrique=Km SymbolePoids=Kg SymboleTemperature=°C SymboleAngle=° UniteMonetaire=Euro UniteMetrique=mètre(s) UniteSousMetrique=centimètre(s) UniteSubMetrique=kilomètre(s) UnitePoids=kilogramme(s) UniteTemperature=degré(s) Celsius UniteAngle=degré(s) 12,345 12,345.6700 12,345 � 12,345.67 $ 25/02/2006 20:02:29 25/02/2006 20:02:29 Le cours du Dollar=5.8364 Le cours de la Livre=9.5580 Le cours du Yen=4.8331 Le cours de l'Euro=6.5000 Heure de Paris=25/02/2006 20:02:29 Heure de New York=25/02/2006 14:02:29 1 m en yd=1.0936 1 yd en m=0.9144 1 cm en ''=0.3944 1 cm en '=0.0328 1 '' en cm=2.5350 1 '' en '=0.0833 1 ' en cm=30.4800 1 ' en ''=12.0000 1 km en m terrestre=0.6213 1 km en m marin=0.5396 1 m terrestre en km=1.6093 1 m terrestre en m marin=0.8683 1 m marin en km=1.8532 1 m marin en m terrestre=1.1515 1 kg en lb=2.2046 1 kg en oz=35.2746 1 lb en kg=0.4535 1 lb en kg=16.0000 1 oz en kg=0.0283 1 oz en lb=0.0625 0 °K en °C=-273.1600 0 °K en °F=523.6880 0 °C en °K=273.1600 0 °C en °F=32.0000 0 °F en °K=255.3822 0 °F en °C=-17.7777 Pi rad en °=180.0004 Pi rad en gr=200.0004 90 ° en rad=1.5707 90 ° en gr=100.0000 100 gr en rad=1.5707 100 gr en °=90.0000 1 cm en m=0.0100 1 '' en m=0.0254 1 ' en m=0.3048 1 m en cm=100.0000 1 m en ''=39.4477 1 m en '=3.2808 1 km en m=1,000.0000 1 m terrestre en m=1,609.3000 1 m marin en m=1,853.2000 1 m en km=0.0010 1 m en m terrestre=0.0006 1 m en m marin=0.0005 Bonjour le monde ! Merveilleux Ups