유후 님이 쓰신 글 :
: 계산기 만들다 문제가 있는데
: 예를들면 1+1+1+1은 =4가 나와야 하는데 2가 나옴니다.
: 첫번째로 받은 수와 두번쨰 a,b만 받는다는 소린데
: 두번째 + 버튼을 누르는 순간 입력받은 두수를 a로 만들어서 연산을 이어가게 만들고싶은데
: 소스좀 부탁드려요.
:
:
:
:
: //--------------------------------------------------------------------------------
: #include <vcl.h>
: #pragma hdrstop
:
: #include "Unit1.h"
: //---------------------------------------------------------------------------
: #pragma package(smart_init)
: #pragma resource "*.dfm"
: Tcalculator1 *calculator1;
: //---------------------------------------------------------------------------
: __fastcall Tcalculator1::Tcalculator1(TComponent* Owner)
:         : TForm(Owner)
: {
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::oneClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;     //ansistring 문자형들
:
: result->Text = result-> Text+1;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::twoClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
: result->Text = str + "2";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::threeClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "3";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::fourClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "4";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::fiveClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "5";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::sixClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "6";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::sevenClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "7";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::eightClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "8";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::nineClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "9";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::zeroClick(TObject *Sender)
: {
: if(!on) return;
: AnsiString str = result->Text;
:
: result->Text = str + "0";
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::clearClick(TObject *Sender)
: {
: if(!on) return;
:     result->Clear();
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::divid1Click(TObject *Sender)
: {
: if(!on) return;
:  a = StrToFloat (result->Text);
:     d = '/';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::plus1Click(TObject *Sender)
: {
: if(!on) return;
:     a = StrToFloat (result->Text);
:     d = '+';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::clear1Click(TObject *Sender)
: {
: if(!on) return;
:   result->Clear();
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::minus1Click(TObject *Sender)
: {
: if(!on) return;
:  a = StrToFloat (result->Text);
:     d = '-';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::mutifly1Click(TObject *Sender)
: {
: if(!on) return;
:  a = StrToFloat (result->Text);
:     d = '*';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::close1Click(TObject *Sender)
: {
: if(!on) return;
:  calculator1->Close();
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::plusClick(TObject *Sender)
: {
: if(!on) return;
: a = StrToFloat (result->Text);
:     d = '+';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::minusClick(TObject *Sender)
: {
: if(!on) return;
: a = StrToFloat (result->Text);
:     d = '-';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::multiflyClick(TObject *Sender)
: {
: if(!on) return;
: if(!on) return;
: a = StrToFloat (result->Text);
:     d = '*';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::dividClick(TObject *Sender)
: {
: if(!on) return;
: a = StrToFloat (result->Text);
:     d = '/';
:     result->Text = "";
:     comma = false;
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::commaBTNClick(TObject *Sender)
: {
: if(!on) return;
: if(!comma)
: {
: AnsiString str = result->Text;
:  str +='.';
: result->Text = str;
: comma = true;
:  }
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::equalClick(TObject *Sender)
: {
: if(!on) return;
: if(d == ' ') return;
: b = StrToFloat (result->Text);
: AnsiString t=0;
:
: switch(d)
: {
:     case '+':t= FloatToStr(a+b);
:     break;                              // 1-1) 제한들 두고 배열로 잡아서 해도 될것이구?
:     // 1-2) 제한을 두지 않으려면 .. 계속 늘어날수 있는 데이타 구조체가 필요할 것입니다.
:     // 1-3) 아니면 xp 윈두우 계산기 처럼  세번째 입력시작할때  첫번째와 두번째 결과를 첫번째 변수에 저장해 두는방식도 있구요
:     // 1-4) 또는 변수를 입력할때마다 저장하지 말고..
:            // 입력을 string으로 받고 ( "50+9+23=" )  문자열을 파싱해서 처리하는 방법도 있습니다.
:
:
:     case '-':t= FloatToStr(a-b);
:     break;
:
:     case '*':t= FloatToStr(a*b);
:     break;
:
:     case '/': if(b!=0) t= FloatToStr(a/b);
:     else t = ("can't be divided by zero..");
:     break;
:
: }
: result->Text= t;
: }
:
: //---------------------------------------------------------------------------
:
:
: void __fastcall Tcalculator1::onBTNClick(TObject *Sender)
: {
: result->Text = "";
: d = ' ';
: comma=false;
: on=true;
:
: }
: //---------------------------------------------------------------------------
:
: void __fastcall Tcalculator1::offClick(TObject *Sender)
: {
: result->Text = "";
: d= ' ';
: comma=false;
: on=false;
: }
: //---------------------------------------------------------------------------
:
:
: void __fastcall Tcalculator1::result1Click(TObject *Sender)
: {
: if(!on) return;
: if(d == ' ') return;
: b = StrToFloat (result->Text);
: AnsiString t=0;
:
: switch(d)
: {
: case '+':t= FloatToStr(a+b);
: break;
: case '-':t= FloatToStr(a-b); break;
: case '*':t= FloatToStr(a*b); break;
: case '/': if(a==0) t= FloatToStr(a/b);
: else t = ("can't be divided by zero..");
: break;
:
: }
: result->Text= t;
: }
:
: //---------------------------------------------------------------------------
: