Entier

Commande de compilation

Dans le menu Project - References de Visual Basic, il faut importer les déclarations du module Up ! Kernel en cochant la case correspondante.
Commande d'enregistrement des ActiveX

upsvtm Com=Charger
Commande d'exécution

entier.exe
Fichier source


Dim MUpsKrn As IUpsKrn



Private Sub EcrireEcran(ByVal Libelle As String)

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

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

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

Dim A As IUpsKrnEntier

Dim B As Integer



On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")



Set A = MUpsKrn.ComInt2Entier(1)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = 1

EcrireEcran Str$(B)

Set A = A.Additionner(MUpsKrn.ComInt2Entier(1))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B + 1

EcrireEcran Str$(B)



Set A = A.Soustraire2(MUpsKrn.ComInt2Entier(10))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B - 10

EcrireEcran Str$(B)



Set A = A.Multiplier(MUpsKrn.ComInt2Entier(10))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B * 10

EcrireEcran Str$(B)



Set A = A.DiviserEntier(MUpsKrn.ComInt2Entier(5))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B / 5

EcrireEcran Str$(B)



Set A = A.Moduler(MUpsKrn.ComInt2Entier(3))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B Mod 3

EcrireEcran Str$(B)



Set A = A.Puissance(MUpsKrn.ComInt2Entier(3))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B ^ 3

EcrireEcran Str$(B)



Set A = A.EtBit(MUpsKrn.ComInt2Entier(255))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B And 255

EcrireEcran Str$(B)



Set A = A.OuBit(MUpsKrn.ComInt2Entier(256))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B Or 256

EcrireEcran Str$(B)



Set A = A.SuperieurSuperieur(MUpsKrn.ComInt2Entier(4))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = Int(B / (2 ^ 4))

EcrireEcran Str$(B)



Set A = A.InferieurInferieur(MUpsKrn.ComInt2Entier(2))

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B * (2 ^ 2)

EcrireEcran Str$(B)



Set A = MUpsKrn.ComInt2Entier(1)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = 1

EcrireEcran Str$(B)



A.AdditionnerAffecter MUpsKrn.ComInt2Entier(1)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B + 1

EcrireEcran Str$(B)



A.SoustraireAffecter MUpsKrn.ComInt2Entier(10)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B - 10

EcrireEcran Str$(B)



A.MultiplierAffecter MUpsKrn.ComInt2Entier(10)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B * 10

EcrireEcran Str$(B)



A.DiviserEntierAffecter MUpsKrn.ComInt2Entier(5)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B / 5

EcrireEcran Str$(B)



A.ModulerAffecter MUpsKrn.ComInt2Entier(3)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B Mod 3

EcrireEcran Str$(B)



A.PuissanceAffecter MUpsKrn.ComInt2Entier(3)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B ^ 3

EcrireEcran Str$(B)



A.EtBitAffecter MUpsKrn.ComInt2Entier(255)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B And 255

EcrireEcran Str$(B)



A.OuBitAffecter MUpsKrn.ComInt2Entier(256)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B Or 256

EcrireEcran Str$(B)



A.SuperieurSuperieurAffecter MUpsKrn.ComInt2Entier(4)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = Int(B / (2 ^ 4))

EcrireEcran Str$(B)



A.InferieurInferieurAffecter MUpsKrn.ComInt2Entier(2)

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B * (2 ^ 2)

EcrireEcran Str$(B)



A.Incrementer False

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B + 1

EcrireEcran Str$(B)



A.Decrementer False

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B - 1

EcrireEcran Str$(B)



A.Incrementer True

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B + 1

EcrireEcran Str$(B)



A.Decrementer True

EcrireEcran MUpsKrn.Entier2ComInt(A)

B = B - 1

EcrireEcran Str$(B)



If MUpsKrn.Booleen2ComVariantBool(A.Egal(MUpsKrn.ComInt2Entier(1))) Then

	EcrireEcran "A==1"

End If

If MUpsKrn.Booleen2ComVariantBool(A.Different(MUpsKrn.ComInt2Entier(1))) 
	Then

	EcrireEcran "A!=1"

End If

If MUpsKrn.Booleen2ComVariantBool(A.InferieurOuEgal(MUpsKrn.ComInt2Entier(1))) 
	Then

	EcrireEcran "A<=1"

End If

If MUpsKrn.Booleen2ComVariantBool(A.SuperieurOuEgal(MUpsKrn.ComInt2Entier(1))) 
	Then

	EcrireEcran "A>=1"

End If

If MUpsKrn.Booleen2ComVariantBool(A.Inferieur(MUpsKrn.ComInt2Entier(1))) 
	Then

	EcrireEcran "A<1"

End If

If MUpsKrn.Booleen2ComVariantBool(A.Superieur(MUpsKrn.ComInt2Entier(1))) 
	Then

	EcrireEcran "A>1"

End If



If B = 1 Then

	EcrireEcran "B==1"

End If

If B <> 1 Then

	EcrireEcran "B!=1"

End If

If B < = 1 Then

	EcrireEcran "B<=1"

End If

If B > = 1 Then

	EcrireEcran "B>=1"

End If

If B < 1 Then

	EcrireEcran "B<1"

End If

If B > 1 Then

	EcrireEcran "B>1"

End If



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