Visual Basic é a linguagem de programação desenvolvida pela Microsoft. Visual Basic é uma representação visual da linguagem de programação clássico Basic. Visual Basic 6 é a versão do aplicativo de programação que foi lançada antes da versão NET . . Enquanto a programação com Visual Basic , você pode precisar para acessar diferentes partes do computador para que o programa pode fazer o que você precisa que ele faça. Leia e /ou enviar dados para as portas seriais no computador usando a codificação direito Visual Basic. Instruções
1

Abra o Microsoft Visual Basic 6. A caixa de diálogo "New Project " aparece toda vez que você abrir VB6. No separador "New" , clique em " Standard EXE ". Se você quer trabalhar em um projeto existente, clique na aba " existente" e , em seguida, selecione o projeto .
2

Clique no "Projeto" item de menu e , em seguida, em "Adicionar módulo. " Clique em "Abrir ", quando a caixa de diálogo "Add Module" aparece na tela .
3

Digite uma função para criar uma instância da porta serial do computador. Desde as portas seriais são geralmente " Com1 " e "COM2 ", use 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 " ) Função

End "
4 Tipo

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

" readSerialPort função ( comSerial como IO.Ports.SerialPort ) como corda

Dim getString como string = " "

Usando comSerial

Faça

Dim Receber As String = comSerial.ReadLine ()

Se Recebimento é nada Então

Exit Do

Else

ReturnStr & = Recebendo & vbCrLf

End If

laço

comSerial.Close ()

End Using

Voltar getString

Function End "
5

Digite o seguinte sub procedimento 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.

"Sub sendDataToSerial (dados de ByVal como String)

Usando comSendData Como IO.Ports.SerialPort = Usando

End Sub "
6

passar a informação para o procedimento sub usando uma variável chamada " dados ". Um exemplo disso é :

" Dim dados As String

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

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

sendDataToSerial (data) "
7

colocar o código em qualquer função , método ou procedimento durante o projeto para escrever os dados à porta serial . Execute o código pressionando a tecla " Ctrl" e as teclas "F5" juntos.
8

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