【導(dǎo)讀】第1章：將大致介紹“基于C的”知識(shí)即C語(yǔ)言的基礎(chǔ)知識(shí)和在本課題中的應(yīng)用①。第2章：根據(jù)論文所涉到的具體任務(wù)或目標(biāo)，將介紹如何把第1篇的知識(shí)具體應(yīng)用到“計(jì)。算器程序設(shè)計(jì)”中。中的計(jì)算器，系統(tǒng)界面不做強(qiáng)制要求。果的若干有效方法。采用工程模式即模塊化，文件包括四個(gè)重要組成部分②：。以及一些其它附屬文件，包括dll. 計(jì)算器程序?qū)崿F(xiàn)功能：在參考了Windows里的計(jì)算器以后，決定在我的課程設(shè)計(jì)中實(shí)。十六進(jìn)制轉(zhuǎn)換功能；正負(fù)轉(zhuǎn)換功能；退格、歸零等功能。所以用的是面向?qū)ο蟪绦蛟O(shè)計(jì)。程設(shè)計(jì)，所以除了面向?qū)ο蟮氖褂靡酝猓姓Z(yǔ)法都是按照C語(yǔ)言的格式編寫。

　　

【正文】 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