变频器上面 *** 作键PRG带表什么意思

PRG即为Points Ranking Game的英文缩写。

排名游戏简称排名游戏，是互联网企业自诞生以来的秘密武器之一。源程序是一个文本文件，因此可以修改它的内容。只要活动的程序文件，程序员可以生成编译器FXP，应用程序和EXE可执行程序文件。

只要激活程序文件，就可以生成编译器FXP、应用程序APP和EXE可执行程序三个程序文件。

VFP源程序由VFP命令或程序中的特殊语句组成。您可以使用Windows记事本或VFP特殊程序编辑器创建或修改VFP源程序。它是一个扩展名为PRG的文本文件。

扩展资料：

rpg在电脑游戏史上是一个庞大的群体。角色扮演游戏是一款具有一定情节的游戏，它描述了人物成长的过程，展示了事件的开始和结束，因此角色扮演游戏必须为玩家提供一个广阔的虚拟空间，让玩家可以旅行、冒险、生活。

虽然这个空间是虚拟的，但也有一定的生存环境和规则。因为这类游戏大多比其他游戏更强调文字的表现，所以角色扮演类游戏更能恰当地表达人的情感。整个流程的游戏包括战斗，贸易，解决谜题和错综复杂的迷宫。

在很大程度上，它满足了玩家对丰富多彩的非凡生活的潜在欲望。rpg游戏更容易开发，因为与其他类型的游戏相比，它们具有最低的技术要求和最低的计算机配置要求。

rpg也是最古老和数量最多的电子游戏。在电子游戏的发展历史上，也留下了许多经典的作品。

ACTIVATE MENU 命令

显示并激活一个菜单栏。

语法

ACTIVATE MENU MenuBarName

[NOWAIT]

[PAD MenuTitleName]

参数

MenuBarName

指定要激活的菜单栏的名称。

NOWAIT

指定在程序执行时，不等待用户在已激活菜单栏中选择菜单或按 ESC 键，而是继续执行程序。发出 DEACTIVATE MENU 命令后，如果菜单是用 NOWAIT 选项激活的，则程序的执行不返回到 ACTIVATEMENU 命令的下一行命令。

PAD MenuTitleName

指定一个菜单标题名，当激活菜单栏时，选中此菜单标题名。如果不指定菜单标题名，菜单栏激活后，默认激活第一个菜单标题名。

说明

该命令显示并且激活 MenuBarName 指定的菜单栏，需要结合 DEFINE MENU 和 DEFINE PAD 命令使用。

*下面的示例用 ACTIVATE MENU 命令显示并激活一个用户定义的

* 菜单系统。当前系统菜单栏先用 SET SYSMENU SAVE 命令保

* 存在内存中，然后用 SET SYSMENU TO 命令删除所有系统菜

* 单标题。

*用 DEFINE PAD 命令创建两个菜单标题，并且用 DEFINE POPUP

* 为每个菜单标题创建下拉式菜单，然后用 DEFINE BAR 命令在每

* 个菜单上创建菜单项。当选中某个菜单标题后，ON PAD 命令使

* 用 ACTIVATE POPUP 子句激活相应菜单。ACTIVATE MENU

* 命令显示并激活这个选中的菜单栏。

*选择菜单中的某菜单项后，开始执行 CHOICE 过程，CHOICE

* 过程显示了选择的菜单项名和包含此项的菜单名。

*** 把此程序命名为 ACTIMENU.PRG***

CLEAR

SET SYSMENU SAVE

SET SYSMENU TO

ON KEY LABEL ESC KEYBOARD CHR(13)

DEFINE MENU example BAR AT LINE 1

DEFINE PAD convpad OF example PROMPT '\<Conversions' COLOR SCHEME 3

KEY ALT+C, ''

DEFINE PAD cardpad OF example PROMPT 'Card \<Info' COLOR SCHEME 3

KEY ALT+I, ''

ON PAD convpad OF example ACTIVATE POPUP conversion

ON PAD cardpad OF example ACTIVATE POPUP cardinfo

DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF conversion PROMPT 'Ar\<ea'

KEY CTRL+E, '^E'

DEFINE BAR 2 OF conversion PROMPT '\<Length'

KEY CTRL+L, '^L'

DEFINE BAR 3 OF conversion PROMPT 'Ma\<ss'

KEY CTRL+S, '^S'

DEFINE BAR 4 OF conversion PROMPT 'Spee\<d'

KEY CTRL+D, '^D'

DEFINE BAR 5 OF conversion PROMPT '\<Temperature'

KEY CTRL+T, '^T'

DEFINE BAR 6 OF conversion PROMPT 'T\<ime'

KEY CTRL+I, '^I'

DEFINE BAR 7 OF conversion PROMPT 'Volu\<me'

KEY CTRL+M, '^M'

ON SELECTION POPUP conversion DO choice IN actimenu

WITH PROMPT( ), POPUP( )

DEFINE POPUP cardinfo MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF cardinfo PROMPT '\<View Charges'

KEY ALT+V, ''

DEFINE BAR 2 OF cardinfo PROMPT 'View \<Payments'

