Matth1as
06.02.2008, 19:13
Hallo Leute!
Bin mit der Microcontrollerprogramierung noch ganz am Anfang.
Ich habe mir eine Schrittmotorsteuerung L297/L297 aufgebaut.
Diese wird mit einem Mega32 gesteuert.
Habe mir mal ein kleines Programm zum austesten der Funktionen geschrieben. Funktioniert auch alles. Jetzt möchte ich mir gerne die Schritte des Schrittmotors auf einem LCD anzeigen lassen.
Nur wo kann ich den Befehl LCD im Programm platzieren?
Wenn ich Ihn in der FOR/NEXT Schleife schreibe wird mein Motor komischerweise langsamer..?
Oder habe ich schon einen grundsätzlichen Fehler gemacht?
Vielleicht kann mir einer ein paar Tipps geben..
Hier mein Code:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcdbus = 4
Config Porta = Output
Porta.0 = 0 'Clock Schrittmotorsteuerung
Porta.1 = 1 'Drehrichtungswechsel
Porta.2 = 0 'Half/Full
Dim I As Integer
Do
For I = 0 To 3999
Toggle Porta.0 : Waitus 600
Next
Waitms 500
Toggle Porta.1 'Drehrichtung wechseln
Toggle Porta.2 'Half/Full umschalten
Loop
End
Vielen Dank
Gruß Matthias
Bin mit der Microcontrollerprogramierung noch ganz am Anfang.
Ich habe mir eine Schrittmotorsteuerung L297/L297 aufgebaut.
Diese wird mit einem Mega32 gesteuert.
Habe mir mal ein kleines Programm zum austesten der Funktionen geschrieben. Funktioniert auch alles. Jetzt möchte ich mir gerne die Schritte des Schrittmotors auf einem LCD anzeigen lassen.
Nur wo kann ich den Befehl LCD im Programm platzieren?
Wenn ich Ihn in der FOR/NEXT Schleife schreibe wird mein Motor komischerweise langsamer..?
Oder habe ich schon einen grundsätzlichen Fehler gemacht?
Vielleicht kann mir einer ein paar Tipps geben..
Hier mein Code:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcdbus = 4
Config Porta = Output
Porta.0 = 0 'Clock Schrittmotorsteuerung
Porta.1 = 1 'Drehrichtungswechsel
Porta.2 = 0 'Half/Full
Dim I As Integer
Do
For I = 0 To 3999
Toggle Porta.0 : Waitus 600
Next
Waitms 500
Toggle Porta.1 'Drehrichtung wechseln
Toggle Porta.2 'Half/Full umschalten
Loop
End
Vielen Dank
Gruß Matthias