Business - Automação Comercial

Bematech: Usando Funções de Display

Nesta edição de nosso Flash-Tip do mini-curso sobre o microterminal FIT Básico, iremos dar continuidade ao nosso exemplo e implementar as funções mais usuais de acesso ao display do microterminal.

por Iohannes Nakatani



Nesta edição de nosso Flash-Tip do mini-curso sobre o microterminal FIT Básico, iremos dar continuidade ao nosso exemplo e implementar as funções mais usuais de acesso ao display do microterminal.

Então, vamos lá!

Limpando o Display

Começamos com a função para limpar o display. Para isso, vamos criar no formulário o botão "Limpar Display", conforme imagem:

Na codificação dele, iremos criar a variável iRetorno para analisar o retorno da função, conforme já fizemos nos botões anteriores, e usaremos também o número do microterminal para identificarmos qual receberá a execução da função.

Obs: Esta função limpa todas as informações do display, colocando o cursor na primeira coluna da primeira linha.

- Em Delphi

procedure TForm1.Button4Click(Sender: TObject);
var
iRetorno: Integer;
begin

iRetorno := Bematech_FIT_LimpaDisplay( strtoint( Edit1.Text ) );

if ( iRetorno = 0 ) then
begin
application.MessageBox( "Erro na execução da função!", "ERRO", MB_ICONINFORMATION + MB_OK );
end;
end;

- Em VB

Private Sub Command4_Click()
Dim iRetorno As Integer

iRetorno = Bematech_FIT_LimpaDisplay(CInt(Text1.Text))

If iRetorno = 0 Then
MsgBox "Erro na execução do comando", vbInformation + vbOKOnly, "Atenção"
End If
End Sub

Escrevendo no Display

Vamos agora, enviar uma string para o display do microterminal. Esta string será escrita a partir da posição atual do cursor.

Para isso, vamos implementar no formulário uma caixa de texto para receber um texto qualquer que será enviado ao display e um botão para executar a função correspondente, chamado "Escreve no Display", conforme imagem:

No código do botão, implementamos:

- Em Delphi

procedure TForm1.Button5Click(Sender: TObject);
var
iRetorno: Integer;
Msg: String;
begin
Msg := Edit2.Text;

iRetorno := Bematech_FIT_EscreveDisplay( strtoint( Edit1.Text ), Msg );

if (iRetorno = 0) then
begin
Application.MessageBox( "Erro na execução do comando!", "ERRO",MB_ICONINFORMATION + MB_OK );
end;
end;

- Em VB

Private Sub Command5_Click()
Dim iRetorno As Integer

iRetorno = Bematech_FIT_EscreveDisplay(CInt(Text1.Text), Text2.Text)

If iRetorno = 0 Then
MsgBox "Erro na execução do comando", vbInformation + vbOKOnly, "Atenção"
End If
End Sub

Também informamos na função o número do microterminal que receberá a mensagem.

Posicionando o Cursor

Temos uma função que posiciona o cursor no display, onde podemos determinar a linha e a coluna antes de escrever a string. Esta função utiliza dois parâmetros para a posição do cursor, além do parâmetro com o número do microterminal que vamos interagir.

Para implementar esta função, vamos criar duas caixas de texto no formulário para entrar com o número da linha e da coluna, e um botão chamado "Posicionar Cursor", conforme imagem:


No código deste botão, implementamos:

- Em Delphi

procedure TForm1.Button6Click(Sender: TObject);
var
iRetorno: Integer;
begin
iRetorno := Bematech_FIT_PosicionaCursor( StrtoInt( Edit1.Text ), strtoint( Edit3.Text ), strtoint( Edit4.Text ) );
if ( iRetorno = 0 ) then
begin
application.MessageBox( "Erro na execução do comando!", "ERRO",MB_ICONINFORMATION + MB_OK );
end;
end;

- Em VB

Private Sub Command6_Click()
Dim iRetorno As Integer

iRetorno = Bematech_FIT_PosicionaCursor(CInt(Text1.Text), CInt(Text3.Text), CInt(Text4.Text))

If iRetorno = 0 Then "Verificação de retorno de erro da função"
MsgBox "Erro na execução do comando", vbInformation + vbOKOnly, "Atenção"
End If
End Sub
Iohannes Nakatani

Iohannes Nakatani - Analista de Suporte. Bematech - Marketing de Parcerias.
Visite o site: http://www.bematech.com.br.