Enigma auf dem µC

**vohopri** · 12.09.2011, 09:47

Hallo,

nettes Projekt. Solche Technologievergleiche find ich interessant, wie hier elektromechanisch vs MC-digital.

Wie soll die Ein und Ausgabe dann im Endeffekt realisiert werden?

**Che Guevara** · 12.09.2011, 10:03

@MagicWSmoke: Tut mir leid, ich habs mir jetzt seeehr lange angesehen, aber ich sehe den Fehler nicht... Könntest du mir erklären, wo ich was falsch gemacht habe?

@vohopori: Ich finde es auch interresant, etwas mechanisches elektronisch umzusetzen

Ein- bzw. Ausgabe sind noch unklar, es wird aber auf jeden Fall mehrere Module geben, welche über I2C kommunizieren. Details folgen

Gruß
Chris

**MagicWSmoke** · 12.09.2011, 10:19

Zitat von Che Guevara

Tut mir leid, ich habs mir jetzt seeehr lange angesehen, aber ich sehe den Fehler nicht... Könntest du mir erklären, wo ich was falsch gemacht habe?

Wenn Pointer_1 = 1 ist, dann ist Tmp = 2. Damit wird die zweite Zelle auf die Erste geschrieben und der Inhalt der ersten Zelle zerstört, welche eigentlich in Zelle 26 kommen soll. So kommt aber nur ein falscher Inhalt dort an, d.h. der Inhalt der vormaligen Zelle 2.

**Che Guevara** · 12.09.2011, 10:30

Oooh stimmt, danke

Habs jetzt so gemacht:

Code:

Sub Walze_drehen()
Tmp2 = Walze_1(1)
For Pointer_1 = 1 To 26
   Tmp = Pointer_1 + 1
   If Tmp = 27 Then Tmp = 1
   Walze_1(pointer_1) = Walze_1(tmp)
   If Pointer_1 = 26 Then
      Walze_1(26) = Tmp2
   End If
   Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub

Jedoch behebt das immer noch nicht mein Problem -.- Ich denke, mit Walze_1_inv stimmt was noch nicht, aber da muss ich mich erst wieder reindenken...

Gruß
Chris

**MagicWSmoke** · 12.09.2011, 10:42

Zitat von Che Guevara

Jedoch behebt das immer noch nicht mein Problem -.- Ich denke, mit Walze_1_inv stimmt was noch nicht, aber da muss ich mich erst wieder reindenken...

Das hier hatte funktioniert:

Code:

Sub Walze_drehen()
Local Cell_1 As Byte
  Cell_1 = Walze_1(1)
For Pointer_1 = 1 To 26
   Tmp = Pointer_1 + 1
   If Tmp = 27 Then
     Walze_1(pointer_1) = Cell_1
   Else
     Walze_1(pointer_1) = Walze_1(tmp)
   End If
     Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub

Fehler: If Reflektor = 27 Then Reflektor = 1 wurde ausgebessert ?

**Che Guevara** · 12.09.2011, 10:48

Aber Walze_1(26) wird doch noch vor Walze_1_inv(Walze_1(pointer_1)) beschrieben... Ich glaube, ich verstehe nicht, was du meinst.. IMHO wird jetzt Walze_1 richtig beschrieben und somit sollte auch Walze_1_inv stimmen. Korigiert mich bitte, falls ich was falsches sage.

Gruß
Chris