//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Calc_F.h" //--------------------------------------------------------------------------- #pragma link "RzBtnEdt" #pragma link "RzEdit" #pragma package(smart_init) #pragma link "RzButton" #pragma resource "*.dfm" TCalcForm *CalcForm; //--------------------------------------------------------------------------- __fastcall TCalcForm::TCalcForm(TComponent* Owner) : TForm(Owner) { // 초기화 bFirst = true; bOperator = true; noCurrent = no_None; rzbtnedDisplay = NULL; strStored = "0"; strCurrent = "0"; } //--------------------------------------------------------------------------- void __fastcall TCalcForm::FormDestroy(TObject *Sender) { rzbtnedDisplay->SelectAll(); rzbtnedDisplay = NULL; } //--------------------------------------------------------------------------- void __fastcall TCalcForm::InitForm(TRzButtonEdit *RzButton) { TPoint Pos; rzbtnedDisplay = dynamic_cast(RzButton); if (rzbtnedDisplay) { // 위치 설정 strCurrent = rzbtnedDisplay->Text; Pos = RzButton->ClientToScreen(TPoint(rzbtnedDisplay->BoundsRect.Left, rzbtnedDisplay->BoundsRect.Top)); Left = Pos.x - rzbtnedDisplay->Left; Top = Pos.y - rzbtnedDisplay->Top + rzbtnedDisplay->Height; UpdateDisplay(); } else { Close(); } } //--------------------------------------------------------------------------- void __fastcall TCalcForm::UpdateDisplay() { double dCurrent; if (rzbtnedDisplay) { try { dCurrent = strCurrent.ToDouble(); // 00, 01 처럼 0과 실수 외에 0으로 시작하는 수를 입력받지 않도록 한다 if (dCurrent == 0 && strCurrent.Pos(".") == 0) { strCurrent = "0"; } else if (strCurrent.Pos(".") == 0) { strCurrent = FloatToStrF(dCurrent, ffGeneral, 10, 10); } } catch (...) { dCurrent = 0; strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; return; } rzbtnedDisplay->Text = strCurrent; rzbtnedDisplay->Repaint(); } } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnNumClick(TObject *Sender) { TRzButton *btnClickButton = NULL; btnClickButton = dynamic_cast(Sender); if (btnClickButton) { if (bOperator == true) { // 초기화 strCurrent = ""; bOperator = false; } if (noCurrent != no_None) { bFirst = false; } if (strCurrent.Length() < 10) { // 10자리 이하만 입력 받는다 strCurrent += btnClickButton->Caption; } } UpdateDisplay(); } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnDotClick(TObject *Sender) { TRzButton *btnClickButton = NULL; double dCurrent; btnClickButton = dynamic_cast(Sender); if (btnClickButton) { // 실수인지 확인하여 '.'을 2개 이상 입력받지 않는다 if (strCurrent.Pos(".") == 0) { strCurrent += "."; } } UpdateDisplay(); } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnOperatorClick(TObject *Sender) { double dStored, dCurrent; TRzButton *btnClickButton = NULL; try { dStored = strStored.ToDouble(); dCurrent = strCurrent.ToDouble(); } catch (...) { dStored = 0; dCurrent = 0; strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; return; } btnClickButton = dynamic_cast(Sender); if (btnClickButton) { // 처음 입력받을 경우 dStored 값에 현재 값을 복사한다 // 0을 넣으면 곱셈이나 나눗셈이 되지 않으므로 이렇게 처리한다 if (bFirst == true) { dStored = dCurrent; } else { try { // 중간 계산을 한다 switch (noCurrent) { case no_Add: dStored = dStored + dCurrent; break; case no_Sub: dStored = dStored - dCurrent; break; case no_Mul: dStored = dStored * dCurrent; break; case no_Div: if (dCurrent != 0) { // '0'으로 나누지 않도록 방지 dStored = dStored / dCurrent; } else { dStored = 0; } break; } } catch (...) { dStored = 0; dCurrent = 0; strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; return; } } // 현재 연산자를 기록해두어야 결과를 얻을 때 마지막으로 한번 더 계산한다 if (btnClickButton->Caption == "+") { noCurrent = no_Add; } else if (btnClickButton->Caption == "-") { noCurrent = no_Sub; } else if (btnClickButton->Caption == "*") { noCurrent = no_Mul; } else if (btnClickButton->Caption == "/") { noCurrent = no_Div; } strStored = FloatToStrF(dStored, ffGeneral, 10, 10); bOperator = true; } } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnPosNegClick(TObject *Sender) { double dCurrent; try { dCurrent = strCurrent.ToDouble(); } catch (...) { dCurrent = 0; strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; return; } if (dCurrent >= 0) { strCurrent = "-" + strCurrent; } else { strCurrent = strCurrent.SubString(2, strCurrent.Length()-1); } UpdateDisplay(); } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnClearClick(TObject *Sender) { strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; UpdateDisplay(); } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnBackSpaceClick(TObject *Sender) { TRzButton *btnClickButton = NULL; btnClickButton = dynamic_cast(Sender); if (btnClickButton && strCurrent.Length() > 1) { strCurrent = strCurrent.SubString(1, strCurrent.Length()-1); } else { strCurrent = "0"; } UpdateDisplay(); } //--------------------------------------------------------------------------- void __fastcall TCalcForm::btnResultClick(TObject *Sender) { double dStored, dCurrent; try { dStored = strStored.ToDouble(); dCurrent = strCurrent.ToDouble(); } catch (...) { dStored = 0; dCurrent = 0; strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; return; } try { // 연산자에 따라 결과 값을 계산한다 switch (noCurrent) { case no_None: Close(); return; case no_Add: dStored = dStored + dCurrent; break; case no_Sub: dStored = dStored - dCurrent; break; case no_Mul: dStored = dStored * dCurrent; break; case no_Div: if (dCurrent != 0) { // '0'으로 나누지 않도록 방지 dStored = dStored / dCurrent; } else { dStored = 0; } break; } } catch (...) { dStored = 0; dCurrent = 0; strStored = "0"; strCurrent = "0"; bFirst = true; noCurrent = no_None; return; } strCurrent = FloatToStrF(dStored, ffGeneral, 10, 10); strStored = "0"; bFirst = true; noCurrent = no_None; UpdateDisplay(); Close(); } //--------------------------------------------------------------------------- void __fastcall TCalcForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { switch (Key) { case '0': case VK_NUMPAD0: btn0->Click(); break; case '1': case VK_NUMPAD1: btn1->Click(); break; case '2': case VK_NUMPAD2: btn2->Click(); break; case '3': case VK_NUMPAD3: btn3->Click(); break; case '4': case VK_NUMPAD4: btn4->Click(); break; case '5': case VK_NUMPAD5: btn5->Click(); break; case '6': case VK_NUMPAD6: btn6->Click(); break; case '7': case VK_NUMPAD7: btn7->Click(); break; case '8': case VK_NUMPAD8: if (Shift.Contains(ssShift) == false) { btn8->Click(); } break; case '9': case VK_NUMPAD9: btn9->Click(); break; case VK_ADD: btnAdd->Click(); break; case VK_SUBTRACT: btnSub->Click(); break; case VK_MULTIPLY: btnMul->Click(); break; case VK_DIVIDE: btnDiv->Click(); break; case '.': case VK_DECIMAL: btnDot->Click(); break; case 'C': btnClear->Click(); break; case VK_ESCAPE: Close(); break; case VK_BACK: btnBackSpace->Click(); break; case '=': case VK_RETURN: btnResult->Click(); break; } // 위의 키 값과 중복되지 않는다 if (Shift.Contains(ssShift) == true && Key == 187) { // + btnAdd->Click(); } else if (Shift.Contains(ssShift) == false && Key == 189) { // - btnSub->Click(); } else if (Shift.Contains(ssShift) == true && Key == 56) { // * btnMul->Click(); } else if (Shift.Contains(ssShift) == false && Key == 191) { // / btnDiv->Click(); } else if (Shift.Contains(ssShift) == false && Key == 190) { // . btnDot->Click(); } else if (Shift.Contains(ssShift) == false && Key == 187 ) { // = btnResult->Click(); } } //--------------------------------------------------------------------------- void __fastcall TCalcForm::FormStartDock(TObject *Sender, TDragDockObject *&DragObject) { TPoint Pos; // 마우스로 이동할 수 없도록 위치를 고정시킨다 if (rzbtnedDisplay) { Pos = rzbtnedDisplay->ClientToScreen(TPoint(rzbtnedDisplay->BoundsRect.Left, rzbtnedDisplay->BoundsRect.Top)); Left = Pos.x - rzbtnedDisplay->Left; Top = Pos.y - rzbtnedDisplay->Top + rzbtnedDisplay->Height; UpdateDisplay(); } } //--------------------------------------------------------------------------- void __fastcall TCalcForm::FormEndDock(TObject *Sender, TObject *Target, int X, int Y) { TPoint Pos; // 마우스로 이동할 수 없도록 위치를 고정시킨다 if (rzbtnedDisplay) { Pos = rzbtnedDisplay->ClientToScreen(TPoint(rzbtnedDisplay->BoundsRect.Left, rzbtnedDisplay->BoundsRect.Top)); Left = Pos.x - rzbtnedDisplay->Left; Top = Pos.y - rzbtnedDisplay->Top + rzbtnedDisplay->Height; UpdateDisplay(); } } //---------------------------------------------------------------------------