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

合集下载

计算器制作步骤

{
// TODO: Add your control notification handler code here
Calculate();
m_operator=OpSubtract;
}
void CCalculatorDlg::OnMutiply()//乘
{
// TODO: Add your control notification handler code here
{
// TODO: Add your control notification handler code here
Calculate();
m_operator=OpNone;
}
void CCalculatorDlg::OnSqrt()//处理开根号
{
// TODO: Add your control notification handler code here
FuncN, FuncRec, FuncExp, FuncNone};
（2）成员变量及函数（此处应定义为类CalculatorDlg的公有成员）
float m_operand; //存储当前输入的操作数
float m_accum; //存储当前的计算结果
BOOL m_bCoff; //标识当前输入是否是小数
if(!m_bOperandAvail)
m_operand=0;
if(!m_bCoff)
m_operand=m_operand*10+(iID-IDC_0);
else
{
m_operand=m_operand+(iID-IDC_0)*m_coff;
m_coff*=0.1;
}
m_bOperandAvail=TRUE;

VF编写简易计算器

(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=〃〃。

vfp 设计一个表单 (计算器)

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

界面如下图：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制作可设定时间的倒计时器

利用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控件,用来控制倒计时。

第3章VFP的编程工具与编程步骤

代码窗口
表单控件工具栏表单生成器
第3章 VFP的编程工具与编程步骤
3.2.3 “表单控件”工具栏
单击“表单设计器”工具栏上的“表单控件工具栏”
按钮，屏幕出现“表单控件”工具栏，可以把它拖放到适当的位置。
第3章 VFP的编程工具与编程步骤
3.2.4 “属性”窗口
设计时，一般在“属性窗口”中修改或设置属性。通过单击“表单设计器”工具栏中的“属性窗口” 按钮，可打开“属性”窗口。
第3章 VFP的编程工具与编程步骤
1. “对象”下拉列表框标识当前选定的对象。单击右端的向下箭头，可看到包括当前表单（或表单集）及其所包含的全部对象的列表。可以从列表中选择要更改其属性的表单或对象。
第3章 VFP的编程工具与编程步骤
2. 选项卡选项卡中，按分类方式显示所选对象的属性、事件和方法。 (1) “全部”选项卡：显示全部属性、事件和方法。
第3章 VFP的编程工具与编程步骤
3.4.3 控件的复制与删除
对控件进行复制与删除的常用方法有下面3种：
• 将所要操作的控件变为“活动控件”，按〈Ctrl〉
+〈C〉键将该控件拷贝到剪贴板中，按〈Ctrl〉+〈V〉
键可以在表单中得到该控件的复制品。对于活动控件，
只须按〈Delete〉键即可删除该控件。 • 用常用工具栏上的“复制”和“粘贴”按钮，以及 “剪切”按钮。 • 直接用鼠标右击要操作的控件，打开快捷菜单，在快捷菜单中选取需要的项。
第3章 VFP的编程工具与编程步骤
3.2 表单设计器
3.2.1 打开表单设计器
打开表单设计器的方法有4种。 • 单击常用工具栏上的“新建”按钮，弹出“新建” 对话框，选中“表单”单选钮，单击“新建文件”。 • 在命令窗口中使用CREATE FORM命令。 • 在“项目管理器”的“文档”选项卡中，选中“表单”，再单击“新建”按钮。

简易计算器的制作(VFP)

简易计算器的制作（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=''结束其中需要四个文本框有三个文本框属性设置运行不可见即可！作用只是做暂时的存取数据，如果可以调试前可使文本框均可见！即可明白……完……谢谢……。

使用VFP开发计算器程序

计算器开发
第一步:建立项目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制作简易计算器教程

零基础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。

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

VB写简易计算器附图

用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三、测试，成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！。

MFC入门教程之简易计算器制作

MFC入门之简易计算器制作最近自学MFC，入门的时候走了不少弯路，所以特做此教程，希望能帮助一些人能够快速入门，少走一些弯路。

这个教程就是通过一个简易计算器的制作让大家了解MFC界面编程的基本步骤和几个常用控件的使用方法。

使用软件Visual C++ 6.0.首先，新建一个MFC基于对话框的工程。

点击文件-新建，在工程选项卡里选择MFC AppWizard[exe]，给工程命名Jisuan。

点击确定。

在接下来的向导里选择基于对话框，其他选项使用默认即可，之间点击完成。

先给大家介绍一下Visual C++ 6.0的界面。

左边框起来的是文件资源控制区，默认有三个选项卡，分别是ClassView、ResourceView和FileView。

分别用来显示类、资源和文件。

中间这个主要操作区呢，就是我们用来设计界面和编程的窗口了。

现在这个是IDD_JISUAN_DIALOG资源，如图所示。

右边那个是控件工具箱，如果没有显示的话可以右击菜单栏空白区域，把控件前打上对号即可。

然后给大家介绍一下今天需要用到的控件。

如左图所示，今天主要需要用到四个控件。

第一个是静态文本控件，就是可以往对话框上放一些静态的文字。

第二个是编辑框，它是可以往里面输入文字的。

第三个是组合框，它是把用来给对话框分区，使界面更加美观明了。

第四个是按钮控件，是用来点一下产生某个操作的。

上面那个是编辑框，下面这个是按钮控件。

点一下控件，拖到对话框上，即可使用。

下面我们可以这样布局：上面两个编辑框里输入数字，中间四个按钮分别是+ - * /，然后下面编辑框里显示数字。

下面开始给大家介绍第一个最重要的操作，就是属性操作。

我们想让这些控件的显示文字改变，就需要修改它的属性。

选定某个控件，右击，选择属性，即可来改变它们的属性了。

我们挨个控件介绍。

首先是组合框。

组合框的属性，我们看到有一个ID，一个标题。

首先说明一点，每个控件都必须有一个ID值，而且一般每个控件的ID值不能相同。

VFP中倒计时器的设计

VFP中倒计时器的设计摘要：本文介绍了利用Visual FoxPro 6．0设计倒计时器的两种方法，给出了程序，并比较了两种方法的优劣。

关键词：倒计时器；Visual FoxPro；程序设计1 引言在程序设计和软件开发中，经常需要设计计时器，如：秒表、正计时器、倒计时器等。

这些计时器的设计方法大同小异，本文以倒计时器设计为例介绍两种设计倒计时器的方法。

Visual FoxPro中的计时器控件有一个Timer事件，每经过Interval（单位为毫秒）属性指定的时间就执行该事件一次。

利用该控件的这一特点再配合一些程序可设计各种计时器，包括倒计时器。

2 利用计时器控件和设置计数变量设计倒计时器2．1 设计思想程序中用一个计数变量t来实现计时，在表单的Init事件中给t赋初值5400（本例中倒计时时间设为90分钟，即5400秒）。

程序中用到一个计时器控件，设置计时器控件的Interval 属性为1000（即1秒），则它每秒钟被触发一次。

在计时器的Timer事件代码中加入t＝t－1，则每隔1秒钟t递减1，5400秒后t减到0，定时时间到。

程序中还用到3个变量th、tm、ts，分别用来表示剩余时间的时、分、秒，用于将剩余时间t用时分秒的格式显示。

在表单的Init事件代码中包含thisform．timer1．enabled＝．F．，再在“开始”按钮的Click事件代码中加入代码：thisform．timer1．enabled＝．T．。

这样当单击“开始”按钮时才开始计时。

时间设为90分钟，即5400秒）。

程序中用到一个计时器控件，设置计时器控件的Interval属性为1000（即1秒），则它每秒钟被触发一次。

在计时器的Timer 事件代码中加入t＝t－1，则每隔1秒钟t递减1，5400秒后t减到0，定时时间到。

程序中还用到3个变量th、tm、ts，分别用来表示剩余时间的时、分、秒，用于将剩余时间t用时分秒的格式显示。

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

如何使用VFP（Microsoft Visual FoxPro）设计一个简易计算器？胡伟本文内容主要介绍如何使用VFP设计如下图所示的一个简易的计算器。

一、创建项目文件jsq.pjx创建jsq文件夹：c:\jsq (以下文件均以此为存储目录)在c:\jsq下创建项目文件：c:\jsq.pjx二、创建表单jsq.scx（一）创建表单jsq，并设置属性：设AutoCenter为“.T.”、ShowWindow为“作为顶层表单”（二）在表单jsq内创建各对象1、创建（菜单部分在后面创建）单击“表单控件”工具栏上的“文本框”按钮，在表单上的适当位置单击。

并设置属性Alignment为“1－右”2、创建容器控件设置属性SpecialEffect为“凹下”3、创建命令控件更改属性Caption “Command1”为“Backspace”，属性ForeColor “0,0,0”为“255,0,0”4、如同创建，创建其它控件。

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

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=0thisform.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 的代码。

vfp计算器

制作vfp计算器——Vfp应用初探平山县回舍中学郜兵山Vfp是一个非常实用的程序软件，它不仅能用于数据库的管理，而且用它也可以设计出一些非常实用的程序。

本实例就是用vfp来设计的一个计算器，用它可以完成基本的数学运算。

下面是这个程序的具体设计过程。

[实例说明] 启动程序之后，“输入算式”以外的按钮均和文本框均处于不可用状态；单击“输入算式”按钮之后，文本框、从“1”到“Exp”命令按钮、“计算”、“回零”、“退出”等命令按钮可用，用户可以通过键盘或鼠标向文本框中输入算式；单击“计算”按钮，文本框中显示输入的算式及运算结果；若不输入算式，直接单击计算按钮，将在文本框中出现提示信息“还没有输入算式，请输入算式”；单击“清零”按钮，文本框清空，从“1”到“Exp”命令按钮及“计算”、“清零”按钮t和文本框不可用，直至单击“输入算式”按钮，这些按钮恢复可用；单击“退出”按钮，退出程序的运行。

[技术要点]1、界面规划：利用容器控件，将标签、文本框、命令按钮置于容器控件之中，一是便于整体规划，二可突出界面的立体效果。

2、用宏替换函数&X,将文本框中输入的内容转化为数学运算式,计算出算式的结果.3.用empt()函数,判断文本框中是否为空格字符串,以便对文本框中显示的内容进行选择.4、为避免用户使用该软件的过程中出现误操作，在命令按钮的事件过程代码中，有意识地设置命令按钮及文本框的可用和不可用状态。

[制作方法及步骤]第一步、启动程序建立项目文件及表单文件1、执行“开始”→“所有程序”→“Microsoft Office Visual Foxpro6.0”→“Microsoft Office Visual Foxpro6.0”命令，启动vfp程序。

2、执行“文件”→“新建”命令，打开“新建”对话框。

3、在“新建”对话框中，选择“项目”选项之后，单击“新建文件”按钮，打开“创建”对话框，如下图所示。

4、在“创建”对话框中，选择文件保存的位置，输入项目名称之后，单击“保存”按钮，打开项目管理器。

用VB制作计算器

用VB制作计算器在VB编程语言中，可以使用Windows Forms应用程序来制作一个简单的计算器。

Windows Forms应用程序是VB的一种可视化编程工具，可以为用户提供一个图形用户界面。

首先，我们需要创建一个新的Windows Forms应用程序项目，并打开默认生成的Form1窗体。

接下来，我们可以使用Windows Forms控件来创建一个计算器的用户界面。

在Form1窗体上，我们可以添加一个TextBox控件用于显示计算结果，并设置其属性为只读。

```vbPrivate ReadOnly resultTextBox As TextBox = New TextBox```然后，我们可以添加一些Button控件来表示计算器的数字和操作符。

我们可以使用按钮的Click事件来处理用户的点击操作。

```vbPrivate ReadOnly buttons As List(Of Button) = New List(Of Button)```接下来，我们需要实现按钮的Click事件处理程序来执行相应的计算逻辑。

我们可以使用Eval函数来计算表达式的值，并将结果显示在TextBox中。

Private Sub Button_Click(sender As Object, e As EventArgs) Dim button As Button = TryCast(sender, Button)If button IsNot Nothing ThenDim buttonText As String = button.TextIf buttonText = "=" Then'计算表达式的值Dim expression As String = resultTextBox.TextDim value As Double = Eval(expression)resultTextBox.Text = value.ToStringElseIf buttonText = "C" Then'清空文本框resultTextBox.Text = ""Else'添加数字或操作符resultTextBox.Text += buttonTextEnd IfEnd IfEnd Sub最后，我们需要在窗体的构造函数或Load事件处理程序中将按钮和TextBox添加到窗体上。

怎样用Visual-Studio制作小型计算器PPT课件

找到 Text 属性，把 form1 改为：小型计算器:
拖入控件。在软件左侧或者在视图里找到【工具
2021/3/12
4
箱】，我们要使用里面的控件：分别修改标签 label， button 的属性框下 Text 的值，如下图：
添加运算符号。点击窗体里 bBox 属性框，右键点击打开【编辑框】，在编辑框里输入下面的字符，最后确定：
2021/3/12
10
this.textBox3.Text=Result; break; case"/": Result=(num1/num2).ToString();
2021/3/12
11
this.textBox3.Text=Result; break; default: break;
2021/3/12
怎样用 VisualStudio 制作小型计算器
y2a3d 计算器在线计算 /
2021/3/12
1
使用 VisualStudio 可以制作出很多软件，今天我们使用 VisualStudio 制止小型计算器，制作成功后可以把自己制作计算器放在桌面上供自己使用；更可以根据自己的需求制作各种各样的计算器。我们今天制作简单的计算器，复杂的可以在简单的基础上开发。
2021/3/12
5
现在我们开始编写事件。双击【计算】按钮，在 privatevoidbutton1_Click(objectsender,EventArg se){}在｛｝里面输入下面的代码：
Doublenum1=Convert.ToDouble(this.textBox1. Text.ToString());
2021/3/12
16
可以把 DeBug 里的 MyStudentSys.exe 文件拖出来供自己使用。MyStudentSys.exe 就是可执行文件，这样小型计算器就制作出来了，放在桌面什么时间都可以使用了。

用visval foxpro开发上网计时系统

用visval foxpro开发上网计时系统承德市第七中学邢玉金qq 908769021关键字：visval foxpro 计时系统摘要：我是一个电脑的爱好者，喜欢开发一些小的程序。

但只是一些皮毛，渴求高人的指点，所以我这里有一个利用visval foxpro开发的小程序，以抛砖引玉。

我是一个电脑的爱好者，喜欢开发一些小的程序。

但只是一些皮毛，渴求高人的指点，所以我这里有一个利用visval foxpro开发的小程序，以抛砖引玉。

你的上网是包月制，还是包年制的呢？如果是包月制，那么有时就会因不知道上网时间而苦恼，我这里是用visval foxpro写的上网计时系统，恳请批评指正：下面是程序的开发过程：1、启动visval foxpro 新建项目。

文件/新建/项目2、以上画面：点击“建文件/选择一个盘符（根据自己的喜好），输入名称3、点击保存，如下图4、点击“文档”标签选择“表单”点击“新建”5、选择“新建表单”：6、对表单进行设计：重复步骤3电击“数据”标签，如图示单击“数据库”/新建单击“新建数据库”保存在此项目的文件夹下，如上图，并输入文件名，点击“保存”如图选中表，单击“新建”单击“新建表”如图选择文件夹，输入表的名称后，单击“保存”如图输入各个字段名。

表的结构如下：下面是各个“标签”控件的属性设置：label1.caption=现在是label2.caption：显示系统时间label3.caption=上网计时系统label4.caption=本次开始上网时间label5.caption=本次结束上网时间label6.caption=本次上网时间label7.caption=本月上网总时间label8.caption：显示年分labe9.caption：显示月份labe10.caption=年label1.caption=月labe12.caption=日label3.caption=显示日label4.caption：显示作者下面分别为命令按牛写语句：1、“开始上网”命令：thisform.text1.value=time()set exclusive onuse e:\上网计时系统\table.dbflocate for (年份=year(date()) AND 月份=month(date()))if found()replace 年份with year(date())replace 月份with month(date())replace 上网开始时间with thisform.text1.valueelsedo while 月份!=month(date())go bottomappend blankreplace 年份with year(date())replace 月份with month(date())replace 上网开始时间with thisform.text1.valueenddoendifmand1.enabled=.f.2、“结束上网”命令：locate for (年份=year(date()) AND 月份=month(date()))if found()thisform.text2.value=time()replace 上网结束时间with thisform.text2.valuemand2.enabled=.f.endif3、“时间统计”命令：t1=val(substr(thisform.text2.text,1,2))*60+val(substr(thisform.text2.text,4,2))+val(substr(thisform. text2.text,7,2))/60t2=val(substr(thisform.text1.text,1,2))*60+val(substr(thisform.text1.text,4,2))+val(substr(thisform. text1.text,7,2))/60if t1>=t2 thenthisform.text3.value=t1-t2replace 用时with thisform.text3.valueelset3=24*60-t2+t1thisform.text3.value=t3replace 用时with thisform.text3.valueendifif t1-t2>=90cmessagetitle="确定要退出本次上网吗、thank you"cmessagetext="请您退出上网好吗？"ndialogtext=4+32messagebox(cmessagetitle,ndialogtext,cmessagetext)endifmand3.enabled=.f.4、“总上网时间”locate for (年份=year(date()) AND 月份=month(date()))if found()replace 总用时with 总用时+用时thisform.text4.value= 总用时elsereplace 总用时with 用时thisform.text4.value= 总用时if 总用时>=2400close allendifendifmand4.enabled=.f.5、“browse（浏览）”命令use e:\上网计时系统\table.dbfbrowse font "黑体",10 noappend noedit color rgb(0,100,30)6、“退出”命令：thisform.releaseclose all7、“时钟控件（timer1）”的timer事件bel2.caption=time()bel8.caption=str(year(date()))bel9.caption=str(month(date()))bel13.caption=str(day(date()))8、表单的load事件（主要功能是：病毒日期提示）public dd=day(date())if ((d=13 or d=26))messagebox("今天是病毒日(每月13日或26日)，请您不要上网",0+32,"计算机病毒提示") endifif(( d=6 and month(date())=3))messagebox("今天是病毒日，请您不要上网",0+32,"计算机病毒提示")endifif(( d=5and month(date())=4))messagebox("今天是病毒日，请您不要上网",0+32,"计算机病毒提示")endifif(( d=4 and month(date())=5))messagebox("今天是病毒日，请您不要上网",0+32,"计算机病毒提示")endifif( month(date())=7)messagebox("今天是病毒日，请您不要上网",0+32,"计算机病毒提示")endif以上是我的程序的设计过程，下面是程序的运行情况：可以点击“开始上网”按扭上网，再连接“宽带连接”，用手动的方式上网，等到上网结束时，点击“上网结束”、“时间统计”、“总上网时间”、“browse”、“退出”按扭等。