Visual Basic ist die Programmiersprache, die von Microsoft entwickelt wurde. Visual Basic ist eine visuelle Darstellung der klassischen Basic- Programmiersprache. Visual Basic 6 ist die Version der Programmiersprache Anwendung, die vor dem . NET-Version veröffentlicht wurde. Während der Programmierung mit Visual Basic , müssen Sie eventuell auf verschiedene Teile des Computers zugreifen , so dass das Programm kann tun, was Sie tun müssen. Lesen und /oder Senden von Daten an den seriellen Ports auf dem Computer mit den richtigen Visual Basic -Codierung. Anleitung
1
Öffnen Sie Microsoft Visual Basic 6 . Die " New Project" Dialogfeld erscheint jedes Mal, wenn Sie öffnen VB6 . Auf der " New "-Registerkarte, klicken Sie auf "Standard-EXE . " Wenn Sie in einem bestehenden Projekt arbeiten wollen, auf dem "Bestehende " Registerkarte klicken und wählen Sie dann das Projekt.
2
Klicken Sie auf das Menü "Projekt" Element und dann " Modul hinzufügen ". Klicken Sie auf " Öffnen" , wenn die " Modul hinzufügen "-Dialog auf dem Bildschirm erscheint .
3
Typ in einer Funktion , um eine Instanz der seriellen Schnittstelle auf dem Computer zu erstellen. Da die seriellen Schnittstellen sind in der Regel " Com1 " und " Com2 ", verwenden Sie diese als Referenz , um sicherzustellen, Sie sind an der richtigen seriellen Port verbinden .
"Function OpenSerialPort () als String
Dim getString als String = " " Dim
comSerial wie IO.Ports.SerialPort
comSerial = My.Computer.Ports.OpenSerialPort ( "COM1" )
End Function "
4
Typ in der Funktion, die Daten von der seriellen Verwendung des " comSerial " Variable, die Sie bereits etablierten lesen.
"Function readSerialPort ( comSerial als IO.Ports.SerialPort ) as String Dim
getString als String = " "
Mit comSerial
Haben
Dim Empfangen As String = comSerial.ReadLine ()
< p> Wenn empfängt Nothing Then Exit Do
Else
returnStr & = & Empfangen vbCrLf
End If
Schleife
comSerial.Close ()
End Using
Return getString
End Function "
5
Typ in den folgenden Unterkapiteln Verfahren, das Daten an die serielle Schnittstelle. Sobald diese Sub-Prozedur in diesem Modul aufgebaut ist, können Sie es von überall in das aktuelle Projekt , um Daten an den seriellen Schnittstellen jederzeit senden Sie anrufen.
"Sub sendDataToSerial (ByVal Daten als String)
Mit comSendData Wie IO.Ports.SerialPort = Mit
End Sub "
6
Pass die Informationen an die Sub-Prozedur mit einer Variable mit dem Namen " data ". Ein Beispiel hierfür ist :
" Dim Daten As String
data = " Dies ist beispielsweise Daten an die serielle Schnittstelle Com1 übertragen "
Console.WriteLine (" schreiben die Daten an die serielle Schnittstelle COM1: " & Daten )
sendDataToSerial (Daten) "
7
Platz der Code in einer Funktion , Methode oder Prozedur während des Projekts zum Schreiben der Daten mit der seriellen Schnittstelle . Führen Sie den Code durch Drücken der "Strg" und "F5 "-Taste zusammen .
8
Speichern Sie das Projekt , indem Sie auf die Schaltfläche "Speichern "-Symbol in der Symbolleiste.
