Dart spill : "501"
Det er sommer og det er den tiden på året hvor jeg spiller dart i nøstet på landstedet. I søken etter hva slags programm jeg skal lage tenkte jeg at "hey!", hvorfor ikke lage et dartprogram.. Nedenfor skal jeg vise i detalj hvordan du snekrer sammen dette programmet med Delphi. Heng med!
Dropp en label, en editbox, en knapp og en gauge. Bortover i den rekkefølgen. Som vist under:
Sett Button1.Default til "True" slik at du bare trenger å trykke "Enter" istedenfor å trykke på Button1 med musen. Nå over til å skrive litt kode. Dobbelklikk på button1, slett begin..end paret og skriv:
| var S,T : integer; begin if Edit1.Text = '' then ShowMessage('Du må taste inn et tall!') else begin T := StrToInt(Label1.Caption); S := StrToInt(Edit1.Text); Label1.Caption := IntToStr(T - S); Edit1.Text := ''; Gauge1.Progress := 501 - StrToInt(Label1.Caption); end; if Label1.Caption = '0' then Showmessage('Du er en vinner'); end; |
Som du ser er S og T tallvariabler. T er det tallet som står i Label1 og S er det tallet du skriver inn. Når du trykker på Button1 tar programmet og substraherer S fra T. Hvis T er 501 og S er 50, da står det 451 i Label1 når du klikker. Samtidig slettes det som står i Edit1 og Gauge1 viser hvor langt du har kommet fram mot målet (0) i prosent. Når du får 0, popper det fram en melding om at du er en vinner.
Hvis du skal gjøre programmet litt mer "enklere" setter du Button1.Default := true , slik at når du har skrevet det du har fått i poeng i denne omgangen i Edit1 så trykker du bare "ENTER". Så regner programmet ut hvor mye poeng du har igjen. Og da er det bare for deg og kaste på nytt helt til du får 0 poeng.
Jeg har selv laget en mer avansert versjon av dette programmet. Som du kan laste ned og se mer nøye på selv. (Det blir rett og slett altfor mye å skrive :-) ) Trykk her og se et bilde av hvordan den avanserte versjonen ser ut. Den har en logg som lagrer resultater, er for 2 til 3 spillere og har mange andre små finesser som jeg har brukt en del tid på å utvikle, og som har vært lærerikt å programmere.
