本站提供最佳帝国cms 采集源码服务,欢迎转载和分享。

【直播人气协议源码】【源码商城网站源码】【api 源码】vb 计算器 源码_vb计算器源码

2024-11-08 09:43:01 来源:宠物网站源码源码 分类:热点

1.vb ������ Դ��
2.求有数字按键的计算b计简单vb计算器代码,谢谢
3.VB简易计算器代码怎么写
4.用VB做一个简单的器源加减乘除的计算器,代码是算器什么?
5.用vb设计一个计算器,里面的加减乘除按键的代码怎么写
6.用VB编写计算器的代码如何写

vb 计算器 源码_vb计算器源码

vb ������ Դ��

       计算器代码:

       Option Explicit

       Private StoredValue As Double

       Private Const opNone = 0

       Private Const opAdd = 1

       Private Const opSubtract = 2

       Private Const opMultiply = 3

       Private Const opDivide = 4

       Private Operator As Integer

       Private NewEntry As Boolean

       Private Sub cmdDelete_Click()

       Dim txt As String

       Dim min_len As Integer

       txt = txtDisplay.Text

       If Left$(txt, 1) = "-" Then

       min_len = 2

       Else

       min_len = 1

       End If

       If Len(txt) > min_len Then

       txtDisplay.Text = Left$(txt, Len(txt) - 1)

       Else

       txtDisplay.Text = "0"

       End If

       End Sub

       Private Sub cmdEquals_Click()

       Dim new_value As Double

       If txtDisplay.Text = "" Then

       new_value = 0

       Else

       new_value = CDbl(txtDisplay.Text)

       End If

       Select Case Operator

       Case opNone

       StoredValue = new_value

       Case opAdd

       StoredValue = StoredValue + new_value

       Case opSubtract

       StoredValue = StoredValue - new_value

       Case opMultiply

       StoredValue = StoredValue * new_value

       Case opDivide

       StoredValue = StoredValue / new_value

       End Select

       Operator = opNone

       NewEntry = True

       txtDisplay.Text = Format$(StoredValue)

       End Sub

       ' 显示数字

       Private Sub cmdNumber_Click(Index As Integer)

       If NewEntry Then

       txtDisplay.Text = Format$(Index)

       NewEntry = False

       Else

       txtDisplay.Text = txtDisplay.Text & Format$(Index)

       End If

       End Sub

       Private Sub cmdOperator_Click(Index As Integer)

       cmdEquals_Click

       Operator = Index

       NewEntry = True

       End Sub

       '清除显示内容

       Private Sub cmdClearEntry_Click()

       txtDisplay.Text = ""

       End Sub

       '清除显示内容,保存运算符

       Private Sub cmdClear_Click()

       cmdClearEntry_Click

       StoredValue = 0

       Operator = opNone

       End Sub

       ' 显示小数点

       Private Sub cmdDecimal_Click()

       If InStr(txtDisplay.Text,源码 ".") Then

       Beep

       Else

       If NewEntry Then

       txtDisplay.Text = "."

       NewEntry = False

       Else

       txtDisplay.Text = txtDisplay.Text & "."

       End If

       End If

       End Sub

       '改变符号

       Private Sub cmdPlusMinus_Click()

       If NewEntry Then

       txtDisplay.Text = "-"

       ElseIf Left$(txtDisplay.Text, 1) = "-" Then

       txtDisplay.Text = Right$(txtDisplay.Text, )

       Else

       txtDisplay.Text = "-" & txtDisplay.Text

       End If

       End Sub

       Private Sub Form_KeyPress(KeyAscii As Integer)

       txtDisplay_KeyPress KeyAscii

       End Sub

       Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

       txtDisplay_KeyUp KeyCode, Shift

       End Sub

       Private Sub txtDisplay_Change()

       txtDisplay.SelStart = Len(txtDisplay.Text)

       End Sub

       Private Sub txtDisplay_GotFocus()

       txtDisplay_Change

       End Sub

       Private Sub txtDisplay_KeyPress(KeyAscii As Integer)

       Dim ch As String

       ch = Chr$(KeyAscii)

       Select Case ch

       Case "0"

       cmdNumber_Click 0

       Case "1"

       cmdNumber_Click 1

       Case "2"

       cmdNumber_Click 2

       Case "3"

       cmdNumber_Click 3

       Case "4"

       cmdNumber_Click 4

       Case "5"

       cmdNumber_Click 5

       Case "6"

       cmdNumber_Click 6

       Case "7"

       cmdNumber_Click 7

       Case "8"

       cmdNumber_Click 8

       Case "9"

       cmdNumber_Click 9

       Case "*", "x", "X"

       cmdOperator_Click opMultiply

       Case "+"

       cmdOperator_Click opAdd

       Case vbCrLf, vbCr, "="

       cmdEquals_Click

       Case "-"

       cmdOperator_Click opSubtract

       Case "."

       cmdDecimal_Click

       Case "/"

       cmdOperator_Click opDivide

       Case "C", "c"

       cmdClearEntry_Click

       End Select

       KeyAscii = 0

       End Sub

       Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)

       Select Case KeyCode

       Case vbKeyNumpad0

       cmdNumber_Click 0

       Case vbKeyNumpad1

       cmdNumber_Click 1

       Case vbKeyNumpad2

       cmdNumber_Click 2

       Case vbKeyNumpad3

       cmdNumber_Click 3

       Case vbKeyNumpad4

       cmdNumber_Click 4

       Case vbKeyNumpad5

       cmdNumber_Click 5

       Case vbKeyNumpad6

       cmdNumber_Click 6

       Case vbKeyNumpad7

       cmdNumber_Click 7

       Case vbKeyNumpad8

       cmdNumber_Click 8

       Case vbKeyNumpad9

       cmdNumber_Click 9

       Case vbKeyMultiply

       cmdOperator_Click opMultiply

       Case vbKeyAdd

       cmdOperator_Click opAdd

       Case vbKeySeparator

       cmdEquals_Click

       Case vbKeySubtract

       cmdOperator_Click opSubtract

       Case vbKeyDecimal

       cmdDecimal_Click

       Case vbKeyDivide

       cmdOperator_Click opDivide

       Case vbKeyBack, vbKeyDelete

       cmdDelete_Click

       End Select

       KeyCode = 0

       End Sub

