精华内容
下载资源
问答
  • 课程设计vb制作计算器毕业论文.doc
  • 毕业设计(论文)-基于VB实用计算器设计.doc
  • vb简易计算器代码及界面设计
  • VB简易计算器制作

    2018-03-19 21:24:38
    VB极简快速计算器制作,大学生作业实例,简单的VB程序计算器,应用了简单函数以及commandbutton还有label
  • vb计算器设计,简单计算器,实现加减乘除运算,有数字1~9,小数点,等号,并有清空功能。
  • VB课程设计 计算器

    2010-02-03 12:33:16
    南京理工大学 VB课程设计 计算器 功能齐全
  • 毕业设计(论文)_基于VB实用计算器设计说明.doc
  • VB迷你计算器

    2011-12-20 20:03:34
    VB迷你计算器,满足您的课程设计需要。简单,小巧,精致。
  • 南京理工大学 VB课程设计 计算器 程序功能全但代码不繁
  • VB简易计算器

    2013-05-31 23:35:02
    vb设计的一款简单计算器,内含代码,程序,全部详细文件
  • vb简易计算器

    2013-11-16 19:21:06
    1.学vb软件一开始要做的一个超级简单的计算器
  • 摘 要 我用 VB 制作这个程序的简单计算器它包括一个标准的计算器 和一个科学计算器它可以实现简单的加减乘除四则运算数字的平 方平方根正弦余弦正切倒数指数函数对数函数角度 弧度梯度的转换以及各进制的相互转换...
  • 基于VB设计计算器代码,比较简单,但是很实用,功能比较齐全
  • 小小计算器的使用 很方便 大家可以试试 又不会的可以再找我
  • vb自制计算器代码

    2013-08-25 11:11:06
    自制VB计算器 模仿微软自带计算器制作而成 有需要的可以参考!
  • vb简易计算器实验报告 本文关键词:计算器,简易,实验,报告,vbvb简易计算器实验报告 本文简介:简易计算器课程设计报告一、实验目的:模拟计算器的功能。系统启动后,先清屏,再在显示屏右侧显示0字样,系统仅...

    vb简易计算器实验报告 本文关键词:计算器,简易,实验,报告,vb

    vb简易计算器实验报告 本文简介:简易计算器课程设计报告一、实验目的:模拟计算器的功能。系统启动后,先清屏,再在显示屏右侧显示0字样,系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键,其余按键不响应。按键后屏幕显示效果要达到一般计算器显示屏的同样效果。不要求设计一般计算器上都具有的M功

    vb简易计算器实验报告 本文内容:

    简易计算器课程设计报告

    一、实验目的:

    模拟计算器的功能。系统启动后,先清屏,再在显示屏右侧显示0字样,系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键,其余按键不响应。按键后屏幕显示效果要达到一般计算器显示屏的同样效果。不要求设计一般计算器上都具有的M功能。

    二、实验设计内容及思想:

    首先,创建一个主体框架:建立程序的主要界面后,系统自动生成界面的主要窗口生成代码。对于每个按钮的的代码段中,分别添加事件触发的处理代码。分别设立三个显示屏,第一个显示屏作为“被加数”框,第二个显示屏作为“加数”框,第三个显示屏则作为输出框。

    四则运算时直接采用计算表达式。所以,优先级和运算规则皆宜考虑在内。在进行除法运算时,若遇到除数为0,则运用条件语句执行,并在输出显示屏上输出“E”。三角函数、指数、对数、整除、取余等运算,也是运用类似手法。

    考虑到计算器的操作简便性,所以加入了复位和退出按钮。

    三、源程序文件:

    Private

    Sub

    Command1_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    Text3.Text

    =

    x

    +

    y

    End

    Sub

    Private

    Sub

    Command10_Click()

    Dim

    x

    As

    Integer

    x

    =

    Text1.Text

    Text3.Text

    =

    Cos(x)

    End

    Sub

    Private

    Sub

    Command11_Click()

    Dim

    x

    As

    Integer

    x

    =

    Text1.Text

    Text3.Text

    =

    Tan(x)

    End

    Sub

    Private

    Sub

    Command12_Click()

    Dim

    x

    As

    Integer

    x

    =

    Text1.Text

    Text3.Text

    =

    Atn(x)

    End

    Sub

    Private

    Sub

    Command13_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    Text3.Text

    =

    x

    ^

    y

    End

    Sub

    Private

    Sub

    Command14_Click()

    Dim

    x

    As

    Integer

    x

    =

    Text1.Text

    If

    x

    <=

    0

    Then

    Text3.Text

    =

    “输入错误“Else

    Text3.Text

    =

    Log(x)

    End

    If

    End

    Sub

    Private

    Sub

    Command15_Click()

    Text3.Text

    =

    “此按钮仅作装饰用“End

    Sub

    Private

    Sub

    Command2_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    Text3.Text

    =

    x

    -

    y

    End

    Sub

    Private

    Sub

    Command3_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    Text3.Text

    =

    x

    y

    End

    Sub

    Private

    Sub

    Command4_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    If

    y

    =

    0

    Then

    Text3.Text

    =

    “E“Else

    Text3.Text

    =

    x

    /

    y

    End

    If

    End

    Sub

    Private

    Sub

    Command5_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    Text3.Text

    =

    x

    /

    y

    End

    Sub

    Private

    Sub

    Command6_Click()

    Dim

    x

    As

    Integer

    Dim

    y

    As

    Integer

    x

    =

    Text1.Text

    y

    =

    Text2.Text

    Text3.Text

    =

    x

    Mod

    y

    End

    Sub

    Private

    Sub

    Command7_Click()

    Text1.Text

    =

    ““Text2.Text

    =

    ““Text3.Text

    =

    “0“End

    Sub

    Private

    Sub

    Command8_Click()

    End

    End

    Sub

    Private

    Sub

    Command9_Click()

    Dim

    x

    As

    Integer

    x

    =

    Text1.Text

    Text3.Text

    =

    Sin(x)

    End

    Sub

    源代码截图:

    四、运行结果演示:

    加法演示:

    减法演示:

    乘法演示:

    除法演示:

    能够整除:

    不能够整除:

    除数为零:

    展开全文
  • vb 科学计算器 程序代码 函数,平方,立方等等
  • vb 简单计算器

    2012-06-14 20:29:02
    很不错的设计,就是还有些弊端,望各位谅解
  • VB开发的计算器程序,课程设计可用,功能实现完整,内附源代码,亲测可用 功能包括课程设计的要求,完成基本加减乘除运算外还可以完成科学计算,如sin cos 阶乘,积分,存储保留结果,调用结果等等
  • 四则运算~~平方根~~立方根~~开方~~弧度~角度 比较全面的科学计算器的课程设计~
  • VB 简易 计算器 源码

    热门讨论 2010-08-26 03:46:49
    本程序使用VB语言编成,只使用了一个窗体模块,完成模仿市面简单计算器的功能。例如加减乘除,开方,求倒数,求百分比,并可连贯运算这些功能。…………  这个程序是依照计算机处理器内ALU处理数据的原理设计,...
  • VB简单计算器编程代码(附图)
  • Option ExplicitFunction actionDim objconnectionDim strconnectionstringDim T1,T2,T3,T4,T5,T6,T7,P1,P2,P3,P4,P5,P6,P7,F1,F2,F3,F4,F5,F6,F7,F8,L1,L2,L3Dim strsqlDim objcommandDim aa=HMIRuntime.Tags("TIC4...

    Option Explicit

    Function action

    Dim objconnection

    Dim strconnectionstring

    Dim T1,T2,T3,T4,T5,T6,T7,P1,P2,P3,P4,P5,P6,P7,F1,F2,F3,F4,F5,F6,F7,F8,L1,L2,L3

    Dim strsql

    Dim objcommand

    Dim a

    a=HMIRuntime.Tags("TIC4101.R").Read

    If a>1.0 Then

    strconnectionstring="Provider=MSDASQL;DSN=wincc_1;UID=;PWD=;"

    T1=HMIRuntime.Tags("TIC4101.R").Read

    T2=HMIRuntime.Tags("TE4102_1.R").Read

    T3=HMIRuntime.Tags("TE4102_2.R").Read

    T4=HMIRuntime.Tags("TE4103.R").Read

    T5=HMIRuntime.Tags("TE4106.R").Read

    T6=HMIRuntime.Tags("TE4107.R").Read

    T7=HMIRuntime.Tags("TE6101.R").Read

    P1=HMIRuntime.Tags("PT4201.R").Read

    P2=HMIRuntime.Tags("PT4202.R").Read

    P3=HMIRuntime.Tags("PIC4203.R").Read

    P4=HMIRuntime.Tags("PIC4204.R").Read

    P5=HMIRuntime.Tags("PT4206.R").Read

    P6=HMIRuntime.Tags("PT4207.R").Read

    P7=HMIRuntime.Tags("PT6101.R").Read

    F1=HMIRuntime.Tags("FIC4301.R").Read

    F2=HMIRuntime.Tags("FIC4302.R").Read

    F3=HMIRuntime.Tags("FT4307.R").Read

    F4=HMIRuntime.Tags("FIC5301_1.R").Read

    F5=HMIRuntime.Tags("FIC5301_2.R").Read

    F6=HMIRuntime.Tags("FIC5302_1.R").Read

    F7=HMIRuntime.Tags("FIC5302_2.R").Read

    L1=HMIRuntime.Tags("LIC4401.R").Read

    L2=HMIRuntime.Tags("LT4405.R").Read

    L3=HMIRuntime.Tags("LT2405.R").Read

    strsql="insert into WINCC_DATA(sysdatetime,TI4101,TI4102_1,TI4102_2,TI4103,TI4106,TI4107,TI6101,PI4201,PI4202,PI4203,PI4204,PI4206,PI4207,PI6101,FI4301,FI4302,FI4307,FI5301_1,FI5301_2,FI5302_1,FI5302_2,LI4401,LI4405,LI2405) values(Now(),"&T1&","&T2&","&T3&","&T4&","&T5&","&T6&","&T7&","&P1&","&P2&","&P3&","&P4&","&P5&","&P6&","&P7&","&F1&","&F2&","&F3&","&F4&","&F5&","&F6&","&F7&","&L1&","&L2&","&L3&");"

    Set objconnection=CreateObject("ADODB.Connection")

    objconnection.connectionString=strconnectionstring

    objconnection.Open

    Set objCommand=CreateObject("ADODB.Command")

    With objcommand

    .ActiveConnection=objconnection

    .CommandText=strsql

    End With

    objcommand.Execute

    Set objcommand=Nothing

    objconnection.Close

    End If

    End Function

    展开全文
  • vb计算器,课程设计

    2011-06-25 18:05:01
    vb计算器,课程设计课程设计课程设计课程设计课程设计课程设计课程设计
  • 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源码

    2011-12-05 22:44:44
    vb设计计算器的源文件,您可以根据自己的需求进行再次开发使用
  • vb简易计算器实验报告简易计算器课程设计报告一、实验目的:模拟计算器的功能。系统启动后,先清屏,再在显示屏右侧显示0字样,系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为...

    《vb简易计算器实验报告

    简易计算器课程设计报告

    一、实验目的:

    模拟计算器的功能。系统启动后,先清屏,再在显示屏右侧显示0字样,系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键,其余按键不响应。按键后屏幕显示效果要达到一般计算器显示屏的同样效果。不要求设计一般计算器上都具有的M功能。

    二、实验设计内容及思想:

    首先,创建一个主体框架:建立程序的主要界面后,系统自动生成界面的主要窗口生成代码。对于每个按钮的的代码段中,分别添加事件触发的处理代码。分别设立三个显示屏,第一个显示屏作为“被加数”框,第二个显示屏作为“加数”框,第三个显示屏则作为输出框。

    四则运算时直接采用计算表达式。所以,优先级和运算规则皆宜考虑在内。在进行除法运算时,若遇到除数为0,则运用条件语句执行,并在输出显示屏上输出“E”。三角函数、指数、对数、整除、取余等运算,也是运用类似手法。

    考虑到计算器的操作简便性,所以加入了复位和退出按钮。

    三、源程序文件:

    Private Sub Command1_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    Text3.Text = x + y

    End Sub

    Private Sub Command10_Click()

    Dim x As Integer

    x = Text1.Text

    Text3.Text = Cos(x)

    End Sub

    Private Sub Command11_Click()

    Dim x As Integer

    x = Text1.Text

    Text3.Text = Tan(x)

    End Sub

    Private Sub Command12_Click()

    Dim x As Integer

    x = Text1.Text

    Text3.Text = Atn(x)

    End Sub

    Private Sub Command13_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    Text3.Text = x ^ y

    End Sub

    Private Sub Command14_Click()

    Dim x As Integer

    x = Text1.Text

    If x <= 0 Then

    Text3.Text = "输入错误"

    Else

    Text3.Text = Log(x)

    End If

    End Sub

    Private Sub Command15_Click()

    Text3.Text = "此按钮仅作装饰用"

    End Sub

    Private Sub Command2_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    Text3.Text = x - y

    End Sub

    Private Sub Command3_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    Text3.Text = x * y

    End Sub

    Private Sub Command4_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    If y = 0 Then

    Text3.Text = "E"

    Else

    Text3.Text = x / y

    End If

    End Sub

    Private Sub Command5_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    Text3.Text = x \ y

    End Sub

    Private Sub Command6_Click()

    Dim x As Integer

    Dim y As Integer

    x = Text1.Text

    y = Text2.Text

    Text3.Text = x Mod y

    End Sub

    Private Sub Command7_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = " 0"

    End Sub

    Private Sub Command8_Click()

    End

    End Sub

    Private Sub Comma

    展开全文
  • VB课程设计计算器

    2010-06-24 17:32:05
    VB课程设计计算器,百分百源代码!包括加减乘除,开放,取倒数,去百分数等功能。
  • vb课程设计下载有源程序,完整的计算器代码

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,640
精华内容 656
关键字:

vb设计计算器