Nwlapcug.com


Come utilizzare la porta seriale in Visual Basic

Visual Basic è un linguaggio di programmazione basato su eventi e prodotto da Microsoft. L'originale linguaggio di programmazione e ambiente di sviluppo integrato è stato progettato per supportare il modello di programmazione COM. La versione corrente di Visual Basic è completamente integrata nell'ambiente di sviluppo di Microsoft.NET. Visual Basic è inoltre cavo di programmazione porte seriali computer se avete bisogno di accedere o modificare le periferie di computer con l'applicazione attraverso l'utilizzo del controllo MSComm che è incorporato in Visual Basic.

Istruzioni

1

Aprire Microsoft Visual Studio e selezionare "File -> nuovo -> progetto" dal menu file primario. Quindi, scegli "Progetto tipi -> progetti di Visual Basic" e selezionare "Applicazione Console" nel menu modelli.

2

Fare clic destro sull'icona del progetto e selezionare l'opzione di menu "Aggiungi riferimento". Quindi, scegliere la scheda del menu "Com" e selezionare "Microsoft Comm Control 6.0" è elencato nella sezione "Component Name". Scegliere "Seleziona" seguito dal tasto "OK".

3

Fare doppio clic il modulo di programma visibile nell'IDE di Visual Basic. Verrà aperta la finestra di programmazione.

4

Inserire il codice di programmazione seguente per inizializzare le strutture di dati di porta seriale che verranno utilizzate per modificare la porta seriale una volta aperta:
Dim MSComm1 MSComm
MSComm1 = nuovo MSComm
Dim Buffer As String
MSComm1.CommPort = 1
Mscomm1 = "9600, N, 8, 1"
MSComm1.InputLen = 0

5

Aprire la porta seriale includendo il seguente codice di programmazione dopo l'ultima riga di codice immesso nel passaggio 4:
MSComm1.PortOpen = True
MSComm1.InputMode() = InputModeConstants.comInputModeText
MSComm1.InBufferCount() = 0
MSComm1. output = "ATV1Q0" & Chr (13)

6

Manipolare le informazioni di porta seriale e quindi chiudere la porta seriale inserendo il seguente codice nella parte inferiore del modulo di programmazione di Visual Basic:
Fare
Buffer = Buffer & MSComm1.Input
Loop fino a InStr(Buffer, "OK" & vbCrLf)
MSComm1.PortOpen = False
Console. WriteLine ("chiudere la porta seriale.")
EndModule

7

Selezionare i tasti "CTRL + F5" contemporaneamente per generare ed eseguire il progetto.