求有数字按键的简单vb计算器代码,谢谢

       编写一个简单的计算b计VB计算器代码,需要定义一些变量和常量。器源直播人气协议源码首先声明`StoredValue`为双精度数,算器`Operator`表示操作符,源码初始值设为`opNone`。计算b计在代码中,器源实现删除最后字符的算器功能,通过`cmdDelete_Click`事件处理。源码清除显示内容并保存操作符的计算b计源码商城网站源码代码在`cmdClear_Click`中执行。

       实现清除显示内容的器源逻辑在于`cmdClearEntry_Click`事件,将文本框`txtDisplay`的算器文本清空。在`cmdDecimal_Click`中处理小数点的显示,确保其在输入数字时不会重复出现。

       `cmdEquals_Click`事件负责计算操作结果,根据`Operator`的值执行不同的数学操作,并更新`StoredValue`。同时,更新操作符、清除新输入标志,并将结果显示在文本框中。

       在`cmdNumber_Click`和`cmdOperator_Click`中,api 源码实现数字和操作符的输入。对于符号改变,使用`cmdPlusMinus_Click`事件处理正负号的切换。键盘输入处理通过`Form_KeyPress`和`Form_KeyUp`事件完成,确保各种按键输入都对应相应的功能。

       文本框的焦点改变和输入改变事件分别由`txtDisplay_GotFocus`和`txtDisplay_Change`处理,确保在输入过程中文本框的正确行为。最后,使用`txtDisplay_KeyPress`和`txtDisplay_KeyUp`处理文本框的按键和释放事件,实现与用户的交互。

