Start tid

Prøv det her: http://hejhej105.frac.dk/tid.zip

Funktionen kommer fra: http://www.swissdelphicenter.ch/torry/showcode.php?id=1163

hejhej > Mega cool der er dog et lille problem. Det var meningen at tiden skulle ganges med værdien i compoboxen også give et resultat. alså
tid * compobox = resultat !
Resulatatet skal så løbende blive "opdateret" efter som tiden køre.

Et anden spm. er det muligt at der fx i compoboxen står Ohøj og så have værdien 3 alså hvis man vælger ohøj så bliver 3 ganget med tiden :-)
Hæver lige pointne til 100 :-)

Skal lige prøve at lave det :-)

Prøv det her istedet:

const
  SecPerDay = 86400;
  SecPerHour = 3600;
  SecPerMinute = 60;

function SecondToTime(const Seconds: Cardinal): Double;
var
  ms, ss, mm, hh, dd: Cardinal;
begin
  dd := Seconds div SecPerDay;
  hh := (Seconds mod SecPerDay) div SecPerHour;
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute;
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute;
  ms := 0;
  Result := dd + EncodeTime(hh, mm, ss, ms);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

function GetComboValue(Combobox: TComboBox): Integer;
begin
if Combobox.Text = 'Ohøj' then Result := 3;
if Combobox.Text = 'Hejhej' then Result := 2;
if Combobox.Text = 'Hej' then Result := 1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Tid := Tid + 1;
Label1.Caption := TimeToStr(SecondToTime(Tid*GetComboValue(ComboBox1)))
end;

hejhej > takker :-) det kunne være fedt.. men er det ikke bare label1.caption * combobox.text ? alså ikke fordi jeg selv kan :-)

okay det løser jo så det problem med comboboxen :-) hvad så med det * værk
alså
Tiden * Combo value = Resultat :-)

ups så lige forker det er så løst men tiden skal stadig blive vist så resultatet af tiden * combo skal vise i en anden label fx label2

Tror jeg har fået det rettet nu :-)

http://hejhej105.frac.dk/tid.zip

Programmet skal være til at udregne prisen for den tid man er online med en ikke fast forbindelse så resultatet skal ikke komme som et ur hvis du forstå :-) det skal bare være "prisen" dette have jeg tænkte mig var at jeg regnede sekund prisen ud for at være på internettet så skulle sekunderne i uret ganges med sekund prisen og blive til tallet det koser for den tid du har været på ! håber du forstår :-)

så hvis vi siger at prisen pr sekund er 0,0035 og uret viser 2 sekunder så skal det så være 0,00305 * 2 Resultat = 0,0061

Prøv det her istedet:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Tid := Tid + 1;
Label1.Caption := TimeToStr(SecondToTime(Tid));
Label2.Caption := IntToStr(Tid*GetComboValue(ComboBox1));
end;

Det virker bedre men nu er der bare andre problemer :-) for det første kan et result i comboboxen ikke være 0,0035 okay så jeg skriver 00035! men kan man komventere sådan at det bliver i kr, alså for den tæller jo i øre kan man få det til ligeså snart at den når 100 øregrænsen og så få den til at skrive 1,(næste tæller op til 100) og så skifter den til 2 :-)

det lader ikke til man kan gange med 00035 :\

Tror jeg har fået det hele rettet :-)

function IsInteger(Str: String): Boolean;
var
F: Single;
Code: integer;
begin
val(Str,F,code);
Result := True;
if code <> 0 then
Result := False
end;

function PunktumTilKomma(Str: String): String;
begin
Result := AnsiReplaceStr(Str, '.', ',');
end;

function GetComboValue(Combobox: TComboBox): Single;
begin
if IsInteger(Combobox.Text) then
begin
Result := StrToFloat(PunktumTilKomma(Combobox.Text));
end;
if Combobox.Text = 'Ohøj' then Result := 3;
if Combobox.Text = 'Hejhej' then Result := 2.25;
if Combobox.Text = 'Hej' then Result := 1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Tid := Tid + 1;
Label1.Caption := TimeToStr(SecondToTime(Tid));
if Tid*GetComboValue(ComboBox1) >= 100 then
Label2.Caption := FloatToStr(RoundTo((Tid*GetComboValue(ComboBox1))/100,-2)) + ' kr'
else
Label2.Caption := FloatToStr(RoundTo(Tid*GetComboValue(ComboBox1),-2)) + ' øre';
end;

Du gider vel ikke lægge den op lige som resten ? jeg har nemlig problemer når jeg compailer den :-(

Jo, uploader den lige :-)

http://hejhej105.frac.dk/tid.zip

hejhej > jeg øger lige til 200 point da jeg synes du har gjort et mega godt stykke arbejde :-) og du har fuldt ud fortjent dem !!

Jeg har lige lagt programmet op hvis du kunne tænkte dig at se resultatet :-)
http://frip.dk/cms/Project1.zip

Det er ment til folk der har 56k/ISDN så de kan se hvormeget det egentligt koster at sidde online så de kan styrer deres regning :-P

<\\izemate

hehe.. smart program(altså til dem som har 56k eller ISDN) :-)

Takker for point :-)

jepper :-) har sel ISDN såå....