Caro Parceiro,

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

Próxima edição:

Em nosso último Flash-Tip da série do mini-curso sobre o microterminal FIT-Básico, vamos acessar as portas serias e interagir com periféricos, como impressora não fiscal e leitor de código de barras.

Não perca!

Até lá e boas implementações!