Delphi....

[andy]

Hi,

ich schreibe gerade ein kleines Programm in mit Delphi mit dem ich meine Motorendrehzahl von meinen Effektmotoren regulieren kann. <img border="0" title="" alt="[Big Grin]" src="images/icons/grin.gif" />

<img border="0" title="" alt="[Confused]" src="images/icons/confused.gif" /> Hab jetzt nur ein Problem:

Ich brauche ein wait-function oder so etwas wie in Turbp Pascal 'delay'. Find so was einfach nicht!!!

Kann mir da jemand helfen?

Die Frequenz kann ich easy mit nem Timer machen, aber in der Prozedur brauch in nen 'delay' damit ich per TrackBar die Zeit der Amplitude verändern kann. Dann hätte ich ne schöne Amplitudenweitenmodulation! <img border="0" title="" alt="[Big Grin]" src="images/icons/grin.gif" /> <img border="0" title="" alt="[Big Grin]" src="images/icons/grin.gif" /> <img border="0" title="" alt="[Big Grin]" src="images/icons/grin.gif" />

Gruss Andy

[john]

Hi,

ich bin kein Deplphi Experte, aber du wirst doch sicherlich auf die interne PC Uhr mit hoher Genauigkeit zugreifen können, oder nicht?

im Abstrakten Code schauts dann in etwa so aus
----------------------------------
Prozedure Warten(Periode)
dim Startzeit

Startzeit=Timer (wobei du hier iregdnwie die Uhrzeit bekommen mußte)

Do
Loop Until Startzeit+Periode >= Timer
----------------------------------

In der Do Loop Schleife würde ich noch einen Befehl einbauen, der das Auslösen anderer Ereignisse ermöglich - sonst ist der Rechner / die Anwendung für die Zeit gesperrt. In VB (meine Domäne) wäre das ein DoEvents

Gruß

John

PS: Wenn du aus Delphi keinen Timerwert bekommst, mußte über die API von Windows gehen - da gehts auf jeden Fall

[john]

@Patrick: Was haste gegen VB? Klasse Sache, solange man nicht über den Tellerrand schauen muß;-)

Aber du hast recht - ich würde auch nicht nochmal damit anfangen...obwohl, mit .net soll die Welt ja gut werden...

John

[patrick]

Hi und Tach auch!

In Delphi sieht John's Beispiel so aus: (habe mit VB 1996 abgeschlossen *schauder*)

Procedure Delay(aTime: Integer);
var Start:Integer;
begin
Start:=GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount-Start > aTime;
end;

Igittttt VB!!!! <img border="0" title="" alt="[Big Grin]" src="images/icons/grin.gif" />

DoEvents -> ProcessMessages...

Es grüßt
Patrick

www.laserlight.de

[patrick]

Eingeschränkt, langsam, instabil, unprofessionell... ... ...

Technik von gestern, vbrun.dll, P-Code, nur Exen... ... ...

Microsoft, bunt und buggy, ... ... ...

... ... ...

Darum kein VB.

Gruß
Patrick