PowerBuilder实验二.docVIP

集美大学计算机工程学院实验报告 课程：PowerBuilde：：名称： 上机实践日期： 实验项目编号：组：a,当金额为整数时，只表示整数部分，省略小数部分，并添加“整”字。 b,当金额中含有连续的0时，只需写一个“零”即可。 c,10的表示方式，如110表示为壹佰壹拾元整，而10则表示为拾元整。 三、用环境四real gr_temF gr_temF = 32 + 5 * gr_temC / 9 return gr_temF 保存 4，执行File|New菜单命令，在New对话框的PB Object页上选择Window图标，新建一个窗口对象。在窗口画板中，进行如下操作： 修改窗口标题Title属性为“温度转换”； 在窗口空白处，添加静态文本控件st_1；st_2；st_3；st_4，修改st_1为“摄氏温度”；修改st_2为“华氏温度”； 修改st_3为“°C”； 修改st_4为 “°F ”。 添加系统默认控件sle_1；sle_2，设置Text属性分别为0，0。 添加命令按钮cb_1，设置Text属性为“——”。 保存窗口名为cd_tempt。 5，在Open事件上写以下脚本： open(cd_tempt) 6，在命令按钮cb_1的Clicked事件上写以下脚本： real gr_temC,gr_temF gr_temC = real(sle_1.Text) gr_temF = f_temperature(gr_temC) sle_2.Text = String(gr_temF) 7，单击PowerBar上的【Run】按钮，运行应用程序。 输入数据10，结果如下： 实验(2)步骤： 1、启动PowerBuilder后，执行File|New菜单命令，在New对话框的Workspace页上选择Workspace图标，保存文件名为digit.pbw，就成功创建了一个名为digit的工作区。 2、执行File|New菜单命令，在New对话框的Target页上选择Application图标，在所示的对话框中输入应用名为digit，保存应用的库文件名为digit.pbl，则创建了一个名为digit的应用，且系统保存的目标文件名为digit.pbt。 3，执行File|New菜单命令，在New对话框的PB Object页上选择Function图标，进行全局函数定义，具体操作如下： 修改Return Type的属性为string，修改Function Name的属性为f_digit，修改Argument Type的属性为double，修改Argument Name的属性为ad_amout 在下面空白处写上以下脚本： // 将金额转为大写 // int i,li_lendec,li_lenint int li_amout_flag string ls_numstr,a,b,c,d,bbak string ls_dxint[13],ls_dxdec[2],ls_sz[13] string ls_dxstr=万仟佰拾亿仟佰拾万仟佰拾元 string ls_szstr=零壹贰叁肆伍陆柒捌玖 if ad_amout = 0.00 then ls_dxstr = 零元整 return ls_dxstr else if ad_amout 0.00 then ad_amout = abs(ad_amout) li_amout_flag = 1 end if end if ls_numstr=string(ad_amout,#0.00) li_lenint=len(mid(ls_numstr,1,pos(ls_numstr,.) - 1)) if right(ls_numstr,2)=00 then li_lendec=0 else li_lendec=2 end if for i=1 to 13 ls_dxint[i]=mid(ls_dxstr,26 - i*2+1,2) if i11 then ls_sz[i]=mid(ls_szstr,i*2 - 1,2) else ls_sz[i]= end if next ls_dxdec[1]=角 ls_dxdec[2]=分 ls_dxstr= for i = 1 to li_lenint a = mid(mid(ls_numstr,1,li_lenint),i,1) b = ls_sz[integer(a)+1] c = ls_dxint[li_lenint - i +1] if ls_dxstr then d = mid(ls_dxstr,len(ls_dxstr) - 1 ,2) else d = end if if b=零