Voice Direct 300/364

[x-ryder]

Hi Leutz,

ich hab nen Problem mit dem Voice Direct 300/364 Modul (hier isses pdf! (http://www.voiceactivation.com/html/support/docs/80-0037.pdf))

ich schicke jeweils ddaten mit ich denke dem richtigen protokoll (siehe unten) und mein problem ist nun, das SHS nie auf low wechselt, das er also während der programmausführung immer stehen bleibt...

habt ihr ne idee???

Mein Code:

$regfile = "m8def.dat"
$crystal = 7372800

Config Pinc.0 = Output
Config Pinc.1 = Output
Config Pinc.2 = Input
Config Pinc.3 = Output

Portc = 0

Config Lcd = 20 * 4
Config Lcdpin = Pin , E = Portb.0 , Rs = Portb.1 , Db7 = Portb.5 , Db6 = Portb.4 , Db5 = Portb.3 , Db4 = Portb.2
Config Lcdbus = 4
Config Lcdmode = Port

Cls

Dim Daten As Byte
Dim I As Byte

Waitms 2000

Daten = &B11111111

Gosub Schreiben

Daten = &B00000100 '4

Gosub Schreiben

Daten = &B00110000 '30

Gosub Schreiben

Daten = &B00000001 '1

Gosub Schreiben

Daten = &B00000000 '0

Gosub Schreiben

Daten = &B00110101

Gosub Schreiben

Gosub Lesen : Gosub Lesen

For I = 1 To Daten
Gosub Lesen
Next

End

Schreiben:

Config Pinc.0 = Output
For I = 7 To 0 Step -1
Portc.0 = Daten.i : Lcd Daten.i
Do : Loop Until Pinc.2 = 1
Lcd "a"
Portc.1 = 0
Do : Loop Until Pinc.2 = 0
Lcd "b"
Portc.1 = 1
Do : Loop Until Pinc.2 = 1
Lcd "c"
Next

Lcd " "

Return

Lesen:

Daten = 0
Config Pinc.0 = Input
For I = 7 To 0 Step -1
Do : Loop Until Pinc.2 = 0
If Pinc.0 = 1 Then Daten.i = 1
Portc.1 = 0
Do : Loop Until Pinc.2 = 1
Portc.1 = 1
Next

Lcd Daten ; " "

Return

Martin