Programmering serielle porte ved hjælp af Visual Basic 6

Visual Basic er programmeringssprog udviklet af Microsoft. Visual Basic er en visuel repræsentation af den klassiske Basic programmeringssprog. Visual Basic 6 er den version af programmering program, der blev udgivet før .NET version. Mens programmering med Visual Basic, kan det være nødvendigt at få adgang til forskellige dele af computeren, så programmet kan gøre, hvad du har brug for det at gøre. Læs og / eller sende data til de serielle porte på computeren ved at bruge højre Visual Basic kodning.

Vejledning

• Åbn Microsoft Visual Basic 6. "Nyt projekt" dialogboks, hver gang du åbner VB6. På fanen "Ny", klik på "Standard EXE". Hvis du ønsker at arbejde i et eksisterende projekt, skal du klikke på "Eksisterende" fanen og vælg derefter projektet.

• Klik på "Projekt" menupunkt og derefter "Tilføj modul." Klik på "Åbn", når "Tilføj Module" dialogboks vises på skærmen.

• Indtast en funktion til at oprette en instans af den serielle port på computeren. Da de serielle porte er som regel "Com1" og "COM2" bruge dette som en henvisning til sikre, at du opretter forbindelse til den rigtige serielle port. "Function OpenSerialPort () som String Dim få String som String =" "Dim comSerial Som IO.Ports.SerialPort comSerial = My.Computer.Ports.OpenSerialPort (" Com1 ") End Function"

• Indtast den funktion, der vil læse data fra den serielle ved hjælp af "comSerial" variable, som du allerede etableret. "Funktion readSerialPort (comSerial som IO.Ports.SerialPort) som String Dim få String som String =" "Brug comSerial Do Dim Modtagelse As String = comSerial.ReadLine () Hvis modtagelse er intet afslut derefter Gør Else returnStr & = Modtagelse & vbCrLf End Hvis Loop comSerial.Close () End Brug Return få String End Function "

• Indtast den følgende sub procedure, der sender data til den serielle port. Når denne sub procedure er etableret i dette modul, kan du kalde det fra overalt i det aktuelle projekt at sende data til de serielle porte som helst, du vælger. "Sub sendDataToSerial (ByVal data som String) Brug comSendData Som IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort (" COM1 ") comSendData.WriteLine (data) comSendData.Close () End Brug End Sub"

• videregive oplysningerne til den sub procedure ved hjælp af en variabel med navnet "data". Et eksempel på dette er: "Dim data As String data =" Dette er eksempel data til at sende til den serielle port Com1 "Console.WriteLine (" Skriv data til den serielle port COM1: "& data) sendDataToSerial (data)"

• Placer koden i hvilken som helst funktion, metode eller procedure i løbet af projektet til at skrive data til den serielle port. Kør koden ved at trykke på "Ctrl" og "F5" nøgler sammen.

• Gem projektet ved at klikke på "Gem" ikonet i værktøjslinjen.