资源描述
大学计算机科学与技术学院实验报告本文源码索取，请联系QQ：68661508课程名称_C+程序语言设计_ 实验名称_实验十一 Windows 程序设计（一）_班级姓名_ _班级序号_ 仪器组号_ 实验日期_ 实验报告要求：1.实验目的 2.实验内容 3.实验步骤 4.程序清单5. 运行结果 6.流程图 7.实验体会一、实验目的学会使用 CBuilder6 进行 Windows 程序设计开发掌握 VCL 基本组件的使用二、实验要求实验之前认真准备，尽量事先准备好源程序或算法流程实验中认真调试程序，对运行结果进行分析，注意程序的正确性和健壮性的验证不断积累程序的调试方法三、实验内容（以下题目可选作其一）基本题：1、创建 Application，窗体，设置组件属性+事件处理代码(算法)，菜单设计2、MDI 应用程序设计（教材 P82）3、模仿并编程实现 Windows 附件中的计算器提高题：四实验步骤自己分析题目 编译程序 运行程序 调试 老师讲解 五程序清单l Cpp文件：/-#include #pragma hdrstop#include Unit1.h/-#pragma package(smart_init)#pragma resource *.dfmTfmCalc *fmCalc;/-_fastcall TfmCalc:TfmCalc(TComponent* Owner) : TForm(Owner) NumDone = true; digited = false; LeftNum = RightNum = 0 ; opr = ; Equaled = false; operated= false;/-void _fastcall TfmCalc:BitBtnQuitClick(TObject *Sender) fmCalc-Close(); /-void _fastcall TfmCalc:Button1Click(TObject *Sender) TButton *pbt =(TButton *)Sender ; if(LED-Text = 0 | NumDone) LED-Text= pbt-Caption; else LED-Text= LED-Text+ pbt-Caption; NumDone = false;/-void _fastcall TfmCalc:ButtonDigiClick(TObject *Sender) if(!digited) LED-Text= LED-Text+.; digited = true;/-void _fastcall TfmCalc:Button13Click(TObject *Sender) if(Equaled = false ) RightNum =StrToFloat(LED-Text); NumDone = true ; digited = false; Equaled = true; operated = false; switch(opr) case +: LeftNum += RightNum ; break; case -: LeftNum -= RightNum ; break; case *: LeftNum *= RightNum ; break; case /: if(RightNum=0) LED-Text=Error; else LeftNum /= RightNum ; break; ; if(RightNum=0) LED-Text=Error; else LED-Text=FloatToStr(LeftNum);/-void _fastcall TfmCalc:Button15Click(TObject *Sender) NumDone = true; digited = false; LeftNum = RightNum = 0 ; opr = ; Equaled = false; operated= false; LED-Text=0;/-void _fastcall TfmCalc:ButtonMinusClick(TObject *Sender)Equaled=false ; if(operated) Button13Click(Sender); opr = -; LeftNum =StrToFloat(LED-Text); NumDone = true ; digited = false ; operated = true;/-void _fastcall TfmCalc:ButtonMultiClick(TObject *Sender)Equaled=false ; if(operated) Button13Click(Sender); opr = *; LeftNum =StrToFloat(LED-Text); NumDone = true ; digited = false ; operated = true;/-void _fastcall TfmCalc:Button16Click(TObject *Sender)Equaled=false ; if(operated) Button13Click(Sender); opr = /; LeftNum =StrToFloat(LED-Text); NumDone = true ; digited = false ; operated = true;/-void _fastcall TfmCalc:ButtonPlusClick(TObject *Sender)Equaled=false ; if(operated) Button13Click(Sender); opr = +; LeftNum =StrToFloat(LED-Text); NumDone = true; digited = false; operated = true;/-void _fastcall TfmCalc:Button14Click(TObject *Sender)LED-Text=0;NumDone = false;/-l .h 作修改的部分：private:/ User declarationsbool NumDone, digited,Equaled,operated; double LeftNum,RightNum; char opr;六. 运行结果界面如图：七 流程图 Start计算器初始化按下一键接受显示数字，打开数字接收状态锁定左操作数，关闭数字接收状态锁定右操作数，关闭数字接收状态根据运算符计算结果记入左操作数接受显关闭接收状态示，状态复位显示清零09End+-*/.C/CEQ八试验体会：本实验中在分析细节，当细节上有所突破时，即可。在做本实验时遇到的问题：1.如何将edit中的输入变成连续输出2.小数点的实现。3.连加，连等。1. 有关动态创建窗体的方法。2. 根据上诉问题采用逐一击破的方法：3. LED-Text=LED-Text+ pbt-Caption的方法是可行的。4. 设置一bool值，使得输入一次小数点不能再输入了。5. 通过设置bool值实现。6. 采用继承的方法，输入09只用一段代码。7. 学到了动态创建窗体的方法教师评价优良中及格不及格教师签名日期
展开阅读全文