Jalousiene Simulation!

[Pinki]

Ah,
übrigens mit Sleep funzt das nicct!
Ich brauche eine leere Schleife so wie beim Pascal Delay(x ms); oder so
MfG

[Martin K]

Kann es sein dass diese Zeile, die pacman1986 auskommentiert hat, so heißen muss?

Delphi-Quellcode:

      if Befehl = 'Stop' then Ticker('Fahrt'); // anstatt Break

Dann funzt das auch mit dem Sleep, wenn man auf Button3 klickt.
Oder war das so nicht gedacht???

[Pinki]

So habe jetzt etwas verändert und es funzt!
Mit Button 3 soll ja Jalousien zurückgesetztwerden ganz auf.und mit Button 2 runterfahren.
Button 1 stellt auf vorgegebene Position.
:firejump:

Die Betaversion ist im Anhang!

[Martin K]

Kleine Vorschläge noch:

Das hier:

Delphi-Quellcode:

Function TForm1.Jalousiefahrt(Befehl:String):Boolean;

würde ich ändern in:

Delphi-Quellcode:

procedure TForm1.Jalousiefahrt(Befehl:String);

Da eine Funktion ohne Rückgabewert nicht viel Sinn macht :wink: und der Compiler warnt dich hier ja auch...

Noch was:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
{ Ticker('Stop'); <-- diese Zeile ist total überflüssig! }
Jalousiefahrt('Stop'); 
end;

...da bei dem Aufruf Ticker('Stop') ja überhaupt nichts gemacht wird...
Oder soll da später noch was dazukommen?

[pacman1986]

noch was sleep ist so merkwürdig nimm lieber delay
delay von Luckie oder delay von Hagen da friert das programm nicht ein sondern wird verzögert. und warum benutzt du keinen timer ?

[Pinki]

Martin lade dir überarbeitete Version Jalousie.rar und schau mal ob es sich verbessern lässt!

MfG

[Pinki]

Hallo Packmann !!
Die Tips sind super.
Erstmal funzt es auch mit sleep.Wird noch wesentlich verbessert dat ist quasi erst betabetabeta version 0.1 :-)
Guck dir mal die oben gepackte Jalousie.rar an!!!
Danke
Greetz

[Martin K]

Zitat:

Zitat von Pinki

Martin lade dir überarbeitete Version Jalousie.rar und schau mal ob es sich verbessern lässt!

MfG

Meinst du komplett verbessern?

Da fallen mir konkret 2 Sachen ein:
1. Den Quellcode etwas übersichtlicher gestalten, mit Einrücken
2. Anstatt Befehl: String als Parameter kannst du einfach einen Boolean-Parameter nehmen (z.B.: Fahrt: Boolean), da du ja eh nur zwei Zustände hast: ('Fahrt': Fahrt=True oder 'Stop': Fahrt=False).

MfG
Martin

[Pinki]

Zitat:

Meinst du komplett verbessern?

Da fallen mir konkret 2 Sachen ein:
1. Den Quellcode etwas übersichtlicher gestalten, mit Einrücken
2. Anstatt Befehl: String als Parameter kannst du einfach einen Boolean-Parameter nehmen (z.B.: Fahrt: Boolean), da du ja eh nur zwei Zustände hast: ('Fahrt': Fahrt=True oder 'Stop': Fahrt=False).

MfG
Martin

Es kommt dazu noch ein Timer (0...255:Byte) der beim auslösen des Befehls Stop den aktuellen Wert speichert und die Position ermittelt.Kommt noch dazu.
Quellcode wird natürlich verbessert war auf die schnelle halt!! :-)
MfG

:thumb:

[Pinki]

Hallo da bin ich mit meinem Project Jalu wieder :-D

Soweit gut habe bisschen erweitert.
Einziger Problem ist wenn die Jalu runterfährt beim Befehl'Stop' soll die jalu auch anhalten!!! :wall:
Project liegt als Anhang bei :wiejetzt:

Grüss
Pinki