纺织CAD实验指导书

《纺织CAD实验指导书》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、纺织CAD实验指导书敬凌霄编西南大学纺织服装学院实验一熟悉Delphi集成开发环境一．目的熟悉Delphi集成开发环境，掌握编辑﹑编译和运行程序的操作。二．练习Program1题意：编写工资、加班工资、税后收入的运算程序。计算结果存入Edit组件中表示出来。操作顺序1）从File选择New，新建应用程序;（可以不需要做。）2）从Standard组件板中选择Edit1组件放置在Form1（窗体上）；3）消去Edit1组件的text属性里的文字Edit1；4）从Standard组件板选择两个Botton（按钮）组件置于窗体上，其Caption属性分别设置为start和clo

2、se；5）双击start按钮，在ProcedureTform1.Button1Click和begin之间对变量进行说明，即输入：varpay,overtimepay,totalpay:integer;6）在begin…end之间输入以下语句:pay:=200;overtimepay:=300;totalpay:=pay+overtimepay;Edit1.Text:=IntToStr(totalpay);7）双击Close按钮，在begin…end之间输入:Close;8）运行后(单击工具栏上的图标)，按下start按钮。Program2题意：Program1只使用了整

3、数。在Program2里，将整数变成实数，同时扣除税收，用两个组件分别表示总收入和净收入，并用标签显示组件的意义。操作顺序1）在Program1的基础上修改程序。再选择一个Edit组件并放置在窗体上，其操作与Program1相同；2）选两个Label标签放置于窗体上，并将其Caption属性分别设置为grosspayis和netpayis；3）从Standard组件板选择两个Botton（按钮）组件置于窗体上，其Caption属性分别设置为“计算”和“关闭”；4）Botton1的单击事件中的begin之前，var变量说明文的前一行，加入常量说明ConstTaxrate=

4、0.075;1）变量说明以及在begin…end之间输入以下语句ConstTaxrate=0.075;varpay,overtimepay,grosspay,netpay:single;beginpay:=500.50;pay：=StrTofloat（gongzi.text）；overtimepay:=100.10;Grosspay：=pay+overtimepay；netpay:=grosspay-(grosspay*taxrate);Edit1.Text:=FloatToStr(grosspay);Edit2.Text:=FloatToStr(netpay);end

5、;5)运行程序。三．实验报告要求：1.在Program1里，将IntToStr()改为Format(‘Thetotalpayis%d‘,[totalpay])，观察其计算结果的表示方法的变化。2.在Program2里，pay和overtimepay的值是在编写源代码时代入变量的，如果其变量值发生变化，就必须在程序中一一修改。这里，用两个Edit组件，通过在它们的text属性里输入值来对变量pay和overtimepay进行赋值。pay:=Strtofloat（edit3.text）;formatfloat（‘0.00‘，grosspay）；可能用到的语句：/////{限

6、制键盘输入的必须是数字0~9和退格键，/////小数点，否则置空。onkeypress事件中}Ifnot(keyin[‘0’..’9’,’.’,#8])thenkey:=#0;{字符串相连运算}Edit1.text:=edit1.text+’2’;Edit1.text:=FloatToStr(strtofloat(edit1.text+’2’));A：=1Ifa=1thenc+dIfa=2thenc-dIf判别式thenbegin**********************endelsebegin********************end；caseaof1：c+d2

7、：c-dCase判别式of限制式1：begin语句end；限制式2：begin语句end；限制式3：begin语句end；Elsebegin语句end；{不是以上限制式时}ForrepeatwhileInteger，string，single，double，array，Boolean。IntTostrFloatToStr《》StrToFloat限制不能是空ifedit1.Text=''thenshowmessage('工资不能为空！请输入数字')elsepay:=StrTofloat(edit1.text);end;不要随意双击已经添加到