Math

Commande de compilation

Dans le menu Project - References de Visual Basic, il faut importer les déclarations des modules Up ! Kernel et Up ! Mathematical en cochant les cases correspondantes.

Commande d'enregistrement des ActiveX

upsvtm Com=Charger

Commande d'exécution

math.exe

Fichier source


Dim MUpsKrn As IUpsKrn

Dim MUpsMat As IUpsMat



Private Sub EcrireEcran(ByVal Libelle As String)

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

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

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

On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")

Set MUpsMat = CreateObject("UpsApp.UpsMat")



EcrireEcran "Abs(-10)="

EcrireEcran Str$(MUpsMat.Abs(-10))

EcrireEcran "Abs(10.2)="

EcrireEcran Str$(MUpsMat.Abs2(10.2))

EcrireEcran "ACos(0.0)="

EcrireEcran Str$(MUpsMat.ACos(0#))

EcrireEcran "ASin(0.0)="

EcrireEcran Str$(MUpsMat.ASin(0#))

EcrireEcran "ATan(0.0)="

EcrireEcran Str$(MUpsMat.ATan(0#))

EcrireEcran "Cos(0.0)="

EcrireEcran Str$(MUpsMat.Cos(0#))

EcrireEcran "Sin(0.0)="

EcrireEcran Str$(MUpsMat.Sin(0#))

EcrireEcran "Tan(0.0)="

EcrireEcran Str$(MUpsMat.Tan(0#))

EcrireEcran "ACosH(1.0)="

EcrireEcran Str$(MUpsMat.ACosH(1#))

EcrireEcran "ASinH(1.0)="

EcrireEcran Str$(MUpsMat.ASinH(1#))

EcrireEcran "ATanH(10.0)="

EcrireEcran Str$(MUpsMat.ATanH(10#))

EcrireEcran "CosH(0.0)="

EcrireEcran Str$(MUpsMat.CosH(0#))

EcrireEcran "SinH(0.0)="

EcrireEcran Str$(MUpsMat.SinH(0#))

EcrireEcran "TanH(0.0)="

EcrireEcran Str$(MUpsMat.TanH(0#))

EcrireEcran "Exp(1.0)="

EcrireEcran Str$(MUpsMat.Exp(1#))

EcrireEcran "Log(10.0)="

EcrireEcran Str$(MUpsMat.Log(10#))

EcrireEcran "Log10(10.0)="

EcrireEcran Str$(MUpsMat.Log10(10#))

EcrireEcran "Racine(4.0)="

EcrireEcran Str$(MUpsMat.Racine2(4#))



Set MUpsMat = 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