;################################################# 
;Com-Test 1 vom 11.04.2010, Autor Stephan Mischnick, www.strippenstrolch.de
;#################################################
;Strippenstrolch ==> Menü 5 ==> "Pure Basic und Linux"

;Dieses Programm ist auch unter Windows ausführbar, wenn man den Parameter 
;für die serielle Schnittstelle beispielsweise in "COM1" ändert.

; Serielle Schnittstelle für Linux über den USB-Adapter öffnen ==>
; (Die restlichen Parameter außer "/dev/ttyUSB0" sind bei dieser Anwednung egal,
;müssen jedoch trotzdem ausgefüllt werden, damit der Code compiliert werden kann.)

OpenSerialPort(0, "/dev/ttyUSB0", 300, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024) 

; Alle Pins auf Null setzten (notwendig, da diese beim Initialisieren geschaltet werden) ==>

SetSerialPortStatus(0,#PB_SerialPort_RTS,0) ;Pin7 
SetSerialPortStatus(0,#PB_SerialPort_TXD,0) ;Pin3
SetSerialPortStatus(0,#PB_SerialPort_DTR,0) ;Pin4

; Beispielprogramm "Lauflichtschleife" 10 mal durcharbeiten ==>

For y =0 To 10

SetSerialPortStatus(0,#PB_SerialPort_TXD,1) ;Pin3

For z = 0 To 100000000 ; ==> Demonstriert die gewaltige Geschwindigkeit der Pins, wenn dieses als EXE compiliert ist. 
Next z

SetSerialPortStatus(0,#PB_SerialPort_TXD,0) ;Pin3

For z = 0 To 100000000
Next z

SetSerialPortStatus(0,#PB_SerialPort_DTR,1) ;Pin4

For z = 0 To 100000000
Next z

SetSerialPortStatus(0,#PB_SerialPort_DTR,0) ;Pin4

For z = 0 To 100000000
Next z

SetSerialPortStatus(0,#PB_SerialPort_RTS,1) ;Pin7

For z = 0 To 100000000
Next z

SetSerialPortStatus(0,#PB_SerialPort_RTS,0) ;Pin7

For z = 0 To 100000000
Next z

Next y

CloseSerialPort(0) ; ==> Seriellen Port schließen nie vergessen...

End

;Tja, Leute, das war wirklich schon alles. Der Rest hängt nur noch von 
;der angeklemmten Hardware ab...
; 
;Viele Grüße,
; Stephan Michnick --- www.strippenstrolch.de 

; IDE Options = PureBasic 4.41 (Linux - x86)
; CursorPosition = 35
; EnableXP
; Executable = ../../home/stephan/test-com