form1.vb

使用vb.net写的一个数码管段码编码生成工具。方面单片机开发使用。很多高级功能没有写

Public Class Form1
    Dim bit0 As Byte = 0
    Dim bit1 As Byte = 0
    Dim bit2 As Byte = 0
    Dim bit3 As Byte = 0
    Dim bit4 As Byte = 0
    Dim bit5 As Byte = 0
    Dim bit6 As Byte = 0
    Dim bit7 As Byte = 0
    Dim tmp As Integer

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        If bit0 = 0 Then
            bit0 = 1
            Label1.BackColor = Color.Blue
        Else
            bit0 = 0
            Label1.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString


    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        If bit1 = 0 Then
            bit1 = 1
            Label2.BackColor = Color.Blue

        Else
            bit1 = 0
            Label2.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        If bit2 = 0 Then
            bit2 = 1
            Label3.BackColor = Color.Blue

        Else
            bit2 = 0
            Label3.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        If bit3 = 0 Then
            bit3 = 1
            Label4.BackColor = Color.Blue

        Else
            bit3 = 0
            Label4.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        If bit4 = 0 Then
            bit4 = 1
            Label5.BackColor = Color.Blue

        Else
            bit4 = 0
            Label5.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
        If bit5 = 0 Then
            bit5 = 1
            Label6.BackColor = Color.Blue

        Else
            bit5 = 0
            Label6.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
        If bit6 = 0 Then
            bit6 = 1
            Label7.BackColor = Color.Blue

        Else
            bit6 = 0
            Label7.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128
        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        If bit7 = 0 Then
            bit7 = 1
            Label8.BackColor = Color.Blue

        Else
            bit7 = 0
            Label8.BackColor = Color.Black

        End If
        tmp = bit0 + bit1 * 2 + bit2 * 4 + bit3 * 8 + bit4 * 16 + bit5 * 32 + bit6 * 64 + bit7 * 128

        Dim hexString As String = Hex(tmp)
        TextBox1.Text = "0x" & hexString


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Clipboard.SetText(TextBox1.Text)

    End Sub
End Class