1)Jag har fått följande uppgift som jag inte kan lösa:
Skriv ett program som räknar ut skatten på angiven brutto lön. Bestäm själv skatte sattsen.
2)Jag har gjort 4 objekt som från början är osynliga sen skall den första bli synlig efter en sekund och den andra efter 2 sekunder osv.
Tacksam för svar
inget svårt. skapa en konstant till vilken du sätter skattesatsen. sedan är det vanlig multiplikation som gäller
inför en timer samt en funktion för uppritning av objekt.
skapa sedan en loop i vilken du har en case-sats. när en sekund gått anropar du uppritningsfunktionen med de egenskaper ditt objekt har. efter två sekunder likdant fast med objekt tvås egenskaper.
Tack för ditt svar.
Men jag får det inte att funka (jag är inte speciellt duktig)
Jag skriver så här:
procedure TForm1.Button1Click(Sender: TObject);
var brutto:integer;
const skatt:double=0.25;
begin
brutto:=StrToInt(edit1.text);
StrToInt(label1.Caption):=StrToReal(brutto*skatt);
"StrToInt(label1.Caption):=StrToReal(brutto*skatt);"
String to int? Du deklarerade nyss brutto som integer. om du deklarerar brutto som real, kan du köra StrToReal, multiplicera och konvertera tillbaka till string med RealToStr.
Dessvärre så klarar jag det fortfarande inte.
procedure TForm1.Button1Click(Sender: TObject);
var brutto:real;
const skatt:double=0.25;
begin
brutto:=StrToInt(edit1.text);
StrToReal(label1.caption):=RealToStr(Brutto*Skatt);
