计算器软件Form10代码

EYYLTV
于 2024-08-12 15:15:52 发布
阅读量382
点赞数 2
文章标签：数据库 visual studio 开发语言
本文链接：https://blog.csdn.net/qq_32257509/article/details/141132483
版权
Public Class Form10
Dim num1 As String '一个操作数（以 62 进制字符串存储）
Dim num2 As String '二个操作数（以 62 进制字符串存储）
Dim op As Char '算符
Private Function ConvertToDecimal(ByVal num As String) As Integer
    Dim decimalValue As Integer = 0
    Dim power As Integer = num.Length - 1

    For Each digit As Char In num
        Dim digitValue As Integer
        Select Case digit
            Case "0"
                digitValue = 0
            Case "1"
                digitValue = 1
            Case "2"
                digitValue = 2
            Case "3"
                digitValue = 3
            Case "4"
                digitValue = 4
            Case "5"
                digitValue = 5
            Case "6"
                digitValue = 6
            Case "7"
                digitValue = 7
            Case "8"
                digitValue = 8
            Case "9"
                digitValue = 9
            Case "A"
                digitValue = 10
            Case "B"
                digitValue = 11
            Case "C"
                digitValue = 12
            Case "D"
                digitValue = 13
            Case "E"
                digitValue = 14
            Case "F"
                digitValue = 15
            Case "G"
                digitValue = 16
            Case "H"
                digitValue = 17
            Case "I"
                digitValue = 18
            Case "J"
                digitValue = 19
            Case "K"
                digitValue = 20
            Case "L"
                digitValue = 21
            Case "M"
                digitValue = 22
            Case "N"
                digitValue = 23
            Case "O"
                digitValue = 24
            Case "P"
                digitValue = 25
            Case "Q"
                digitValue = 26
            Case "R"
                digitValue = 27
            Case "S"
                digitValue = 28
            Case "T"
                digitValue = 29
            Case "U"
                digitValue = 30
            Case "V"
                digitValue = 31
            Case "W"
                digitValue = 32
            Case "X"
                digitValue = 33
            Case "Y"
                digitValue = 34
            Case "Z"
                digitValue = 35
            Case "a"
                digitValue = 36
            Case "b"
                digitValue = 37
            Case "c"
                digitValue = 38
            Case "d"
                digitValue = 39
            Case "e"
                digitValue = 40
            Case "f"
                digitValue = 41
            Case "g"
                digitValue = 42
            Case "h"
                digitValue = 43
            Case "i"
                digitValue = 44
            Case "j"
                digitValue = 45
            Case "k"
                digitValue = 46
            Case "l"
                digitValue = 47
            Case "m"
                digitValue = 48
            Case "n"
                digitValue = 49
            Case "o"
                digitValue = 50
            Case "p"
                digitValue = 51
            Case "q"
                digitValue = 52
            Case "r"
                digitValue = 53
            Case "s"
                digitValue = 54
            Case "t"
                digitValue = 55
            Case "u"
                digitValue = 56
            Case "v"
                digitValue = 57
            Case "w"
                digitValue = 58
            Case "x"
                digitValue = 59
            Case "y"
                digitValue = 60
            Case "z"
                digitValue = 61
            Case Else
                '处理非法字符
                MessageBox.Show("输入包含非法字符")
                Return -1 '添加返回值以处理非法输入情况
        End Select

        decimalValue += digitValue * (62 ^ power)
        power -= 1
    Next

    Return decimalValue
End Function

