AutoIT mit USB EXPERIMENT INTERFACE BOARD - BAUSATZ

button421

Beiträge

360
13. Juli 2010 um 19:37
- #1
Hallo Leute!
Ich habe Interesse an diesem Bausatz, in der Programmieranleitung steht:

Spoiler anzeigen

Mithilfe dieser Arbeitsweisen und Funktionen, die durch die DLL exportiert werden, können sie maßgeschneiderte Windows-Applikationen (98SE, 2000, ME, XP) in Delphi, Visual Basic, C++ Builder oder jedem anderen 32Bit-Windows-Hilfsprogramm für Applikationen, das DLL unterstützt, schreiben.

Ist AutoIT 32Bit und unterstütz AutoIT DLLs?
MfG button421
Meine fertigen Projekte:
VirtualCash
Monopoly Digital
Daran arbeite ich gerade:
Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht ) Stand: ||||||||||||||||||||||| 6%
Alizame

Beiträge

476
13. Juli 2010 um 19:42
- #2
jo tut es (oder sehe ich das doch falsch? )
[autoit]
DllOpen(..)
DllCall(..)
DllClose(..)
;etc
[/autoit]
Edit\\ ich würde mir glaube ich eher eins selbst basteln was ungefähr so ist, und die dll gibts bestimmt irgendwo (ausserdem könnte man das auch mit nem (micro)controller (ATMega / ATTiny etc. machen, nur das ansteuern wird dann schwerer, kannste aber assembler nehmen, leider kein autoit )
ich denke das wäre billiger (bei der (micro)controller variante vllt. nicht^^)
Einmal editiert, zuletzt von Alizame (13. Juli 2010 um 19:50)
progandy

Gast
13. Juli 2010 um 19:55
- #3
AutoIt gibt es in 32but und 64bit. Wenn man Windows x64 hat, muss man darauf achten, dass man wirklich die 32bit-version startet.
Blume

Reaktionen

7

Beiträge

690
14. Juli 2010 um 12:02
- #4
@button421
Ja man kann das Board per DllCall steuern, Habe das selbe hier
Und als kleine Starthilfe für die Funktionen: Klick
mfg, Blume
Mein PC | Schon etwas länger her
[Blockierte Grafik: http://www.speedtest.net/result/4338313973.png]
button421

Beiträge

360
14. Juli 2010 um 13:33
- #5
Danke! IN der Anleitung steht auch was von Visual Basic (da habe ich Anfängerkenntnisse).
Meine fertigen Projekte:
VirtualCash
Monopoly Digital
Daran arbeite ich gerade:
Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht ) Stand: ||||||||||||||||||||||| 6%
vivus

Beiträge

186
15. Juli 2010 um 08:36
- #6
hier ne udf...

Spoiler anzeigen

[autoit]
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
AutoIt Version: 3.3.0.0
Author: myName
[/autoit] [autoit][/autoit] [autoit]
Script Function:
handles the k8055d.dll 2009.10.19
[/autoit] [autoit][/autoit] [autoit]
#ce ----------------------------------------------------------------------------
func USB_DLLOpen()
[/autoit] [autoit][/autoit] [autoit]
DllOpen(@ScriptDir & "\" & "k8055D_multi.dll") ; öffnen der DLL
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func initial_board($address)
[/autoit] [autoit][/autoit] [autoit]
$begin = TimerInit()
Do
$result = USBOpenDevice($address)
Sleep(250)
[/autoit] [autoit][/autoit] [autoit]
$dif = TimerDiff($begin)
[/autoit] [autoit][/autoit] [autoit]
If $dif > "4000" Then ExitLoop
[/autoit] [autoit][/autoit] [autoit]
Until $result = 1
[/autoit] [autoit][/autoit] [autoit]
ClearAllDigital($address)
[/autoit] [autoit][/autoit] [autoit]
Sleep(250)
[/autoit] [autoit][/autoit] [autoit]
SetDigitalChannel($address, "8")
[/autoit] [autoit][/autoit] [autoit]
If $result = 1 Then
Return "1"
[/autoit] [autoit][/autoit] [autoit]
Else
MsgBox(0, "ERROR", "fehler bei initialisierung des USB board's" & $address)
MsgBox(0, "ERROR", "Programm wird beendet! mit " & $result)
Exit
Return "0"
[/autoit] [autoit][/autoit] [autoit]
EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>initial_board
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func USBOpenDevice($address)
[/autoit] [autoit][/autoit] [autoit]
$result = DllCall("k8055D_multi.dll", "long", "OpenDevice", "long", $address)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If $result[0] = $address Then
Return "1"
[/autoit] [autoit][/autoit] [autoit]
Else
;MsgBox(0, "ERROR", "Keine Verbindung zu USB BOARD ADRESSE " & $address & " !!", 2)
;exit
Return "0"
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>USBOpenDevice
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func CloseAllDevice()
$res = DllCall("k8055D_multi.dll", "none", "CloseDevice")
DllClose(@ScriptDir & "\" & "k8055D_multi.dll") ; öffnen der DLL
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>USBCloseDevice
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func SearchDevices()
[/autoit] [autoit][/autoit] [autoit]
$result = DllCall("k8055D_multi.dll", "long", "SearchDevices")
[/autoit] [autoit][/autoit] [autoit]
Return $result[0]
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func USBCloseDevice($address)
SetCurrentDevice($address)
$res = DllCall("k8055D_multi.dll", "none", "CloseDevice")
;Return ;;$result[0]
EndFunc ;==>USBCloseDevice
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func ClearAllDigital($address)
SetCurrentDevice($address)
$res = DllCall("k8055D_multi.dll", "int", "ClearAllDigital")
EndFunc ;==>ClearAllDigital
[/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func SetCurrentDevice($address)
[/autoit] [autoit][/autoit] [autoit]
$begin = TimerInit()
Do
[/autoit] [autoit][/autoit] [autoit]
$result = DllCall("k8055D_multi.dll", "long", "SetCurrentDevice", "int", $address)
[/autoit] [autoit][/autoit] [autoit]
;ToolTip($address&"="&$result[0],0,0)
$dif = TimerDiff($begin)
[/autoit] [autoit][/autoit] [autoit]
If $dif > "4000" then ExitLoop
[/autoit] [autoit][/autoit] [autoit]
Until $address = $result[0]
[/autoit] [autoit][/autoit] [autoit]
;ToolTip("",0,0)
[/autoit] [autoit][/autoit] [autoit]
If $address = $result[0] Then
;nix
Else
MsgBox(0, "", "adresse = " & $address & " result = " & $result[0])
[/autoit] [autoit][/autoit] [autoit]
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>SetCurrentDevice
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func SetDigitalChannel($address, $channel)
SetCurrentDevice($address)
DllCall("k8055D_multi.dll", "none", "SetDigitalChannel", "int", $channel)
EndFunc ;==>SetDigitalChannel
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func ClearDigitalChannel($address, $channel)
SetCurrentDevice($address)
DllCall("k8055D_multi.dll", "none", "ClearDigitalChannel", "int", $channel)
EndFunc ;==>ClearDigitalChannel
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func ReadAnalogChannel($address, $channel)
SetCurrentDevice($address)
$result = DllCall("k8055D_multi.dll", "int", "ReadAnalogChannel", "int", $channel)
Return $result[0]
EndFunc ;==>ReadAnalogChannel
[/autoit] [autoit][/autoit] [autoit]
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Func ReadAllDigital($address)
SetCurrentDevice($address)
$alldigit = DllCall("k8055D_multi.dll", "int", "ReadAllDigital")
Return $alldigit[0]
EndFunc ;==>ReadAllDigital
;---------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func ReadDigitalChannel($address, $sellect)
Dim $channel[6]
$channel[1] = 0
$channel[2] = 0
$channel[3] = 0
$channel[4] = 0
$channel[5] = 0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$wert = ReadAllDigital($address)
[/autoit] [autoit][/autoit] [autoit]
;MsgBox(0,"",$alldigit[0] & " " & $wert)
Select
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 0
$channel[1] = 0
$channel[2] = 0
$channel[3] = 0
$channel[4] = 0
$channel[5] = 0
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 1
;I1
$channel[1] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 2
;I2
$channel[2] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 3
;I1 + I2
$channel[1] = 1
$channel[2] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 4
;I3
$channel[3] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 5
;I3 + I1
$channel[1] = 1
$channel[3] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 6
;I3 + I2
$channel[2] = 1
$channel[3] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 7
;I3 + I2 + I1
$channel[1] = 1
$channel[2] = 1
$channel[3] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 8
;I4
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 9
;I4 + I1
$channel[1] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 10
;I4 + I2
$channel[2] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 11
;I4 + I2 + I1
$channel[1] = 1
$channel[2] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 12
;I4 + I3
$channel[3] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 13
;I4 + I3 + I1
$channel[1] = 1
$channel[3] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 14
;I4 + I3 + I2
$channel[2] = 1
$channel[3] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 15
;I4 + I3 * I2 + I1
$channel[1] = 1
$channel[2] = 1
$channel[3] = 1
$channel[4] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 16
;I5
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 17
;I1
$channel[1] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 18
;I2
$channel[2] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 19
;I1 + I2
$channel[1] = 1
$channel[2] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 20
;I3
$channel[3] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 21
;I3 + I1
$channel[1] = 1
$channel[3] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 22
;I3 + I2
$channel[2] = 1
$channel[3] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 23
;I3 + I2 + I1
$channel[1] = 1
$channel[2] = 1
$channel[3] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 24
;I4
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 25
;I4 + I1
$channel[1] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 26
;I4 + I2
$channel[2] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 27
;I4 + I2 + I1
$channel[1] = 1
$channel[2] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 28
;I4 + I3
$channel[3] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 29
;I4 + I3 + I1
$channel[1] = 1
$channel[3] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 30
;I4 + I3 + I2
$channel[2] = 1
$channel[3] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case $wert = 31
;I4 + I3 * I2 + I1
$channel[1] = 1
$channel[2] = 1
$channel[3] = 1
$channel[4] = 1
$channel[5] = 1
[/autoit] [autoit][/autoit] [autoit]
Case Else
[/autoit] [autoit][/autoit] [autoit]
$channel[1] = 0
$channel[2] = 0
$channel[3] = 0
$channel[4] = 0
$channel[5] = 0
[/autoit] [autoit][/autoit] [autoit]
EndSelect
[/autoit] [autoit][/autoit] [autoit]
If $channel[$sellect] = 1 Then
; MsgBox(0,"","return 1")
Return 1
Else
; MsgBox(0,"","return 0")
Return 0
[/autoit] [autoit][/autoit] [autoit]
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>ReadDigitalChannel
;----------------------------------------------------------------------------
[/autoit]
vivus

Beiträge

186
15. Juli 2010 um 08:39
- #7
das ist auch noch sehr passend ..
http://www.autoit.de/index.php?page=Thread&postID=117621&highlight=k8055.dll#post117621
button421

Beiträge

360
24. Juli 2010 um 19:58
- #8
Ähm, DjBlumes Link funktioniert nicht mehr, kann mir jemand ein kurzes Beispiel schreiben, wo die grundlagen drin stehen?
P.S.: Wie kann ich eine Abfrage machen ob ein Taster (Inp1-Inp5) gedrückt wurde? Etwa:
[autoit]

If _ReadDigitalInput(Inp1) Then
;...
EndIf
[/autoit]
Dank
Meine fertigen Projekte:
VirtualCash
Monopoly Digital
Daran arbeite ich gerade:
Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht ) Stand: ||||||||||||||||||||||| 6%
AutoTim

Beiträge

304
25. Juli 2010 um 16:57
- #9
Meine Empfehlung:
http://www.codemercs.com/shop/index.php?page=categorie&cat=1&x17cd1=9cc483ef44ea14db2a1e57bd8450a2e3
mfg Tim
[Blockierte Grafik: http://www.speedtest.net/result/1688457895.png]
button421

Beiträge

360
25. Juli 2010 um 17:04
- #10
Ich habe mir das K8055-Board aber schon gekauft
Meine fertigen Projekte:
VirtualCash
Monopoly Digital
Daran arbeite ich gerade:
Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht ) Stand: ||||||||||||||||||||||| 6%

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.