Hjælp til ekstra funktion på Lykkehjulet

Er der ikke nogle der kan hjælpe ??? :(

Thomas

Er der så nogle der ved hvordan man laver en timeout i delphi ??? Det vil jeg tro er nok..

Thomas

1)
  dreje hjulet ...  Hvis du tegner et bitmap med dit lykkehjul, indsætter det det rigtige sted i dir progam og sender mig HELE programmet så skal jeg få den til at dreje rundt !
2)
  Time out siger du ...

Joee når eventA indtræffer starter du en timer .... Så i den Ontimer event skriver du "Time out". Hvis EventB er indtruffet i mellemtiden skal du huste at stoppe din timer !

Jens B

Sorry det er mig der har forklaret det lidt forkert.. :)

Jeg har et label og i det står der et tal, altså det beløb som man får hvis man gætte et rigtigt bokstav... Beløbet kommer når man trykke på knappen.

Det jeg så gerne vil have skal ske når man trykke på knappen er at den først skriver et beløb og så et andet lige efter og et andet lige efter, sådan bliver det ved et par gange imens at tallene står der længere og længere tid.. ligesom når lykkehjulet er lige ved at stoppe.. Og til sidst skal den skrive et endeligt beløb..

Min funktion til at finde beløb er lige pt låledes:

valg:=Random(12);
case valg do
0:
  Fallit;
1..10:
  beløb:=valg*200;
11:
  tabt tur;
end;

Jeg ville så lave en funktion ala:

v:=Random(10);
for i:=1 to 10 do
begin
  form1.GevinstFelt.Caption:=inttostr(v*200);
  TimeOut(15*1000-v*1000); // Jeg ikke hvad der skal stå her ????
end;


Var min forklaring lidt bedre nu ??? :)

Thomas

Nååå din funktion der hedder TimeOut .. Hedder Sleep i den virkelige verden !

Jens B

okay, bare sleep(tid som tal) ???

Husk lge at ligge et svar :)

Thomas

Sleep med tid i millisekunder

Jens B

Du skulle nu overveje det med den birmap :)

Nu har jeg skrevet sådan her...

function drejPlade() : string;
  var
    i:integer;
    v:integer;
  begin
    for i:=1 to 10 do
      begin
        v:=random(10);
        form1.GevinstFelt.Caption:=inttostr(v*200);
        sleep(i*100);
      end;
  end;

Men den skriver ikke noget i gevinstFelt før at den har kørt alle sammen igennem.. Hvoffor ???

Thomas

function drejPlade() : string;
  var
    i:integer;
    v:integer;
  begin
    for i:=1 to 10 do
      begin
        v:=random(10);
        form1.GevinstFelt.Caption:=inttostr(v*200);
        Application.ProcessMessages;
        sleep(i*100);
      end;
  end;

super, du er bare sej.. :)

En lille ting mere.. :)

Kan man lave et array med tekst ??
Jeg skal nemlig lave så der er nogle forskellige svar og kategorier..

Jeg programmere normalt i php og der kan man jo skrive sådan noget med array("svar1","svar2") osv..

Kan man gøre det i delphi.. ???

Thomas

Ja du skal kigge på TStringList

Jens B

Hvad er det for noget.. Jeg har ikke så meget styr på delphi.. hvad skal jeg skrive.. ???

Thomas