RS232 aansturen in VB 6 werkt niet

[zijlrog]

Hallo,

ik ben bezig met het maken van een VB programma om data vanuit een VB.exe via RS232 te sturen naar een ARM board.

Nu heb ik de volgende code gemaakt echter als ik met de serial mointor software de poort bekijkt gebeurd er nog niets.

Ik probeer eerst de VB werkend te hebben alvorens door te gaan met de ARM programateur.

heeft iemand een idee? of doe ik wat verkeerd?


Private Sub RS232_OnComm()

' Open the serial port
RS232.CommPort = 1 ' Set the port number
RS232.Settings = "9600,N,8,1" ' Set UART parameters
RS232.PortOpen = True ' Required, might lock port
RS232.Output = "Text string" ' Send data
Buffer$ = Buffer$ & RS232.Input ' Read data

End Sub

 

[vanschagen]

heb je hier wat aan ,of bedoel je wat anders
http://www.thaiio.com/prog-cgi/0002_serial.htm

 

[zijlrog]

Bertus bedankt,
Ik heb de RS232 setting nu in de Private Sub Form_Load()
gezet.

Hierdoor werden de RS232 setting geinitialiseerd tijdens het laden van mijn form.
In de originele code die ik eerst had kwam mijn programma niet eens aan de Private Sub RS232_OnComm() toe.