文档库

最新最全的文档下载
当前位置:文档库 > 如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

如何使用VFP(Microsoft Visual FoxPro)设计一个简易计算器?

胡伟

本文内容主要介绍如何使用VFP设计如下图所示的一个简易的计算器。

如何使用VFP制作一个简易的计算器

一、创建项目文件jsq.pjx

创建jsq文件夹:c:\jsq (以下文件均以此为存储目录)

在c:\jsq下创建项目文件:c:\jsq.pjx

如何使用VFP制作一个简易的计算器

二、创建表单jsq.scx

(一)创建表单jsq,并设置属性:设AutoCenter为“.T.”、ShowWindow为“作为顶层表单”

(二)在表单jsq内创建各对象

1、创建(菜单部分在后面创建)

如何使用VFP制作一个简易的计算器

单击“表单控件”工具栏上的“文本框”按钮,在表单上的适当位置单击。并设置属性Alignment为“1-右”

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

2、创建容器控件

设置属性SpecialEffect为“凹下”

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

3、创建命令控件

更改属性Caption “Command1”为“Backspace”,属性ForeColor “0,0,0”为“255,0,0”

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

4、如同创建,创建其它控件。

单击表面空白部分,更改属性Caption “Form1”为“计算器”。

如何使用VFP制作一个简易的计算器

5、编辑各控件的命令代码

新建属性 ls 并改其属性“.F.”为“0”;新建属性 mm 并改其属性“.F.”为“0”。(1)Backspace

双击Backspace控件,在打开的Command1.klick中编写如下代码:

thisform.text1.value=substr(alltrim(thisform.text1.value),1,len(alltrim(thisform.text1.value))-1)

(2)CE 的代码为:

thisform.text1.value=''

(3)C 的代码为:

thisform.text1.value=''

thisform.ls=0

thisform.tag=''

(4)MC 的代码为:

thisform.mm=0

(5)MR 的代码为:

thisform.text1.value=alltrim(str(thisform.mm))

(6)MS 的代码为:

thisform.mm=val(alltrim(thisform.text1.value))

(7)M+ 的代码为:

thisform.mm=thisform.mm+val(alltrim(thisform.text1.value)) (8)0 的代码为:

thisform.text1.value=thisform.text1.value+'0'

if alltrim(thisform.text1.value)='00'

thisform.text1.value='0'

endif

同理编写1、2、3、4、5、6、7、8、9 的代码。

(9)+ 的代码为:

thisform.ls=val(thisform.text1.value)

thisform.tag='1'

thisform.text1.value=''

同理编写-、 * 、/ 的代码

(10)=的代码为:

do case

case thisform.tag='1'

thisform.text1.value=alltrim(str(thisform.ls+val(thisform.text1.value),20,4)) case thisform.tag='2'

thisform.text1.value=alltrim(str(thisform.ls-val(thisform.text1.value),20,4)) case thisform.tag='3'

thisform.text1.value=alltrim(str(thisform.ls*val(thisform.text1.value),20,4)) case thisform.tag='4'

thisform.text1.value=alltrim(str(thisform.ls/val(thisform.text1.value),20,4)) endcase

(11)sqrt 的代码为:

thisform.text1.value=alltrim(str(sqrt(val(thisform.text1.value)),20,4))

(12)% 的代码为:

if thisform.tag='4'

thisform.text1.value=alltrim(str(thisform.ls/val(thisform.text1.value)*100,20,4)) endif

(13)1/x 的代码为:

thisform.text1.value=alltrim(str(1/val(thisform.text1.value),20,4))

(14)+/- 的代码为:

if substr(alltrim(thisform.text1.value),1,1)='-'

thisform.text1.value=substr(alltrim(thisform.text1.value),2) else

thisform.text1.value='-'+alltrim(thisform.text1.value) endif

(15).的代码为:

if at ('.',thisform.text1.value)=0

thisform.text1.value=thisform.text1.value+'.'

endif

三、创建程序jsq.prg

代码为:

set default to c:\jsq

do form jsq.scx

read events

并设置jsq.prg为主文件。

四、创建config.fpw

代码为:

screen=off

五、创建菜单jsq.mnx

如何使用VFP制作一个简易的计算器

(1)编辑子菜单的创建

如何使用VFP制作一个简易的计算器

