Et lille spil...

Hvad mener du med billedet skifter frem og tilbage, nyt billede samme sted eller billedet lytter sig rund på skærmen

Stoney

der starter med at være et billede på formen og når der klikkes skiftes dette til et andet. næste klik skifter den til det primære...

den skifter frem og tilbage mellem 2 billeder...

Du kan sende til mail: cypher@mail1.stofanet.dk

Forresten, så skal der stå antal klik. brugeren fik...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Label2: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);
var
antalklik:integer;
begin
Image1.Hide;
Image2.Show;
antalklik:=antalklik+1;
end;

procedure TForm1.Image2Click(Sender: TObject);
var
antalklik:integer;
begin
Image2.Hide;
Image1.Show;
antalklik:=antalklik+1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
antalklik:integer;
begin
if antalklik > 20 then
begin
Label1.Caption:='Du har vundet';
end
else
begin
Label1.Caption:='Du har ikke vundet';
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Hide;
Image2.Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Show;
Timer1.Enabled:=true;
end;

end.

husk at sætte timeren's enabled til false ellers går timeren igang med det samme

jeg tjekker lige... skal du ikke have et svar? :)

du kan sætte et label ind hvor og i onclick for image1 og image2
kan du skrive

label2.caption:=inttostr(antalklik);

den virker ikke :(

altså der sker ikke noget...

der kommer dette når den bliver compilet:

[Hint] Unit1.pas(41): Value assigned to 'antalklik' never used
[Hint] Unit1.pas(50): Value assigned to 'antalklik' never used
[Warning] Unit1.pas(57): Variable 'antalklik' might not have been initialized

ude i event under timeren skal du sætte ontimer til timer1timer og under formen skal du sætte oncreate til formcreate og under image1 skal du sætte onclick til image1click og image2 skal du sætte onclick til image2click og Button1 skal du sætte onClick til button1click så virker det ved mig ellers har jeg sendt den til dig

jeg har sendt en der virker til dig nu.

den virker jo stadig ikke. billede skifter ikke, og man kan ikke se hvor mange klik man fik...

og man skal også kunne se mens nedtællingen varer...

skal jeg sende en ny til dig

jo det må du meget gerne, så kan du også lige lave et svar..

Jeg sender den nu

Har du ikke modtaget den.

den virker stadig ikke...

når man trykker på knappen reset'er den tiden, og der står ikke hvor mange klik du fik , og billedet skifter IKKE

skal den ikke resette tiden og klikene

vis den ikke skal så fjern
Label2.Caption:='0';
Label3.Caption:='0';

under button1click

jo men den restarter fra hvert klik, og så kan man jo aldrig få 20 klik...

når er det når man trykker på knappen den skal tælle op

billedet skifter jo heller ikke... og du har glemt at man skal kunne se hvor mange klik man fik...

ja men du kan lave sådan at den restarter på en anden knap...

du kan sende mig en ny som skal kunne det her:

- skifte billede for hvert klik.
- vise hvor mange klik man har fået når tiden er gået.
- den skal tælle ned ad.

ok jeg sender en nu til dig om et stykke tid

husk nu at gøre de ting der står :)

Jeg har lidt problemer med den så jeg sender den nok først imorgen

okay, bare i orden ...

Sådan:
unit unit1;
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
TTimer1,TTimer2 : TTimer;
TImage1 : TImage;
button1 : TButton;
procedure FormCreate(sender: TObject);
procedure Image1Click(sender:TObject);

end;

var
    Form1 : TForm1;
    i,n  : integer;
    s    : string;
implementation

{$R *.dfm}

procedure TForm1.Formcreate(sender:TObject);
begin
  n := 0;
  image2.picture.loadfromfile('Billede.bmp');
  image1.top:=543; //Bare en eller anden værdi.
  image1.left:=54; 
  Timer2.interval := 10000;
end;

procedure TForm1.Image1Click(sender:TObject);
begin
  n := n + 1;
  s := IntToStr(n);
  label1.caption := s; 
end;

procedure TForm1.Timer1Timer(sender  :TObject);
begin
  randomize;
  i:=2;
  random(i);
  if i=0 then image1.top := 43; //Bare en eller anden værdi.
  if i=1 then image1.left := 89:
  if i=2 then image1.top := 54;
  if n
end;

procedure TForm1.Timer2Timer(sender:TObject);
begin
  if n > 8 then showmessage('Godt gået!');
  if n < 8 then showmessage('Prøv igen!');
  Form1.FormCreate(sender);
end;
end.

cyberlsn... den virker ikke...

Hvilke fejl kommer der?

gider du ikke sende projectet CyberLSN?

bliver det til noget hejhej?

jeg opretter ny