Einfaches Codeschloss

[murdocg]

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:

$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

[kalletronic]

Hi,

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


Dim Pass = 5
Dim Code = 0

du brauchst die Variablen nur einmal zu definieren, bei den restlichen kannst du ruhig das "Dim" weglassen. Warum definierst du eig "Code" und "Pass" als Arry, die "(1)" kannste bei beiden Variablen auch weglassen.

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


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

Das kannst du alles in einer IF Abfrage machen weil du ja beidesmal auf Code=0 abfrägst und auch ohne "Dim" also so:

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

Gruß Kalle

[murdocg]

Ok, die IF-Abfrage hab ich mal zusammen gepackt.

Aber wie funktioniert das jetzt genau? Also Variablen Definiton, und dann damit arbeiten.

LG Fabian

[murdocg]

So, ich hab meinen Code nochmal überarbeitet, den compiliert er jetzt ohne Fehler:

$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 Pass As Byte
Dim Code As Byte

Pass = 5
Code = 0

Do

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


If Taste1 = 0 Then
   Code = Code + 1
End If


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


Loop

Hab das ganze eben ausprobiert, hat noch nicht funktioniert. Ich denke der Fehler liegt in der Hardware, das überprüf ich nachher nochmal.

Ich hab mal ein Bild angehängt.

[kalletronic]

Hi, es kann sein, daß dein Taster zu stark prellt und dadurch beim drücken die Variable gleich mehrmals hochzählet. Such hier im Forum doch mal nach "entprellen" .
Du kannst auch versuchen deinen Controller mal über die Serielle Schnittstelle an den PC dranzuhängen und dir die Variablen in nem Terminalprogramm anzeigen lassen, dann siehst du auch ob überhaupt etwas hochzählt.

[Basteltisch]

Hallo,
ich glaube ich kann tatsächlich zum erstenmal jemandem helfen

Also ich habe das selbe Projekt wie du nur mit 4 Tastern. Mein Code funktioniert auch wunderbar. Dies ist er:

      $regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000


Config Portd.5 = Output
               Config Pind.4 = Input
                Config Pinb.0 = Input
                Config Pind.7 = Input
                Config Pinc.3 = Input

                Taste1 Alias Pind.7
                Taste2 Alias Pinb.0
                Taste3 Alias Pind.4
                Taste4 Alias Pinc.3

                Portd.7 = 1
                Portb.0 = 1
                Portc.3 = 1
     Portd.4 = 1

Dim Code(4) As Byte

Do

If Taste1 = 0 Then                                          'wenn kein Widerstand vorhandem, d.h. strom fliesst
Portd.5 = 1
                       Code(1) = Code(2)
                       Code(2) = Code(3)
                       Code(3) = Code(4)
                       Code(4) = 1
While Taste1 = 0
Wend


Elseif Taste2 = 0 Then
Portd.5 = 1
                       Code(1) = Code(2)
                       Code(2) = Code(3)
                       Code(3) = Code(4)
                       Code(4) = 2

While Taste2 = 0
Wend

       Elseif Taste3 = 0 Then

       Portd.5 = 1

                       Code(1) = Code(2)
                       Code(2) = Code(3)
                       Code(3) = Code(4)
                       Code(4) = 3

While Taste3 = 0
Wend
       Elseif Taste4 = 0 Then

       Portd.5 = 1
                       Code(1) = Code(2)
                       Code(2) = Code(3)
                       Code(3) = Code(4)
                       Code(4) = 4

While Taste4 = 0
Wend

       Else
       Portd.5 = 0                                          'kein strom auf pin

     End If

If Code(1) = 1 Then
If Code(2) = 2 Then
      If Code(3) = 3 Then
            If Code(4) = 4 Then

                  Portd.5 = 1

            End If
      End If
End If
End If



  Loop

Der Code überwacht 4 Pins ob sie verbunden werden (Taster gedrückt) und schreibt die Nummer des Pins in eine Variable.
Diese wird immer weiter nach vorn verschoben, so dass wenn das Array die richtige konstelation aufweist darauf reagiert wird (in diesem fall das bewegen eines Servos, was ich aber noch ändere).

Wichtig hierbei ist nach jedem erkannten Tastendruck die Schleife die solange wartet wie die Taste gedrückt ist. Damit wird verhindert das die Zahl mehrmals in das Array geschrieben wird wenn die Taste nur einmal gedrückt wird.

Ich hoffe ich konnte helfen.

Es grüßt,
Basteltisch