【導讀】第1章：將大致介紹“基于C的”知識即C語言的基礎知識和在本課題中的應用①。第2章：根據(jù)論文所涉到的具體任務或目標，將介紹如何把第1篇的知識具體應用到“計。算器程序設計”中。中的計算器，系統(tǒng)界面不做強制要求。果的若干有效方法。采用工程模式即模塊化，文件包括四個重要組成部分②：。以及一些其它附屬文件，包括dll. 計算器程序實現(xiàn)功能：在參考了Windows里的計算器以后，決定在我的課程設計中實。十六進制轉換功能；正負轉換功能；退格、歸零等功能。所以用的是面向對象程序設計。程設計，所以除了面向對象的使用以外，所有語法都是按照C語言的格式編寫。

　　

【正文】 fastcall sjzClick(TObject *Sender)。 void __fastcall ejzClick(TObject *Sender)。 void __fastcall sljzClick(TObject *Sender)。 void __fastcall bjzClick(TObject *Sender)。 28 void __fastcall bt_andClick(TObject *Sender)。 void __fastcall bt_xorClick(TObject *Sender)。 private: // User declarations public: // User declarations __fastcall TMainForm(TComponent* Owner)。 void __fastcall TMainForm::ShowText(HIGH a)。 }。 // extern PACKAGE TMainForm *MainForm。 // endif 窗體類源代碼 include include pragma hdrstop include // pragma package(smart_init) pragma resource *.dfm using namespace std 。 TMainForm*MainForm 。 // __fastcall TMainForm :: TMainForm(TComponent*Owner) : TForm(Owner) { } // void __fastcall TMainForm :: ShowText(HIGH a) /*顯示函數(shù) */ { nowShow=a 。 AnsiString str 。 int med,i,j 。 if(jz==2)a=bin(a)。 else if(jz==8)a=bajinzhi(a)。 29 else if(jz==16)a=hex(a)。 med=getMed(a)。 bool m=([0]==1)?true:false 。 if(med=MAXSHOW) { if(m) { i=1 。 str= 。 } else i=0 。 for(j=med。(m)?(i=med):(imed)。i++,j) { str+=([j]9)?getHexStr([j]):IntToStr([j])。 } Show_EditorText=str 。 } else { if(m) { i=1 。 str= 。 } else i=0 。 int e=med1 。 for(j=med。(m)?(i=40):(i40)。i++,j) { str+=IntToStr([j])。 if((m)?i==1:i==0)str+=39。.39。 。 } str+=E++IntToStr(e)。 Show_EditorText=str 。 } } void __fastcall TMainForm :: FormCreate(TObject*Sender) /*窗體創(chuàng)建 */ { initNum(amp。actNum)。 initNum(amp。ans)。 30 } // void __fastcall TMainForm :: bt_7Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,7)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_8Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,8)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_0Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,0)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_1Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 31 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,1)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_2Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,2)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_3Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,3)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_4Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } 32 incMed(amp。actNum,4)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_5Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,5)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_6Click(TObject*Sender) { if(_lastKey==key_sym)initNum(amp。actNum)。 if(_lastKey==key_symamp。amp。nowSym==39。N39。) { initNum(amp。ans)。 lastSym=39。N39。 。 } incMed(amp。actNum,6)。 ShowText(actNum)。 _lastKey=key_num 。 } // void __fastcall TMainForm :: bt_9Click(TObject*Sender) { if(_lastKey==key_sym