Objkrn

Commande de compilation

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

Commande d'enregistrement des ActiveX

upsvtm Com=Charger

Commande d'exécution

type.exe

Fichier source


Dim MUpsKrn As Object

Dim MUpsSys As Object



Private Sub EcrireEcran(ByVal Libelle As String)

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

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

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

Dim A As Object

Dim L As Object

Dim Map As Object



On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")

Set MUpsSys = CreateObject("UpsApp.UpsSys")



MUpsSys.Ecran.Ecrire3 MUpsKrn.ComBStr2Caractere("Entrer une ligne :")

Set L = MUpsSys.Clavier.LireUneLigne(A)

MUpsSys.Ecran.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere( 
	de taille ")).Additionner(MUpsKrn.Caractere5(L))

MUpsSys.Journal.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere( 
	de taille ")).Additionner(MUpsKrn.Caractere5(L))

Set Map = MUpsSys.MiseAuPoint

If Not MUpsKrn.EstNul(Map) Then

	Map.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere( 
		de taille ")).Additionner(MUpsKrn.Caractere5(L))

End If

MUpsSys.Imprimante.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere( 
	de taille ")).Additionner(MUpsKrn.Caractere5(L))

MUpsSys.Imprimante.Vider



Set A = Nothing

Set L = Nothing

Set Map = Nothing

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