Autorennen by Tigerhead

[Gast]

Hier mal einer meiner ersten Programme. Es ist zwar unmöglich gegen "Profi" zu gewinnen und nicht schwer gegen "Schwer" zu gewinnen aber egal ^^. Hatte ein Problem dabei, und zwar kann man noch fuschen, indem man die Enter Taste lange drückt. Wie bekomme ich das weg ?

Gr33tz!
Tigerhead

PS: Weitere Infos sind in der Readme zu finden.

[Nicodius]

hab beim ersten mal gegen profi gewonnen
bin halt n richtiger zocker was

naja ... konnte das nur weil mal so n altes lucky luck (ne nicht vo ndir lucky ) .. spiel drauf aufbaute da musste man ganz schnell bei der ps one die vierecktaste drücken ... controllerhinlegen und ganz viel draufhämmern(finger ganz nah drann und zack zack zack ..)



tolle erklärung was?


naaja .. entertaste sperren würd ich so machen(das ichs so macht heißt wenig gel? ) :

Delphi-Quellcode:

if key <> VKreturn 
        then
        begin    

        end;

weil euer code gibt nur die nachricht dazu aus sperrt die taste aber nicht ... nach dem beginn den code für das weiterbewegen rein(image1.left := image1.left + Zahl)


und bitte mach das man das info fenster auch nach dem Straßenaufbau sehen kann
(zeichne deine straße halt nacher nochmal )
greeze

Nico

[Matze]

Ich kann zwar rar entpacken, aber bitte gewöhne dir an, zukünftig das zip-Format zu verwenden, das ist der Standard schlechthin.

[Nicodius]

aber für das kannst du ihm nichts antun .. was wäre würde jemand sagen c sharp ist der standart ? oder delphi 8 .... "was du hast delphi 3 - aufrüsten das d8 ist DER standart"

[Matze]

Zitat von Nicodius:

aber für das kannst du ihm nichts antun .. was wäre würde jemand sagen c sharp ist der standart ? oder delphi 8 .... "was du hast delphi 3 - aufrüsten das d8 ist DER standart"

Das ist komplett was anderes.

[fkerber]

Hi!

Zu Zip <-> Rar:
Die Diskussion hatten wir schon öfter, aber irgendwie ne Antwort gab es nicht


Zum Programm:
Du hast das Key-Preview nicht auf True gesetzt oder? Solange der Button den Focus hat kann ich enter drücken soviel ich will, erst im Zeil meckert er.


Ciao Frederic

P.S.: Habe auch ihne Enter gegen Profi gewonnen

[emsländer]

Kannst Du bei den Ampelphasen evtl. noch einen kurzen Ton bringen? kurz bei rot und gelb, lang bei grün.

Gruss

EL

[Gast]

Das hatte ich auch vor, wirklich. Habe aber keinen Plan wie das geht. Hier mal der Code Teil für die Ampeln. Vielleicht kann mir jmd das da ja einbauen Und auch gut wäre wenn jmd mir sagen könnte welche Sounds ich nehmen kann. Vielleicht einen Windows Standart Sound ? Wenn ja welchen ?

Code:

procedure TForm1.Timer4Timer(Sender: TObject);
begin
 Label1.Caption := IntToStr(gewonnen);
 gewonnen := gewonnen -1;
 if (Label1.Caption = '0') then begin
  Image1.visible := true;
 end else
 if (Label1.Caption = '-1') then begin
  Image1.visible := false;
  Image2.visible := true;
 end else
 if (Label1.Caption = '-2') then begin
  Image2.visible := false;
  Image3.visible := true;
 end else
 if (Label1.Caption = '-3') then begin
  Image3.visible := false;
 end else
 if (Label1.Caption = '-4') then begin
  gewonnen := 0;
  Timer4.Enabled := false;
  btstop.Enabled := true;
end;
end;

[Nicodius]

windows.beep(Frequenz,Länge)

so einfach isses ..



abber bitte.... ich persönlich hasse beepen wenn dann einschaltbar

und ich empfehle dir dringend bei luckies hompage die Codeformierung anzuschauen ..

[Gast]

Kann mir das vielleicht jmd da rein schreiben mit dem Sound, denn:

1. Kenne ich mich nicht mit Requenz aus. (was laut/leise ist)
2. Kenne ich mich nicht mit der Zeit aus. (kein Plan wie lange es gehen soll)
3. Funktioniert das irgendwie leider bei mir nicht ...

Gr33tz!
Tigerhead


//edit: Wollte das im neuen Timer machen, da man das dann ausmachen kann. Aber irgendwie höre ich nichts.

Code:

begin
if (Image1.visible = true) then
windows.beep(100,100);
end;

[Nicodius]

100 millisekunden ist auch etwas kurz =)