Das deutsche QBasic- und FreeBASIC-Forum

[triti]

Hi,
ich habe am LPT einen bipolaren Schrittmotor: OUT 888,1, call pause, OUT 880,4, call pause und so weiter. Geht super.
Zwischen den OUTs braucht man ja eine Zeitverzögerung - call pause.
Das geht am einfachsten mit:

sub pause
for I= 1 to .... : next I
exit sub

Damit das aber an anderen PCs gleich ist und der Interpreter beim ausprobieren auch langsamer ist als die exe hab ich mir gedacht dass man am Anfang die Zählgeschwindigkeit vom Rechner prüft und daraus etwa 10 mS für die Pause ausrechnet:

DO
TIMER ON
ON TIMER(2) GOSUB weiter:

FOR I# = 1 TO 1D+16
x# = x# + 1
NEXT I#
LOOP

weiter:
timer off
pause= FIX(x# / 200) 'soll ca. 10mS sein
print pause
x# = 0: I# = 0


1) Ist das so vernünftig, oder wie macht mans besser?
2) Passen 10 mS Pause für einen Schrittmotor? Wie lang soll so eine Pause sein?

lg
Triti

[volta]

[isiprimax]

Ich würde das mit Timer machen.

[Jojo]

falsche antwort. timer hat eine auflösung von höchstens 55ms.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[Flo]

da gabs doch mal irgendwo auf qbasic.de n msecwait oder sowas... ich glaub das hat auch mit forschleifen gearbeitet... such einfach mal...
_________________
MFG
Flo

Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.

zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich.

[Jojo]

Mit For-Schleifen Zeit zu messen ist ziemlich billig und geht auch nur unter reinem DOS...
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[triti]

Hi,

> Ich hoffe du betreibst dies unter echtem DOS nicht unter WinDOS
Na sicher doch. Bin ja anständig

> Das passt man eigentlich an die Drehgeschwindigkeit des Steppers an.
> Anfahren = kleine Winkelgeschwindigkeit -> längere Pause,....
Yep, genau darum gehts: bei welchen U/Min. wieviel Pause?

> Windows gibt die IN/OUT Befehle nicht zeitgerecht weiter, da dies durch interne Routinen (Multitasking) verzögert werden kann.
Äh, auch mit userport.sys nicht? Schau schau. Hab ich nämlich gerade installiert aber noch nicht ausprobiert.

> timer hat eine auflösung von höchstens 55ms.
Eben.

> msecwait oder sowas... ich glaub das hat auch mit forschleifen gearbeitet... such einfach mal...
Hab ich doch und auch was gefunden. Die sagen, das ist eine Notlösung, funktioniert aber.
Nur: Ich will es halt wenn schon dann genau und an die Rechner angepasst.
Also weil keiner meckert denk ich, dass das mit der for-Schleife so o.k. ist.

lg
Triti

[volta]

[triti]

Dank für den Link! Wird dauern bis ich das alles komplett verstehe.

Ähem, gibts irgendwo einen Anleitung, wie man eine Strombegrenzung bastelt? Mein Motor wird nämlich mächtig heiss, wenn er steht. Ich suche eine Möglichkeit, wie ich so eine einfach dazu/dazwischenschalte, wenn der Motor in Warteposition ist. So, dass der Motor aber nicht die ganze Haltekraft und auch nicht die Position verliert. Brutal umlenken mit einem Umschaltrelais auf einen dicken Widerstand?

lg
Triti

[Skilltronic]

Hallo

[triti]

Danke Skilltronic!
Das heisst, man kann den Rechner-Timer von Anfang an auf z.B. 10mS einstellen und das bleibt dann bis man ihn abschaltet - oder nur, bis das Programm beendet ist?
Weil wenn ich danach ein anderes (altes) Programm mit einem normalen Timer-Befehl laufen lassen, stimmen die Zeiten nicht mehr. Muss man also am Programmende den Timer schlauerweise wieder auf 55mS zurückstellen?

Beim Starten wird der PC auf diese 55mS eingestellt - warum nicht gleich auf 10mS? Wäre doch egal und damit wärs doch oft praktischer?

