Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Programmazione delle 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 di programmazione che è stato rilasciato prima della versione . NET . Durante la programmazione con Visual Basic , può essere necessario per accedere alle diverse parti del computer in modo che il programma possa fare ciò che è necessario di fare. Leggi e /o inviare i dati alle porte seriali del computer utilizzando il diritto di codifica di Visual Basic . Istruzioni
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 desidera lavorare in un progetto esistente , fare clic sulla scheda " esistente" e quindi selezionare il progetto .
2

Cliccare sulla voce di menu "Progetto " e poi " Aggiungi modulo ". Fare clic su "Apri " quando appare la finestra di dialogo " Add Module " sullo schermo .
3

Digitare 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 riferimento per assicurarsi che si collega alla porta seriale giusta .

"Funzione OpenSerialPort ( ) as String

dim getString as String = " " dim

comSerial come IO.Ports.SerialPort

comSerial = My.Computer.Ports.OpenSerialPort ( "COM1 " ) per

End Function "
4

Digitare la funzione che leggerà i dati dalla seriale utilizzando la variabile " comSerial " che già affermati.

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

Dim getString as String = " "

Utilizzando comSerial

Do

Dim Ricevere As String = comSerial.ReadLine ( ) per

Se il ricevente è niente allora

Exit Do

Else

returnStr & = Ricezione & vbCrLf

End If loop

< br

comSerial.Close > ( ) per

End Using

Torna getString

End Function "
5

tipo nei seguenti sub procedura 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 .

"Sub sendDataToSerial ( dati di ByVal come stringa ) per

Utilizzando comSendData Come IO.Ports.SerialPort = Utilizzando

End Sub "
6

passare le informazioni alla procedura secondaria mediante una variabile denominata " dati ". Un esempio di questo è :

"dati Dim As String
dati

= " Questo è esempio dati da trasmettere alla porta seriale COM1 "

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

sendDataToSerial ( dati ) "
7

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

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

 

Programmazione © www.354353.com