hi bin grad dabei nen kleines übungsprogramm was ich letzens inner berufsschue in c++ geschrieben habe in pascal zu schreibeiben ...
....
jedenfals soll in tzufalszahl halt ne zufalszahl reinkommen wenn man bstart drückt aber wie kann ich eine zufalszahl erstellen? in c++ hatte ich das in abhängigkeit zum datum/uhrzeit gemacht.
Code:
procedure TForm1.bstartClick(Sender: TObject);
begin
//alles sichtbar/unsichtbar machen
bstart.visible := False;
bstop.visible :=True;
tzufalszahl.visible := True;
timer.enabled := True;
end;
procedure TForm1.TimerTimer(Sender: TObject);
begin
tzahl.text := IntToStr(StrToInt(tzahl.text)+1);
end;
procedure TForm1.bstopClick(Sender: TObject);
var
hilfszahl : integer;
e : integer;
i : integer;
hilfsname : string;
tausch : string;
begin
//alles sichtbar/unsichtbar machen
bstart.visible := True;
bstop.visible := False;
tzufalszahl.visible := False;
timer.enabled := False;
//Differenz und Name in Tabelle übernehmen
hilfszahl :=(strtoint(tzufalszahl.text) - strtoint(tzahl.text));
if hilfszahl < 0 Then
begin
hilfszahl := hilfszahl * (-1);
end
else
begin
hilfszahl := hilfszahl;
end;
lbdifferenz.items.add(inttostr(hilfszahl));
if tname.text = '' Then
begin
hilfsname := 'Unbekannt';
end
else
begin
hilfsname := tname.text;
end;
lbname.items.add(hilfsname);
//Zahl auf 0 setzen
tzahl.text := '0';
//Daten anhand der linken Tabelle alphabetisch sortieren
if lbdifferenz.Items.Count >1 then
begin
E := 1;
WHILE E>0 DO BEGIN
E := 0;
FOR I := 0 TO lbdifferenz.Items.Count-2 DO
begin
if lbdifferenz.Items[I] > lbdifferenz.Items[I+1] then
begin
tausch:=lbdifferenz.Items[I];
lbdifferenz.Items[I]:=lbdifferenz.Items[I+1];
lbdifferenz.Items[I+1]:=tausch;
tausch:=lbname.Items[I];
lbname.Items[I]:=lbname.Items[I+1];
lbname.Items[I+1]:=tausch;
e:=1;
END;
END;
END;
END;
end;
procedure TForm1.tbschwierigkeitChange(Sender: TObject);
begin
//Timer Geschwindigkeit einstellen (standart 50ms)
if tbschwierigkeit.position = 1 Then
begin
Timer.interval := 100;
end;
if tbschwierigkeit.position = 2 Then
begin
Timer.interval := 90;
end;
if tbschwierigkeit.position = 3 Then
begin
Timer.interval := 80;
end;
if tbschwierigkeit.position = 4 Then
begin
Timer.interval := 70;
end;
if tbschwierigkeit.position = 5 Then
begin
Timer.interval := 60;
end;
if tbschwierigkeit.position = 6 Then
begin
Timer.interval := 50;
end;
if tbschwierigkeit.position = 7 Then
begin
Timer.interval := 40;
end;
if tbschwierigkeit.position = 8 Then
begin
Timer.interval := 30;
end;
if tbschwierigkeit.position = 9 Then
begin
Timer.interval := 20;
end;
if tbschwierigkeit.position = 10 Then
begin
Timer.interval := 10;
end;
end;
jedenfals soll in tzufalszahl halt ne zufalszahl reinkommen wenn man bstart drückt aber wie kann ich eine zufalszahl erstellen? in c++ hatte ich das in abhängigkeit zum datum/uhrzeit gemacht.