Für Noobs wie mich:
Das braucht man also nur am Programmanfang (hier 10mS):
OUT 67, 52 :OUT 64, 154 :OUT 64, 46

Und das kann überall im Programm stehen (hier vergrössert auf 30mS):
warteschleife:
DO
tneu = TIMER
LOOP WHILE tneu = talt +0.02 'Wartezeit wäre dann 30mS
talt = tneu
RETURN


So, jetzt hab ich mich da endlich durchdividiert und kapiert wie mans rechnet aber verstehen ist nicht.
> 46 * 256 + 154 = 11930.
Wenn Dir die Antwort nicht zu langweilig ist: WARUM teilt man das auf diese Art in low/high byte? Wieso kommt da high und low raus?

> Zur Einstellung des Timer-Steuerregisters siehe hier.
Ist mir echt zu hoch, sorry. Wird aber sicher Schlaueren helfen.

lg
Triti

[nemored]

Das ist nicht die Methode, um Low- und High-Byte zu bekommen, sondern das Ergebnis.

[triti]

@ nemored
?.........

[nemored]

Hmm ... was High- und Lowbyte ist, ist klar? Wenn eine Zahl aus zwei Byte, also 16 Bit besteht (z. B. binär 1001101101110101), dann ist der grüne Anteil das Lowbyte. Das bekommst du am einfachsten mit AND 255 (binär 0000000011111111). Binär geschrieben:

[triti]

> ... was High- und Lowbyte ist, ist klar?
Klar ist übertrieben aber jetzt ist es zumindest heller.

> Mit SHR 8 schiebst du eine Zahl um 8 Bit nach rechts, also fallen die grünen Ziffern weg und es bleiben nur die blauen übrig.
Aha. Na gut, wenn man das halt so macht....

Warum dividiert Skilltronic dann durch 256 und nicht durch 255? Und warum überhaupt 16? Hat das was mit 2^16 Takten pro Stunde zu tun? Aber ich glaube dass ich das nicht so schnell verstehen werde und will hier nicht weiter herumnerven. Die Methode hab ich ja kapiert, die Grundlagen noch lange nicht. Es funktioniert, das ist das wichtigste.
Danke für die Auskunft.

lg
Triti

[nemored]

Wie Skilltronic das ausgetüftelt hat, weiß ich nicht; mit OUT habe ich mich nie beschäftigt und kann dazu nichts sagen. Die Sache mit dem Teilen und dem SHR hat auch nicht direkt etwas damit zu tun sondern wird nur gebraucht, um zu sehen, was man wohin OUTen muss.

Beim (Integer-)Teilen durch 256 passiert auf jeden Fall dasselbe wie bei SHR 8 (nur ist zweites etwas schneller). Klarer wird das bei Zahlen im Binärformat:
Teilen durch 2 (dezimal; bzw. teilen durch 10 binär) heißt, dass die Ziffer ganz rechts wegfällt. Dasselbe passiert bei SHR 1

[triti]

Aha!
Das verstehe ich.
Danke!

Aber etwas fällt mir gerade ein: Wenn der Timer 5x schneller läuft, hat man da nicht auch 5x früher das "Mitternachtsproblem"? Soll heissen, wenn eine Maschine über viele Stunden angesteuert wird (so will ich das nämlich), geht das nur wenn man im Programm eine Absicherung dafür einbaut, dass der Zähler wieder von vorne anfängt.
Bei der viel weniger schlauen Zählmethode fällt dieses Problem überhaupt weg.

lg
Triti

edit:
Moment, ist das nicht so:
wenn man schreibt
LOOP WHILE tneu = talt
machts nichts, weil sich die Zeit egal in welche Richtung ändert. Man muss also den Timer genau auf die gewünschte Zeit einstellen.

Schreibt man aber
LOOP WHILE tneu = talt +0.02 'Wartezeit wäre dann 30mS
dann hat man das Mitternachtsproblem.

Oder man stellt den Timer am Anfang der Schleife immer auf Null.

Hmm...

[Skilltronic]

[dreael]

[Skilltronic]

Hallo