Enigma auf dem µC

[Che Guevara]

Danke, da ist schon der Fehler! Leider ist es aber ein anderer und somit mein Problem noch immer vorhanden... Wenn im Eingangsarray eine 1 steht, steht beim Ausgang eine 26..

Gruß
Chris

[MagicWSmoke]

Schau' doch mal beim Drehen der Walze nach   Du vernichtest da gezielt Zelle 1.
Wenn Du das in Ordnung bringst, dann tut's auch, wie es soll.

[vohopri]

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]

@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]

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]

Oooh stimmt, danke  
Habs jetzt so gemacht:

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]

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:

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 ?