Nls

Commande de compilation

Dans le menu Project - References de Visual Basic, il faut importer les déclarations des modules Up ! Kernel, Up ! Natural Language Support et Up ! System en cochant les cases correspondantes.
Commande d'enregistrement des ActiveX

upsvtm Com=Charger
Commande d'exécution

type.exe
Fichier source


Const SectionDivers As Integer = 1

Const SectionLibelleMessage As Integer = 2

Const SectionLibelleParametre As Integer = 3

Const SectionLibelleInstruction As Integer = 4

Const SectionAide As Integer = 5

Const SectionLibelleRegle As Integer = 6



Const PaysAllemagne As Integer = 1

Const PaysAngleterre As Integer = 2

Const PaysChine As Integer = 3

Const PaysCoreeSud As Integer = 4

Const PaysDanemark As Integer = 5

Const PaysEspagne As Integer = 6

Const PaysEtatsUnis As Integer = 7

Const PaysFinlande As Integer = 8

Const PaysFrance As Integer = 9

Const PaysGrece As Integer = 10

Const PaysHollande As Integer = 11

Const PaysIsrael As Integer = 12

Const PaysItalie As Integer = 13

Const PaysJapon As Integer = 14

Const PaysNorvege As Integer = 15

Const PaysPologne As Integer = 16

Const PaysPortugal As Integer = 17

Const PaysRussie As Integer = 18

Const PaysSuede As Integer = 19

Const PaysSuisse As Integer = 20



Const PageUs7Ascii As Integer = 1

Const PageWE8Iso8859P1 As Integer = 2

Const PageEE8Iso8859P2 As Integer = 3

Const PageWE8Iso8859P9 As Integer = 4

Const PageNE8Iso8859P10 As Integer = 5

Const PageUs8Pc437 As Integer = 6

Const PageWE8Pc850 As Integer = 7

Const PageUS8Pc852 As Integer = 8

Const PageWE8Pc857 As Integer = 9

Const PageWE8MacRoman8 As Integer = 10

Const PageWE8Windows1 As Integer = 11

Const PageEE8Windows2 As Integer = 12

Const PageWE8Ebcdic297 As Integer = 13

Const PageWE8Ebcdic500 As Integer = 14

Const PageWE8Ebcdic037 As Integer = 15

Const PageWE8Ebcdic260 As Integer = 16



Const FuseauEniwetokKwajalein As Integer = 1

Const FuseauMidwaySamoa As Integer = 2

Const FuseauHawai As Integer = 3

Const FuseauAlaska As Integer = 4

Const FuseauTijuana As Integer = 5

Const FuseauArizona As Integer = 6

Const FuseauRocheuseAmerique As Integer = 7

Const FuseauCentreAmerique As Integer = 8

Const FuseauMexicoTegucigalpa As Integer = 9

Const FuseauSaskatchevan As Integer = 10

Const FuseauBogotaLimaQuito As Integer = 11

Const FuseauEstAmerique As Integer = 12

Const FuseauIndiana As Integer = 13

Const FuseauAtlantique As Integer = 14

Const FuseauCaracasLaPaz As Integer = 15

Const FuseauTerreNeuve As Integer = 16

Const FuseauBresil As Integer = 17

Const FuseauBuenosAiresGeorgeTown As Integer = 18

Const FuseauMilieuAtlantique As Integer = 19

Const FuseauAcoresCapVert As Integer = 20

Const FuseauCasablancaMonrovia As Integer = 21

Const FuseauGreenwich As Integer = 22

Const FuseauAmsterdamBerlinBernRome As Integer = 23

Const FuseauBelgradeBudapestPrague As Integer = 24

Const FuseauBruxellesMadridParis As Integer = 25

Const FuseauSarajevoSofiaVarsovie As Integer = 26

Const FuseauAthenesIstanbulMinsk As Integer = 27

Const FuseauBucarest As Integer = 28

Const FuseauCaire As Integer = 29

Const FuseauPretoria As Integer = 30

Const FuseauHelsinkiRigaTallinn As Integer = 31

Const FuseauIsrael As Integer = 32

Const FuseauBagdhadKoweitRiyadh As Integer = 33

Const FuseauMoscouStPetersbourg As Integer = 34

Const FuseauNairobi As Integer = 35

Const FuseauTeheran As Integer = 36

Const FuseauAbuDhabiMuscat As Integer = 37

Const FuseauBakouTbilisi As Integer = 38

Const FuseauKabul As Integer = 39

Const FuseauEkaterinburg As Integer = 40

Const FuseauIsmalabadKarachiTaschkent As Integer = 41

