精华内容
下载资源
问答
  • VB计算器代码+程序

    2018-10-23 10:20:48
    使用Visual Studio 2010建立的VB工程,一个简单计算器,包含常用的加减乘除以及开方倒数等数学运算功能。
  • vb计算器编程详解

    2011-12-19 10:53:09
    vb计算器编程的详细过程 部分代码如下 用到控件有 一个按钮控件数组command1 0-16共 17个 一个frame 一个label 一个文本框 代码如下: Private Sub Command1_Click(Index As Integer) Dim jia, jian, cheng, chu ...
  • 计算器程序(VB6.0代码编写)计算器

    热门讨论 2009-06-18 17:28:11
    计算器程序(VB6.0代码编写)计算器,可以算+,-,*,/,也可以算sin,cos,tan,log,exp,ln等。
  • VB计算器程序源码 Dim a(100) As Double Dim n& Dim Plus As Boolean Dim yunsuan(100) As Integer Dim a100 As Double Dim num As Single Private Sub Command1_Click() If Plus = True Then Plus = False Text1....
  • 由于最近公司需要用到VB6.0.所以自己又学习了一遍。语法真的真的和C#差别很大。好吧,先上一个简单的DEMO,人人都可以看懂的计算器。 第一:拖控件,然后设置界面 定义变量,存值 Dim num1, num2, num3, flg As ...

    由于最近公司需要用到VB6.0.所以自己又学习了一遍。语法真的真的和C#差别很大。好吧,先上一个简单的DEMO,人人都可以看懂的计算器。

    ❶ 拖控件,然后设置界面

    ❷ 定义变量,存值

    Dim num1, num2, num3, flg As String '定义单个变量,存值
    

    ❸ 设置按钮事件

    Private Sub bt0_Click(Index As Integer)
    If flg = "" Then
    num1 = num1 + "0"
    lbresult.Caption = num1
    ElseIf num3 <> "" Then
    num1 = num1 + "0"
    lbresult.Caption = Str(num3) + flg + num1
    Else
    num2 = num2 + "0"
    lbresult.Caption = num1 + flg + num2
    End If
    End Sub
    

    ❹ 设置符号事件

    If num3 = "" Then
    flg = "+"
    lbresult.Caption = num1 + flg
    Else
    flg = "+"
    lbresult.Caption = Str(num3) + flg
    End If
    

    ❺ 设置等号事件

    If num3 = "" Then
    Select Case flg
    Case "+":
    num3 = CDbl(num1) + CDbl(num2)
    lbresult.Caption = num3
    Case "-":
    num3 = CDbl(num1) - CDbl(num2)
    lbresult.Caption = num3
    Case "*":
    num3 = CDbl(num1) * CDbl(num2)
    lbresult.Caption = num3
    Case "/":
    num3 = CDbl(num1) / CDbl(num2)
    lbresult.Caption = num3
    End Select
    Else
    Select Case flg
    Case "+":
    num3 = Str(CDbl(num3) + CDbl(num1))
    lbresult.Caption = Str(num3)
    Case "-":
    num3 = Str(CDbl(num3) - CDbl(num1))
    lbresult.Caption = Str(num3)
    Case "*":
    num3 = Str(CDbl(num3) * CDbl(num1))
    lbresult.Caption = Str(num3)
    Case "/":
    num3 = Str(CDbl(num3) / CDbl(num1))
    lbresult.Caption = Str(num3)
    End Select
    End If
    num1 = ""
    num2 = ""
    flg = ""
    End Sub
    

    ❻ 结果

    在这里插入图片描述
    在这里插入图片描述

    ❼ 最后:只是语法跟C#有差别,其他都差不多。已上传到博客,有需要的可以下载源码。奔涌吧,后浪!!!

    ❽ 入门学习网站:学习网站

    项目地址

    展开全文
  • VB计算器

    千次阅读 2017-10-03 16:12:58
    我是没什么心思写计算器的。。不过要参加星火杯的话这个坎还是要过一过。。。 emmmm然后发现写个GUI真是步步艰难,先用了VS发现特么废流量,再用QT一直蜜汁错误。。然后。。然后最终还是向VB低头orz 算法上不...

    我是没什么心思写计算器的。。不过要参加星火杯的话这个坎还是要过一过。。。

    emmmm然后发现写个GUI真是步步艰难,先用了VS发现特么废流量,再用QT一直蜜汁错误。。然后。。然后最终还是向VB低头orz

    算法上不存在什么问题啦。。只是不熟悉而且很多细节需要注意。。debug几下就好。。最重要的是学到了用程序写程序的姿势_(:з」∠)_

    一个不能再简单的窗口

    还有一段又臭又长的代码

    Dim t, t1 As Integer
    Dim x, y As Double
    
    
    Public Sub com()
    x = Val(l1.Caption)
    Select Case t1
    Case Is = 1: y = y + x
    Case Is = 2: y = y - x
    Case Is = 3: y = y * x
    Case Is = 4: y = y / x
    End Select
    t1 = 0
    t = 0
    l1.Caption = "0"
    End Sub
    
    
    Private Sub Form_Load()
    x = 0
    y = 0
    t = 0
    t1 = 1
    End Sub
    
    
    
    
    
    
    Private Sub c0_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "0"
    Else
    l1.Caption = l1.Caption + "0"
    End If
    End Sub
    
    Private Sub C1_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "1"
    Else
    l1.Caption = l1.Caption + "1"
    End If
    
    End Sub
    Private Sub c10_Click(Index As Integer)
        If t = 0 Then
        l1.Caption = l1.Caption + "."
        t = 1
        End If
    End Sub
    
    Private Sub C2_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "2"
    Else
    l1.Caption = l1.Caption + "2"
    End If
    
    End Sub
    
    Private Sub C3_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "3"
    Else
    l1.Caption = l1.Caption + "3"
    End If
    
    End Sub
    
    Private Sub C4_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "4"
    Else
    l1.Caption = l1.Caption + "4"
    End If
    
    End Sub
    
    Private Sub C5_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "5"
    Else
    l1.Caption = l1.Caption + "5"
    End If
    
    End Sub
    
    Private Sub C6_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "6"
    Else
    l1.Caption = l1.Caption + "6"
    End If
    
    End Sub
    
    Private Sub C7_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "7"
    Else
    l1.Caption = l1.Caption + "7"
    End If
    
    End Sub
    
    Private Sub C8_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "8"
    Else
    l1.Caption = l1.Caption + "8"
    End If
    
    End Sub
    
    Private Sub C9_Click(Index As Integer)
    If l1.Caption = "0" Then
    l1.Caption = "9"
    Else
    l1.Caption = l1.Caption + "9"
    End If
    
    End Sub
    
    
    
    
    
    
    
    
    
    
    
    
    Private Sub z1_Click(Index As Integer)
    com
    t1 = 1
    End Sub
    
    Private Sub z2_Click(Index As Integer)
    com
    t1 = 2
    End Sub
    
    Private Sub z3_Click(Index As Integer)
    com
    t1 = 3
    End Sub
    
    Private Sub z4_Click(Index As Integer)
    com
    t1 = 4
    End Sub
    
    Private Sub z5_Click(Index As Integer)
    tmp = Mid(l1.Caption, Len(l1.Caption), 1)
    If tmp = "." Then
    t = 0
    End If
    If Len(l1.Caption) = 1 Then
    l1.Caption = "0"
    Else
    l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)
    End If
    End Sub
    
    Private Sub z6_Click(Index As Integer)
    l1.Caption = "0"
    Form_Load
    End Sub
    
    Private Sub z7_Click(Index As Integer)
    If (l1.Caption <> "0") Then
    l1.Caption = "-" + l1.Caption
    End If
    End Sub
    
    Private Sub z8_Click(Index As Integer)
    com
    l1.Caption = Str(y)
    End Sub
    


    展开全文
  • 计算器程序(VB6.0代码编写) 计算器,可以算+,-,*,/,也可以算sin,cos,tan,log,exp,ln等。 QQ223857666QQ223857666勾月
  • Dim x!, n1!, n2! 'N1,N2分别代表输入的第一个数和第二个数 Dim strn1$, strn2$ 'StrN1,StrN2分别代表输入第一个 Dim firstN As Boolean '判断是否是数字开头 Dim pointflag As Boolean '判断是否已有小数点 Dim ...

    Dim x!, n1!, n2! 'N1,N2分别代表输入的第一个数和第二个数 Dim strn1$, strn2$ 'StrN1,StrN2分别代表输入第一个 Dim firstN As Boolean '判断是否是数字开头 Dim pointflag As Boolean '判断是否已有小数点 Dim runsign As Integer '变量Runsign用来储存运算符号 Dim signflag As Boolean '变量SignFlag判断是否已有运算符号 Private Sub form_load() n1 = 0: n2 = 0 strn1 = "": strn2 = "" firstN = True pointflag = False '将 PointFlag 设为否,即没有小数点 runsign = 0 signflag = False '没有运算符号输入 End Sub Private Sub cmdN_Click(Index As Integer) Select Case Index '用Index 作为判断分支的条件 Case 0 To 9 '如果Index是0到9,即数字 If firstNum Then '输入为第一个数字的话 strn1 = Str(Index) '实型转字符型 firstN = False '初赋值标志为假 Else strn1 = strn1 Str(Index) '输入不是第一个数字的话,将输入的字符添加到原有字符串上 End If '结束 if 块 Text1。

    Text = strn1 '将字符串结果显示到标签上 Case 10 '如果输入为小数点 If Not pointflag Then '如果没有小数点 If firstN Then '如果是第一个字符 strn1 = "0。" '显示为" 0。

    " 不变 firstN = False Else strn1 = strn1 "。" '初赋值标志为假,否则字符串上加上小数点符号 End If '结束if块 Else Exit Sub '已有小数点,则退出单击事件,也就是对单击事件不反应 End If pointflag = True Text1。

    Text = strn1 '将小数点标志为真,即在输入串中有了小数点,在显示屏上显示数字串 Case 17 If Sgn(Val(strn1)) = 1 Then strn1 = "-" strn1 Else If Sgn(Val(strn1)) = -1 Then strn1 = Right(strn1, Len(strn1) - 1) End If strn1 = "0。

    " End If Text1。

    Text = strn1 Case 12 To 15 firstN = True '当输入为运算符号时,使下一次可以输入新数据 pointflag = False '还原小数点标记值 If signflag Then '前面已有运算符未运算 Call Run '调用计算子程序,该子程序在下面有说明 Else signflag = True '前面没有未运算的,将有无运算符标志设为"有" strn2 = strn1 '把字符串1复制给字符串2 strn1 = "" '字符串1清空 End If runsign = Index - 11 Case 11 '如果输入等号 If Not signflag Then '如果没有输入运。

    全部

    展开全文
  • VB统计计算器1/2

    2021-04-08 21:41:33
    VB统计计算器1.运行程序,输入参数,结果如下。1.1 最大值1.2 总和1.3 最小值1.4 平均值1.5 计数1.6 重试2.源代码 1.运行程序,输入参数,结果如下。 1.1 最大值 分别点击按钮:1、NextNum、3、NextNum、6,将三个数...

    1.运行程序,输入参数,结果如下。

    1.1 最大值

    分别点击按钮:1、NextNum、3、NextNum、6,将三个数存入计算器中。
    点击按钮:Max,结果如下:
    在这里插入图片描述

    1.2 总和

    点击按钮:Sum,结果如下:
    在这里插入图片描述

    1.3 最小值

    点击按钮:Min,结果如下:
    在这里插入图片描述

    1.4 平均值

    点击按钮:Ave,结果如下:
    在这里插入图片描述

    1.5 计数

    点击按钮:Counter,结果如下:
    在这里插入图片描述

    1.6 重试

    点击按钮:Retry,结果如下:
    在这里插入图片描述

    2.部分源代码

    Option Explicit
    Dim counter As Integer
    Dim data As Single
    Dim max As Single
    Dim min As Single
    Dim sum As Single
    Dim ave As Single
    
    Private Sub Command10_Click()
    Text1.Text = Text1.Text + "0"
    End Sub
    
    Private Sub Command1_Click()
    Text1.Text = Text1.Text + "1"
    End Sub
    
    ***
    
    Private Sub Command13_Click()
    Text1.Text = Val(min)
    Text2.Text = "Min="
    End Sub
    
    Private Sub Command14_Click()
    Text1.Text = Val(sum)
    Text2.Text = "Sum="
    End Sub
    
    Private Sub Command15_Click()
    Text1.Text = Val(sum / counter)
    Text2.Text = "Ave="
    End Sub
    
    ******
    
    Private Sub Command18_Click()
    Text1.Text = Val(counter)
    Text2.Text = "Counter="
    End Sub
    
    Private Sub Command19_Click()
    Text1.Text = "-" + Text1.Text
    End Sub
    
    Private Sub Command2_Click()
    Text1.Text = Text1.Text + "2"
    End Sub
    
    Private Sub Command3_Click()
    Text1.Text = Text1.Text + "3"
    End Sub
    
    Private Sub Command4_Click()
    Text1.Text = Text1.Text + "4"
    End Sub
    
    Private Sub Command5_Click()
    Text1.Text = Text1.Text + "5"
    End Sub
    
    Private Sub Command6_Click()
    Text1.Text = Text1.Text + "6"
    End Sub
    
    Private Sub Command7_Click()
    Text1.Text = Text1.Text + "7"
    End Sub
    
    Private Sub Command8_Click()
    Text1.Text = Text1.Text + "8"
    End Sub
    
    Private Sub Command9_Click()
    Text1.Text = Text1.Text + "9"
    End Sub
    
    Private Sub Command11_Click()
    Text1.Text = Text1.Text + "."
    End Sub
    
    Private Sub Command17_Click()
    Text1.Text = Val(max)
    Text2.Text = "Max="
    End Sub
    
    展开全文
  • vb学习练习例子,帮助大家立即vb的使用!!!
  • VB.NET计算器代码

    2010-02-01 15:35:11
    最新VB.NET计算器代码和可执行程序
  • vb编写的实现四则运算的简单计算器,适合vb初学者熟悉编程环境,有详细注释。
  • win7计算器功能详解

    千次阅读 2014-11-12 17:13:32
    Windows下自带的计算器用的也挺多了,但是基本上都是做一些简单的加减乘除,坦白讲,之前我甚至连CE和C两个键的区别都搞不太清楚,更不要说那些MR/MS/M+/M-/MC了。带着学习的心情,我打开了Windows 7下的计算器极其...
  • 电脑现已成为我们工作、生活和娱乐必不可少的工具了,在使用电脑的过程中,可能会遇到ARCGIS字段计算器Python应用实例(一)的问题,如果我们遇到了ARCGIS字段计算器Python应用实例(...电脑现已成为我们工作、生活和...
  • 很多以前开发的教程,对于新手还是值得学习的,虽然是一款单机游戏,逆向技巧和编程知识 已经融入其中。 涉及到OD反汇编调试器的使用,CE内存...第四讲:[第二节]VB代码编写篇目-实现QQ游戏消息机制 第五讲:VB...
  • Excel 之 VBA 入门学习代码详解笔记(1) 1 Application 对象及基础用法 **'1-1 screenUpdating 屏幕更新:将工作表中数据刷新** Sub TEXT() Worksheets(1).Select MsgBox "目前屏幕中显示工作表 Sheet1" ...
  • VB0 返回 68 16 16 68 00 02 08 32 03 00 00 00 00 00 02 00...
  • LabVIEW是一种程序开发环境,由美国国家仪器(NI)公司研制开发,类似于C和BASIC开发环境,但是LabVIEW与其他计算机语言的显著区别是:其他计算机语言都是采用基于文本的语言产生代码,而LabVIEW使用的是图形化编辑...
  • VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件 vb数据类型(很多程序出问题出在这个,一定要看,VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite ...
  • VB之SendKeys键盘模拟

    千次阅读 2019-01-07 23:31:41
    VB SendKeys语句详解 大家在VB6中都用过sendkeys,幕通过发送键盘的事件间接地控制外部程序,是有遥控之说。我在VB7中却发现这个不能用了, 也就不了了之,后来一次在查阅MSDN的时候竟看到了...
  • VB轻松调用其他程序

    千次阅读 2012-08-09 16:39:57
    我们编写程序时,有时会遇到在一个程序中调用并控制另一个程序执行的情况,在一些编程语言中实现起来较为繁琐,但如果用VB编写时,则可轻松实现。下面我就以在程序中调用“计算器”为例,总结了以下几种方法: 一、...
  • WindowsXP注册表详解

    千次阅读 2015-10-11 16:58:21
    Windows XP是Windows 2000的后续版本,以Windows 2000核心代码为基础,不仅继承了前者的可靠性和其它的优良性能,而且还加强了Windows Me操作系统的系统回复、媒体播放器、图像获取等新功能,给用户提供了更稳定的...
  • Ios 实现 滑动cell 伸缩的核心代码- (void)scrollViewDidScroll:(UIScrollView *)scrollView { CGFloat viewHeight = scrollView.height + sc ...原生JS:全局属性、全局方法详解全局属性.全局方法 原创文章,转摘请...
  • sendkeys用法详解

    千次阅读 2020-12-09 13:38:37
    SHIFT、CTRL 及 ALT 等按键结合的组合键,可在这些按键码的前面放置一个或多个代码,这些代码列举如下: 按键 代码 SHIFT + CTRL ^ ALT % 为了说明在按下其它按键时应同时按下 SHIFT、CTRL、及 ALT 的任意组合键,请...
  • VBScript详解(一)

    万次阅读 多人点赞 2015-07-24 22:24:33
    Vbs是一种Windows脚本,它的全称是:Microsoft Visual BasicScript Editon.(微软公司可视化BASIC脚本版),VBS是Visual Basic的的一个抽象子集,是系统内置的,用它编写的脚本代码不能编译成二进制文件,直接由Windows...
  • WebService 平台就是用 XSD 来作为其数据类型系统的,当用某种语言(如VB、.NET、C#、Java等)来构造一个 Web service 时,为了符合 WebService 标准,所有使用的数据类型都必须被转换为XSD类型。 2)SOAP SOAP...

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 244
精华内容 97
关键字:

vb计算器代码详解

友情链接: usb_change_to_uart.rar