KEY ALT+P, ''

DEFINE BAR 3 OF cardinfo PROMPT 'Vie\<w Users'

KEY ALT+W, ''

DEFINE BAR 4 OF cardinfo PROMPT '\-'

DEFINE BAR 5 OF cardinfo PROMPT '\<Charges '

KEY ALT+C, ''

ON SELECTION POPUP cardinfo

DO choice IN actimenu WITH PROMPT( ), POPUP( )

ACTIVATE MENU example

DEACTIVATE MENU example

RELEASE MENU example EXTENDED

SET SYSMENU TO DEFAULT

ON KEY LABEL ESC

PROCEDURE choice

PARAMETERS mprompt, mpopup

WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT

为达到在显示启动封面之前不显示VFP主窗口的目的，在Config.fpw中已写Screen=off，当程序执行到Do Form myScreen这一句时，如果表单myScreen的ShowWindows属性被设为"在屏幕中"，则不管是在开发环境还是在编译环境下，程序都将停下来，表单被显示在_Screen中，而_Screen被隐藏了，因此表单跟着也被隐藏了，所以在屏幕上什么也看不见。这就是第二种情况的产生原因。为了避免这种错误的出现，必须将myScreen表单的ShowWindow的属性设为"做为顶层表单"，这样就可使在_Screen被隐藏的情况下，myScreen仍然可以被显示出来。但请注意，在此情况下，Do Form myScreen这句话执行后，程序并不能停下来，而是顺序地执行下去，一直到执行到RETURN后程序退出，这也就是著名的"一闪而过"现象了。为此必须在程序中包含事件处理命令Read Events使程序停下来，如下：

*环境设置

Do Form myScreen &&启动封面表单

Read Events &&开始事件处理：使启动封面停下来

_ Screen.Show &&显示VFP主窗口

Do myMenu.mpr &&安装菜单系统

Read Events &&开始事件处理

RETURN

程序执行Do Form myScreen后，将启动封面显示在屏幕上，然后向下执行到Read Events开始事件处理，此时启动封面表单必须由用户关闭或由表单事件关闭，否则程序将一直停在Read Events这一句上。不管myScreen表单由谁关闭，在关闭代码中必须包含一句Clear Events的停止事件处理命令，以便开始执行Read Events的下一句指令，顺序执行完成_Screen.Show及Do myMenu.mpr后，用户的主界面就建立完成，同理，此处还需要一个事件处理命令让程序再次停下来，开始菜单系统的命令处理，一般情况，菜单系统中将包含的"退出"项，其中有"Clear Events"清除事件处理代码，从而停止第二条"Read Events"事件处理命令，退出整个系统。

附：连编主程序设计：

[转帖]vfP连编主程序设计

--------------------------------------------------------------------------------

set talk off 对于主程序设计具有一定的通用性，一是对系统

set esca off 环境的设置；二是对自定义菜单和工具栏的设计，

set exact off 以及启动画面或登录画面的设计。在左边列出的

set excl Off *设定表为共享方式 这段程序是我编制的建设银行计算机台帐的主称

SET REPROCESS TO AUTOMATIC *设定数据加锁 序，希望能对您有所帮助。

set help to comp_help.chm *设定帮助文件

set cons on *激活从程序中向 Visual FoxPro 主窗口或活动的用户自定义窗口的输出。

set date ansi *设置日期格式

set score off *设定Num Lock、 Caps Lock 和 Insert 键状态

set safe off *关闭对话框

set stat bar on *打开状态栏

set cent on *设定日期格式年为4位数

set color to *设定配色方案

set sysmenu off *关闭系统主菜单

clea *刷新屏幕

clear all *清理变量

ON ERROR DO err.PRG *设定出错处理程序

on shutdown do qUIT1.prg *指定当试图退出FoxPro时，要执行的命令，否则提示不能退出FoxPro

with _screen *设定FoxPro主窗口属性

.visible=.f. *设定主窗口不可见

endwith

do form begin *执行启动画面（包括版权、版本、使用者等）

read event *占用进程，启动事件处理

do form login *执行登录表单，对用户进行身份验证

read event *占用进程

with _screen *对主窗口进行再次设定

.visible=.t.

.closable=.t.

.controlbox=.t.

.maxbutton=.t.

.minbutton=.t.

.movable=.t.

.top=0

.left=0

.windowstate=2 *将主窗口最大化

.caption='中国建设银行计算机台帐管理'

.icon='screen2.ico' *设定图标

endwith

*---------------------

*下面进行的是定义全局变量，设定自定义菜单

public tz_lr,tz_gj,tz_tjb,tz_dy,tz_date,tz_bf,tz_hf,tz_sc,tz_js,tz_hm,tz_zl,tz_zl2

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _s4r0mpm7v OF _MSYSMENU PROMPT "台帐基础管理(\<E)" COLOR SCHEME 3

KEY ALT+E, ""

DEFINE PAD _s4r0mpm7w OF _MSYSMENU PROMPT "系统参数设置(\<S)" COLOR SCHEME 3

