C++ builder 6.0 普通计算器 练习

  1 //---------------------------------------------------------------------------
  2 
  3 #include <vcl.h>
  4 #pragma hdrstop
  5 
  6 #include "Unit1.h"
  7 //---------------------------------------------------------------------------
  8 #pragma package(smart_init)
  9 #pragma resource "*.dfm"
 10 double cacu(double a,int num,int gu);
 11 TForm1 *Form1;
 12 double a = 0;
 13 double b;
 14 int c;
 15 int d = 0;
 16 //---------------------------------------------------------------------------
 17 __fastcall TForm1::TForm1(TComponent* Owner)
 18         : TForm(Owner)
 19 {
 20 }
 21 //---------------------------------------------------------------------------
 22 
 23 
 24 void __fastcall TForm1::Button1Click(TObject *Sender)
 25 {
 26      a = cacu(a,0,d);
 27      Edit1 -> Text = a;
 28      d = 0;
 29 }
 30 //---------------------------------------------------------------------------
 31 
 32 void __fastcall TForm1::Button2Click(TObject *Sender)
 33 {
 34      a = cacu(a,1,d);
 35      Edit1 -> Text = a;
 36      d = 0;
 37 }
 38 //---------------------------------------------------------------------------
 39 void __fastcall TForm1::Button3Click(TObject *Sender)
 40 {
 41      a = cacu(a,2,d);
 42      Edit1 -> Text = a;
 43      d = 0;
 44 }
 45 //---------------------------------------------------------------------------
 46 void __fastcall TForm1::Button4Click(TObject *Sender)
 47 {
 48      a = cacu(a,3,d);
 49      Edit1 -> Text = a;
 50      d = 0;
 51 }
 52 //---------------------------------------------------------------------------
 53 void __fastcall TForm1::Button5Click(TObject *Sender)
 54 {
 55      a = cacu(a,4,d);
 56      Edit1 -> Text = a;
 57      d = 0;
 58 }
 59 //---------------------------------------------------------------------------
 60 void __fastcall TForm1::Button6Click(TObject *Sender)
 61 {
 62      a = cacu(a,5,d);
 63      Edit1 -> Text = a;
 64      d = 0;
 65 }
 66 //---------------------------------------------------------------------------
 67 void __fastcall TForm1::Button7Click(TObject *Sender)
 68 {
 69      a = cacu(a,6,d);
 70      Edit1 -> Text = a;
 71      d = 0;
 72 }
 73 //---------------------------------------------------------------------------
 74 void __fastcall TForm1::Button8Click(TObject *Sender)
 75 {
 76      a = cacu(a,7,d);
 77      Edit1 -> Text = a;
 78      d = 0;
 79 }
 80 //---------------------------------------------------------------------------
 81 void __fastcall TForm1::Button9Click(TObject *Sender)
 82 {
 83      a = cacu(a,8,d);
 84      Edit1 -> Text = a;
 85      d = 0;
 86 }
 87 //---------------------------------------------------------------------------
 88 void __fastcall TForm1::Button10Click(TObject *Sender)
 89 {
 90      a = cacu(a,9,d);
 91      Edit1 -> Text = a;
 92      d = 0;
 93 }
 94 //---------------------------------------------------------------------------
 95 void __fastcall TForm1::Button16Click(TObject *Sender)
 96 {
 97         Edit1 -> Text = " ";
 98         Edit2 -> Text = " ";
 99         Edit3 -> Text = " ";
100         Edit4 -> Text = " ";
101         Edit5 -> Text = " ";
102         Edit6 -> Text = " ";
103         Edit7 -> Text = " ";
104         a = 0;
105 }
106 //---------------------------------------------------------------------------
107 
108 void __fastcall TForm1::Button11Click(TObject *Sender)
109 {
110         c = 1;
111         b = a;
112         Edit2 -> Text = "+";
113         Edit6 -> Text = a;
114         Edit1 -> Text = " ";
115         a = 0;
116 }
117 //---------------------------------------------------------------------------
118 
119 void __fastcall TForm1::Button12Click(TObject *Sender)
120 {
121         c = 2;
122         b = a;
123         Edit2 -> Text = "-";
124         Edit6 -> Text = a;
125         Edit1 -> Text = " ";
126         a = 0;
127 }
128 //---------------------------------------------------------------------------
129 
130 void __fastcall TForm1::Button13Click(TObject *Sender)
131 {
132         c = 3;
133         b = a;
134         Edit2 -> Text = "×";
135         Edit6 -> Text = a;
136         Edit1 -> Text = " ";
137         a = 0;
138 }
139 //---------------------------------------------------------------------------
140 
141 void __fastcall TForm1::Button14Click(TObject *Sender)
142 {
143         c = 4;
144         b = a;
145         Edit2 -> Text = "÷";
146         Edit6 -> Text = a;
147         Edit1 -> Text = " ";
148         a = 0;
149 }
150 //---------------------------------------------------------------------------
151 
152 void __fastcall TForm1::Button15Click(TObject *Sender)
153 {
154         Edit6 -> Text = " ";
155         Edit2 -> Text = " ";
156         Edit1 -> Text = b;
157         Edit3 -> Text = a;
158         Edit4 -> Text = "=";
159         switch(c)
160         {
161                 case 1:
162                 Edit5 -> Text = b + a;
163                 Edit7 -> Text = "+";
164                 break;
165                 case 2:
166                 Edit5 -> Text = b - a;
167                 Edit7 -> Text = "-";
168                 break;
169                 case 3:
170                 Edit5 -> Text = b * a;
171                 Edit7 -> Text = "×";
172                 break;
173                 case 4:
174                 Edit7 -> Text = "÷";
175                 if(a == 0)
176                 {
177                         Edit5 -> Text = "ERROR";
178                         return;
179                 }
180                 Edit5 -> Text = b / a;
181                 break;
182         }
183 }
184 //---------------------------------------------------------------------------
185 
186 void __fastcall TForm1::Button17Click(TObject *Sender)
187 {
188         exit(0);
189 }
190 //---------------------------------------------------------------------------
191 
192 
193 void __fastcall TForm1::Button18Click(TObject *Sender)
194 {
195         d = 1;
196 }
197 //---------------------------------------------------------------------------
198 double cacu(double a,int num,int gu)
199 {
200       if(a == 0)
201       {
202          a = num;
203       }
204       else
205       {
206          a = a*10 + num;
207       }
208       if(gu == 1)
209       {
210          a = a / 10;
211       }
212       return a;
213 }