(2)查看子菜单的创建

如何使用VFP制作一个简易的计算器

(3)帮助子菜单的创建

如何使用VFP制作一个简易的计算器

(4)生成jsq.mpr

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

(5)设置jsq.mnx属性,即选中“顶层表单”。

如何使用VFP制作一个简易的计算器

六、修改表单jsq.scx

(1)在Init事件中加入代码:

do jsq.mpr with this, .t.

(2)在Destroy事件中加入代码:

thisform.release

clear events

七、连编各文件

如何使用VFP制作一个简易的计算器

用VFP设计一个计算器
用 VFP 设计一个计算器 作者:胡学军 作者机构:湖北大学商学院,武汉,430...
visual studio制作的简单的计算器
用visual studio制作的简单的计算器。_计算机软件及应用_IT/计算机_专业资料。用visual studio制作的简单的计算器。用的是C#编程 首先利用 visual studio 里面的 ......
vf制作计算器
vf制作计算器_计算机软件及应用_IT/计算机_专业资料。vf制作计算器 实验报...
简易计算器制作
存档编号 XX 水利水电大学 毕业设计 题目 简易计算器制作 学专姓学 院业名...
制作简易计算器
SpeedButton的基本属 性设置 l 熟练掌握CheckBox和RadioButton控件 l 使用控件RadioGroup控件 任务5 制作简易计算器 Button控件 主要属性 l caption属性:按钮的标题,......
制作简易计算器
SpeedButton的基本属性设置 熟练掌握CheckBox和RadioButton控件 使用控件RadioGroup控件 任务5 制作简易计算器 Button控件主要属性 caption属性:按钮的标题,即按钮所显示......
制作简易计算器
制作简易计算器制作简易计算器 莲山课 件 m 课题 第三节管理个人资料辅助 练习...
编写一个简易计算器的源代码
编写一个简易计算器的源代码_工学_高等教育_教育专区。AStack.h #ifn...
简易计算器的设计与制作
李翠凤 二零一五年四月 浙江工商职业技术学院电子与信息工程学院毕业设计 简易计算器的设计与制作 摘要:近十几年,单片机技术发展的很快,其中电子产品的更新速度迅猛......
MFC入门教程之简易计算器制作
MFC入门教程之简易计算器制作_IT/计算机_专业资料。通过一个简单的实例来让大家能够更快的了解MFC界面编程的步骤和方法。 MFC 入门教程之简易计算器制作 MFC 入门......
如何使用VFP制作一个简易的计算器
如何使用VFP制作一个简易的计算器_计算机软件及应用_IT/计算机_专业资料。如...
使用VB 设计一个简易计算器
实验一 设计一个简易的计算器一、实验目的 (1)熟悉 VB 集成开发环境 (2)设计一个简易的计算器,熟悉使用 VB 开发应用程序的全过程 二、实验内容 【题目】 :......
VB编写简易计算器
用 VB 编写简易计算器 名称 Command1(0)~Command1(9) ...
简易计算器制作
简易计算器制作汇报人:汪洋 时间:2017.1.17 目录 1.总体设计 2.简易计算器功能及原理 3.STC89C52单片机 4.独立按键检测 5.数码管显示 6.系统的主程序 1.......
VB编写简易计算器附图
VB 编写简易计算器附 图文档编制序号:[KKIDT-LLE0828-LLETD298-POI08] 用编写简易计算器效果图:废话不多说,直接上步骤 一、创建控件组 1、创建控件组的方法 ......
VB编写的简易计算器
这是一个简易计算器的VB代码,下面是这个计算器的界面,有一个文本输入框和16个按...
VB编写简易计算器(附图)
效果图: 用 VB6.0 编写简易计算器 废话不多说,直接上步骤 一、创建控件组...
MATLAB制作一简单计算器
用MATLAB制作一简单计算器_计算机软件及应用_IT/计算机_专业资料。用 MATLAB 制作一简 单计算器 标准化工作室编码[XX968T-XX89628-XJ668-XT689N] 这个 matlab ......
简易计算器的设计与制作
李翠凤 二零一五年四月 浙江工商职业技术学院电子与信息工程学院毕业设计 简易计算器的设计与制作摘要:近十几年,单片机技术发展的很快,其中电子产品的更新速度迅猛。...