Const FuseauBombayCalcuttaNewDelhi As Integer = 42

Const FuseauAlmatyDhaka As Integer = 43

Const FuseauColombo As Integer = 44

Const FuseauBangkokHanoiJakarta As Integer = 45

Const FuseauPekinHongKongUrumqi As Integer = 46

Const FuseauPerth As Integer = 47

Const FuseauSingapour As Integer = 48

Const FuseauCeylan As Integer = 49

Const FuseauOsakaSapporoTokyo As Integer = 50

Const FuseauSeoul As Integer = 51

Const FuseauYakutsk As Integer = 52

Const FuseauAdelaide As Integer = 53

Const FuseauDarwin As Integer = 54

Const FuseauBrisbane As Integer = 55

Const FuseauCanberraMelbourneSydney As Integer = 56

Const FuseauGuamPortMoresby As Integer = 57

Const FuseauHobart As Integer = 58

Const FuseauVladivostok As Integer = 59

Const FuseauMagadanSalomonNouvelleCaledonie As Integer = 60

Const FuseauAucklandWellington As Integer = 61

Const FuseauFijiKamchatkaMarshall As Integer = 62



Const MetriqueMetre As Integer = 1

Const MetriqueYard As Integer = 2



Const SousMetriqueCentiMetre As Integer = 1

Const SousMetriquePouce As Integer = 2

Const SousMetriquePied As Integer = 3



Const SubMetriqueKiloMetre As Integer = 1

Const SubMetriqueMilleTerrestre As Integer = 2

Const SubMetriqueMilleMarin As Integer = 3



Const PoidsKiloGramme As Integer = 1

Const PoidsLivre As Integer = 2

Const PoidsOnce As Integer = 3



Const TemperatureKelvin As Integer = 1

Const TemperatureCelsius As Integer = 2

Const TemperatureFahrenheit As Integer = 3



Const AngleRadian As Integer = 1

Const AngleDegres As Integer = 2

Const AngleGrade As Integer = 3



Dim MUpsKrn As IUpsKrn

Dim MUpsNls As IUpsNls

Dim MUpsSys As IUpsSys

Private Sub EcrireEcran(ByVal Libelle As String)

' ==============================================

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

' =====================

Dim C As Object



On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")

Set MUpsNls = CreateObject("UpsApp.UpsNls")

Set MUpsSys = CreateObject("UpsApp.UpsSys")



If MUpsNls.Pays = PaysFrance Then


	EcrireEcran "Pays==PaysFrance"

Else

	EcrireEcran "Pays!=PaysFrance"

End If

If MUpsSys.PageDeCode = PageWE8Iso8859P1 Then

	EcrireEcran "PageDeCode==PageWE8Iso8859P1"

Else

	EcrireEcran "PageDeCode!=PageWE8Iso8859P1"

End If

If MUpsNls.FuseauHoraire = FuseauBruxellesMadridParis Then

	EcrireEcran "FuseauHoraire==FuseauBruxellesMadridParis"

Else

	EcrireEcran "FuseauHoraire!=FuseauBruxellesMadridParis"

End If

If MUpsNls.Metrique = MetriqueMetre Then

	EcrireEcran "Metrique==MetriqueMetre"

Else

	EcrireEcran "Metrique!=MetriqueMetre"

End If

If MUpsNls.SousMetrique = SousMetriqueCentiMetre Then

	EcrireEcran "SousMetrique==MetriqueCentiMetre"

Else

	EcrireEcran "SousMetrique!=MetriqueCentiMetre"

End If

If MUpsNls.SubMetrique = SubMetriqueKiloMetre Then

	EcrireEcran "SubMetrique==SubMetriqueKiloMetre"

Else

	EcrireEcran "SubMetrique!=SubMetriqueKiloMetre"

End If

If MUpsNls.Poids = PoidsKiloGramme Then

	EcrireEcran "Poids==PoidsKiloGramme"

Else

	EcrireEcran "Poids!=PoidsKiloGramme"

End If

If MUpsNls.Temperature = TemperatureCelsius Then

	EcrireEcran "Temperature==TemperatureCelsius"

Else

	EcrireEcran "Temperature!=TemperatureCelsius"

End If

If MUpsNls.Angle = AngleDegres Then

	EcrireEcran "Angle==AngleDegres"

Else

	EcrireEcran "Angle!=AngleDegres"

End If



EcrireEcran "SymboleDecimale=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleDecimale)

EcrireEcran "SymboleVirgule=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleVirgule)

EcrireEcran "SymboleMonetaire=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleMonetaire)

EcrireEcran "SymboleMetrique=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleMetrique)

EcrireEcran "SymboleSousMetrique=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleSousMetrique)

EcrireEcran "SymboleSubMetrique=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleSubMetrique())

EcrireEcran "SymbolePoids=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymbolePoids)

EcrireEcran "SymboleTemperature=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleTemperature)

EcrireEcran "SymboleAngle=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.SymboleAngle)

EcrireEcran "UniteMonetaire=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UniteMonetaire)

EcrireEcran "UniteMetrique=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UniteMetrique)

EcrireEcran "UniteSousMetrique=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UniteSousMetrique)

EcrireEcran "UniteSubMetrique=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UniteSubMetrique)

EcrireEcran "UnitePoids=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UnitePoids)

EcrireEcran "UniteTemperature=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UniteTemperature)

EcrireEcran "UniteAngle=" + 
MUpsKrn.Caractere2DComBStr(MUpsNls.UniteAngle)



EcrireEcran 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere5(MUpsKrn.DComLong2Entier(12345)))

EcrireEcran 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(12345.67)))

EcrireEcran 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere6(MUpsKrn.DComLong2Entier(12345), 
MUpsNls.FiltreMonnaieEntier))

EcrireEcran 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere9(MUpsKrn.DComDouble2Reel(12345.67), 
MUpsNls.FiltreMonnaieReel))

EcrireEcran MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere3(MUpsSys.DateSysteme))

EcrireEcran MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere4(MUpsSys.DateSysteme, 
MUpsNls.FiltreDate))

EcrireEcran MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere4(MUpsSys.DateSysteme, 
MUpsNls.FiltreHeure))



EcrireEcran "Le cours du Dollar=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.UnDollar)))

EcrireEcran "Le cours de la Livre=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.UneLivre)))

EcrireEcran "Le cours du Yen=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.CentYens)))

EcrireEcran "Le cours de l'Euro=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.UnEuro)))



EcrireEcran "Heure de Paris=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere3(MUpsNls.ChangerFuseauHoraire(MUpsSys.DateSysteme, 
MUpsNls.FuseauHoraire, _

	FuseauBruxellesMadridParis)))

EcrireEcran "Heure de New York=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere3(MUpsNls.ChangerFuseauHoraire(MUpsSys.DateSysteme, 
MUpsNls.FuseauHoraire, _

	FuseauEstAmerique)))

EcrireEcran "1 m en yd=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetrique(1#, 
MetriqueMetre, MetriqueYard))))

EcrireEcran "1 yd en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetrique(1#, 
MetriqueYard, MetriqueMetre))))

EcrireEcran "1 cm en ''=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetrique(1#, 
SousMetriqueCentiMetre, SousMetriquePouce))))

EcrireEcran "1 cm en '=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetrique(1#, 
SousMetriqueCentiMetre, SousMetriquePied))))

EcrireEcran "1 '' en cm=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetrique(1#, 
SousMetriquePouce, SousMetriqueCentiMetre))))

EcrireEcran "1 '' en '=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetrique(1#, 
SousMetriquePouce, SousMetriquePied))))

EcrireEcran "1 ' en cm=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetrique(1#, 
SousMetriquePied, SousMetriqueCentiMetre))))

EcrireEcran "1 ' en ''=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetrique(1#, 
SousMetriquePied, SousMetriquePouce))))

EcrireEcran "1 km en m terrestre=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetrique(1#, 
SubMetriqueKiloMetre, SubMetriqueMilleTerrestre))))

EcrireEcran "1 km en m marin=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetrique(1#, 
SubMetriqueKiloMetre, SubMetriqueMilleMarin))))

EcrireEcran "1 m terrestre en km=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetrique(1#, 
SubMetriqueMilleTerrestre, SubMetriqueKiloMetre))))

EcrireEcran "1 m terrestre en m marin=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetrique(1#, 
SubMetriqueMilleTerrestre, SubMetriqueMilleMarin))))

EcrireEcran "1 m marin en km=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetrique(1#, 
SubMetriqueMilleMarin, SubMetriqueKiloMetre))))

EcrireEcran "1 m marin en m terrestre=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetrique(1#, 
SubMetriqueMilleMarin, SubMetriqueMilleTerrestre))))

EcrireEcran "1 kg en lb=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirPoids(1#, 
PoidsKiloGramme, PoidsLivre))))

EcrireEcran "1 kg en oz=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirPoids(1#, 
PoidsKiloGramme, PoidsOnce))))

EcrireEcran "1 lb en kg=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirPoids(1#, 
PoidsLivre, PoidsKiloGramme))))

EcrireEcran "1 lb en kg=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirPoids(1#, 
PoidsLivre, PoidsOnce))))

EcrireEcran "1 oz en kg=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirPoids(1#, 
PoidsOnce, PoidsKiloGramme))))

EcrireEcran "1 oz en lb=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirPoids(1#, 
PoidsOnce, PoidsLivre))))

EcrireEcran "0 °K en °C=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirTemperature(0#, 
TemperatureKelvin, TemperatureCelsius))))

EcrireEcran "0 °K en °F=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirTemperature(0#, 
TemperatureKelvin, TemperatureFahrenheit))))

EcrireEcran "0 °C en °K=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirTemperature(0#, 
TemperatureCelsius, TemperatureKelvin))))

EcrireEcran "0 °C en °F=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirTemperature(0#, 
TemperatureCelsius, TemperatureFahrenheit))))

EcrireEcran "0 °F en °K=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirTemperature(0#, 
TemperatureFahrenheit, TemperatureKelvin))))

EcrireEcran "0 °F en °C=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirTemperature(0#, 
TemperatureFahrenheit, TemperatureCelsius))))

EcrireEcran "Pi rad en °=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirAngle(3.1416, 
AngleRadian, AngleDegres))))

EcrireEcran "Pi rad en gr=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirAngle(3.1416, 
AngleRadian, AngleGrade))))

EcrireEcran "90 ° en rad=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirAngle(90#, 
AngleDegres, AngleRadian))))

EcrireEcran "90 ° en gr=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirAngle(90#, 
AngleDegres, AngleGrade))))

EcrireEcran "100 gr en rad=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirAngle(100#, 
AngleGrade, AngleRadian))))

EcrireEcran "100 gr en °=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirAngle(100#, 
AngleGrade, AngleDegres))))

EcrireEcran "1 cm en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetriqueEnMetrique(1#, 
SousMetriqueCentiMetre, MetriqueMetre))))

EcrireEcran "1 '' en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetriqueEnMetrique(1#, 
SousMetriquePouce, MetriqueMetre))))

EcrireEcran "1 ' en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSousMetriqueEnMetrique(1#, 
SousMetriquePied, MetriqueMetre))))

EcrireEcran "1 m en cm=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetriqueEnSousMetrique(1#, 
MetriqueMetre, SousMetriqueCentiMetre))))

EcrireEcran "1 m en ''=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetriqueEnSousMetrique(1#, 
MetriqueMetre, SousMetriquePouce))))

EcrireEcran "1 m en '=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetriqueEnSousMetrique(1#, 
MetriqueMetre, SousMetriquePied))))

EcrireEcran "1 km en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetriqueEnMetrique(1#, 
SubMetriqueKiloMetre, MetriqueMetre))))

EcrireEcran "1 m terrestre en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetriqueEnMetrique(1#, 
SubMetriqueMilleTerrestre, MetriqueMetre))))

EcrireEcran "1 m marin en m=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirSubMetriqueEnMetrique(1#, 
SubMetriqueMilleMarin, MetriqueMetre))))

EcrireEcran "1 m en km=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetriqueEnSubMetrique(1#, 
MetriqueMetre, SubMetriqueKiloMetre))))

EcrireEcran "1 m en m terrestre=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetriqueEnSubMetrique(1#, 
MetriqueMetre, SubMetriqueMilleTerrestre))))

EcrireEcran "1 m en m marin=" + 
MUpsKrn.Caractere2DComBStr(MUpsKrn.Caractere8(MUpsKrn.DComDouble2Reel(MUpsNls.ConvertirMetriqueEnSubMetrique(1#, 
MetriqueMetre, SubMetriqueMilleMarin))))



EcrireEcran MUpsKrn.Caractere2DComBStr(MUpsNls.Message(MUpsKrn.UpsKrn, 
MUpsKrn.DComBStr2Caractere("Bonjour"), MUpsKrn.ObjetNul, 
MUpsKrn.ObjetNul, MUpsKrn.ObjetNul, MUpsKrn.ObjetNul, MUpsKrn.ObjetNul))

EcrireEcran MUpsKrn.Caractere2DComBStr(MUpsNls.Traduire(MUpsKrn.UpsKrn, 
SectionDivers, MUpsKrn.DComBStr2Caractere("MerveilleuxUps")))



Set C = Nothing

Set MUpsSys = Nothing

Set MUpsNls = Nothing

Set MUpsKrn = Nothing

Exit Sub



GestionErreur:

'=============

EcrireEcran Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le 
	source '" + Err.Source + "' :"

EcrireEcran Err.Description

End Sub