VFP表单应用程序开发实例—一位数加法练习

摘　要：利用VFP的随机函数产生小于十的数，进行一位数加法的练习。

关键词：Form；Text；Command；Rand；value；属性；事件；代码；连编
　　某日，偶去同事家作客。一进家门，就见其三岁的女儿正在她妈妈的指导下苦学“2+3=5”。枯燥的数字让这个baby实在是提不起兴趣，又摄于妈妈的威力，无奈只能小嘴张着，一个哈欠接着一个哈欠……
　　“来，阿姨教你”，看着她那委屈的小样，作为一名老师，我忍不住又要发挥自己的“光和热”了。于是我拿出手机，让她自己在计算器上画起鸦来，很快，这个聪明的baby?就有了进步了。“我会了，我会了”，看着她手舞足蹈的样子，我不禁萌发了为她编写一个一位数加法程序的想法。现在我把这个程序整理一下，好让更多的baby能在娱乐中学习。
一、 设置人机交互界面
　　在VFP中建立一个项目管理器，并在“文档”—“表单”中建立一个表单，在表单中放置三个文本框，分别用来存放两个加数及它们的和，并用加号和等于号将其正确的连接起来。同时在表单上添加两个命令按钮。并编写如下的编码：
　　
　　
　　
　　




⑴  在Form1的Init事件中输入代码如下：
=int(rand()*10)  &&在Text1中产生一个小于10的随机整数
=int(rand()*10)  &&在Text2中产生一个小于10的随机整数
us　　　　　　&&让Text3获得焦点
　　在Form1的unloads事件中输入如下代码：
close all
clear events
quit　　 &&退出vfp系统
⑵  在Command1的Click事件中输入代码如下：
=int(rand()*10)  &&在Text1中产生一个小于10的随机整数
=int(rand()*10)  &&在Text2中产生一个小于10的随机整数
=""""　　　　 &&Text3中的文本内容清空
us　　　　  &&让Text3获得焦点
⑶  在文本框Text3的Keypress事件中输入如下代码：
LPARAMETERS nKeyCode, nShiftAltCtrl
a=+
b=
if nkeycode=13　　　　    &&在文本框Text3中按回车键
　　  if  a=val(b)
　　  messagebox(""你真棒!"",""老师的话"")
　　else 
　　  messagebox(""加油啊!"",""老师的话"")   
　　endif
endif
⑷  在Command2的Click事件中输入代码如下：
e
二、 在“属性”对话框对表单中各个对象的属性作相关设置
　　表单form1控件属性设置如下：
　　n=“一位数加法练习”；
　　ndow=2    &&作为顶层表单出现
　　style=2  &&表单边框大小固定
　　nter=.t.
　　=“e:downloads小兔子.ico” &&修改表单中的控制图标
　　文本框text1控件属性设置如下：
　　ent=2    &&居中对齐
　　me=“楷体-GB2312”
　　ze=28
　　=60
　　=24
　　=36
　　=73
　　文本框text2控件属性设置如下：
　　ent=2    &&居中对齐
　　me=“楷体-GB2312”
　　ze=28
　　=60
　　=168
　　=36
　　=73
　　文本框text3控件属性设置如下：
　　ent=2    &&居中对齐
　　me=“楷体-GB2312”
　　ze=28
　　=60
　　=288
　　=36
　　=73 
　　命令按钮command1控件属性设置如下：
　　n=“开始”
　　ld=.f.
　　me=“隶书”
　　ze=16
　　=48
　　=61
　　=156
　　=88
　　命令按钮command2控件属性设置如下：
　　n=“退出”
　　ld=.f.
　　me=“隶书”
　　ze=16
　　=48
　　=224
　　=156
　　=88
三、 给表单添加一个背景图片,并自动调整与表单相同大小
　　在表单中添加一个Image1控件，把这个Image1控件置于所有控件下方，即利用“格式”-“工具”-“置后”，将其Picture属性设置成想要的背景图（要给出绝对路径）,Strength属性设成变比填充，即Strength选择“2-变比填充”,本文添加了我家可爱的baby的自画图——“f:小雪人.bmp”。
并在Form1的Init事件和Resize事件中分别输入如下代码:
=
=
=
=
四、 给表单添加背景音乐
　　利用“表单控件工具栏”中的“查看类”-“添加…”,进行相应的操作，即在VFP的安装目录中找到FFC文件夹，其中的_文件夹里面有一个文件_soundplayer，把它拖放到表单上，利用其生成器属性相应设置：
　　AutoOpen=.t.
　　AutoPlay=.t.
　　AutoRepeat=.t.
　　Class=SoundPlayer
　　cfilename=指定一个声音文件 &&路径要给全，本文添加了“f:丢手娟.mid”文件
　　Visible=.f.　　　　　　 &&不可见
五、 编写主程序
　　在项目管理器的“代码”—“程序”中编写一个程序，并利用快捷菜单设置为主程序，其代码如下：
    _e=.f.　　  &&隐藏VFP的系统主窗口
　　do form f:一位数加法练习.scx
　　read events
六、 连编成可执行文件
　　选择项目管理器中的“连编”命令，生成“可执行文件”，即“一位数加法.exe”。这样，就可以在非VFP环境下运行该程序。正常启动后的界面如下：



七、 结束语
　　 本程序界面简单有趣，并伴有儿歌作为背景音乐，可以让宝宝们在轻松的环境中学习，寓教于乐。