Bascom: Schrittmotorsteuerung mit Drehencoder?

[Rone]

Ja, Super! Ihr seid klasse!

Mein 2.0.7.3 macht den Code so geändert jetzt auch!

Vielen, vielen Dank!

Wie schön, dass hier so viele hilfreiche Leute am Werk sind, die ihr Wissen mit anderen teilen.....


Diese Antwort in dem anderen Faden läßt allerdings den Schluß zu,
daß das Problem erledigt ist, oder?

MfG

[MrMiffy08]

Hallo zusammen,
@HeXPloreR - danke für den Hinweis mit Port und Pin, das half schon mal weiter. DIe mit : getrennten Anweisungen hatte ich mal irgendwo gesehen und sofort falsch zur Regel erklärt. Ich gewöhn mir das sofort wieder ab!

Ja, den Encoder nutze ich wie im Buch - mit der Änderung dass die Kontakte jeweils noch 100nF gegen GND als Entprellung bekommen haben. UNd Pullups sind im zweiten Code drin, ich benutze den eingebauten Taster auch, ebenfalls mit Pullup, die schalten ja alle gegen GND.

@Rone -

(PS: - ich hatte schon einen anderen Code in Arbeit - s. Link und wieder verworfen, weil ich da schließlich vor dem gleichen Problem stand und kein Takt rauskam. Jetzt will ich das Ganze mal abspecken und klein und möglichst einfach wieder anfangen.)

ist ja schon eine Weile her; das "erledigt" bezog sich auf die unklare Fehlermeldung des Compilers, die dann endlich weg war. Die grundsätzliche Problematik die sich danach stellte war, dass keine sinnvolle Funktion dabei herauskam. Ich mach dazu noch mal einen abschließenden Beitrag in dem anderen Thread.

Was hier jetzt übrig ist, ist dass die beiden Teilcodes funktionieren, aber ich noch keine Ahnung habe wie ich den Drehencoder Code mit dem Rest so verknüpfe dass der Takt für den Schrittmotor im ersten Teil sich dadurch regeln läßt. Dazu eine Idee? Ich bin mit Variablen &Co nicht sehr erfahren, was man da so anstellen kann.

Vielen Dank für weitere Hilfe!

[dussel07]

Ich habe mal ein Board geroutet da hat es mit den Kondensatoren am Encoder nicht geklappt - ohne dann schon.
Meine Idee war das im encoder Befehl ein entprellen schon integriert ist?

[MrMiffy08]

Hallo dussel,

das wäre schön und würde zwei Teile einsparen. Ich habe den selben Encoder (ALPS STEC12E) mit und ohne 100nF ausprobiert, beides hat die gleiche Wirkung. Ich versuche morgen mal das dezidiert zu beschreiben.

Wichtiger wäre mir allerdings die Problematik der "Verheiratung" der beiden Code-Stücke zu etwas sinnvollem. Dazu jmd Anregungen?

[HeXPloreR]

Wie wäre es denn wenn Du die Codestücke ordnest - also die Teile der Encoderabfrage dort hin schreibst wo zum beispiel die Ports und Subs definiert/deklariert werden...deine Encoderabfrage mit in die do loop der (leeren) Hauptschleife kopieren oder ausschneiden. Die do loop vom encoder vorher im einzelprogramm kann man komplett auskommentieren ( '( ...auskommentierter codetext... ') oder normal mit ' ) oder entfernen. Die Subs bleiben wo sie sind.

[MrMiffy08]

Ok, ich versuch's mal.

  ' Testprogramm  für A3967 Platine mit Dir Step und Enable

$regfile = "attiny2313.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000                                          'Quarzfrequenz
$baud = 9600


Config Timer1 = Timer , Prescale = 1
Enable Timer1
Timsk.toie1 = 1
Dim Timer1_reload As Word
Portd.4 = 1                                                  ' Pullup Widerstand ein   für Enable - ****Enable =0 bedeutet Motor On!!!!  ****
Enable Interrupts

                ' Inputs: Drehimpulsgeber an d.0 und d.1 sowie Taster an d.3
'-----Deklarationen fuer Drehimpulsgeber:
Config Pind.0 = Input 
    Encoder_a Alias Pind.0             'Encoder Signal B  an Pin 2
Config Pind.1 = Input 
    Encoder_b Alias Pind.1             'Encoder Signal A  an Pin 3
Config Pind.3 = Input 
    Taster1 Alias Pind.3

Pind.0 = 1                                                  'Pullups für den Drehencoder
Pind.1 = 1
Pind.3 = 1
                                                                'LED-Outputs stellvertretend für Step, Dir, Enable
                ' In der endgültigen Hardware liegen: Step/Takt auf PD.2 / Taster auf PD.3 / Enable auf PD4 / Richtung auf PD5 /
Config Portd.2 = Output 
    Portd.2 = 0                       'das ist Pin 6   - alles mit Pulldown   -  steht für Step/Takt
Config Portd.5 = Output 
    Portd.5 = 0               ' Pin 9  - der hier steht für Dir
Config Portb.4 = Output 
    Portb.4 = 0                       ' Pin 16   -  diese Led steht für Enable

Led_gelb Alias Portd.2
Led_gruen Alias Portd.5
Led_rot Alias Portb.4


On Timer1 Isr_timer1        'Deklaration der Timerroutine
                
    
Dim Wert As Word
Wert = 100                          'willkürlich gewählter Startwert
Dim Zustand As Byte

       '***********Hauptschleife:**********
Do

Zustand = Encoder(Pind.0 , Pind.1 , Linksroutine , Rechtsroutine , 0)

   If Wert > 100 Then Led_rot = 1

   If Wert < 100 Then Led_gruen = 1

Loop

End


Isr_timer1:
   Timer1_reload = 45536                                    'Vorgabe für 400 / sec
   Timer1 = Timer1_reload
   Toggle Led_gelb        '= Stepper_takt
Return


Linksroutine:
Decr Wert
Return

Rechtsroutine:
Incr Wert
Return

So, und beim Starten dieses Codes leuchtet zunächst die gelbe Led (ist klar, Timer1), und beim Drehen je eine Raste leuchtet grün und in die andere rot, gehen aber nicht wieder aus. Dies jeweils egal mit Encoder mit 100nF gegen GND oder ohne und ebenso mit dem Pollin-Drehencoder ohne Kondensatoren, der hier schon mehrfach angesprochen wurde und der mehr oder weniger Ärger macht.
Ich habe an der Encoder-Routine mal hinten die 1 auf 0 geändert, weil ich ja das Prog ja weiter laufen lassen will. Mit 1 stoppt es hier wohl.

Wie bekomme ich es hin dass rot und grün wieder ausgehen?
Uind eben das Grundproblem - wie bekomme ich schnelleren/langsameren Takt an D2/Led_Gelb aufgrund Links/Rechtsdrehung hin?

Vielen Dank für Eure Anregungen!

[HeXPloreR]

die LEDs gehen nicht aus weil Du sie nur einschaltest wenn > oder < ... einfach noch ne bedingung mit dazu schreiben die ausschaltet wenn > oder < jeweils dazu. leider wenig zeit grade...

EDIT: Kann es sein, das unter jedes IF auch ein END IF muss?