[S] Delphicoder -> für Noobquestion (Prog.)

[Mirr0w]

hi leutzz.

ich code seit kurzem delphi (lazerus).

nun brache ich bei ner aufgabe nen bissel hilfe. es geht um if else (abhängikeiten).

wäre cool wenn sich einer per pn oder icq melden würde.

anforderungstufe: 3/10.

mfg

[ultimate1337]

if (Bedingung = false) then
     Anweisung
else begin
     Andere Anweisung;
     Noch ne Anweisung;
end;

ich weiß nicht was daran so schwer sein soll?!

[Mirr0w]

das ist einfach. damit habe 0 probleme.

nur im zsmhang mit shapes und weiteren bedingung klappts net.

[dzdz]

dann poste das beispiel ...

[Mirr0w]

1.es soll ein image von links nach rechts laufen. (männchen)
2.wenn es aus dem bildrand ist soll es wieder auf left := 0 starten

bis hier hin np.

3. eine shape kommt in die mitte der form.
4. das männchen soll wenn die ampel grün ist gehen und gehen -> von links nach rechts die ganze zeit durch
5. wenn die ampel rot ist, soll das image nur bis zur shape gehen, wenn es allerdings hinter der shape ist, soll es trotzdem weiter bis zur shape gehen.

bei fragen einfach hier posten ;D

[dzdz]

mhm wie wärs mit dem code damit wir dir gerade deinen fehler aufzeigen können ?

[Mirr0w]

habe ich gerade nicht zur hand.
sry.

iwie so: timer1:

if (image1.left = 10) and (image1.left = shape) // 10 = punkt vom shape
then begin
.
.
.

ich weiss es gerade leider nichtmehr.
wäre nett wenn du mir den "baustein" vom timer wie oben beschrieben, schreiben könntest.

mfg

[Steiger_mp]

bei jedem timerschritt veränderst du die position des shapes indem du die entsprechenden werte subtrahierst oder dividierst.
für weitere fragen steh ich dir per pm bereit

[Mirr0w]

hier habe ich von einem derartigen programm mal ne source :

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, dbf, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, ExtCtrls, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Image1: TImage;
Image10: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.visible := true;
Image2.visible := false;
Image3.visible := true;
Image4.visible := false;
Image5.visible := false;
Image6.visible := true;
Image7.visible := false;
Image8.visible := true;
timer1.Enabled:=false;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Image1.visible = true
then begin
timer1.interval := 5000;
Image1.visible := false;
Image2.visible := true;
Image3.visible := false;
Image4.visible := true;
Image5.visible := true;
Image6.visible := false;
Image7.visible := true;
Image8.visible := false;


end

else begin
Image1.visible := true;
Image2.visible := false;
Image3.visible := true;
Image4.visible := false;
Image5.visible := false;
Image6.visible := true;
Image7.visible := false;
Image8.visible := true;
timer1.enabled := false;
end


end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Image2.visible = true
then begin
Image9.top := Image9.top +10
end ;
if Image9.top > Form1.height //Problem ist, dass der Hund irgendwann überfahren wird.
then
Image9.top := 0;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Image1.visible = true
then begin
Image10.left := Image10.left +10;
end
;

if Image10.left > Form1.width
then
Image10.left := 0;



end;





procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled := true;
end;





initialization
{$I unit1.lrs}

end.

hier noch nen screen:

ist imprinzip das selbe.
der hund soll gehen wenn die fusgänger ampel grün ist.
dies wird durch einen timer ausgelöst. (funktioniert einwandfrei)
währenddessen fährt das auto pausenlos von links nach rechts.
wenn die fussgänger ampel grün wird (autoampel rot) und sich das auto hinter dem 1. shape links vom zebrastreifen befindet, soll es weiter fahren, bis es wieder vor dem streifen ist.

ps: der source ist halt nooblike sry dafür schonmal