Terminales Sin Cables X64

Interconexión XRTN

Este tipo de conexión con un Active X permite conectar los Terminales X64 a cualquier aplicación en pocos minutos. Vamos a describir paso por paso una conexión a un programa en VB. El primer paso es abrir una nueva aplicación. Seguidamente se debe instalar el componente PEasyTerm.

Se abre una nueva aplicación en VB y se instala el componente en un Form.

Se rellenan las dos pantallas, la primera pide la Ref. y la Qt. Y la segunda da un mensaje de error.
Para insertar líneas, se usa Ins, Shift+Ins, Del y Shift+Del.

Size -> Tamaño del campo.
Input -> 1/0 Si es input o no.
ExitField -> 1/0 Si debe salir cuando llega al final del campo
Hidden -> 1/0 Campos de input tipo password.
Barcode -> 1/0 Conecta el lector de código de barras. (Con la flecha hacia la derecha, conecta el láser, con la flecha a la izquierda input teclado)
NewLine -> 1/0 Cambio de línea.
Protected -> 1/0 Permite tener un campo de input en el cual no se puede mover.
SendWithEnter -> 1/0 Si se pulsa enter la pantalla se envía.

Pantalla 1:

Pantalla 2:

Después se debe poner algún código en 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

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

Ahora se puede poner el programa en funcionamiento. En el terminal, se debe poner el programa XRTN y pulsar una tecla.
O se puede poner en marcha el emulador que está en esta página, en el link Descargar.

Una tecla es

Otra tecla es:

Funciones EasyTerm ActiveX

Events

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

TerminalId – Nombre del Terminal que envió los datos.
Screen – Número de la pantalla enviada.
Answer – Permite saber si se pulsó Enter o Escape en la Pantalla. Si se pone en el texto de cada línea un texto del tipo: “ 1- Lista, 2- Imprimir, 3- Saldo”, etc. el answer devuelve el valor que se encontraba en el inicio de la línea si está seleccionada y si la opción 'SendWidthEnter' está activada.

Private Sub EasyTerm1_ReceiveReset(TerminalId As String)

Si se pulsó el botón de Reset en el terminal y después una tecla, el Terminal quiere iniciar comunicaciones.

Funciones

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

Parámetros:
TerminalId – Nombre del Terminal en el que se quiere escribir datos en la matriz. Screen – Número de la pantalla que se quiere modificar.
Line – Línea que se quiere modificar.
Texto – Texto que se va a alterar.

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

Parámetros:
TerminalId – Nombre del Terminal en el que se quiere escribir datos en la matriz.
Screen – Número de la pantalla que se quiere alterar.
Line – Línea que se quiere alterar
Devuelve el Texto.

Public Function InitializeCom() As Boolean

Busca la base e inicia la comunicación. Si no encuentra la base, vuelve a False.
Abre el Puerto Serie.

Public Sub TerminateCom()

Cierra el puerto serie.

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

Envía al Terminal 'TerminalId' la pantalla 'Screen'.

Public Sub ChangeFilename(Filename As String)

Permite configurar el nombre del archivo que el Easyterm utiliza como archivo auxiliar.

Todos los ejemplos atrás referidos se pueden ver con el Emulador. Se debe instalar en el Emulador el programa XRTN, ejecutar el emulador y después poner en funcionamiento el programa en VB.

Página Principal

Contáctenos

Descargar

Manual de Interconexión

Interconexión XRTN