主页

 

 

二课

 

三课

 

四课

 

五课

 

六课

 

七课

 

八课

 

九课

 

十课

 

十一课

 

十二课

 

十三课

第一课 编一个“心灵感应”小游戏
         我们的课程从这个小游戏开始吧。一些名词在这里不做解释,广大网友漫漫理解,或者自己去查一些资料,下面我就来介绍如何用Visual Foxpro 6.0来编制这个游戏。
    1、在硬盘上建一个文件夹,例如D:\DEMO。
    2、启动Visual Foxpro 6.0,选择:“文件”——“新建”,出现“新建对话框”(图示1-1),

文件类型选“项目”,按“新建文件”按钮,选择项目文件名“demo”(自己随便起名),保存在D:\DEMO下(图示1-2),

按“保存”按钮后,出现项目管理器,这样一个项目就建成了,项目名就是“demo”以后的一切操作都在这个项目内。项目管理器由两个文件组成,扩展名分别是“PJX”和“PJT”。(图示1-3)在这个项目内可以建立数据库、表单、程序、菜单等。


    3、选择“文档”——“表单”,按“新建”按钮。出现(图示1-4)


    4、按“新建表单”按钮,出现(图示1-5)。表单就是将来运行后出现的窗口或对话框,上图就是一个表单。下面我们就在这个表单上创建心灵感应游戏。


    5、在Form1的属性(表单的属性一般在创建一个新表单后自动出现,若没有可右击表单,选择“属性”即可)中选择属性Caption(标题)将默认值“Form1”改为“心灵感应”(图示1-6),表单的标题就改为“心灵感应”。但表单的名字应叫“Form1”,要想更改请改属性——Name。


    6、在d:\demo\下新建一文件夹pic,存入一些需要的图标、图片等,在Form1的属性中选择属性Icon的值为d:\demo\pic\msgbox02.ico(图示1-7)。双击“Icon”或点击按钮,打开d:\demo\pic文件夹,选择msgbox02.ico图标,按“确定”按钮。


    7、关闭表单设计器,出现(图示1-8),

按"是",出现(图示1-9),

取文件名为xlgy,建一文件夹d:\demo\form\将文件xlgy.scx保存到该文件夹里。则在项目管理器的表单中出现一个xlgy表单(图示1-10)。(你也可以全部编完再保存)


    8、选中xlgy表单,按“修改”键,又返回表单编辑状态。调整表单窗口大小(可用鼠标拖拉),在表单控件工具栏的“图象”图标上点击一下,在表单上拖出一个长方形,即图片显示区域,其picture属性为d:\demo\pic\pkbm1.jpg(图示1-11);

在表单控件工具栏选“标签”图标,在表单上的图象下面拖出一个长方形,其capion属性为“本程序可以感应你在想什么。”,字体大小fontsize为“16”,你也可以设定其他属性,如:字体(fontname)、字体颜色(fontcolor)等;再建两个按钮“command1和command2”,其属性caption分别为“开始”、“退出”。(图示1-12)


    9、双击“退出按钮”,在click过程中输入thisform.release或release thisform,意思为:当鼠标单击“退出”按钮时释放表单。下面你可以按!图标运行此表单,点击“退出”按钮,即可退出此表单。
    10、下面我们要在“开始”按钮的click过程中输入一些命令,完成我们要做的工作。我们先做几张图片pk1.jpg(图示1-13)、

pk2.jpg(图示14)、

pkbm2.jpg(图示15),

在“开始”按钮的click过程中输入如下命令:
ThisForm.image1.picture='pic\pk1.jpg'  &&将图片换成pk1.jpg
this.caption='继续'  &&将"开始"按钮名改为"继续",因为在command1.click内,所以可用this代替thisform.command1
thisform.command2.enabled=.f.   &&将"退出"按钮设为不可用
thisform.label1.caption='请在上面的扑克牌中选一张,记在心里。按继续键。'   &&改变label1的内容
wait  ''  &&程序暂停,等你按任意键,“''”是两个单引号,不能缺少.
ThisForm.image1.picture='pic\pkbm1.jpg'
thisform.label1.caption='请你默念三遍。按继续键。'
wait ''
ThisForm.image1.picture='pic\pk2.jpg'
thisform.label1.caption='我知道你记的是哪一张,我把它去掉了!'
wait ''
ThisForm.image1.picture='pic\pkbm2.jpg'
thisform.label1.caption=''
this.caption='再来一次'
thisform.command2.enabled=.t.  &&将"退出"按钮设为可用
retu   &&重新运行
注: &&...为程序注释,它在程序运行时不执行。
    11、到此为止,“心灵感应”就编完了,你可以运行此表单看看运行结果。

 

 

主页

 

 

二课

 

三课

 

四课

 

五课

 

六课

 

七课

 

八课

 

九课

 

十课

 

十一课

 

十二课

 

十三课