Programmazione porte seriali utilizzando Visual Basic 6

November 4

Programmazione porte seriali utilizzando Visual Basic 6


Visual Basic è il linguaggio di programmazione sviluppato da Microsoft. Visual Basic è una rappresentazione visiva del classico linguaggio di programmazione di base. Visual Basic 6 è la versione dell'applicazione di programmazione che è stato rilasciato prima della versione di .NET. Durante la programmazione con Visual Basic, potrebbe essere necessario accedere a diverse parti del computer in modo che il programma può fare quello che avete bisogno di fare. Leggi e / o inviare i dati alle porte seriali sul computer utilizzando il diritto di codifica di Visual Basic.

istruzione

1 Aprire Microsoft Visual Basic 6. La finestra di dialogo "Nuovo progetto" appare ogni volta che si apre VB6. Nella scheda "Nuovo", cliccare su "EXE standard". Se si vuole lavorare in un progetto esistente, fare clic sulla scheda "esistente" e quindi selezionare il progetto.

2 Fare clic sulla voce di menu "Progetto" e poi "Aggiungi modulo". Fai clic su "Apri" quando viene visualizzata la finestra di dialogo "Aggiungi modulo" sullo schermo.

3 Digitare in una funzione per creare un'istanza della porta seriale del computer. Dal momento che le porte seriali sono di solito "Com1" e "COM2", utilizzare questo come un punto di riferimento per assicurarsi che ci si connette alla porta seriale giusta.

"OpenSerialPort function () as String

Dim getString as String = " "

Dim comSerial Come IO.Ports.SerialPort

comSerial = My.Computer.Ports.OpenSerialPort ( "Com1")

End Function "

4 Digitare la funzione che leggere i dati dalla seriale utilizzando la variabile "comSerial" che già stabilito.

"ReadSerialPort Function (comSerial come IO.Ports.SerialPort) as String

Dim getString as String = ""

Using comSerial

Fare

Dim Ricezione come stringa = comSerial.ReadLine ()

Se si riceve è niente allora

Exit Do

Altro

returnStr & = Ricezione & vbCrLf

Finisci se

Ciclo continuo

comSerial.Close ()

Fine Utilizzando

ritorno getString

End Function "

5 Digitare nella seguente procedura secondaria che invia i dati alla porta seriale. Una volta che questa procedura secondaria è stabilito in questo modulo, si può chiamare da qualsiasi parte del progetto corrente per inviare i dati alle porte seriali ogni volta che si sceglie.

"(dati ByVal come stringa) Sub sendDataToSerial

Using comSendData As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1")

comSendData.WriteLine (dati)

comSendData.Close ()

Fine Utilizzando

End Sub "

6 Passare le informazioni per la procedura secondaria usando una variabile denominata "dati". Un esempio di questo è:

"Dim dati As String

Dati = "Questo è esempio dati da trasmettere alla porta seriale Com1"

Console.WriteLine ( "Scrivi i dati alla porta seriale COM1:" Dati e)

sendDataToSerial (dati) "

7 Inserire il codice in qualsiasi funzione, metodo o procedimento durante il progetto di scrivere i dati alla porta seriale. Eseguire il codice premendo i tasti "F5" "Ctrl" e insieme.

8 Salvare il progetto facendo clic sull'icona "Salva" nella barra degli strumenti.