Jak Začít?

Máš v počítači zápisky z přednášek
nebo jiné materiály ze školy?

Nahraj je na studentino.cz a získej
4 Kč za každý materiál
a 50 Kč za registraci!






Kalkulačka delphi

DOC
Stáhnout kompletní materiál zdarma (24 kB)

Níže je uveden pouze náhled materiálu. Kliknutím na tlačítko 'Stáhnout soubor' stáhnete kompletní formátovaný materiál ve formátu DOC.

Kalkulačka = DELPHI unit Unit1; public minX,cisl, pam:real; minOP:char; smazat:boolean; i:integer; { Public declarations } end; procedure TForm1.Cislice(Sender: TObject); begin if smazat then label1.caption:=''; if (Sender As TButton).CAption=',' then Button20.Enabled:=false; label1.caption:=label1.caption+(Sender As TButton).Caption; smazat:=false; end; procedure TForm1.operace(Sender: TObject); begin Button20.Enabled:=true; cisl := StrToFloat(Label1.Caption ); ListBox1.Items.Add( FloatToStr( cisl ) ); try case minOP of '+': cisl := minX + cisl; '-': cisl := minX - cisl; '*': cisl := minX * cisl; '/': cisl := minX / cisl; end; except cisl := minx; Label1.Caption := FloatTostr( cisl ); ListBox1.Items.Add( 'CHYBA' ); ShowMessage( 'CHYBA' ); end; if minOP in ['+','-','*','/'] then { provadela se minula operace: } begin ListBox1.Items.Add( '=' ); ListBox1.Items.Add( FloatToStr( cisl ) ) end; Label1.Caption := FloatTostr( cisl ); minX := cisl; minOP := (Sender as TButton).Caption[1]; if minOP in ['+','-','*','/'] then { bude zase operace: } ListBox1.Items.Add( minOp ); Smazat := TRUE end; procedure TForm1.FormCreate(Sender: TObject); begin smazat:=true; minOP:='C'; cisl:=0; i:=0; end; procedure TForm1.Button22Click(Sender: TObject); begin ListBox1.Items.Clear(); end; procedure TForm1.Button15Click(Sender: TObject); begin cisl:=0; Label1.Caption:='0'; smazat:=true; end; procedure TForm1.Button16Click(Sender: TObject); begin Label2.Visible:=true; pam:=StrToFloat(Label1.caption); Button17.Enabled:=true; Button21.Enabled:=true; end; procedure TForm1.Button17Click(Sender: TObject); begin Label1.Caption:=FloatToStr(pam); end; procedure TForm1.Button21Click(Sender: TObject); begin Label2.Visible:=false; pam:=0; Button17.Enabled:=false; Button21.Enabled:=false; end; end.

Témata, do kterých materiál patří