Private Function ConvertFromDecimal(ByVal decimalValue As Integer) As String
    Dim result As String = ""

    While decimalValue > 0
        Dim remainder As Integer = decimalValue Mod 62
        Select Case remainder
            Case 0
                result = "0" + result
            Case 1
                result = "1" + result
            Case 2
                result = "2" + result
            Case 3
                result = "3" + result
            Case 4
                result = "4" + result
            Case 5
                result = "5" + result
            Case 6
                result = "6" + result
            Case 7
                result = "7" + result
            Case 8
                result = "8" + result
            Case 9
                result = "9" + result
            Case 10
                result = "A" + result
            Case 11
                result = "B" + result
            Case 12
                result = "C" + result
            Case 13
                result = "D" + result
            Case 14
                result = "E" + result
            Case 15
                result = "F" + result
            Case 16
                result = "G" + result
            Case 17
                result = "H" + result
            Case 18
                result = "I" + result
            Case 19
                result = "J" + result
            Case 20
                result = "K" + result
            Case 21
                result = "L" + result
            Case 22
                result = "M" + result
            Case 23
                result = "N" + result
            Case 24
                result = "O" + result
            Case 25
                result = "P" + result
            Case 26
                result = "Q" + result
            Case 27
                result = "R" + result
            Case 28
                result = "S" + result
            Case 29
                result = "T" + result
            Case 30
                result = "U" + result
            Case 31
                result = "V" + result
            Case 32
                result = "W" + result
            Case 33
                result = "X" + result
            Case 34
                result = "Y" + result
            Case 35
                result = "Z" + result
            Case 36
                result = "a" + result
            Case 37
                result = "b" + result
            Case 38
                result = "c" + result
            Case 39
                result = "d" + result
            Case 40
                result = "e" + result
            Case 41
                result = "f" + result
            Case 42
                result = "g" + result
            Case 43
                result = "h" + result
            Case 44
                result = "i" + result
            Case 45
                result = "j" + result
            Case 46
                result = "k" + result
            Case 47
                result = "l" + result
            Case 48
                result = "m" + result
            Case 49
                result = "n" + result
            Case 50
                result = "o" + result
            Case 51
                result = "p" + result
            Case 52
                result = "q" + result
            Case 53
                result = "r" + result
            Case 54
                result = "s" + result
            Case 55
                result = "t" + result
            Case 56
                result = "u" + result
            Case 57
                result = "v" + result
            Case 58
                result = "w" + result
            Case 59
                result = "x" + result
            Case 60
                result = "y" + result
            Case 61
                result = "z" + result
        End Select

        decimalValue = decimalValue \ 62
    End While

    Return result
End Function

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    '数字 0 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    '数字 1 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    '数字 2 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    '数字 3 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    '数字 4 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click
    '数字 5 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click
    '数字 6 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.Click
    '数字 7 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button9.Click
    '数字 8 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button10.Click
    '数字 9 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button11_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button11.Click
    '数字 A 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button12_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button12.Click
    '数字 B 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button13_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button13.Click
    '数字 C 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button14_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button14.Click
    '数字 D 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button15_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button15.Click
    '数字 E 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button16_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button16.Click
    '数字 F 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button24_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button24.Click
    '数字 G 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button25_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button25.Click
    '数字 H 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button26_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button26.Click
    '数字 I 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button27_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button27.Click
    '数字 J 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button28_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button28.Click
    '数字 K 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button29_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button29.Click
    '数字 L 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button30_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button30.Click
    '数字 M 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button31_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button31.Click
    '数字 N 添加到文本框中
    TextBox1.Text += sender.text
End Sub
Private Sub Button32_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button32.Click
    '数字 O 添加到文本框中
    TextBox1.Text += sender.text
End Sub



Private Sub Button33_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button33.Click
    '数字 P 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button34_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button34.Click
    '数字 Q 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button35_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button35.Click
    '数字 R 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button36_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button36.Click
    '数字 S 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button37_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button37.Click
    '数字 T 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button38_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button38.Click
    '数字 U 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button39_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button39.Click
    '数字 V 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button40_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button40.Click
    '数字 W 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button41_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button41.Click
    '数字 X 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button42_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button42.Click
    '数字 Y 添加到文本框中
    TextBox1.Text += sender.text
