gut werde ich.
Aber wenns garnimmer geht hab ich schon mal abhilfe:
Nur noch die ' entfernen dann ist das ein perfekter auswerter. Der einzige Nachtiel ist eben der verbratene Flash.Code:'Sub Tastatur() ' If Pinb.0 = 1 Then ' If Pinb.4 = 1 Then ' Akttaste = 1 '1 ' End If ' If Pinb.5 = 1 Then ' Akttaste = 4 '4 ' End If ' If Pinb.6 = 1 Then ' Akttaste = 7 '7 ' End If ' If Pinb.7 = 1 Then ' Akttaste = 11 '* ' End If ' Else ' If Pinb.1 = 1 Then ' If Pinb.4 = 1 Then ' Akttaste = 2 '2 ' End If ' If Pinb.5 = 1 Then ' Akttaste = 5 '5 ' End If ' If Pinb.6 = 1 Then ' Akttaste = 8 '8 ' End If ' If Pinb.7 = 1 Then ' Akttaste = 0 '0 ' End If ' Else ' If Pinb.2 = 1 Then ' If Pinb.4 = 1 Then ' Akttaste = 3 '3 ' End If ' If Pinb.5 = 1 Then ' Akttaste = 6 '6 ' End If ' If Pinb.6 = 1 Then ' Akttaste = 9 '9 ' End If ' If Pinb.7 = 1 Then ' Akttaste = 12 '# ' End If ' Else ' If Pinb.3 = 1 Then ' If Pinb.4 = 1 Then ' Akttaste = 21 'A / leer ' End If ' If Pinb.5 = 1 Then ' Akttaste = 22 'B / Abbruch ' End If ' If Pinb.6 = 1 Then ' Akttaste = 23 'C / Korrektur ' End If ' If Pinb.7 = 1 Then ' Akttaste = 24 'D / Bestätigen ' End If ' Else ' Akttaste = 99 'nichts gedrückt ' End If ' End If ' End If ' End If 'End Sub
Zitieren
Lesezeichen