Terminaux sans Fil X64

Intercommunication XRTN

Ce type de liaison avec un Active X permet de lier les terminaux X64 à n'importe quelle application dans quelques minutes. Nous allons découvrir pas à pas une liaison à un programme sur VB. Le premier pas est ouvrir une nouvelle application. Ensuite, on doit installer le composant PEasyTerm.

On ouvre une nouvelle application sur VB et on installe le composant sur un Form.

On rémplit les deux écrans, le premier demande la Réference et la Quantité. Le deuxième envoie un message d'erreur.
Pour insérer les lignes, on utilise Ins, Shift+Ins, Del y Shift+Del.

Size -> Taille du champ.
Input -> 1/0 Si c'est input o non.
ExitField -> 1/0 S'il doit sortir quand il arrive à la fin du champ
Hidden -> 1/0 Champs de l'input type password.
Barcode -> 1/0 Cela lie le lecteur de code de barres (avec la flèche vers la droite, cela lie le laser, vers la gauche input clavier)
NewLine -> 1/0 Changement de ligne.
Protected -> 1/0 Cela permet d'avoir un champ d'imput dans lequel il ne peut pas se déplacer.
SendWithEnter -> 1/0 Si on appuye sur enter l'écran est envoyé.

Écran 1:

Écran 2:

Après, on doit mettre quelque code dans  Form:

Private Sub EasyTerm1_ReceiveData(TerminalId As String, Screen As Integer, Answer As String)

If Screen = 1 Then

EasyTerm1.SendScreenToTerminal TerminalId, 2

End If

If Screen = 2 Then

EasyTerm1.SendScreenToTerminal TerminalId, 1

End If

End Sub

Private Sub EasyTerm1_ReceiveReset(TerminalId As String)

EasyTerm1.SendScreenToTerminal TerminalId, 1

End Sub

Private Sub Form_Load()

EasyTerm1.InitializeCom

End Sub

Private Sub Form_Unload(Cancel As Integer)

EasyTerm1.TerminateCom

End Sub

-----------------------------------------------------------------------------------------------------------------

Maintenant, on peuit mettre le programme à fonctionner. Sur le terminal, on doit mettre le programme XRTN et appuyer sur une touche.
Ou on peut mettre l'émulateur à fonctionner. Il est sur notre site, dans le link Décharger.

Une touche est:

Autre touche est:

Fonctions EasyTerm ActiveX

Events

Private Sub EasyTerm1_ReceiveData(TerminalId As String, Screen As Integer, Answer As String)

TerminalId – Nom du Terminal qui a envoyé les données.
Screen – Numéro de l'écran envoyé.
Answer – Cela permet de savoir si on a appuyé sur Enter ou sur Escape dans l'écran. Si on met dans le texte de chaque ligne un texte type: “ 1- Liste, 2- Imprimer, 3- Solde”, etc. l'answer retourne la valeur qui se trouvait au début de la ligne si elle est selectionée et si l'option 'SendWidthEnter' est active.

Private Sub EasyTerm1_ReceiveReset(TerminalId As String)

Si on a appuyé sur Reset dans le terminal et après ça une touche, le Terminal veut initialiser les communications. 

Fonctions

Public Function WriteDataToMatrix(TerminalId As String, Screen As Integer, Line As Integer, Texte As String)

Paramètres:
TerminalId – Nom du Terminal sur lequel on veut écrire des données dans la matrice.
Screen – Numéro de l'écran qu'on veut modifier.
Line – Ligne à modifier.
Texte – Texte à modifier.

Public Function ReadDataFromMatrix(TerminalId As String, Screen As Integer, Line As Integer)

Paramètres:
TerminalId – Nom du Terminal sur lequel on veut écrire des données dans la matrice.
Screen – Numéro de l'écran qu'on veut modifier.
Line – Ligne à modifier
Il retourne le Texte.

Public Function InitializeCom() As Boolean

Il cherche la base et initialise les communications. S'il ne trouve pas la base, il retourne a False.
Il ouvre le Port série.

Public Sub TerminateCom()

Il ferme le Port Série. 

Public Sub SendScreenToTerminal(TerminalId As String, Screen As Integer)

Il envoie au terminal 'TerminalId' l'écran'Screen'.

Public Sub ChangeFilename(Filename As String)

Il permet de configurer le nom du fichier que l'Easyterm utilise comme fichier auxiliaire.

Tous les exemples déjà mentionés peuvent être vus avec l'émulateur. Dans l'émulateur le programme XRTN doit être installé, on doit éxecuter l'émulateur et après ça mettre en fonctionement le programme sur VB.

Page Principale

Contactez-nous

Décharger

Manuel d'Intercommunication

Intercommunication XRTN