End Sub
Private Sub Button43_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button43.Click
    '数字 Z 添加到文本框中
    TextBox1.Text += sender.text
End Sub








Private Sub Button49_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button49.Click
    '数字 a 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button48_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button48.Click
    '数字 b 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button47_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button47.Click
    '数字 c 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button46_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button46.Click
    '数字 d 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button45_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button45.Click
    '数字 e 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button44_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button44.Click
    '数字 f 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button69_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button69.Click
    '数字 g 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button68_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button68.Click
    '数字 h 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button67_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button67.Click
    '数字 i 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button66_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button66.Click
    '数字 j 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button65_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button65.Click
    '数字 k 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button64_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button64.Click
    '数字 l 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button63_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button63.Click
    '数字 m 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button62_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button62.Click
    '数字 n 添加到文本框中
    TextBox1.Text += sender.text
End Sub
Private Sub Button61_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button61.Click
    '数字 o 添加到文本框中
    TextBox1.Text += sender.text
End Sub



Private Sub Button60_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button60.Click
    '数字 p 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button59_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button59.Click
    '数字 q 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button58_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button58.Click
    '数字 r 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button57_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button57.Click
    '数字 s 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button56_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button56.Click
    '数字 t 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button55_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button55.Click
    '数字 u 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button54_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button54.Click
    '数字 v 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button53_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button53.Click
    '数字 w 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button52_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button52.Click
    '数字 x 添加到文本框中
    TextBox1.Text += sender.text
End Sub

Private Sub Button51_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button51.Click
    '数字 y 添加到文本框中
    TextBox1.Text += sender.text
End Sub
Private Sub Button50_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button50.Click
    '数字 z 添加到文本框中
    TextBox1.Text += sender.text
End Sub


Private Sub Button17_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button17.Click
    '存 + 第一个操作数和运算符，并清空文本框
    num1 = TextBox1.Text
    op = sender.text
    TextBox1.Clear()
End Sub

Private Sub Button18_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button18.Click
    '存 - 第一个操作数和运算符，并清空文本框
    num1 = TextBox1.Text
    op = sender.text
    TextBox1.Clear()
End Sub

Private Sub Button19_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button19.Click
    '存 * 第一个操作数和运算符，并清空文本框
    num1 = TextBox1.Text
    op = sender.text
    TextBox1.Clear()
End Sub

Private Sub Button20_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button20.Click
    '存 / 第一个操作数和运算符，并清空文本框
    num1 = TextBox1.Text
    op = sender.text
    TextBox1.Clear()
End Sub

Private Sub Button21_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button21.Click
    '= 算结果并显示
    num2 = TextBox1.Text

    Dim decimalNum1 As Integer = ConvertToDecimal(num1)
    Dim decimalNum2 As Integer = ConvertToDecimal(num2)

    Dim result As Integer
    Select Case op
        Case "+"
            result = decimalNum1 + decimalNum2
        Case "-"
            result = decimalNum1 - decimalNum2
        Case "*"
            result = decimalNum1 * decimalNum2
        Case "/"
            If decimalNum2 = 0 Then
                MessageBox.Show("除数不能为 0")
                Exit Sub
            End If
            result = decimalNum1 / decimalNum2
    End Select

    TextBox1.Text = ConvertFromDecimal(result)
End Sub

Private Sub Button22_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button22.Click
    '空文本框和操作数
    TextBox1.Clear()
    num1 = ""
    num2 = ""
    op = " "
End Sub

Private Sub Button23_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button23.Click
    '除最后一位字符
    If TextBox1.Text.Length > 0 Then
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
    End If
End Sub
End Class
EYYLTV
关注
2
点赞
踩
6

收藏

觉得还不错? 一键收藏
打赏
0
评论
计算器软件Form10代码

Dim num1 As String '一个操作数（以 62 进制字符串存储）Dim num2 As String '二个操作数（以 62 进制字符串存储）Dim op As Char '算符。
复制链接

扫一扫