Comunicacao Com Balanca

[Lello]

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

[mariozneto]

Bom dia!

Vou fazer um exemplo de comunicação para você e logo mais eu posto!!

Falow... T+

[Lello]

Muito Obrigado pela colaboração , eu aguardo o exemplo

Grato

[Lello]

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

[Graymalkin]

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?

Graymalkin