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

(1)建⽴应⽤程序⽤户界⾯。

选择“新建”表单，进⼊表单设计器，增加⼀个⽂本框控件Textl、⼀个标签控件Label1和⼀个命令按钮组CommandGroup1,并将命令按钮组的ButtonCount属性改为16。

(2)设置对象属性如下表所⽰： CommandGroup1中各按钮的属性设置 对象属性属性值说明 Command1～Command10 Caption 依次改为：1、2、3、4、5、6、7、8、9、0 FontBold .T. Command11～Command10 Caption 依次改为：.、=、+、-、*、/ FontBold .T. (3)编写程序代码。

①编写CommandGroup1的Click事件代码： IF THISFORM.Tag=.T. THISFORM.Text1.Value=ALLT(RIGHT(STR(THIS.Value),1)) THISFORM.Tag=〃〃 ELSE a=THISFORM.Text1.Value THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THIS.Value),1)) ENDIF ②编写“.”按钮Command11的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃.〃 ③编写“=”按钮Command12的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=ALLT(STR(&a)) THISFORM.Tag=.T. ④编写“+”按钮Command13的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃+〃 THISFORM.Tag=〃〃 ⑤编写“-”按钮Command14的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃-〃 THISFORM.Tag=〃〃 ⑥编写“*”按钮Command15的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃*〃 THISFORM.Tag=〃〃 ⑦编写“/”按钮Command16的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+〃+〃 THISFORM.Tag=〃〃。

设计一个表单，功能相当一个简单的计算器，可以进行加减乘除运算。

界面如下图：S1：新建表单，命名为jsq.scx。

表单的caption(标题)属性为“计算器”。

将表单适当拉长一些。

S2：在表单中添加一个文本框，其name属性为“aa”；Width属性为200。

S3：在表单中添加一个命令按钮command1，前景（ForeColor属性）色为“红”，caption为“+”。

（注意字符应为西文字符）S4：将按钮复制出三个，其caption分别为“-”、“*”、“/”。

S5：在表单中添加一个命令按钮command5，前景（ForeColor属性）色为“蓝”，caption为“1”。

S6：复制按钮，共12个。

将其余11个按钮的caption分别改为2、3、4、…、0、清零、关闭。

S7：添加按钮“1”的Click事件代码：THISFORM.aa.V alue= THISFORM.aa.V alue+”1”S8：其余2~0按钮的代码相似。

S9：添加按钮“结果”的Click事件代码：SS=THISFORM.aa.V alueTHISFORM.aa.V alue=STR(&ss,10,3)S10：添加按钮“清零”的Click事件代码：THISFORM.aa.V alue=Space(0)S10：添加按钮“退格”的Click事件代码：N=Len(THISFORM.aa.V alue)THISFORM.aa.V alue=Left(THISFORM.aa.V alue,n-1)S10：添加按钮“关闭”的Click事件代码：THISFORM.Release思考：Left(THISFORM.aa.V alue,n-1) 与Substr(THISFORM.aa.V alue,1,n-1)相同否？。

简易计算器的制作在本文中，我们将介绍如何使用Visual FoxPro（VFP）制作一个简易计算器。

Visual FoxPro是一种开发工具，可以用于创建数据库应用程序和开发Windows桌面应用程序。

步骤1: 创建新的Visual FoxPro项目首先，打开Visual FoxPro并创建一个新的项目。

在“文件”菜单中选择“新建”，然后选择“项目”。

输入一个项目名称，选择一个合适的位置，然后点击“确定”。

步骤2:创建一个新的表单接下来，我们需要创建一个新的表单来作为计算器的界面。

在项目资源管理器中，右键点击“表单”文件夹，并选择“新建”。

输入一个表单名称，然后点击“确定”。

步骤3:添加控件步骤5:添加按钮事件首先，我们需要声明变量来存储用户输入的数字。

在按钮事件代码中，添加以下代码：```foxproLOCAL num1, num2, result```接下来，我们需要获取用户输入的数字。

在按钮事件代码中，添加以下代码：```foxpronum1 = VAL(Thisform.txtNum1.Value)num2 = VAL(Thisform.txtNum2.Value)```然后，我们可以执行所需的计算操作。

例如，如果我们想要添加两个数字，我们可以使用以下代码：```foxproresult = num1 + num2```最后，我们需要将结果显示在界面上。

在按钮事件代码中，添加以下代码：```foxproThisform.lblResult.Caption = STR(result)```步骤6:运行和测试完成上述步骤后，您可以保存并运行计算器。

在VFP的工具栏中，点击“运行”按钮来启动应用程序。

测试计算器，确保它可以正确执行计算操作并显示结果。

结论通过使用Visual FoxPro，我们可以轻松创建一个简易计算器。

