脚本的稀写 菜单
脚本的编写
程序举例 【例31】中文小大写金额转换函数的定 义与使用 【例32】判断闰年。看一看
程序举例 【例3.1】中文小大写金额转换函数的定 义与使用 。 【例3.2】判断闰年。 看一看 看一看
【例3.1】 建立一个文件夹“小大写金额” 在当前打开的工作空间中,创建一个对象库xdx.pb1、一个目标xdx,pbt和一 个应用程序对象xdx。 在主工具栏上单击New按钮,在弹出New对话框中选择 PB Object选项卡,在其 中选择 Function,单击0K按钮,打开函数画板。 在函数原型定义工作区定义函数名fxdx、返回值类型 String、参数xje、 参数类型 String、参数传递方式alue 在函数脚本编辑区编写函数的功能代码 接下来设计一个测试窗口对象,命名为wxdx,窗口的标题设置为“test” 窗口类型为“main!”。 窗口上放一个掩码编辑框em1,并设置它的“Mask”属性为“井####.00” (保证两位小数),放置一个单行编辑框sle1和一个命令按钮。 命令按钮的“text”属性设置为“转换”,选中其“ Default”复选框,对 它的“ clicked”属性编写一行代码: sle 1. text=f xdx(em 1. text) 这样,当单击此按钮或直接回车时,通过自定义的全局函数 f xoxo将掩码 编辑框em_1的小写金额转换为中文大写金额,在单行编辑框sel_1中显示输 最后,在应用程序对象xdx的“open”事件中编写一行代码:open(wxdx 用以打开窗口wxdx
【例3.1】 建立一个文件夹“小大写金额”。 在当前打开的工作空间中，创建一个对象库xdx.pbl、一个目标xdx.pbt和一 个应用程序对象xdx。 在主工具栏上单击New按钮，在弹出New对话框中选择PB Object选项卡,在其 中选择Function，单击OK按钮，打开函数画板。 在函数原型定义工作区定义函数名f_xdx、返回值类型String、参数xxje、 参数类型String、参数传递方式Value。 在函数脚本编辑区编写函数的功能代码： 接下来设计一个测试窗口对象，命名为w_xdx，窗口的标题设置为“test” ， 窗口类型为“main!”。 窗口上放一个掩码编辑框em_1，并设置它的“Mask”属性为“#########.00” （保证两位小数），放置一个单行编辑框sle_1和一个命令按钮。 命令按钮的“text”属性设置为“转换” ，选中其“Default”复选框，对 它的“clicked”属性编写一行代码： sle_1.text=f_xdx(em_1.text) 这样，当单击此按钮或直接回车时，通过自定义的全局函数f_xdx()将掩码 编辑框em_1的小写金额转换为中文大写金额，在单行编辑框sel_1中显示输 出。 最后，在应用程序对象xdx的“open”事件中编写一行代码：open(w_xdx) 用以打开窗口w_xdx
例3.2】 任意输入一个年份,判断它是否为闰年。判断闰年的条件是:能被4整除但不能被 100整除的是闰年(如1992);能被4整除又能被400整除的也是闰年(如2000);其 它为非闰年(如1900、1998、2002)。 我们建立一个文件夹“闰年”。在当前打开的工作空间中,创建一个对象库 leapyear,pbl、一个目标 leapyear pbt和一个应用程序对象 leapyear 在主工具栏上单击New按钮,在弹出New对话框中选择 PB Object选项卡,在其中选择 Window,单击OK按钮,打开窗口画板。 在窗口画板中,设计一个窗口对象,命名为 w main,窗口的标题设置为“判断闰 年”,窗口类型为“main!?l窗口上放置一个单行编辑框sle1和一个命令按钮。 命令按钮的“text”属性设置为“判断”,选中其“ Default”复选框,对它的 “ clicked”属性编写如下代码: Integer year year=integer(sle_ ltext if mod(year, 4)=0 and mod (year, 100)<>0 or mod (year, 400)=0 then MessageBox("测试结果",sle_text+"是闰年。") els 菜单 essage Box("测试结果",se1tx+"不是闰年。") end if 这段代码是整个应用程序的核心,它首先从单行编辑框se_1中取出用户输入的年份, 用 integero函数将其转换为整型数据,然后用I语句判断该年份是否满足闰年的条件, 若满足输出“是闰年”,否则输出“不是闰年”。输出用的是 Messagebox(0函数, 它会弹出一个对话框,标题为“测试结果”,第二个参数是显示的信息 最后,在应用程序对象xx的“open事件中编写一行代码:open( w main) 用以打开窗口 w main
【例3.2】 任意输入一个年份，判断它是否为闰年。判断闰年的条件是：能被4整除但不能被 100整除的是闰年（如1992）；能被4整除又能被400整除的也是闰年（如2000）；其 它为非闰年（如1900、1998、2002）。 我们建立一个文件夹“闰年”。在当前打开的工作空间中，创建一个对象库 leapyear.pbl、一个目标leapyear.pbt和一个应用程序对象leapyear。 在主工具栏上单击New按钮，在弹出New对话框中选择PB Object选项卡,在其中选择 Window，单击OK按钮，打开窗口画板。 在窗口画板中，设计一个窗口对象，命名为w_main，窗口的标题设置为“判断闰 年” ，窗口类型为“ main!”。窗口上放置一个单行编辑框sle_1和一个命令按钮。 命令按钮的“text”属性设置为“判断” ，选中其“Default”复选框，对它的 “ clicked”属性编写如下代码： integer year year=integer(sle_1.text if mod(year,4)=0 and mod(year,100)<>0 or mod(year,400)=0 then MessageBox("测试结果" , sle_1.text+"是闰年。") else MessageBox("测试结果" , sle_1.text+"不是闰年。") end if 这段代码是整个应用程序的核心，它首先从单行编辑框sle_1中取出用户输入的年份， 用integer()函数将其转换为整型数据，然后用If语句判断该年份是否满足闰年的条件， 若满足输出“是闰年” ，否则输出“不是闰年”。输出用的是MessageBox()函数， 它会弹出一个对话框，标题为“测试结果” ，第二个参数是显示的信息。 最后，在应用程序对象xdx的“ open”事件中编写一行代码：open(w_main) 用以打开窗口w_main
311断行、续行和注释 通常情况下, PowerScript的一条语句书写 在一行上。但有时一条语句太长,阅读起来 不够方便,可以把一条语句书写在几行上, 用符号“8”作为续行标记。 注释有两种写法: (1)以“∥开头,其后书写注释内容,常用于单 行注释。例如: ∥这是一个单行注释 (2)以“/*”开头,到“*”结尾的部分为注释, 合便于多行注释
3.1.1 断行、续行和注释 通常情况下，PowerScript的一条语句书写 在一行上。但有时一条语句太长，阅读起来 不够方便，可以把一条语句书写在几行上， 用符号“&”作为续行标记。 注释有两种写法： (1)以“//”开头，其后书写注释内容，常用于单 行注释。例如： //这是一个单行注释 (2)以“/*”开头，到“*/”结尾的部分为注释， 便于多行注释