Tenho um indicador digital e gostaria de enviar os dados desse indicador pela RS232 e COM1 do PC.
Junto com o manual do desse indicador, veio o seguinte código em QBasic e ele menciona que deve ser enviado o comando “Ctrl B” para o indicador para receber as infomações.
Código QBasic:
10 L%=18
20 CLS
30 PRINT "V.24/RS-232-C"
40 OPEN "COM1:9600,E,7" AS#1
50 PRINT #1, CHR$ (2);
60 IF INKEY$<>""THEN 130
70 C%=LOC(1)
80 IF C%<L%THEN 60
90 X$=INPUT$(L%,#1)
100 LOCATE 9,1
110 PRINT X$;
120 GOTO 50
130 END
Gostaria da ajuda dos senhores para criar um código parecido em VB6, pois quero manipular essas informações em uma planilha do Excel.
Pergunta
Carlos Carvalho
Boa tarde a todos !
Estou tendo o seguinte problema:
Tenho um indicador digital e gostaria de enviar os dados desse indicador pela RS232 e COM1 do PC.
Junto com o manual do desse indicador, veio o seguinte código em QBasic e ele menciona que deve ser enviado o comando “Ctrl B” para o indicador para receber as infomações.
Código QBasic:
10 L%=18
20 CLS
30 PRINT "V.24/RS-232-C"
40 OPEN "COM1:9600,E,7" AS#1
50 PRINT #1, CHR$ (2);
60 IF INKEY$<>""THEN 130
70 C%=LOC(1)
80 IF C%<L%THEN 60
90 X$=INPUT$(L%,#1)
100 LOCATE 9,1
110 PRINT X$;
120 GOTO 50
130 END
Gostaria da ajuda dos senhores para criar um código parecido em VB6, pois quero manipular essas informações em uma planilha do Excel.
Grato a ajuda de todos.
Carlos Carvalho
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.