8x8 Tastatur

mike1 · Post by **mike1** » Mon Jul 25, 2005 3:21 pm

Hallo,

ich bin seit letzer Woche stolzer Besitzer eines IO-Warrior 40.
Voran möchte ich erst mal erklären, was ich vor habe.
Vor einigen Jahren habe ich ein Home-Management-System entwickelt. Dieses konntrolliert zu Hause verschiedene Funktionen. Codeschloss an der Tür, Feuer - , Alarm - und Gasmelder...
Derzeit wir das über einen Rechner mit einer ISA Karte PIO 48II gemacht. Allerdings wird es langsam schwer noch Rechner höherer Taktraten zu finden die zwei ISA Slots haben. Daher der Umstige auf USB. Da der IO-Warrior eine 8x8 Tataturabfrage macht habe ich 64 Eingänge und die anderen beiden Ports als Ausgänge. Damit komme ich hin und habe auch keine Zeitprobleme bei der Abfrage der Tastatur mehr. Soweit also alles bestens.
Leider gestaltet sich die Ansteuerung und Portabfragen nicht ganz so einfach wie ich gehofft hatte. Bei der PIO48 hatte ich ein .ocx. Dort habe ich definiert was Ein- oder Ausgabeport ist und konnte nach belieben Ports oder Einzelbits setzen und zurücksetzten, bzw. lesen.
Jetzt zu meinen Fragen und Problemen.

Wie hoch ist die Abtastrate der Tastatur im Switch Matrix Mode?
Wie kann ich verhindern, das das Programm bei der Abfrage des Zustandes hängen bleibt. Die Funktion IowKitReadImmediate() liefert bei mir immer 1 und dann bleibt das Programm trotzdem bei der anschließenden Read Funkion hängen. Ausserdem lese ich immer nur 0 egal ob eine Taste betätigt ist oder nicht, wenn es denn mal funktioniert.
Es liegt wohl an meinen mangelnden Programmierkenntnissen. Leider habe ich auch kein Programmbeispiel für die 8x8 Switch Matrix gefunden. Jedoch denke ich das ich es geschafft habe den Spezialmod zu aktivieren. Das wars aber dann auch schon.
Wenn ich im diesem Modus die Ports 0 und 1 schreibe, was muss ich bei den Bytes für Port 2 und 3 angeben, damit das die Tastaturlesefunktion nicht beeinflusst oder ist es egal?
Kann ich eine Art Interrupt bei einer Tastaturbetätigung auslösen oder muss ich die ständig abfragen? Wenn das mit einem Interrupt ginge, wäre zumindest das Problem mit der Readfunktion gelöst. Wenn ich Abfragen muss, welche Abtastrate ist sinnvoll? Übrigens ich programmiere in VB6.

So das waren erst mal eine ganze Menge Fragen. Ich hoffe, Sie können mir helfen.

Vielen Dank

Robert Marquardt · Post by **Robert Marquardt** » Tue Jul 26, 2005 8:30 am

Die Abtastrate ist tatsaechlich nicht in der Dokumentation aufgefuehrt.
Sie ist aber auch weitgehend irrelevant (besonders fuer VB6). Da VB6 keinen Lesethread aufsetzen kann, muss mit einem Timer gelesen werden.
Damit gibt der Timer bzw. USB vor wie schnell es gehen kann. Der IO-Warrior kann nur ca 125 Reports pro Sekunde senden. Timer sind noch deutlich schlechter und sollten nicht unter 20 msec gehen.

Bei IowKitReadImmediate() gibt es wohl ein grundsaetzliches Missverstaendnis. Wenn IowKitReadImmediate() einen Wert ungleich Null liefert, so hat es einen neuen Wert von den IO-Pins gelesen. Ein weiteres IowKitRead() ist nicht erforderlich.
Liefert IowKitReadImmediate() Null, so ist der Wert fuer die IO-Pins unveraendert gegenueber dem letzten Aufruf.
Natuerlich wird 0 gelesen, da die Pins fuer den Switch Matrix Mode vom IO-Warrior aussortiert werden. Sie tauchen nicht in den Daten die IowKitReadImmediate() liefert auf.

