Terminais Sem Fios X64

Interligação XRTN

Este tipo de ligação com um Active X permite ligar os Terminais X64 a qualquer aplicação em poucos minutos. Vou descrever passo a passo uma ligação a um programa em VB. O Primeiro passo é abrir uma nova aplicação. Seguidamente deve-se instalar o componente PEasyTerm.

Abre-se uma nova aplicação em VB e instala-se o componente num Form.

Preenche-se 2 ecrans, o primeiro pede a Ref. e a Qt. E o segundo dá uma mensagem de erro.
Para inserir linhas usa-se o Ins,Shift+Ins, Del e Shift+Del.

Size -> Tamanho do campo.
Input -> 1/0 Se input ou não.
ExitField -> 1/0 Se deve sair quando chegar ao fim do campo.
Hidden -> 1/0 Campos de input tipo password.
Barcode -> 1/0 Liga o leitor codigo de barras. ( C/ a seta para a direita liga o laser, c/a seta para a esquerda input teclado)
NewLine -> 1/0 Muda de linha.
Protected -> 1/0 Permite ter um campo de input no qual não se pode mexer.
SendWithEnter -> 1/0 Se enter o ecran é enviado.

Ecran 1:

Ecran 2:

Em Seguida deve-se por algum codigo no 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

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

Agora pode-se por o programa a correr. No terminal deve-se por o programa XRTN e primir uma tecla.
Ou pode-se correr o emulador que está ne net para download.

Uma tecla e

Outra tecla e:

Funções EasyTerm ActiveX

Events

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

TerminalId – Nome do Terminal que enviou dados.
Screen – Numero do ecran enviado
Answer – Permite saber se se fez Enter ou Escape no Ecran. Se se puser no texto de cada linha texto do tipo “ 1- Listagem, 2- Imprimir, 3- Saldo” etc o answer retorna o valor que se encontrar no inicio da linha se esta selecionada e se a opção 'SendWidthEnter' estiver activa.

Private Sub EasyTerm1_ReceiveReset(TerminalId As String)

Foi premido o botão de Reset no terminal e em seguida numa tecla. O Terminal quer iniciar comunicações.

Funções

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

Parametros:
TerminalId – Nome do Terminal em que se quer escrever dados na matriz.
Screen – Numero do ecran a alterar.
Line – Linha a alterar
Texto – Texto a alterar.

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

Parametros:
TerminalId – Nome do Terminal em que se quer escrever dados na matriz.
Screen – Numero do ecran a alterar.
Line – Linha a alterar

Retorna o Texto.

Public Function InitializeCom() As Boolean

Procura a base e inicia comunicações. Se não encontrar a base retorna False.
Abre a Porta série.

Public Sub TerminateCom()

Fecha a porta série.

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

Envia para o Terminal 'TerminalId' o ecran 'Screen'.

Public Sub ChangeFilename(Filename As String)

Permite configurar o nome do ficheiro que o Easyterm utiliza como ficheiro auxiliar.

Todos os exemplo atrás referidos podem ser vistos com o Emulador. Deve-se instalar no Emulador o programa XRTN, executar o emulador e em seguida correr o programa em VB.

Página Principal

Contactos

Download

Manual de Interligação

Interligação XRTN