Das Programm kann helfen Bascom Timersteuerung zu verstehen
Basis:
-https://www.roboternetz.de/phpBB2/vi...ighlight=timer
In HiTechs Post der Code über Timer
-RNBFRA Beispielprogramme von der CD
Code:'(################################################### Timertest.bas Schrittmotoren Mit Timern Steuern... Auf Dem Rnbfra 1.1 Moritz Wurth 10.05.2004 ##################################################### ') Declare Sub Ledein(id As Word) 'Subs zur Ledanzeige deklarieren Declare Sub Ledaus Dim Rightspeed As Byte 'Variablendefintion XXXspeed als Geschwindigkeitsangabe Dim Leftspeed As Byte ' XXX = Right bzw Left für die jeweilige seite Dim Rightstatus As Bit 'Intern ben. Variable Dim Leftstatus As Bit 'Intern ben. Variable Dim Temp As Byte 'Intern ben. Variable Dim Tempspeed As Byte 'Intern ben. Variable $baud = 9600 $crystal = 8000000 'Ports für Schrittmotoren/LED einstellen Config Pinc.5 = Output Config Pinc.3 = Output Config Pinc.4 = Output Config Pinc.2 = Output Config Pind.6 = Output Const Writepowerport_adr = &H72 Const Readpowerport_adr = &H73 Dim I2cdaten As Byte Config Timer0 = Timer , Prescale = 256 'Timer festlegen, Prescale legt fest welche X Takte der Timer aufgerufen wird On Ovf0 Tim0_isr 'Wenn Timer0 ausgelöst wird, rufe Tim0_isr auf Dim I As Integer 'Taktzähler Dim Cnt As Byte 'Timer anschalten Enable Timer0 'Interrupts anschalten Enable Interrupts '----------------------------------------------------------------------- ' Ab hier reguläres Programm ' Hier: An den 4 LED wird Binär bis 16 gezählt ' alle 1.6 Sekunden (16 * 100ms) wird die Geschwindigkeit auf dem Rechten Motor um 1 erhöht, links erniedrigt Rightspeed = 50 'Startgeschwindigkeit 50 Do Cnt = Cnt + 1 Call Ledein(cnt) 'LED setzen If Cnt = 15 Then 'Wenn 1 mal durchlaufen wurde Cnt = 0 'LED zähler wieder auf 0 Rightspeed = Rightspeed - 1 'Rechts eins erniedrigen Leftspeed = 50 - Rightspeed 'Links ebenfalls verändern If Rightspeed = 0 Then 'Wenn alles einmal durch ist (Rechts auf 0) Stop Timer0 'Timer stoppen Portd.6 = 0 'Schrittmotoren aus End If End If Waitms 100 Loop Tim0_isr: I = I + 1 Temp = I Mod Rightspeed If Temp = 0 Then Rightstatus = Not Rightstatus Portc.2 = Rightstatus End If Temp = I Mod Leftspeed If Temp = 0 Then Leftstatus = Not Leftstatus Portc.3 = Leftstatus End If Return End Sub Ledein(id) I2cstart I2cwbyte Writepowerport_adr I2cwbyte Id 'Datenbyte an PCF I2cstop I2cstop End Sub Sub Ledaus() I2cstart I2cwbyte Writepowerport_adr 'Schreibbefehl an PCF schicken I2cwbyte 0 'Datenbyte an PCF I2cstop End Sub
Hallo,
so ganz verstehe ich dieses Programm nicht. Vielleicht würde ich es ein bisschen besser verstehen wenn ich es zum laufen bringen würde. Habe zwar die vorhanden Fehler ( I2cinit bzw. Port für I2C) beseitigt aber das hat nichts gebracht.
Es will einfach nicht.
mfg
Tomkeule
Ich denke das Programm ist noch etwas zu durcheinandergewirbeltum die Timerprogrammierung so zu verstehen. Müsste man etwas klarer strukturieren. Die Schrittbefehle in seperate Subroutinen und Kapseln und unnötiges raus!
Hallo Albanac,
du startest deinen Timer0 nicht,also kommt es nie zum Interrupt und
du setzt in deiner Interruptroutine deinen Timer0 nicht auf einen anderen Wert, hast also immer den gleichen Überlaufwert für deinen Timer.
Im Interrupt setzt du auch nur einen Port, musst du nicht ein Schrittmuster generieren? etc.etc.
Gruss, Michael
Hallo,
ich habe mal selbst versucht Schrittmotoren über Timer zu steuern.
Meine Frage ist nun ob man das so machen kann??Code:'Testprogramm für 2 Schrittmotoren über Timer $crystal = 8000000 'Quarzfrequenz Declare Sub Ledein Declare Sub Ledaus Const Writepowerport_adr = &H72 'I2C Adr PCF 2 Const Readpowerport_adr = &H73 'I2C Adr PCF 2 Dim I2cdaten As Byte 'Datenbyte aus PCF8574 Config Scl = Portc.0 'Ports fuer IIC-Bus Config Sda = Portc.1 I2cinit '******** Diese 4 Befehle sind nur ab RNBFRA Version 1.2 (nicht in V 1.1) ' notwendig und bzw. möglich (erweiterte Energiesparfunktion und LED´s) ' Bei Board 1.1 bitte auskommentieren oder löschen I2cstart I2cwbyte &H74 'Schreibbefehl an PCF3 schicken ' Led´s ein ,Motorendstufen ein, Port-Peripherie ein, RBN-Bus Sleep Modus aus (also Peripherie aktiv) I2cwbyte &B00000010 'Datenbyte an PCF3 I2cstop '********* Config Pind.6 = Output 'Schrittmotoren Ein/Aus Config Pinc.5 = Output 'Schrittmotor Links Richtung Config Pinc.3 = Output 'Schrittmotor Links Step Config Pinc.4 = Output 'Schrittmotor Rechts Richtung Config Pinc.2 = Output 'Schrittmotor Rechts Step Dim X As Word Dim Y As Word Dim Verteilung As Byte Verteilung = 50 'Anfangseinstellung beide Motoren mit 50% Portd.6 = 1 'Beide Schrittmotoren einschalten '------------------------------------------------------------------------------- On Timer0 Ontimer0 Config Timer0 = Timer , Prescale = 1024 Enable Timer0 On Timer2 Ontimer2 Config Timer2 = Timer , Prescale = 1024 Enable Timer2 Enable Interrupts Do Input Verteilung X = 250 * Verteilung X = X / 100 Y = 250 - X Print X ; "--" ; Y Loop End '------------------------------------------------------------------------------- Ontimer0: Timer0 = X Toggle Portc.2 Return Ontimer2: Timer2 = Y Toggle Portc.3 Return
mfg
Tomkeule
Hallo tomkeule,
hmmm, du stocherst mehr, als dass du es verstehst?
Ich weiss nicht, welchen Prozessor du verwendest, ich kenne das "RNBFRA" nicht. Hat jemand einen Link auf Datenblätter dazu?
Dann startest du deine Timer immer noch nicht.
Da Timer0 bei AVR's gewöhnlich ein 8bit-Timer ist, wirst du lustige Überläufe haben.
Hat die Elektronik eigene "Intelligenz" ?. Woher weiss der Schrittmotor, dass es z.B. vorwärts geht?
Gruss, Michael
Hallo Michael,
1. Warun stochern?
2.Beide Timer werden doch gestartet
3.Was verstehst du unter lustige Überläufe?
4.Dieses Prog ist nur für den Test der Schrittmotoransteuerung. Ich gehe mal davon aus das du das Input übersehen hast.
5.Die Auswertung der Sensoren ist hier noch nicht eingebaut.(Übersichtlichkeit)
6.Im Augenblick funktioniert das Prog nur für eine Laufrichtung.
Und zu gut letzt, das Prog funktioniert sogar.
mfg
Tomkeule
Anleitung mit Portbeschreibung etc. findest Du hier https://www.roboternetz.de/phpBB2/dl...le&file_id=106
Ich komme leider jetzt nicht dazu ein kleines Timerbeispiel zu posten weil ich gerade selbst mit anderem Programm beschäftigt bin. Aber mach das bei Gelegenheit noch.
Im Grunde ist es einfach, nur für die Berechnung der Timerzeit braucht man etwas Übung
Das zweite Beispiel ist aber schon viel übersichtlicher. Könnte gehen! Timer wird doch gestartet!
Hallo tomkeule,
Nein. Der Eintrag Start Timerx fehlt für beide Timer.2.Beide Timer werden doch gestartet
Schrieb ich schon in meinem letztem Posting.3.Was verstehst du unter lustige Überläufe?
Denkanstoss: Der Timer0 hat 8bit, der Wert, den du reinschreibst hat x bit. Bestimme, ob x > 8
Nein, keineswegs. Funktioniert dieser Teil des Programmes?4.Dieses Prog ist nur für den Test der Schrittmotoransteuerung. Ich gehe mal davon aus das du das Input übersehen hast.
Ich melde trotzdem Zweifel an *g*Und zu gut letzt, das Prog funktioniert sogar.
Ich sehe gerade (@Frank:danke für den Link), dass Timer2 auch 8bit hat. Obendrein kann in deiner Rechnung Y negative (Word-)Werte haben. Schreib mal einen "negativen" 16bit-Wert in eine 8bit-Variable. Das mein ich mit lustigen Überläufen.
Gruss, Michael
Hallo Michael,
2.ich hoffe das ich mich nicht irre, aber die Timer werden mit "enable Timer" gestartet
3.X und Y sind als WORd deklariert um bei der multiplikation einen Überlauf zu vermeiden.
4.Ja
Ja, Y kann negative sein. Aber nur wenn ich bei Input Müll eingebe.
(Alles nur Test und Ausprobe)
Aber Dank an Michael und alle Anderen für die Hilfe und Kritik.
Nur wer seine Fehler kennt kann sie beseitigen.
mfg
Tomkeule
Berechtigungen
Zitieren
Lesezeichen