Die Dokumentation sagt klar das unaufgefordert Reports mit ReportID $19 und $1A kommen sobald der Switch Matrix Mode aktiviert ist.
VB6 kann das aber nicht gut behandeln, da es keine Threads gibt. Die Delphi-HID-Komponente koennte es, da sie Threads nutzt um Ereignisse zu implementieren.

Es muss also mit einem Timer abgefragt werden. Ein IowKitWrite() das einen $19-Report schreibt und dann zwei IowKitRead() um die beiden Antwort-Reports zu lesen.

mike1 · Post by **mike1** » Tue Jul 26, 2005 11:20 am

Hallo,

vielen Dank für die schnelle Antwort. Leider haben Sie die Abtastrate nicht benannt. Ich wäre dankbar, wenn Sie es doch noch tun würden. Es ist sicher richtig, das sie für das nachgeschaltete System an USB nicht relevant ist, jedoch für die abgefragte Perepherie schon. z.B.: Welche Prellzeiten sind erlaubt und wie lange muss ich mindestes ein Signal halten, damit es sicher gelesen wird.

Den Rest werde ich heute Abend ausprobieren und mal sehen, ob ich das alles richtig verstanden habe.

Gruß
Mike

Guido Körber · Post by **Guido Körber** » Tue Jul 26, 2005 11:32 am

Die Matrix wird alle 4msec gelesen und eine Änderung des Status muss 16msec stabil sein.

Die Matrix für etwas anderes als Tasten zu verwenden geschieht auf eigene Gefahr und mit direkter Ankündigung von möglichen Problemen in zukünftigen Versionen.

mike1 · Post by **mike1** » Tue Jul 26, 2005 4:56 pm

Hallo,

Danke nochmal für die schnelle Antwort. Keine Angst, ich will nur 1 kleine Tastatur und ein paar Schalterzustände mit der Matrix abfragen.
Ich denke mal das sollte keine Probleme machen.

Die Abfragegeschwindigkeit ist mit 4ms zwar ziemlich hoch aber ich denke es gibt keine Probleme.
IowKitReadImmediate() Funktion ... verstanden und erledigt.
Abfrage der Matrix mit 100ms Timer aus VB6 reicht mit völlig. Also auch kein Problem.

Das einzige was ich nicht schaffe ist an die Daten der Matrix heran zu kommen. Die Read Funktion liefert immer 0 für Y0..Y7.

Hier mal die Prozedure mit der ich das versucht habe:
Die Smilies sind acht und Klammer zu. Sorry!

Public Sub IowKitRead8x8(iowHandle As Long) 'Abfrage
Dim x8Packet(0 To 7) As Byte
Dim nWritten As Long
Dim nRead As Long
Dim nRead2 As Long
Dim y8Packet(0 To 15) As Byte

