C语言毕业课程设计报告【简易计算器设计】

Show_Editor->Text=str ; } }

void __fastcall TMainForm :: FormCreate(TObject*Sender) *窗体创建* {

initNum(&actNum); initNum(&ans); } ---

void __fastcall TMainForm :: bt_7Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,7); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_8Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,8); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_0Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,0); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_1Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,1); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_2Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,2); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_3Click(TObject*Sender)

{

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,3); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_4Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,4); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_5Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,5); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_6Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,6); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_9Click(TObject*Sender) {

if(_lastKey==key_sym)initNum(&actNum); if(_lastKey==key_sym&&nowSym=='N') {

initNum(&ans); lastSym='N' ; }

incMed(&actNum,9); ShowText(actNum); _lastKey=key_num ; } ---

void __fastcall TMainForm :: bt_iAndmClick(TObject*Sender) {

turnSym(&actNum); ShowText(actNum); } ---

void __fastcall TMainForm :: bt_incClick(TObject*Sender) {

doAns(&ans,actNum,&nowSym,'+',lastSym,_lastKey);

ShowText(ans); lastSym=nowSym ;