Hi Leute,
habe mir heute ein einfaches Codeschloss gebastelt.

Funktionsprinzip:
3Taster:
- Variable +1
- Eingabe
- Reset

Momentan weiß ich noch nicht wie ich das ganze im Code machen soll. Ich habe zwar schon einen Ansatz, bräuchte aber noch ein wenig Hilfe.

Also ich habe 2 Variablen. Eine ist = 0 und eine ist = ? (die gewünschte einstellige Codezahl)
Wenn ich jetzt den Taster Variable +1 betätige wird zur ersten Variable 1 addiert. Man muss den Taster drücken bis die Variable den richtigen Wert hat. Dann bestätigt man über den Eingabe Taster (die beiden Variablen werden verglichen). Wenn die Zahlen übereinstimmen öffnet sich das Schloss. Wenn nicht, leuchtet wieder die rote LED und man muss das Passwort erneut eingeben. Der Reset Taster dient zum zurücksetzen der Variable auf null.

Momentan sieht mein Code noch so aus:
Code:
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000


Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

       Gelb Alias Portb.1
       Gruen Alias Portb.2
       Rot Alias Portb.3

Config Pinb.0 = Input
Config Pind.7 = Input
Config Pind.6 = Input

       Taste1 Alias Pind.6
       Eingabe Alias Pind.7
       Neu Alias Pinb.0



       Portb.0 = 1
       Portd.7 = 1
       Portd.6 = 1


Dim Code(1) As Byte
Dim Pass(1) As Byte


Dim Pass = 5
Dim Code = 0

Do

If Dim Code = 0 Then
  Rot = 1
Else
  Rot = 0
End If


If Dim Code = 0 Then
  Gelb = 0
Else
  Gelb = 1
End If


If Taster1 = 0 Then
  Dim Code = Code + 1
End If


If Dim Code = Dim Pass Then
    Gruen = 1
Else
    Gruen = 0
End If


Loop
Wäre über Hilfe beim Code sehr dankbar.

LG Fabian