Fiz um PIC medir a temperatura por meio de um sensor termopar do tipo k. O controle da temperatura foi feito por meio de um relê.
Agora estou fazendo, em VB6, a parte desse equipamento que interage com um PC.
Essa parte deve fazer basicamente o seguinte:
1 - Receber, via UART, o valor da temperatura (de 0ºC a 1370ºC). O PIC envia um código de "Início de transmissão". O PC identifica esse código e reenvia-o para o PIC. O PIC identifica o código e envia o byte correspondente à parte alta do valor da temperatura. O PC reenvia esse valor ao PIC. O PIC envia o byte correspondente ao valor da parte baixa da temperatura....
2 - Gravar os valores lidos em um arquivo simples, tipo .dat.
3 - Apresentar o valor lido em um LabelBox (em amarelo).
4 - Apresentar um gráfico das temperaturas ao longo do tempo.
5 - Pretendo acrescentar uma função em que, ao invés da temperatura desejada ser programada através do hardware (botões), ser programada via teclado, em um TextBox (em verde).
6 - Apresentar o valor do erro entre a temperatura medida e a temperatura desejada, tanto em uma LabelBox (em laranja), como no gráfico.
7 - Tanto o arquivo em que os valores da temperatura serão armazenados, como o diretório escolhido para sua localização, poderão ser criados pelo usuário.
8 - O programa também pretende verificar quais portas seriais estão disponíveis.
Bom. Desconsiderando o fato de que é muita pretenção para quem arranha o VB, já iniciei com o código e o Form.
Gostaria que o pessoal com mais experiênia, desse uma olhada no código e no form, para saber se eles, até o momento, estão aceitáveis.
Verifiquem também, se os comentários estão corretos com a função.
Observação:
Não considerem as cores do Form. As estravagantes estão mais como lembrete para mim, em tempo de projeto, que outras cores mais apropriadas.
Verde corresponde a entrada de dado.
Cor de barro corresponde a necessário clicar para confirmar.
Amarela corresponde ao valor medido.
Laranja corresponde ao erro entre a temperatura desejada e a medida.
Segue o Form e o código.

Ops. Em Case 3 devo acrescentar "contador = 0".

MOR_AL