Finde en Delphi opgave ( noob )

http://www.pythia.dk/ <-- denne side kan du nok få en del ud af, hvis du gerne vil lære nogle nemme programmer... (gå ind under artikler...

/Brian

Har selv gemt den i et Text dukoment sårn jeg aldtid har den :D

Mener merer at i/dig skal skrive n0get et pr0gram skal gører så skal jeg prøve at lave det

1.
lav et program der gennemgår alle dll filer for ikoner og vis dem på formen, i en listbox
hvert ikon skal kunne gemmes når det er markeret, eller alle ikoner i en image fil.

2. Et program hvor du med musen kan tegne på et panel.

3. et program der måler din reaktiontid.. f.eks en timer der random bestemmer
tiden hvornår en label bliver rød, når du ser label bliver rød, skal du trykke på knappen. hvorefter du får vist tiden i sekunder.

OSV....

lav en ny kernel32.dll

Squash  Kernel32.dll???  -  Stone lyder feeed

det går nok heller ikke at lave i delphi :)

Husk nu jeg er n00bie :D

Squash  -  Hvad er kernel32??

det er kort sagt kernen i windows.

uden den, ingen windows

regneopgaver: udregn nogle parametre for nogle tal, der ligger på en ret linie.
2: en tabel hvor man indtaster værdier og derefter udfyldes andre felter aut. i henhold til indtastninger.

heh så tr0r jeg ikke jeg kommer ind på eksperten før 10 år :P

tr0r jeg tager Squash ide

*joke*

3. et program der måler din reaktiontid.. f.eks en timer der random bestemmer
tiden hvornår en label bliver rød, når du ser label bliver rød, skal du trykke på knappen. hvorefter du får vist tiden i sekunder.  -  Lyder rigtig sjov

ved ikke helt hv0rdaµ ::P

lav en knap; når der trykkes skal der komme en messagebox, som viser teksten på knappen.

Squash  fattede jeg ikke meget af?? :)

baxos> du kan jo lave et program der laver alt dit H4X0R sprog om til normalt dansk så alle andre også kan læse det !;)

Space lyder s0m en jalla tralle kralle ide

host....pythia.dk trænger virkeligt til at blive opdateret*SS*

snip....
01.08.2002

Der går rygter om at den skadinaviske frigivelse af Delphi 7 sker den 10. september i København.

/snip end

heh ja  sad osse tænke hv0f0r fanden har de det*??  jeg har  Delphi 7.0

Hmmm hvordan sætter jeg min timer til at starte?

timer1.enabled:= True //starter Timeren
Timer1.Enabled:= False // stopper Timeren

Et par forslag:

1)  Lav et lile program der kan anbringe 8 dronninger på et skak-bræt
    sådan at de ikke kan slå hinanden.

2)  Lav et lille program til at vedligeholde et adresse kartotek i
    em database.

Begge er klassiske "text book" opgaver.

Lad os kalde det et svar.

og så er  interval  antal minisekunder? altså 1000 er 1 sekund?

St0ne - Hvordan skal jeg så skrive If Timer1.time = '0'  Then  man kan ikke skrive .Time*

du er nød til at lave en variabel:

react: Integer;

sæt den ind under Form1: Tform1 som vist her


var
  Form1: TForm1;
  react : integer;

implementation

// bagefter er du nød til at sætte din variabel = 0

//her skriver du i

procedure TForm1.FormCreate(Sender: TObject);
begin
react:=0;
end;

st0ne - Hvad gør den kode så?

f0rstår ikke helt  prøver lige lidt...

Uret's kode er det ikke sårn : procedure TForm1.Timer1Timer(Sender: TObject);
begin
If react='0' then
Begin
label1.Caption:='Nu'
end;
end;  - Håber jeg ;)

Får en fejl når jeg kører det stykke kode :/

Får denne fej : Incompatible types    -  Det er then  der er n0get galt med

//du har nok placeret din var forkert
//Her er hele koden for programmet
//prøv at lege lidt med det
var
  Form1: TForm1;
  react : integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
button1.Enabled:=False;
button2.Enabled:=True;
label2.Caption:='VENT';
label2.Color:=clGreen;
label2.Visible:=True;
timer2.Interval:=random(5000)+2000;
timer2.Enabled:=True;
if
Timer1.Interval = 0 then
label1.Visible:= False;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label2.Caption:='TRYK STOP!';
label2.Color:=clRed;
timer1.Enabled:=True;
timer2.Enabled:=False;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer2.enabled:=False;
label2.Visible:=false;
timer1.Enabled:=False;
showmessage(inttostr(react*10));
button2.Enabled:=False;
button1.Enabled:=True;
react:=0;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
react:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(react);
end;

end.

Prøver lige  og så bagefter  læser jeg koden 20000 gange ;)

heheh sjovt program *gG*  Hvad er din hastighed?

30

hmmm min er 10

St0ne smid et svar

svar )))

g00die - Hvorfor hedder du st0ne?? ;) Sten?

Vil du være sød at fortælle hv0rdan man  skifter navn på  PageControl  altså ( knapperne )

Glem alt tjek lige mit nyt Spm ;)