Programação portas seriais usando visual basic 6

Abra o Microsoft Visual Basic 6. O "Novo projeto" caixa de diálogo aparece cada vez que você abrir VB6. No "Novo" guia, clique em "Standard EXE." Se você quer trabalhar em um projeto existente, clique no "Existir" guia e, em seguida, selecione o projeto.

Clique no "Projeto" item do menu e, em seguida, "Adicionar módulo." Clique "Aberto" quando o "Adicionar módulo" caixa de diálogo aparece na tela.

Digite uma função para criar uma instância da porta serial no computador. Uma vez que as portas seriais são geralmente "com1" e "Com2," usar isso como uma referência para se certificar de que você está se conectando a porta serial correta.

"OpenSerialPort function () as String

 Dim getString como String = " "
Dim comSerial Como IO.Ports.SerialPort
comSerial = My.Computer.Ports.OpenSerialPort ("com1")

End Function"

Digite a função que irá ler os dados do serial usando o "comSerial" variável que você já estabelecida.

"Função readSerialPort (comSerial como IO.Ports.SerialPort) as String

Dim getString como String = " "

 usando comSerial
Faz
Dim Receber As String = comSerial.ReadLine ()
Se recebimento é nada, então,
Sair Do
Outro
ReturnStr &= Recebendo & vbCrLf
Fim se


laço
comSerial.Close ()
End Using
retorno getString

End Function"

Digite o procedimento sub seguinte que envia dados para a porta serial. Uma vez que este procedimento sub estabelecido neste módulo, você pode chamá-lo de qualquer lugar do projeto atual para enviar dados para as portas seriais qualquer momento que você escolher.

"(Dados ByVal As String) sub sendDataToSerial

Usando comSendData Como IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort ("COM1")
comSendData.WriteLine (dados)
comSendData.Close ()
End Using

End Sub"

Passar as informações para o procedimento sub usando uma variável chamada "dados." Um exemplo disto é a seguinte:

"dados Dim As String

dados = "Este é um exemplo de dados para transmitir à porta serial Com1"

Console.WriteLine ("Escrever os dados para a porta serial COM1: " & dados)

sendDataToSerial (dados)"

Coloque o código em qualquer função, método ou procedimento durante o projeto para escrever os dados para a porta serial. Executar o código pressionando o "Ctrl" e "F5" chaves juntas.

Salvar o projeto, clicando no "Salvar" ícone na barra de ferramentas.