这个计算器可以执行基本的加减乘除等操作，同时提供了一个直观的用户界面。

您可以根据需要进行自定义，添加更多功能和复杂的计算操作。

利用VFP制作可设定时间的倒计时器作者：范春辉来源：《商情》2010年第28期[摘要]利用VFP软件中计时器控件及其他控件开发出可设定时间的倒计时器,并给出相应的源代码。

[关键词]VFP 可设定时间倒计时器1 前言VFP(即Vsiual Foxpro的简称)是在微型计算机上广泛使用的小型数据库管理系统,它以强大的功能,友好的界面,丰富完整的工具和高效的数据管理方式而受到用户的欢迎。

VFP提供了一个集成化的系统开发环境,把传统的命令方式执行方式扩充为以界面操作为主、以命令方式为辅的交互式执行方式;把单一的面向过程的结构化程序设计扩充为既有结构化、又有面向对象程序设计的可视化程序设计。

随着计算机的普及,VFP编程爱好者越来越多。

利用VFP中计时器控件制作倒计时器应用于各种比赛计时具有良好的效果,比如在各项演讲比赛、辩论赛等场合都会使用倒计时器。

2 界面概述该软件主要利用表单中的标签(Label)、按钮(CommandButton)、计时器(Timer)、文本框(TextBox)等控件来制作。

在程序的运行时,首先在文本框中输入要进行倒计时的时间再单击开始,否则提示重新输入;利用一个重置按钮可将程序整个运行过程重新开始,供多次重复使用。

同时,在进行到最后30秒时软件显示时间的字体会自动增大,以提示参与者时间。

3 窗体设计(如图一)图一(1)在属性窗口中设置Form的Picture属性来设置背景图片。

(2)添加两个文本框text1和text2,用来输入活动的倒计时时间(即分和秒)。

(3)添加5个标签控件,分别设置显示活动主题Label1的Caption为“希望之声”演讲赛、倒计时(Label2)、提示信息Label3的Caption为“请设置演讲时间”、活动时间显示Label4和Label5的Caption分别为“分”和“秒”。

(4)添加三个按钮,用作“开始”、“重置”、“退出”命令。

(5)设置一个timer控件,用来控制倒计时。

简易计算器的制作（VFP）第一步：建一个新的表单；自己规划出各个控件的布局，可以根据自己的喜好！第二步：编写属性和过程一是关于等号的过程编写和属性设置Thisform.Text4.Value=mand15.captionIf Thisform.Text3.Value=mand4.captiona=val(thisform.Text1.Value)b=val(thisform.Text2.Value)Thisform.Text2.Value=a+bThisform.Text3.Value=''endifIf Thisform.Text3.Value=mand8.captiona=val(thisform.Text1.Value)b=val(thisform.Text2.Value)Thisform.Text2.Value=a-bThisform.Text3.Value=''endifIf Thisform.Text3.Value=mand12.captiona=val(thisform.Text1.Value)b=val(thisform.Text2.Value)Thisform.Text2.Value=a*bThisform.Text3.Value=''endifIf Thisform.Text3.Value=mand16.captiona=val(thisform.Text1.Value)b=val(thisform.Text2.Value)Thisform.Text2.Value=a/bThisform.Text3.Value=''Endif属性可以不做更改因为只是更改控件的外观结束二是关于数字小数点的过程编写和属性设置（以“1”为例，其他类似）if Thisform.Text4.Value=mand15.captionThisform.Text4.Value=''Thisform.Text2.Value=''endifS=Thisform.Text2.ValueThisform.Text2.Value=Allt(THIS.CAPTION)Thisform.Text2.Value=S+allt(This.Caption)属性可以不做更改因为只是更改控件的外观结束三是运算符的过程编写和属性设置（以加号为例，其他类推）Thisform.Text1.Value=Thisform.Text2.ValueThisform.Text2.Value=''Thisform.Text3.Value=mand4.caption属性可不更该结束四是OFF ON的过程编写和属性设置OFF的过程编写clear eventsquitON的过程编写Thisform.Text1.Value=''Thisform.Text2.Value=''Thisform.Text3.Value=''Thisform.Text4.Value=''结束其中需要四个文本框有三个文本框属性设置运行不可见即可！作用只是做暂时的存取数据，如果可以调试前可使文本框均可见！即可明白……完……谢谢……。

