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
/******/
Debut Si Pays==PaysFrance Alors Sinon Fin Si
Si PageDeCode==PageWE8Iso8859P1 Alors Sinon Fin Si
Si FuseauHoraire==FuseauBruxellesMadridParis Alors Sinon Fin Si
Si Metrique==MetriqueMetre Alors Sinon Fin Si
Si SousMetrique==SousMetriqueCentimetre Alors Sinon Fin Si
Si SubMetrique==SubMetriqueKilometre Alors Sinon Fin Si
Si Poids==PoidsKilogramme Alors Sinon Fin Si
Si Temperature==TemperatureCelsius Alors Sinon Fin Si
Si Angle==AngleDegre Alors Sinon 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