s393639/Pracownia_C_Plus_Plus
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Usuń 'Unit3.cpp'

Browse Source
This commit is contained in:
Aleksander Misztal 2019-02-09 11:07:33 +00:00
parent a0478937f9
commit e6d4c05634
1 changed files with 0 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

218
Unit3.cpp
View File

@ -1,218 +0,0 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button10Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button7Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+1;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button8Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+2;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+3;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+4;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+5;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+6;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+7;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+8;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+9;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button13Click(TObject *Sender)
{
if (mnozenie==true){
y=Edit1->Text.ToDouble();
x=x*y;
Edit1->Text="";
}
else{
x=Edit1->Text.ToDouble();
mnozenie=true;
Edit1->Clear();
dodawanie=false;
odejmowanie=false;
dzielenie=false;
przecinek=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button12Click(TObject *Sender)
{
if (dzielenie==true){
y=Edit1->Text.ToDouble();
x=x/y;
Edit1->Text="";
}
else{
x=Edit1->Text.ToDouble();
dzielenie=true;
Edit1->Clear();
dodawanie=false;
odejmowanie=false;
mnozenie=false;
przecinek=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button14Click(TObject *Sender)
{
if (dodawanie==true){
y=Edit1->Text.ToDouble();
x=x+y;
Edit1->Text="";
}
else{
x=Edit1->Text.ToDouble();
dodawanie=true;
Edit1->Clear();
mnozenie=false;
odejmowanie=false;
dzielenie=false;
przecinek=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button15Click(TObject *Sender)
{
if (odejmowanie==true){
y=Edit1->Text.ToDouble();
x=x-y;
Edit1->Text="";
}
else{
x=Edit1->Text.ToDouble();
odejmowanie=true;
Edit1->Clear();
dodawanie=false;
mnozenie=false;
dzielenie=false;
przecinek=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button16Click(TObject *Sender)
{
x=0;
y=0;
Edit1->Text="";
dodawanie=false;
odejmowanie=false;
mnozenie=false;
dzielenie=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button17Click(TObject *Sender)
{
if(dodawanie==true){
y=Edit1->Text.ToDouble();
x=x+y;
Edit1->Text=x;
x=0;
y=0;
przecinek=false;
}
if(odejmowanie==true){
y=Edit1->Text.ToDouble();
x=x-y;
Edit1->Text=x;
x=0;
y=0;
przecinek=false;
}
if(mnozenie==true){
y=Edit1->Text.ToDouble();
x=x*y;
Edit1->Text=x;
x=0;
y=0;
przecinek=false;
}
if(dzielenie==true){
y=Edit1->Text.ToDouble();
x=x/y;
Edit1->Text=x;
x=0;
y=0;
przecinek=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button11Click(TObject *Sender)
{
if (!przecinek){
AnsiString cyfra=Edit1->Text;
cyfra+=',';
Edit1->Text=cyfra;
przecinek=true;
}
}
//---------------------------------------------------------------------------