VB简易计算器代码怎么写

       Dim a() As Double

       Dim n&

       Dim Plus As Boolean

       Dim yunsuan() As Integer '------------这里增加

       Dim a As Double

       Private Sub cmd1_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "1"

       Else

       Text1.Text = Text1.Text & "1"

       End If

       End Sub

       Private Sub cmd2_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "2"

       Else

       Text1.Text = Text1.Text & "2"

       End If

       End Sub

       Private Sub cmd3_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "3"

       Else

       Text1.Text = Text1.Text & "3"

       End If

       End Sub

       Private Sub cmd4_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "4"

       Else

       Text1.Text = Text1.Text & "4"

       End If

       End Sub

       Private Sub cmd5_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "5"

       Else

       Text1.Text = Text1.Text & "5"

       End If

       End Sub

       Private Sub cmd6_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "6"

       Else

       Text1.Text = Text1.Text & "6"

       End If

       End Sub

       Private Sub cmd7_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "7"

       Else

       Text1.Text = Text1.Text & "7"

       End If

       End Sub

       Private Sub cmd8_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "8"

       Else

       Text1.Text = Text1.Text & "8"

       End If

       End Sub

       Private Sub cmd9_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "9"

       Else

       Text1.Text = Text1.Text & "9"

       End If

       End Sub

       Private Sub cmd0_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "0"

       Else

       Text1.Text = Text1.Text & "0"

       End If

       End Sub

       Private Sub cmdDian_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "0."

       Else

       Text1.Text = Text1.Text & "."

       End If

       End Sub

       Private Sub cmdjia_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 0 '------这是在加号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdjian_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 1 '------这是在减号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdcheng_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 2 '------这是在乘号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdchu_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 3 '------这是在除号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdDengyu_Click() '-------这是等于号

       If Plus = False Then

       a(n) = Val(Text1.Text)

       End If

       a() = a(0) '初始为a(0)

       For i = 1 To

       If yunsuan(i - 1) = 0 Then '------如果是加

       a() = a() + a(i)

       ElseIf yunsuan(i - 1) = 1 Then '----------如果是减

       a() = a() - a(i)

       ElseIf yunsuan(i - 1) = 2 Then '-----xxx

       a() = a() * a(i)

       ElseIf yunsuan(i - 1) = 3 Then '--------///

       a() = a() / a(i)

       End If

       Next

       Plus = False

       Text1.Text = a()

       n = 0

       a = a()

       Erase a

       a(0) = a

       Erase yunsuan '--------清理

       End Sub

       Private Sub Command_Click()

       Text1.Text = ""

       Erase a

       Erase yunsuan

       n = 0

       End Sub

       Private Sub Form_Load()

       Text1.Locked = True

       n = 0

       Plus = False

       End Sub

       Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer)

       If KeyCode = Then cmd1_Click

       If KeyCode = Then cmd2_Click

       If KeyCode = Then cmd3_Click

       If KeyCode = Then cmd4_Click

       If KeyCode = Then cmd5_Click

       If KeyCode = Then cmd6_Click

       If KeyCode = Then cmd7_Click

       If KeyCode = Then cmd8_Click

       If KeyCode = Then cmd9_Click

       If KeyCode = Then cmd0_Click

       If KeyCode = Then cmdDian_Click

       If KeyCode = Then cmdjian_Click

       If KeyCode = Then cmdDengyu_Click

       If KeyCode = Then cmdchu_Click

       If KeyCode = Then cmdjia_Click

       If KeyCode = Then cmdcheng_Click

       Debug.Print KeyCode, vbKey1

       End Sub

用VB做一个简单的加减乘除的计算器,代码是邱源码什么?

       我们现在首先要做的就是拉出Label,准备三个Label,把label1,label2,label3,这些改成第一个数、第二个数、结果。

       我们现在要text也要拉出三个,把了text里面text1、text2、text3全部删掉。

       我们现在要把command拉出四个,问答 源码把里面command1-4都给成+-*/

       现在我们现在要双击+,我们开始进行输入代码

       在里面我们现在要:text3.text=val(text1.text)+val(text2.text)

       我们要把这个(text3.text=val(text1.text)+val(text2.text))复制,把里面+号分别改成-*/

       如图,就像这样就可以了,可以行径了,如果你在哪个代码里弄错了,你看一下还要哪些没有拉出来,或者你哪个代码输错了。

       感谢观看。

用vb设计一个计算器,里面的加减乘除按键的代码怎么写

       简单点的:

       dim 上一个数 as double

       dim 下一个数 as double

       dim 结果 as double

       dim 操作 as string

       private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click

        上一个数 = cdbl(输入框.text) ' 存储当前输入的数值

        输入框.text = "" ' 等待下一个数值

        select case sender.text ' 根据按下的按钮的文本属性确定你要做什么,这里可以用加减乘除号代替

        case "加"

        操作 = "加"

        case "减"

        操作 = "减"

        case "乘"

        操作 = "乘"

        case "除"

        操作 = "除"

        end select

       end sub

       private sub 计算(byval sender as object, byval e as eventargs) handles 等号.click

        下一个数 = 输入框.text

        输入框.text = ”“

        select case 操作

        case "加"

        结果 = 上一个数 + 下一个数

        case "减"

        结果 = 上一个数 - 下一个数

        case "乘"

        结果 = 上一个数 * 下一个数

        case "除"

        结果 = 上一个数 / 下一个数

        end select

        输入框.text = cstr(结果)

        上一个数 = 结果

       end sub

       .NET 的哈,我没有 .NET 现在,不知道行不行