计算器开发
第一步:建立项目jsq , 可通过文件-新建-项目文件-新文件
或modi proj jsq
第二步:建立主表单jsq1 , 可通过Modi form jsq1
注意:
(1)在Form的Activate事件中加入如下启动事件语句(鼠标双击表单可进入如下界面):
(2) 在Form的QueryUnload事件中加入如下停止事件语句(鼠标双击表单可进入如下界面):
(3)设置图标,在表单Form的属性Icon中设置,如下图所示
(4)Form及控件的命令,一般设在Click事件中,请参看附件
第三步: 将表单加入到项目中(若已加入到项目中,可省略此步) 方法:在项目中,选择表单,单击添加,如下图所示:
第四步: 在项目中添加图标,若已完成可省略此步
第五步: 在项目中添加设置设置信息,若已完成可省略此步
(1)先设置信息, 在窗口命令中输入: Modi File Config.fpw 并回车
关闭保存
(2)添加设置,如下所示
第六步: 连编
第七步: 发布
将连编的程序与动态库发布即可。

零基础VB制作简易计算器Feb. 16, 2014 by 王斌(华宁一中)作为一位初学者来说，VB这个东西似乎有些难（谁不难啊），但是仔细琢磨之后，又觉得和我们的生活密切相关。

我们可以使用它来制作一个简易的计算器哦！我自己大概只花了5~6天的时间来粗略地学习来一下简易计算器的制作，特在此和各位分享一下我的心得。

我也是第一次做这个东西，感觉编程序是那些高材生或技术人员才可以干的事情。

其实，你也可以当一次这样的技术人员（是不是感觉自己的档次提高了不少？哈哈！）。

特此申明：本人能力有限，所做的计算器只能进行如下运算加法：可连续相加９次减法：可连续相减９次乘法·除法各可运算１次我们先从基础的东西说起一、启动：1．“开始”按钮----“程序”----“Microsoft Visual Basic6.0中文版”2．选“新建”选项卡新建：建立新的工程现存：选择和打开现有的工程最新：最近使用过的工程3．单击“标准EXE”项，再单击“打开”按钮二、退出：在菜单文件（F）项中选“退出”或单击“关闭”按钮建立一个VB应用程序的一般步骤：1. 设计窗体，建立用户界面的对象；2. 设置各对象的属性；3. 为必要的对象进行事件过程的编程；4. 程序运行与调试；5. 保存文件和编译。

好，先来认识一下我们即将要用到的工具吧，下面的这个叫工具箱我们开始来制作它：一.显示屏和按键1．使用工具箱中右边的第二个按钮（文本框）在图1.2上拖出一个框，为Text12.然后，再使用工具箱中右边的第三个按钮（命令按钮）分别拖出你喜欢的形状（我认为还是正方形.长方形最好）电脑就会自动给它们编号mand2等。

此时，你使用鼠标左键单击它们中的任意一个，如：Command9.在右边的框中便会出现：（名称）Command9你找到Caption ,将Command9改写成你想要的数字你还可以设置一个清除键：clear。

加号减号乘号除号的制作方法也和其他按键一样的。

用V B6.0编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组1、创建控件组的方法??首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。

此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

二、编写代码Dim s1 As Single, s2 As Single, ysf As String'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符Private Sub Command1_Click(Index As Integer)Text1.Text = Text1.Text & Command1(Index).Caption'将command1的单击事件与文本框显示的内容连接End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + "."If (InStr(Text1.Text, ".") = 1) Then'第一位不能为小数Text1.Text = ""End IfIf InStr(Text1.Text, ".") < Len(Text1.Text) Then '防止出现两个小数点Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command3_Click()s2 = Val(Text1.Text) '开始加减乘除运算Select Case ysfCase "+"Text1.Text = s1 + s2Case "-"Text1.Text = s1 - s2Case "*"Text1.Text = s1 * s2Case "/"If s2 = 0 ThenMsgBox "分母不能为零!"Text1.Text = ""ElseText1.Text = s1 / s2End IfEnd SelectText1 = IIf(Left(Text1.Text, 1) = ".", 0 & Text1.Text, Text1.Text) '这个很关键，如果没有这个的话，得出小于1的小数前面没有0End SubPrivate Sub Command4_Click()If Text1.Text = "" Then '文本为空就结束Exit SubEnd IfText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) '文本退一格End SubPrivate Sub Command5_Click()Text1.Text = "" '清除当前框内文本End SubPrivate Sub Command6_Click(Index As Integer)s1 = Val(Text1.Text) '将s1隐藏起来ysf = Command6(Index).CaptionText1.Text = ""End SubPrivate Sub Command7_Click()If Left(Text1.Text, 1) <> "-" Then '判断作为负数Text1.Text = "-" & Text1.TextElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command8_Click()Text1.Text = Text1.Text * Text1.Text '平方End Sub各位朋友，可以将红色代码复制到相应位置，不清楚的可以全选复制，但是一定要按照我的步骤和给的名称来哦！还可以再添加按钮Private Sub Command9_Click() '这是退出代码EndEnd Sub三、测试，成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！。