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 }
C++ builder 6.0 普通计算器 练习
猜你喜欢
转载自www.cnblogs.com/cnlntr/p/10461603.html
今日推荐
周排行