Nwlapcug.com


Programmazione porte seriali utilizzando Visual Basic 6

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 Basic. Visual Basic 6 è la versione dell'applicazione programmazione che è stato rilasciato prima della versione di .NET. Durante la programmazione con Visual Basic, potrebbe essere necessario accedere diverse parti del computer, in modo che il programma può fare quello che bisogno di fare. Leggere e/o inviare dati alle porte seriali del computer utilizzando la giusta codifica di Visual Basic.

Istruzioni

1

Aprire Microsoft Visual Basic 6. Nella finestra di dialogo "Nuovo progetto" verrà visualizzata ogni volta che si apre VB6. Nella scheda "New", fare clic su "EXE Standard". Se vuoi lavorare in un progetto esistente, fare clic sulla scheda "Esistente" e quindi selezionare il progetto.

2

Fare clic sulla voce di menu "Progetto", quindi "Aggiungi modulo". Clicca 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 sul computer. Poiché le porte seriali sono solitamente "Com1" e "Com2", utilizzare questo come un riferimento per assicurarsi che ci si connette alla porta seriale di destra.

"Function OpenSerialPort() as String

Dim getString as String = " "

Dim comSerial As IO.Ports.SerialPort

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

End Function"

4

Digitare nella funzione che leggerà i dati dalla seriale utilizzando la variabile "comSerial" che è già stata stabilita.

"Funzione readSerialPort (comSerial come IO. SerialPort) as String

Dim getString as String = ""

Using comSerial

Do

Dim Receiving As String = comSerial.ReadLine()

If Receiving Is Nothing Then

Exit Do

Else

returnStr &= Receiving & vbCrLf

End If

Loop

comSerial.Close()

End Using

Return getString

End Function"

5

Digitare la seguente routine sub che invia i dati alla porta seriale. Una volta stabilita questa routine sub in questo modulo, è possibile chiamare da qualsiasi parte del progetto corrente per inviare i dati al numero di serie le porte ogni volta che sceglie.

"Sub sendDataToSerial (ByVal data as String)

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

comSendData.WriteLine(data)

comSendData.Close()

End Using

End Sub"

6

Passare le informazioni alla routine sub utilizzando una variabile denominata "dati". Un esempio di questo è:

"Dim data As String

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

Console. WriteLine ("scrivere i dati alla porta seriale COM1:" & dati)

sendDataToSerial(data)"

7

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

8

Salvare il progetto cliccando sull'icona "Salva" nella barra degli strumenti.