ELECTRONISCH VERBINDUNG MIT PC

;InpOut32.dll erklärung:
;Weitere Infos zu InpOut.dll: http://www.the-starbearer.de/Praxis/Programmieren/VB%20Projekte/VBPraxisLPT%20inpout32.htm
;Weitere Infos zur Parallelen Schnittstelle: http://de.wikipedia.org/wiki/Parallele_Schnittstelle#include <GUIConstants.au3>
;Aufruf: DllCall($dll, "short", "Inp32", "short", 0x379,"short",11)
;Erklärung: $dll = "diedll.dll", "Inp32" = Inputcheck, 0x379 = Com1(Nachzulesen im Gerätemanager unter z.b. Drucker), 11=Port 11


#Include <GuiConstants.au3>
InetGet("http://www.elektron-bbs.de/elektronik/kabel/computer/ports/subd25b.gif",@TempDir&"\com25.gif")
GUICreate("InpOut32", 253, 109, 193, 127)
$send = GUICtrlCreateButton("Senden", 10, 10, 75, 25, 0)
$read = GUICtrlCreateButton("Lesen", 10, 40, 75, 25, 0)
$to = GUICtrlCreateInput("0x379", 120, 10, 121, 21)
GUICtrlCreateLabel("An:", 100, 10, 20, 17)
$pin = GUICtrlCreateInput("11", 120, 40, 121, 21)
GUICtrlCreateLabel("pin:", 93, 40, 26, 17)
$Help = GUICtrlCreateButton("Erklärungen/Hilfe", 10, 80, 235, 25, 0)
GUISetState(@SW_SHOW)


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg =  $GUI_EVENT_CLOSE
			Exit
		Case $msg = $Help
			_Help()
		Case $msg = $read
			$r = DllCall("InpOut32.dll","short","Inp32","short",GUICtrlRead($to),"short",GUICtrlRead($pin))
			If @error Then
				MsgBox(16,"InpOut32.dll","InpOut32.dll hat ein Fehler festgestellt!"&@CR&"Stellen Sie sicher das der pin nur von 1 - 25 gehen kann und checken Sie An welchem Compin ihr Externes Gerät angeschlossen ist!")
			Else
				MsgBox(0,"InpOut32.dll","Der gelesende Wert: "&Number($r[0]))
			EndIf
		Case $msg = $send
			$r = DllCall("InpOut32.dll","short","Out32","short",GUICtrlRead($to),"short",GUICtrlRead($pin),"short",InputBox("InpOut32","Wie soll Der Wert sein der zu Senden ist?","255"))
			If @error Then
				MsgBox(16,"InpOut32.dll","InpOut32.dll hat ein Fehler festgestellt!"&@CR&"Stellen Sie sicher das der pin nur von 1 - 25 gehen kann und checken Sie An welchem Compin ihr Externes Gerät angeschlossen ist!")
			Else
				MsgBox(0,"InpOut32.dll","Der Wert wurde erfolgreich geschrieben!")
			EndIf
	EndSelect


WEnd


Func OnAutoItExit()
	FileDelete(@TempDir&"\com25.gif")
EndFunc


Func _Help()


GUICreate("AForm1", 509, 254, 193, 126)


$ListView1 = GUICtrlCreateListView("Pin|Name|Funktion", 10, 10, 250, 150)
GUICtrlCreateListViewItem("1 |/STROBE |Strobe",$ListView1)
GUICtrlCreateListViewItem("2 |D0 |Data Bit 0",$ListView1)
GUICtrlCreateListViewItem("3 |D1 |Data Bit 1",$ListView1)
GUICtrlCreateListViewItem("4 |D2 |Data Bit 2",$ListView1)
GUICtrlCreateListViewItem("5 |D3 |Data Bit 3",$ListView1)
GUICtrlCreateListViewItem("6 |D4 |Data Bit 4",$ListView1)
GUICtrlCreateListViewItem("7 |D5 |Data Bit 5",$ListView1)
GUICtrlCreateListViewItem("8 |D6 |Data Bit 6",$ListView1)
GUICtrlCreateListViewItem("9 |D7 |Data Bit 7",$ListView1)
GUICtrlCreateListViewItem("10 |/ACK |Acknowledge",$ListView1)
GUICtrlCreateListViewItem("11 |BUSY |Busy",$ListView1)
GUICtrlCreateListViewItem("12 |PE |Paper End",$ListView1)
GUICtrlCreateListViewItem("13 |SEL |Select",$ListView1)
GUICtrlCreateListViewItem("14 |/AUTOFD |Autofeed",$ListView1)
GUICtrlCreateListViewItem("15 |/ERROR |Error",$ListView1)
GUICtrlCreateListViewItem("16 |/INIT |Initialize",$ListView1)
GUICtrlCreateListViewItem("17 |/SELIN |Select In",$ListView1)
GUICtrlCreateListViewItem("18 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("19 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("20 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("21 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("22 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("23 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("24 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("25 |GND |Signal Ground",$ListView1)




$Pic1 = GUICtrlCreatePic(@TempDir&"\com25.gif", 270, 10, 230, 150, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor(-1,0)
$Group1 = GUICtrlCreateGroup("Links", 10, 170, 491, 71)
$link = GUICtrlCreateLabel("http://de.wikipedia.org/wiki/Parallele_Schnittstelle", 20, 190, 243, 17)
GUICtrlSetCursor(-1,0)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$link2 = GUICtrlCreateLabel("http://www.the-starbearer.de/Praxis/Programmieren/VB%20Projekte/VBPraxisLPT%20inpout32.htm", 20, 210, 476, 17)
GUICtrlSetCursor(-1,0)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)


While 1
	$msg2 = GUIGetMsg()
	Select
		Case $msg2 = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg2 = $link
			RunWait(@ComSpec & ' /c start http://de.wikipedia.org/wiki/Parallele_Schnittstelle', '', @SW_HIDE)
		Case $msg2 = $link2
			RunWait(@ComSpec & ' /c start http://www.the-starbearer.de/Praxis/Programmieren/VB%20Projekte/VBPraxisLPT%20inpout32.htm', '', @SW_HIDE)
		Case $msg2 = $Pic1
			RunWait(@ComSpec & ' /c start http://www.elektron-bbs.de/elektronik/kabel/computer/ports/subd25b.gif', '', @SW_HIDE)
	EndSelect
WEnd
GUIDelete()
EndFunc