Haus bauen lassen ?

[Maxxer]

Morgen,

ich bin neu hier und naja programmiere mit Delphi erst seit ein paar Wochen.
Ich lerne es in der Schule (11 Klasse) und würde gern ein paar Tipps von euch haben,
da mein Lerer, meiner Meinung nach, viel zu blöd ist !

Wir sollten im Unterricht ein Haus bauen.
Das habe ich, war nicht so schwer.
Aber was ich will ist, dass man sieht wie das Haus gebaut wird,
also man sieht wie das Programm das Haus baut, jeden einzelnen Strich.

Delphi-Quellcode:

program Haus;


uses
  mSum;

var
  derBildschirm : Bildschirm;
  meinStift     : Stift;

begin
  derBildschirm := Bildschirm.init;
  meinStift     := Stift.init;


// Das Haus

meinStift.hoch;
meinStift.bewegeBis(400,200);
meinStift.runter;

meinStift.bewegeUm(200);

meinStift.dreheUm(-90);
meinStift.bewegeUm(200);

meinStift.dreheUm(-90);
meinStift.bewegeUm(200);

meinStift.dreheUm(-90);
meinStift.bewegeUm(200);

meinStift.dreheUm(-45);
meinStift.bewegeUm(142);

meinStift.dreheUm(-90);
meinStift.bewegeUm(140);

// Der Weg vom Dach zum Fester

meinstift.hoch;
meinstift.dreheUm(-45);
meinstift.bewegeUm(30);
meinstift.dreheUm(-90);
meinstift.bewegeUm(15);
meinstift.runter;

// Fenster rechts oben

meinstift.bewegeUm(30);
meinstift.dreheUm(90);
meinstift.bewegeUm(30);
meinstift.dreheUm(90);
meinstift.bewegeUm(30);
meinstift.dreheUm(90);
meinstift.bewegeUm(30);

// Der Weg vom Fenster rechts zum Fesnter links

meinstift.hoch;
meinstift.dreheUm(90);
meinstift.bewegeUm(140);
meinstift.runter;

// Fenster Links oben

meinstift.bewegeUm(30);
meinstift.dreheUm(90);
meinstift.bewegeUm(30);
meinstift.dreheUm(90);
meinstift.bewegeUm(30);
meinstift.dreheUm(90);
meinstift.bewegeUm(30);

// Der Weg von Fenster links oben zur Tür

meinstift.hoch;
meinstift.dreheUm(180);
meinstift.bewegeUm(170);
meinstift.dreheUm(90);
meinstift.bewegeUm(35);
meinstift.runter;

// Tür

meinstift.dreheUm(90);
meinstift.bewegeUm(65);
meinstift.dreheUm(-90);
meinstift.bewegeUm(40);
meinstift.dreheUm(-90);
meinstift.bewegeUm(65);




  meinStift.gibFrei;
  derBildschirm.gibFrei
end.

Man sieht ich Kommentiere viel :) damit ich weiss wo was ist !

Ich hoffe ihr wisst was ich meine und könnt mir helfen.
Wieso ich das vorhabe ? Mir ist gerade langweilig, habe per Google diese Seite gefunden
und würde auch gern schon etwas mehr wissen als die anderen bei mir im Kurs :mrgreen:

Was ich noch gern wissen würde ist,
wie kann ich den die Farbe der Striche ändern und
wie kann ich den einen Text schreiben ?
Den immer wen ich den befehl "meinstift.schreibeText(Dies ist mein Text);"
eingebe kommt ein Fehler !

Wie schon gesagt, ich programmiere mit Delphi erst seit ein paar Wochen also bitte nicht hauen ! :stupid:

[Dust Signs]

Ich kenne MeinStift nicht; schau mal in der Delphihilfe unter TCanvas.Pen bzw. LineTo und MoveTo nach...

Dust Signs

[XeRo]

ich kenn "mSum" nicht...kannst mal dein programm als Exe+source anhängen ;-)

[eidt]natürlich auch mit mSum[/edit]

[Maxxer]

Klar kann ich das, wenn es euch hilft :)

Ich hoffe in der .rar datei ist alles was du willst...

[malo]

Wahrscheinlich solltest du mal "Pausen" zwischendurch machen... du kannst ja zwischendurch mal ein paar mal

Delphi-Quellcode:

sleep(50)

einfügen... evtl.musst du dafür vorher die Unit "Windows" einbinden. ;)

Erklärung: Sleep schläfert dein Programm quasi für die angegebene Zeit an Millisekunden ein. In der Zeit passiert soweit nichts mehr... bis die Zeit vorrüber ist. Probiers mal aus. Vielleicht ein wenig mit den Werten spielen ;)

[Maxxer]

Zitat:

Zitat von malo

Wahrscheinlich solltest du mal "Pausen" zwischendurch machen... du kannst ja zwischendurch mal ein paar mal

Delphi-Quellcode:

sleep(50)

einfügen... evtl.musst du dafür vorher die Unit "Windows" einbinden. ;)

Erklärung: Sleep schläfert dein Programm quasi für die angegebene Zeit an Millisekunden ein. In der Zeit passiert soweit nichts mehr... bis die Zeit vorrüber ist. Probiers mal aus. Vielleicht ein wenig mit den Werten spielen ;)

malo, danke ! :thumb:
Es hat funktioniert !

ALso jungs, wir sehen uns bestimmt bald wieder :mrgreen:

[Dornathal]

Also in der mSuM geht das durch

Delphi-Quellcode:

warte(ms);// ms := Zeit in millisecounds;

Aber ich denke hat den selben Effect :)

[Die Muhkuh]

Hi,

der letzte Beitrag ist schon 2 Jahre alt, ob es ihn noch interessiert, wage ich zu bezweifeln. :mrgreen:

Achso, herzlich willkommen in der DP. :dp: :party:

[Andi1985]

lol^^

[s-off]

[OT]
Und der Beitrag von Manuel ist auch schon knapp einen Monat alt; also selber

Zitat:

Zitat von Mogtar

lol^^

Btw: die Grußformel der Orcs lautet anders...
[/OT]