' Report ID &H19 Read immediate
x8Packet(0) = &H19
' Write Report
nWritten = IowKitWrite(iowHandle, IOW_PIPE_SPECIAL_MODE, x8Packet(0),

' Read 16 Byte DataMatrix
nRead = IowKitRead(iowHandle, IOW_PIPE_SPECIAL_MODE, y8Packet(0),

nRead2 = IowKitRead(iowhandele, IOW_PIPE_SPECIAL_MODE, y8Packet(8),

If y8Packet(0) = 25 Then
MsgBox "Daten Y0 bis Y3: " & y8Packet(1) & y8Packet(2) & y8Packet(3) & y8Packet(4)
ElseIf y8Packet(0) = 26 Then
MsgBox "Daten Y4 bis Y7: " & y8Packet(1) & y8Packet(2) & y8Packet(3) & y8Packet(4)
Else
MsgBox "Keine Daten bzw. Unvollständig empfangen"
End If
If y8Packet(8) = 25 Then
MsgBox "Daten Y0 bis Y4: " & y8Packet(1) & y8Packet(2) & y8Packet(3) & y8Packet(4)
ElseIf y8Packet(8) = 26 Then
MsgBox "Daten Y5 bis Y8: " & y8Packet(1) & y8Packet(2) & y8Packet(3) & y8Packet(4)
Else
MsgBox "Keine Daten bzw. unvollständig empfangen"
End If
End Sub

Ich denke, das ich es so gemacht habe wie Sie gesagt haben erst die Write Funktion mit der &H19 und dann 2 mal die Read Funktion.
Ich hoffe Sie halten mich nicht für völlig doof. Danke noch mal für Ihre Hilfe.

Mike

Robert Marquardt · Post by **Robert Marquardt** » Wed Jul 27, 2005 8:06 am

Wenn die Message-Boxen mit Daten kommen, dann wurde auch gelesen.
Zur Sicherheit sollte man den Puffer vor dem Lesen auf Null setzen, damit man sicher ist das Daten gekommen sind.
Wenn in Y0 bis Y7 (die Nummerierung ist hier ein bischen falsch) Null steht, dann wurde kein Tastendruck erkannt. Das deutet dann eher auf ein Hardwareproblem, denn ich nehme an das Sie auf die Tasten druecken.

mike1 · Post by **mike1** » Wed Jul 27, 2005 4:20 pm

Also, kaum macht man's richtig schon funktionierts. Danke erst mal.
Was mich besonders irritiert hat ist, dass im Einzelschrittmodus (F8 Taste) die 2. Readfunktion hängen geblieben ist. Wenn man es durch laufen lässt funktioniert es allerdings.

Was jetzt noch ein bisschen störend wirkt ist, dass die Daten nach einer Pegeländerung doppelt vorliegen. Sie haben geschrieben, das man vor der Write Funktion den Puffer auf Null setzen soll. Leider habe ich nichts dazu gefunden. Wie macht man das?

Ich hoffe, dass ich Sie dann nicht mehr belätstigen muss.

Danke
Mike

Guido Körber · Post by **Guido Körber** » Wed Jul 27, 2005 4:25 pm

Die Reports werden nicht gebuffert, da es sonst zu Verwechslungen der Daten kommen könnte. Daher muss der Read-Befehl anstehen wenn der Report kommt, sonst gehen die Daten verloren.

Was meinen Sie mit Daten liegen doppelt vor? Die Matrixdaten werden bei jeder Zustandsänderung gesendet.

Den Puffer auf Null setzen können Sie eifnach indem Sie Nullen in den Puffer schreiben, keine trickreiche Aktion.

mike1 · Post by **mike1** » Fri Jul 29, 2005 8:29 am

Hi,

"Was meinen Sie mit Daten liegen doppelt vor? Die Matrixdaten werden bei jeder Zustandsänderung gesendet."

Damit liegen sie im FIFO Puffer des USB Ports, oder?

Frage ich aber die Daten in einem Timer zusätzlich ab:

nWritten = IowKitWrite(iowHandle, IOW_PIPE_SPECIAL_MODE, x8Packet(0), 8)
nRead = IowKitRead(iowHandle, IOW_PIPE_SPECIAL_MODE, y8Packet(0), 8)
nRead2 = IowKitRead(iowHandle, IOW_PIPE_SPECIAL_MODE, y8Packet(8), 8)

habe ich im Puffer sowohl die Daten die durch die Portänderung vorliegen als auch die die durch meine Abfrage geschickt wurden. Damit habe ich die Daten quasi doppelt. Um das zu verhindern sollte man vor der Write - Funktion den Puffer löschen. So hatte ich zumindest auch Herrn Marquardts letzen Post verstanden. Wie das allerdings geht, weis ich nicht und hatte gehofft das Sie mir das sagen können. (Vielleicht eine Zeile in VB)

Danke
Mike

Robert Marquardt · Post by **Robert Marquardt** » Fri Jul 29, 2005 8:57 am

Nein. Ich sprach davon die Variablen vorher mit Nullen zu fuellen, damit man auf der sicheren Seite ist und keine Zufallsdaten in der Variablen hat.
Das Verhalten das man die Reports doppelt bekommt ist nur fuer VB6 problematisch.
Eigentlich muesste man mit einem Thread lesen, aber das kann VB nicht.
Versuch es mal mit einem kurzen Timeout (so ca 50 msec oder darunter).
Also nicht mehr mit IowKitWrite eine Anwort anfordern, sondern mit IowKitRead bei gesetzem IowKitSetTimeout einfach lesen.

mike1 · Post by **mike1** » Thu Oct 27, 2005 3:36 pm

Hallo,

ich habe das mit dem Timeout mal ausprobiert. Aus einem nicht erklärlichen Grund verabschiedet sich dabei mein VB6. Die Lösung ist auch nicht besonders gut, weil ja mein System dann bei jeder Tastaturabfrage 50 ms "hängen" bleibt und auf dem rechner ja auch noch andere sachen laufen müssen.
Aus diesem Grund wollte ich mich mal an Delphi versuchen. Habe da aber schon ein grundlegendes Problem. Ich weis nicht was ich damit anfangen soll: " Borland Delphi: Die HID Komponente aus Delphi\HIDKomponente muss installiert werden. Ein Doppelklick auf HidController.dpk und dann auf Install." Wenn ich das Projekt doppelt anklicke dann startet Delphi und meldet das nich alle Komponenten geladen werden konnten und es funktioniert nichts. Also kann ich auch kein "install" ausführen.

"Der Pfad zu diesem Vewrzeichnis muss auch noch in den globalen Suchpfad der IDE eingetragen werden. " verstehe ich gar nicht!

Sorry aber ich habe von Delphi noch nich all zu viel Ahnung. Wäre net wenn Sie mir erst mal den Start ermöglichen.

Gruß
Mike

Robert Marquardt · Post by **Robert Marquardt** » Thu Oct 27, 2005 5:00 pm

Sorry, da muss ich die Reissleine ziehen. Anfaengerschulung geht einfach zu weit.

mike1 · Post by **mike1** » Fri Oct 28, 2005 6:03 pm

OK. Danke! Die Einsicht kommt spät aber doch noch nicht zu spät. Bevor ich noch mehr Zeit und Geld in ein von vorn herein zum Scheitern verurteiltes Projekt stecke.
Ein bisschen Kritik müssen Sie sich hier aber gefallen lassen. Um zu dieser Einsicht zu kommen, habe ich ziemlich viel Zeit und auch etwas Geld investiert, nur um herauszufinden, was Sie schon lange wissen, nämlich das der IO-Warrior für lesene Anwendungen in VB zwar theoretisch funktioniert aber in der Praxis absolut unbrauchbar ist.
So nun noch was in eigener Sache. Ich habe hier eine fertig aufgebautes Starterboard eines IO-Warriors 40 mit dem ich nichts mehr anfangen kann (getestet und voll funktionstüchtig).

. Ja und dann suche ich nach einem USB - IO Gerät, das etwas VB-"freundlicher" ist.

DANKE
MFG Mike

Robert Marquardt · Post by **Robert Marquardt** » Fri Oct 28, 2005 6:54 pm

Wir machen den IO-Warrior soweit verwendbar wie es mit VB6 geht. Das VB6 nichts taugt ist nicht unsere Schuld.
Wir sind keineswegs in der Pflicht VB6 Support ueberhaupt zu geben.

Meine Meinung zu VB6 ist oben nur euphremistisch wiedergegeben.

Guido Körber · Post by **Guido Körber** » Sat Oct 29, 2005 12:39 am

Robert, komm mal wieder von der Palme runter.

VB ist wirklich als Entwicklungssystem mit Einschränkungen versehen. Aber vielleicht kannst Du mal klären was für ein Problem mit dem Installieren der Komponente besteht.

Welche Version von Delphis ist das überhaupt?