Deutsches Lazarusforum

Moo

Ahh ok ich verstehe !
Edit1: also müsste ich ja meine paint procedure nochmal in verschiedene proceduren unterteilen oder?
also z.B. procedure Rot
procedure Gelb
procedure Gruen

oder nicht ?

Moo

Ampel.Einschalten ist also im entdefekt die farben procedure? also farbe=1 then und so

Moo

das ist mir glaub fuer heute zu kompliziert

Moo

ok also
ich habe eine Ampel mit 3 lichtern und ich kann diese wechseln

nun mit dem timer soll die ampel von rot nach gelb und nach gruen und dann wieder nach rot wechseln

http://www.imgbox.de/show/img/wi68vbt9T6.png hier mal ein bild von der ampel

Moo

ok mag jetzt dumm klingen aber ich packs grade einfach nicht mehr oO
so ungefaehr muesste es ja aussehen aber ich finde den Fehler einfach nicht

Code: Alles auswählen

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  farbe:=farbe+1;
  Ampel.Invalidate;
 
  if farbe=3 then
  farbe:=1;
 
 
 
 
 
end;

Moo

Invalidate hab ich aufgerufen
muss dann jetzt ja am eventhandler liegen gut dann bin ich mir in der hinsicht schonmal sicher

Moo

ok dankeschoen !

das wird jetzt aber sicherlich noch ne weile dauern bei mir :D
denn alle meine denkansaetze funktionieren nich :D

aber vielen vielen danke ! auch fuer die erkaerung ! *daumen hoch*

Edit1: timer1.Enabled:=True; ist aber richtig oder ?
weil nichts passiert und ich habe mich halt ...

Moo

ok
wie muss ich die procedure jetzt schreiben?
hab leider keine ahnung was ich da schreiben muss .. muss ich im timer was beachten ?
Edit2: also ich meine ich weiss nich ob ich da was beachten musstheoretisch weiss ich was ich schreiben muss

aber wenn ich das jetzt nicht aendern wuerde wuerde es ...

Moo

Hallo liebes forum
Ihr habt mir nun schon so oft geholfen doch ich muss ein weiteres mal darum bitten
Folgendes ist das Thema:
Ich habe ine Ampel erstellt (siehe unten) und will nun dir Farben per timer aendern heisst also dass sich die farbe jeweils nach einer bestimmten Zeit wechselt
Nun kenne ...

Moo

ich hab da leider keinen einfluss drauf
ist ne Hausaufgabe

Moo

Ja es gibt ein Edit1 das ding is wenn ich das in der Schule eingebe kann ich in meinem kompilierten Programm einfach eine Zahl eingeben, welche dann in das Programm fuer die vorgegebene Variable eingefuegt wird

Moo

Code: Alles auswählen

i:=strtoint(edit1.text);

das ist meine Zeile um eine Variable halt selbst manuell bestimmen zu koennen

Moo

ok danke !
bekomme jetzt noch ein paar andere Fehler aber die bekomme ich wahrscheinlich selbst hin ! :D

du warst doch der der mir letztes jahr bei meinem Wellen problem schon geholfen hat !

Edit: Haben die den Befehl fuers Edit Feld geaendert ? bekomme jetzt immer
unit1.pas(64,20) Error ...

Moo

Ne wie muss ich das machen ?
Bin ne aeltere Version aus der Schule gewohnt von daher war ich ziemlich ueberrascht als es hier nicht funktioniert hat :/

Moo

Hi
wollte grade ein Programm schreiben, wo ich mit TShapes die ich sozusagen selbst gestalte eine Ampel mache
Habe dazu nun halt meine eigene Klasse gemacht (TAmpel = class(TShape)) aber der hat einen Fehler mit dem TShape
TAmpel = class(TShape)
public
farbe:integer; //1 = rot 2 = gelb 3 = grün ...

Deutsches Lazarusforum

Die Suche ergab 27 Treffer

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Re: Ampelfarben mit Timer aendern

Ampelfarben mit Timer aendern

Re: Error: erroneous type

Re: Error: erroneous type

Re: Error: erroneous type

Re: Error: erroneous type

Re: Error: erroneous type

Error: erroneous type