用VB编写计算器的代码如何写

       在窗体上放置以下控件,包括:

       - 1个Label控件,命名为 lblResult,设置Caption为0。

       - 数组按钮控件btnNum(0)~btnNum(9),下标对应数字(如:btnNum(0)的Caption设置为0,依次类推)。

       - 六个按钮:btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv(除法)、btnEnter(等于号)、btnReset(清除键)。

       在窗体代码中输入以下内容:

       定义变量:Dim byteOperation As Byte(操作符)、byteTmp As Byte(临时操作符)、intNum As Double(输入的数字)

       Sub Calc()语句,根据byteOperation的值执行不同的计算操作,更新lblResult的Caption。

       Sub btnNum_Click(Index As Integer)语句,接收输入按钮的数字,若byteTmp非0,则调用Calc()函数,设置byteOperation为1(加法)和byteTmp为1。

       Sub btnReset_Click()语句,重置所有变量和lblResult的Caption为0。

       Sub btnSub_Click()语句,若byteOperation非0,则调用Calc()函数,设置byteOperation为3(减法)和byteTmp为3。

       Sub btnDiv_Click()语句,若byteOperation非0,则调用Calc()函数,设置byteOperation为4(除法)和byteTmp为4。

       Sub btnEnter_Click()语句,调用Calc()函数,结束输入操作。

       通过以上代码实现了一个基本的计算器功能,包括加、减、乘、除和清除功能。通过按钮点击触发相应操作,最终结果显示在lblResult控件中。

用VB编写一个计算器程序的代码

       1、创建控件组的方法

       é¦–先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption 属性为数字 0 ;然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的控件组。

       è¿™æ—¶ï¼Œç¬¬ä¸€ä¸ªæŒ‰é’®çš„Index属性值默认为“0”,第二个的Index属性值自动设为“1”,并且大小与第一个按钮相同,只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮,共个按钮,每建立一个,就将它拖到合适处,并修改相应的Caption属性值。

       2、各控件组其属性设置如下:

       è®¾ç½®æ•ˆæžœå¦‚下图所示:

       äºŒã€ç¼–写代码

       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 Sub

       Private Sub Command2_Click()

       Text1.Text = Text1.Text + “。”

       If (InStr(Text1.Text, “。”) = 1) Then ‘第一位不能为小数

       Text1.Text = “”

       End If

       If InStr(Text1.Text, “。”) 《 Len(Text1.Text) Then ’防止出现两个小数点

       Text1.Text = Left

       ï¼ˆText1.Text, Len(Text1.Text) - 1)

       End If

       End Sub

       Private Sub

       Command3_Click()

       s2 = Val(Text1.Text) ‘开始加减乘除运算

       Select Case ysf Case “+”

       Text1.Text = s1 + s2

       Case “-”

       Text1.Text = s1 - s2

       Case “*”

       Text1.Text = s1 * s2

       Case “/”

       If s2 = 0 Then

       MsgBox “分母不能为零!”

       Text1.Text = “”

       Else

       Text1.Text = s1 / s2 End If End Select

       Text1 = IIf(Left(Text1.Text, 1) = “。”, 0 & Text1.Text, Text1.Text) ‘

       è¿™ä¸ªå¾ˆå…³é”®ï¼Œå¦‚果没有这个的话,得出小于1的小数前面没有0

       End Sub

       Private Sub Command4_Click()

       If Text1.Text = “” Then ’文本为空就结束

       Exit Sub

       End If

       Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) ‘文本退一格

       End Sub

       Private Sub Command5_Click()

       Text1.Text = “” ’清除当前框内文本

       End Sub

       Private Sub Command6_Click(Index As Integer)

       s1 = Val(Text1.Text) ‘将s1隐藏起来 ysf = Command6(Index).Caption

       Text1.Text = “”

       End Sub

       Private Sub Command7_Click()

       If Left(Text1.Text, 1) 《》 “-” Then ’判断作为负数

       Text1.Text = “-” & Text1.Text

       Else

       Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)

       End If

       End Sub

       Private Sub Command8_Click()

       Text1.Text = Text1.Text * Text1.Text ‘平方

       End Sub

拓展资料

       Visual Basic(VB)是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。

       å‚考链Visual Basic——百度百科接

用VB设计出计算器的代码。。。但是不懂里面代码的意思 有没有大神解读一下啊 !!!没钱。。。大神啊。。

       Private Sub Command1_Click()'按退格键,删除一个数字

       Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) '退格

       End Sub

       Private Sub stand_Click()'修改计算器外型的大小为标准型

       Form1.Width = '更改窗体尺寸

       Form1.Height =

       Text1.Width =

       stand.Checked = True '标识标准型

       science.Checked = False

       End Sub

       Private Sub Form_Load()‘启动时设置选择中标准型计算器

       stand.Checked = True '默认标准型

       End Sub

【本文网址:http://5o.net.cn/html/76b54199382.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap