ich arbeite mit der daten bank msum
ein pfeil wird durch klicken losgeschickt mit r soll er etwas nach unten gelenkt werden mit h etwas hoch
wie der pfei noch vorne fliegt weiß ich nur wie hoch und runter nicht, da kommt immer ein Fehler mit Umgang der Tastatur und es geht nichts ?
Danke

Was hast du denn bisher?

Zitat:

da kommt immer ein Fehler

Mit solchen aussagekräftigen Fehlermeldungen läßt sich immer viel anfangen.

Das Eriegnis onKeyPres oder war es OnKeyDown sollte dir weiterhelfen. (Nicht vergessen wenn nötig KeyPreview auf True zu setzten.

Hi!

Herzlich Willkommen in der DP.

Ist msum nicht dieses Programmieren auf Deutsch?!
Zeig am besten mal etwas Code und v.a. die Fehlermeldung.


Ciao Frederic

ich hab den fehler schon gefunden Danke !
war ganz dumm !

also ich programmiere mit msum und der Fehler ist nun weg, aber der Pfeil bewegt sich nicht , das muss an dem weiter liegen.

zusammenfalten · markieren

Delphi-Quellcode:

If meineTastatur.wurdeGedrueckt then
     If meineTastatur.zeichen ='h'  then
       begin
     meinStift.runter;
     meinStift.bewegeUm(-80);
     meinStift.hoch;
     meinStift.bewegeUm(80);

     meinStift.bewegeBis(meinStift.hPosition, meinStift.vPosition - 0.002);
     meinStift.bewegeUm(0.001);

    // Pfeil zeichnen
    meinStift.runter;
    meinStift.bewegeUm(-80);
    meinStift.hoch;
    meinStift.bewegeUm(80);
    meineTastatur.weiter
     end ;
    If meineTastatur.wurdeGedrueckt then
     If meineTastatur.zeichen ='r'  then
       begin
     meinStift.runter;
     meinStift.bewegeUm(-80);
     meinStift.hoch;
     meinStift.bewegeUm(80);

     meinStift.bewegeBis(meinStift.hPosition, meinStift.vPosition + 0.002);
     meinStift.bewegeUm(0.001);

    // Pfeil zeichnen
    meinStift.runter;
    meinStift.bewegeUm(-80);
    meinStift.hoch;
    meinStift.bewegeUm(80);
    meineTastatur.weiter;

    end

[edit=Luckie]Delphi-Tags Mfg, Luckie[/edit]

Hi!

Bitte verwende die [delphi.] [/delphi.]- Tags um Code zu umschließen (jeweils ohne die Punkte)


Ciao Frederic

Zitat von fkerber:

Hi!

Bitte verwende die [delphi.] [/delphi.]- Tags um Code zu umschließen (jeweils ohne die Punkte)


Ciao Frederic

[OT]
Tipp: Wenn du die blöde Setzung von Punkten vermeiden willst, wenn du Tags erklärst, könnte ich dir die checkbox direkt unter dem textfeld empfehlen [ ] BBCode in diesem Beitrag deaktivieren

[/OT]

Sorry, aber ich kann's mir nicht verkeifen:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure SinglePop;
begin
  meinStift.runter;
  meinStift.bewegeUm(-80);
  meinStift.hoch;
  meinStift.bewegeUm(80);
end;

procedure Poppen;
begin
  while not (meinStift.Status in [psLeer, psSchlapp]) do
  begin
     SinglePop;
     if Random > 0.8 then
        PlaySound('YeahBaby.WAV')
     else
        PlaySound('OHHH.WAV');
  end;
end;

Zitat von shmia:

Sorry, aber ich kann's mir nicht verkeifen:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure SinglePop;
begin
  meinStift.runter;
  meinStift.bewegeUm(-80);
  meinStift.hoch;
  meinStift.bewegeUm(80);
end;

procedure Poppen;
begin
  while not (meinStift.Status in [psLeer, psSchlapp]) do
  begin
     SinglePop;
     if Random > 0.8 then
        PlaySound('YeahBaby.WAV')
     else
        PlaySound('OHHH.WAV');
  end;
end;

lolz..........

@shmia: Nehmen wir das nächste Mal bitte wieder andere -neutralere- Bezeichner? Danke.