Das mit der Masse war so, weil der Widerstand einfach zu gross war das funktioniert jetzt und mehr als 5V hab ich so oder so nicht, also von daher keine gefahr. Ich hab das ganze nicht so aufgebaut wie auf dem Applikation board, sondern einfach jede Taste mit einem anderen Widerstand versehen. Vom Prinzip also gleich aber anders aufgebaut.
Das mit dem Störfeld ist ein guter Tipp, denn ich bin fast verzweifelt als das ding im Wohnzimmer immer gepiept hat und bei mir im Zimmer Problemlos lief. Lag wohl an der Fussbodenheizung. Muss mal schauen obs immernoch Probleme gibt. Hab so langsam keine Lust mehr zu conrad zu laufen 
aber ich werds mir auf jeden Fall merken.
Was deinen Code angeht.... ich glaube ich hab schonmal gesagt das ich nich so der klasse Programierer bin, also so wird ein code bei mir nie aussehen. Solang ichs hingrieg bin ich mit meinem trotzdem recht zufrieden. kannst dir ja ma angucken was ich da verbockt hab. fehlt eigentlich nur noch die ausgabe aufs LCD.
Code:
DEFINE PCFAdresse Byte[1] 'erste sein! Bytevar $0A1
DEFINE PCFDaten Byte[2] 'zweite sein!Bytevar $0a2
DEFINE Preset02 BYTE
DEFINE Preset12 BYTE
DEFINE Preset22 BYTE
DEFINE Preset32 BYTE
DEFINE Preset42 BYTE
DEFINE Preset52 BYTE
DEFINE Preset62 BYTE
DEFINE Preset72 BYTE
DEFINE Preset82 BYTE
DEFINE Preset92 BYTE
DEFINE NR BYTE
DEFINE NR2 BYTE
DEFINE key BYTE
DEFINE Preset01 WORD
DEFINE Preset11 WORD
DEFINE Preset21 WORD
DEFINE Preset31 WORD
DEFINE Preset41 WORD
DEFINE Preset51 WORD
DEFINE Preset61 WORD
DEFINE Preset71 WORD
DEFINE Preset81 WORD
DEFINE Preset91 WORD
DEFINE Ports1 WORDPORT[1]
DEFINE key2 AD[6]
DEFINE L01 port[1]
DEFINE L02 port[2]
DEFINE L03 port[3]
DEFINE L04 port[4]
DEFINE L05 port[5]
DEFINE L06 port[6]
DEFINE L07 port[7]
DEFINE L08 port[8]
DEFINE L09 port[9]
DEFINE L10 port[10]
DEFINE L11 port[11]
DEFINE L12 port[12]
DEFINE L13 port[13]
DEFINE L14 Port[14]
DEFINE L15 Port[15]
DEFINE L16 Port[16]
DEFINE a 97
DEFINE b 98
DEFINE c 99
DEFINE d 100
DEFINE e 101
DEFINE f 102
DEFINE g 103
DEFINE h 104
DEFINE i 105
DEFINE j 106
DEFINE k 107
DEFINE l 108
DEFINE m 109
DEFINE n 110
DEFINE o 111
DEFINE p 112
DEFINE q 113
DEFINE r 114
DEFINE s 115
DEFINE t 116
DEFINE u 117
DEFINE v 118
DEFINE w 119
DEFINE x 120
DEFINE y 121
DEFINE z 122
#AllOff
Ports1 = OFF
#start
GOSUB Eingabe
if NR2 = 0 and NR = 0 then goto AllOff 'Alle ausschalten
if NR2 > 9 and NR < 10 then goto error 'Nur zweistellige Zahlen zulassen
if NR = 11 then goto menu1 'Menü Laden/Speichern aufrufen
if NR2 <> 0 And NR = 12 then goto schalten 'Bei Korrekter Eingabe schalten
if NR2 = 0 And NR = 12 then goto error 'Enter ohne Eingabe -> Error
if NR2 = 0 then goto Ziffer1 'Zwischenspeicher leer -> erste Stelle zwischenspeichern
NR2 = NR + NR2 * 10 'zweite Stelle Berechnen
goto start
#Ziffer1
NR2 = NR 'erste stelle zwischenspeichern
goto start
#reset
NR2 = 0 'zwischenspeicher löschen
goto start
#error
beep 400,25,10
goto reset
#schalten
if NR2 = 1 then TOG L01
if NR2 = 2 then TOG L02
if NR2 = 3 then TOG L03
if NR2 = 4 then TOG L04
if NR2 = 5 then TOG L05
if NR2 = 6 then TOG L06
if NR2 = 7 then TOG L07
if NR2 = 8 then TOG L08
if NR2 = 9 then TOG L09
if NR2 = 10 then TOG L10
if NR2 = 11 then TOG L11
if NR2 = 12 then TOG L12
if NR2 = 13 then TOG L13
if NR2 = 14 then TOG L14
if NR2 = 15 then TOG L15
if NR2 = 16 then TOG L16
if NR2 < 17 then goto reset
PCFadresse = 64 'Adresse PCF8574 mit a0-A2
sys &h0126 'PCF8574 Lesen, Ergebnis in PCFDaten
if NR2 = 17 AND (PCFDaten AND &B00000001) > 0 then PCFDaten = PCFDaten AND &B11111110 ELSE if NR2 = 17 AND (PCFDaten AND &B00000001) = 0 then PCFDaten = PCFDaten OR &B00000001
if NR2 = 18 AND (PCFDaten AND &B00000010) > 0 then PCFDaten = PCFDaten AND &B11111101 ELSE if NR2 = 18 AND (PCFDaten AND &B00000010) = 0 then PCFDaten = PCFDaten OR &B00000010
if NR2 = 19 AND (PCFDaten AND &B00000100) > 0 then PCFDaten = PCFDaten AND &B11111011 ELSE if NR2 = 19 AND (PCFDaten AND &B00000100) = 0 then PCFDaten = PCFDaten OR &B00000100
if NR2 = 20 AND (PCFDaten AND &B00001000) > 0 then PCFDaten = PCFDaten AND &B11110111 ELSE if NR2 = 20 AND (PCFDaten AND &B00001000) = 0 then PCFDaten = PCFDaten OR &B00001000
if NR2 = 21 AND (PCFDaten AND &B00010000) > 0 then PCFDaten = PCFDaten AND &B11101111 ELSE if NR2 = 21 AND (PCFDaten AND &B00010000) = 0 then PCFDaten = PCFDaten OR &B00010000
if NR2 = 22 AND (PCFDaten AND &B00100000) > 0 then PCFDaten = PCFDaten AND &B11011111 ELSE if NR2 = 22 AND (PCFDaten AND &B00100000) = 0 then PCFDaten = PCFDaten OR &B00100000
if NR2 = 23 AND (PCFDaten AND &B01000000) > 0 then PCFDaten = PCFDaten AND &B10111111 ELSE if NR2 = 23 AND (PCFDaten AND &B01000000) = 0 then PCFDaten = PCFDaten OR &B01000000
if NR2 = 24 AND (PCFDaten AND &B10000000) > 0 then PCFDaten = PCFDaten AND &B01111111 ELSE if NR2 = 24 AND (PCFDaten AND &B10000000) = 0 then PCFDaten = PCFDaten OR &B10000000
sys &h0101 'PCF8574 mit Daten = PCFDaten schreiben
if NR2 > 24 and NR2 < 99 then goto error
'if NR2 = 99 then goto P99
goto reset
#menu1
'abfragen ob speichern oder Laden (* | #)
GOSUB Eingabe
if NR = 11 then goto menu2
if NR = 12 then goto menu3
goto error
#menu2
GOSUB Eingabe
if NR2 = 0 and NR = 0 then goto error '0 --> error
if NR2 > 9 and NR < 10 then goto error 'Nur zweistellige Zahlen zulassen
if NR = 11 then goto error ' * -> error
if NR2 <> 0 And NR2 <= 10 And NR = 12 then goto Laden 'Laden zwischen Speicherplatz 1 und 10
if NR2 = 0 And NR = 12 then goto error 'Enter ohne Eingabe -> Error
if NR2 = 0 then goto Ziffer1 'Zwischenspeicher leer -> erste Stelle zwischenspeichern
NR2 = NR + NR2 * 10 'zweite Stelle Berechnen
goto menu2
#menu3
GOSUB Eingabe
if NR2 = 0 and NR = 0 then goto error '0 --> error
if NR2 > 9 and NR < 10 then goto error 'Nur zweistellige Zahlen zulassen
if NR = 11 then goto error ' * -> error
if NR2 <> 0 And NR2 <= 10 And NR = 12 then goto Speichern 'Speicherplatz zwischen 1 und 10
if NR2 = 0 And NR = 12 then goto error 'Enter ohne Eingabe -> Error
if NR2 = 0 then goto Ziffer1 'Zwischenspeicher leer -> erste Stelle zwischenspeichern
NR2 = NR + NR2 * 10 'zweite Stelle Berechnen
goto menu3
#Input
OPEN# FOR READ
if EOF then goto error
INPUT# Preset01
INPUT# Preset11
INPUT# Preset21
INPUT# Preset31
INPUT# Preset41
INPUT# Preset51
INPUT# Preset61
INPUT# Preset71
INPUT# Preset81
INPUT# Preset91
INPUT# Preset02
INPUT# Preset12
INPUT# Preset22
INPUT# Preset32
INPUT# Preset42
INPUT# Preset52
INPUT# Preset62
INPUT# Preset72
INPUT# Preset82
INPUT# Preset92
CLOSE#
RETURN
#Laden
gosub Input
if NR2 = 1 then Ports1 = Preset01
if NR2 = 1 then PCFDaten = Preset02
if NR2 = 2 then Ports1 = Preset11
if NR2 = 2 then PCFDaten = Preset12
if NR2 = 3 then Ports1 = Preset21
if NR2 = 3 then PCFDaten = Preset22
if NR2 = 4 then Ports1 = Preset31
if NR2 = 4 then PCFDaten = Preset32
if NR2 = 5 then Ports1 = Preset41
if NR2 = 5 then PCFDaten = Preset42
if NR2 = 6 then Ports1 = Preset51
if NR2 = 6 then PCFDaten = Preset52
if NR2 = 7 then Ports1 = Preset61
if NR2 = 7 then PCFDaten = Preset62
if NR2 = 8 then Ports1 = Preset71
if NR2 = 8 then PCFDaten = Preset72
if NR2 = 9 then Ports1 = Preset81
if NR2 = 9 then PCFDaten = Preset82
if NR2 = 10 then Ports1 = Preset91
if NR2 = 10 then PCFDaten = Preset92
PCFadresse = 64 'Adresse PCF8574 mit a0-A2
sys &h0101 'PCF8574 mit Daten = PCFDaten schreiben
goto reset
#speichern
'wirklich speichern?
gosub Input
PCFadresse = 64 'Adresse PCF8574 mit a0-A2
sys &h0126 'PCF8574 Lesen, Ergebnis in PCFDaten
if NR2 = 1 then Preset01 = Ports1
if NR2 = 1 then Preset02 = PCFDaten
if NR2 = 2 then Preset11 = Ports1
if NR2 = 2 then Preset12 = PCFDaten
if NR2 = 3 then Preset21 = Ports1
if NR2 = 3 then Preset22 = PCFDaten
if NR2 = 4 then Preset31 = Ports1
if NR2 = 4 then Preset32 = PCFDaten
if NR2 = 5 then Preset41 = Ports1
if NR2 = 5 then Preset42 = PCFDaten
if NR2 = 6 then Preset51 = Ports1
if NR2 = 6 then Preset52 = PCFDaten
if NR2 = 7 then Preset61 = Ports1
if NR2 = 7 then Preset62 = PCFDaten
if NR2 = 8 then Preset71 = Ports1
if NR2 = 8 then Preset72 = PCFDaten
if NR2 = 9 then Preset81 = Ports1
if NR2 = 9 then Preset82 = PCFDaten
if NR2 = 10 then Preset91 = Ports1
if NR2 = 10 then Preset92 = PCFDaten
OPEN# FOR WRITE
if FILEFREE < 20 then goto error
PRINT# Preset01
PRINT# Preset11
PRINT# Preset21
PRINT# Preset31
PRINT# Preset41
PRINT# Preset51
PRINT# Preset61
PRINT# Preset71
PRINT# Preset81
PRINT# Preset91
PRINT# Preset02
PRINT# Preset12
PRINT# Preset22
PRINT# Preset32
PRINT# Preset42
PRINT# Preset52
PRINT# Preset62
PRINT# Preset72
PRINT# Preset82
PRINT# Preset92
CLOSE#
goto reset
#Eingabe
wait key2 > 10
key = key2
pause 20
if key >=0 and key <=70 then NR=0 ' 0
if key >=111 and key <=111 then NR=1 ' 1
if key >=111 and key <=111 then NR=2 ' 2
if key >=89 and key <=94 then NR=3 ' 3
if key >=95 and key <=109 then NR=4 ' 4
if key >=110 and key <=128 then NR=5 ' 5
if key >=129 and key <=149 then NR=6 ' 6
if key >=150 and key <=172 then NR=7 ' 7
if key >=273 and key <=193 then NR=8 ' 8
if key >=194 and key <=219 then NR=9 ' 9
if key >=220 and key <=244 then NR=11 ' *
if key >=245 and key <=255 then NR=12 ' #
RETURN
END
syscode "I2C_M.obj"
das schwierigste war für mich den TOG befehl auf PORTS des PCF8574 umzusetzen. Ich löse sowas immer auf eine komische Art die dann recht undurchschaubar aussieht.... hoffe es ist nich all zu doof Programiert 
das ist der Befehl für um Port 17 umzuschalten:
if NR2 = 17 AND (PCFDaten AND &B00000001) > 0 then PCFDaten = PCFDaten AND &B11111110 ELSE if NR2 = 17 AND (PCFDaten AND &B00000001) = 0 then PCFDaten = PCFDaten OR &B00000001
Zitat von zwanzischmark
Berechtigungen
Zitieren
Lesezeichen