Up ! Natural Language Support

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=nls.upl

Revenir en haut de la page...

nls

Revenir en haut de la page...

Source Composant "Exemple d'emploi de Up ! Nls" Version 1.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==AngleDegres 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, AngleDegres)));
Ecran.Ecrire("Pi rad en gr="+Caractere(ConvertirAngle(3.1416, AngleRadian, AngleGrade)));
Ecran.Ecrire("90 ° en rad="+Caractere(ConvertirAngle(90.0, AngleDegres, AngleRadian)));
Ecran.Ecrire("90 ° en gr="+Caractere(ConvertirAngle(90.0, AngleDegres, AngleGrade)));
Ecran.Ecrire("100 gr en rad="+Caractere(ConvertirAngle(100.0, AngleGrade, AngleRadian)));
Ecran.Ecrire("100 gr en °="+Caractere(ConvertirAngle(100.0, AngleGrade, AngleDegres)));
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

Revenir en haut de la page...