Hjelp eksamen i morgen

[Goggen_]

Trenger hjelp til å lage minesveiper i delphi.

Array og løkker skal brukes.

En klokke som teller hvor langtid du bruker.

Skal også være mulig å merke av de du trur er miner.

Når du treffer en mine skal alle minene komme opp, og game over skal vises.

Når man trykker ett sted hvor det ikke er mine skal det komme opp hvor mange miner som er rundt. altså de 8 knappene som er rundt, vis det er miner der skal tallet komme opp der du trykket..

 

Trenger hjelp.. takk for alle svar..

[Zoxc]

San eksamen vil eg ha I ungdomskulen

 

Er det ikkje litt lett for en eksamen?

 

Eg ville egetlig brukt TDrawGrid med du må bruke array's. Derfor bør du bruke TPaintBox, og lage en array-er i to dimensioner [0..8, 0..8] med TField.

 

TField = record

IsMine:Boolean;

IsVisible:Boolean;

IsGuessMine:Boolean;

end;

 

Får å tegne dei:

 

for x := 0 to 8 do

for y := 0 to 8 do

begin

/Tegnekode

end;

 

På mousedown event'en kan du kalkulere kva slaks felt brukere trykker på som dette (Vis bredda på felta er 16):

ArrayX := Trunc(X/16)

ArrayY := Trunc(Y/16)

 

og MouseButton til å vite om brukere klikker venstre eller høgre tast

 

 

For timeren kan du bruke dette:

 

Sett in ein TTimer

 

set interval til 1000 (1 sek)

 

på OnTimer

 

Inc(Timer1.Tag);

Label1.Caption := IntToStr(Timer1.Tag) +' sekund har gått';

Endret 2. juni 2005 av Zoxc