UC知道vb编写计算器
来源：百度知道 编辑：UC知道 时间：2024/09/23 04:47:53
本人已经最近编写了一个简单的计算器,想对它完善
就是想再简单的加减乘除的基础上增加进制的转换和运算
具体要求如下:
1.能进行八进制,二进制,十六进制,十进制之间的转换及其对应的运算(加减乘除即可)
2.常见转换函数,数学函数的运算,并且在进行数学函数运算时无需现将角度转换为弧度.
3.不规则输入时的报错
注:要在vb6.0的开发环境下编写!
最近安装了vs2008。。
所以可以不用在vb6.0环境下编辑
就是想再简单的加减乘除的基础上增加进制的转换和运算
具体要求如下:
1.能进行八进制,二进制,十六进制,十进制之间的转换及其对应的运算(加减乘除即可)
2.常见转换函数,数学函数的运算,并且在进行数学函数运算时无需现将角度转换为弧度.
3.不规则输入时的报错
注:要在vb6.0的开发环境下编写!
最近安装了vs2008。。
所以可以不用在vb6.0环境下编辑
我也编了个,有机会互相交流下,你把你的计算器发我邮箱嘛,我看和我比用起来咋样,qq513810302,我有笨办法,转成十进制计算后将结果换原进制,转换有函数,详细QQ联系
Private Sub Command1_Click()
On Error GoTo ErrHandle
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
MsgBox sc.Eval(Text1.Text), 64, "YE"
Set sc = Nothing
Exit Sub
ErrHandle: '错误处理
MsgBox "程序出错 " & vbCrLf & "错误号: " & Err.Number & vbCrLf & "请输入正确算式! ", vbCritical Or vbOKOnly, "出错" 'Err.Description
End Sub
我也做了个，而且带小数，由于代码太长，只给你第一题的整数部分：
Select Case num_sign
Case 1 '原值是16进制
If Option1.Value = True Then Exit Function
If Option2.Value = True Then
'整数部分
Text1.Text = Int("&H" & Text1.Text) '转换为10进制
Else
a = Int("&H" & Text1.Text)
Text1.Text = ""