KEY ALT+S, ""

DEFINE PAD _s4r0mpm7x OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3

KEY ALT+H, ""

ON PAD _s4r0mpm7v OF _MSYSMENU ACTIVATE POPUP 台帐基础管

ON PAD _s4r0mpm7w OF _MSYSMENU ACTIVATE POPUP 系统参数设

ON PAD _s4r0mpm7x OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 台帐基础管 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 台帐基础管 PROMPT "台帐手工录入(\<J)"

MESSAGE '设备台帐的手工录入'

DEFINE BAR 2 OF 台帐基础管 PROMPT "台帐报表生成(\<S)"

MESSAGE '设备台帐报表数据的生成'

DEFINE BAR 3 OF 台帐基础管 PROMPT "台帐报表打印(\<)"

MESSAGE '打印设备台帐报表'

DEFINE BAR 4 OF 台帐基础管 PROMPT "\-"

DEFINE BAR 5 OF 台帐基础管 PROMPT "报表日期(\<D)"

MESSAGE '报表日期录入'

DEFINE BAR 6 OF 台帐基础管 PROMPT "\-"

DEFINE BAR 7 OF 台帐基础管 PROMPT "数据备份(\<C)"

MESSAGE '备份台帐数据'

DEFINE BAR 8 OF 台帐基础管 PROMPT "数据恢复(\<R)"

MESSAGE '恢复台帐数据'

DEFINE BAR 9 OF 台帐基础管 PROMPT "\-"

DEFINE BAR 10 OF 台帐基础管 PROMPT "数据上传(\<M)"

MESSAGE '形成上报台帐数据'

DEFINE BAR 11 OF 台帐基础管 PROMPT "数据接收(\<G)"

MESSAGE '接受下级行台帐数据'

DEFINE BAR 12 OF 台帐基础管 PROMPT "\-"

DEFINE BAR 13 OF 台帐基础管 PROMPT "退出系统(\<Q)"

MESSAGE '退出台帐管理系统'

ON SELECTION BAR 1 OF 台帐基础管 DO form TZ_lr name tz_lr

ON SELECTION BAR 2 OF 台帐基础管 DO FORM TZ_tjb name tz_tjb

ON SELECTION BAR 3 OF 台帐基础管 DO FORM TZ_DY name tz_dy

ON SELECTION BAR 5 OF 台帐基础管 DO FORM TZ_date name tz_date

ON SELECTION BAR 7 OF 台帐基础管 DO FORM TZ_BF name tz_bf

ON SELECTION BAR 8 OF 台帐基础管 DO FORM TZ_HF name tz_hf

ON SELECTION BAR 10 OF 台帐基础管 DO FORM TZ_SC name tz_sc

ON SELECTION BAR 11 OF 台帐基础管 DO FORM TZ_JS name tz_js

ON SELECTION BAR 13 OF 台帐基础管 do quit1

DEFINE POPUP 系统参数设 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 系统参数设 PROMPT "行名管理(\<N)"

MESSAGE '本行名称、下级行名称、设备使用部门管理'

DEFINE BAR 2 OF 系统参数设 PROMPT "\-"

DEFINE BAR 3 OF 系统参数设 PROMPT "设备种类型号字典管理(\<Z)"

MESSAGE '设备的种类、型号等'

DEFINE BAR 4 OF 系统参数设 PROMPT "\-"

DEFINE BAR 5 OF 系统参数设 PROMPT "更改密码(\<)"

MESSAGE '更改系统密码'

ON SELECTION BAR 1 OF 系统参数设 DO FORM TZ_HM name tz_hm

ON BAR 3 OF 系统参数设 ACTIVATE POPUP 设备种类型

DEFINE POPUP 设备种类型 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 设备种类型 PROMPT "手工删改设备字典" message'手工修改设备字典中的数据'

DEFINE BAR 2 OF 设备种类型 PROMPT "磁盘导入/导出设备字典" message'将已经存在的字典文件导入/导出'

ON SELECTION BAR 1 OF 设备种类型 do form tz_zl name tz_zl

ON SELECTION BAR 2 OF 设备种类型 do form tz_zl2 name tz_zl2

******

ON SELECTION BAR 5 OF 系统参数设 DO FORM TZ_passwd name tz_passwd

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 帮助h PROMPT "系统使用说明(\<H)"

MESSAGE '系统使用帮助说明'

DEFINE BAR 2 OF 帮助h PROMPT "\-"

DEFINE BAR 3 OF 帮助h PROMPT "关于(\<A)"

MESSAGE '系统著作版权及版本号'

ON SELECTION BAR 1 OF 帮助h help

ON SELECTION BAR 3 OF 帮助h DO FORM ABOUT

acti menu _msysmenu nowait *击活菜单继续执行下面的程序

do form tz_gj name tz_gj *打开自定义工具栏

_screen.addobject("imge1","quit1") *在主窗口中加入图画，是程序画面漂亮

read event

define class quit1 as image

top=-10

left=0

picture='main_bmp.bmp'

backstyle=0

visible=.t.

enddefine

---