Ir para conteúdo
Fórum Script Brasil
  • 0

Comunicacao Com Balanca


Lello

Pergunta

Gostaria de um ajuda tem um codigo em basic que faz comunicacao com a balanca filizola como faco este mesmo codigo em visual basic

Open "COM2:9600,N,8,1" For Random As #1

ENQ$ = Chr$(5)

STX$ = Chr$(2)

ETX$ = Chr$(3)

Cls

Do

10

G$ = INKEY$

If G$ = " " Then Print #1, ENQ$;

If Loc(1) = 0 Then GoTo 10

I = 0

A$ = "": B$ = ""

Do Until Left$(A$, 1) = STX$ And Right$(A$, 1) = ETX$

B$ = Input$(1, #1)

A$ = A$ + B$

Print I; " - "; Asc(B$)

I = I + 1

Loop

Print A$; "* "; Len(A$); " *"

Loop

Muito Obrigado

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Eu Consegui Fazer a Comunicacao com a Balanca , so não estou conseguindo entender como fazer ele loop , alguém pode me explicar como faz

A$ = "": B$ = ""

Do Until Left$(A$, 1) = STX$ And Right$(A$, 1) = ETX$

B$ = Input$(1, #1)

A$ = A$ + B$

Print I; " - "; Asc(B$)

I = I + 1

Loop

Print A$; "* "; Len(A$); " *"

muito obrigado

Link para o comentário
Compartilhar em outros sites

  • 0
Eu Consegui Fazer a Comunicacao com a Balanca , so não estou conseguindo entender como fazer ele loop , alguém pode me explicar como faz

A$ = "": B$ = ""

Do Until Left$(A$, 1) = STX$ And Right$(A$, 1) = ETX$

B$ = Input$(1, #1)

A$ = A$ + B$

Print I; " - "; Asc(B$)

I = I + 1

Loop

Print A$; "* "; Len(A$); " *"

muito obrigado

Acredito que a única linha no código que não é compatível com a codificação atual seria...

B$ = Input$(1, #1)

... que penso ser substituível por:

Input #1, B

Certo? wink.gif

Graymalkin

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...