資訊好好玩

0愛的鼓勵 0訂閱站台

Dim DataEncD As Integer

Private Sub cmdDecoder_Click()

    Dim datSft As Integer

    Dim DataSource As Integer

    Dim DataD As Integer

    DataSource = DataEncD

   

    For I = 0 To 11

        datSft = 2 ^ I

        DataD = datSft And DataSource

       

        Select Case DataD

       

           Case 1: Check1(I).Value = 1

           Case 2: Check1(I).Value = 1

           Case 4: Check1(I).Value = 1

           Case 8: Check1(I).Value = 1

           Case 16: Check1(I).Value = 1

           Case 32: Check1(I).Value = 1

           Case 64: Check1(I).Value = 1

           Case 128: Check1(I).Value = 1

           Case 256: Check1(I).Value = 1

           Case 512: Check1(I).Value = 1

           Case 1024: Check1(I).Value = 1

           Case 2048: Check1(I).Value = 1

        End Select

    Next I

End Sub

 

Private Sub cmdEncoder_Click()

    DataEncD = 0

    For I1 = 0 To 11

        If Check2(I1).Value = 1 Then

            DataEncD = DataEncD + 2 ^ I1

        End If

    Next I1

End Sub

 

Private Sub cmdEnd_Click()

    End

End Sub

 

Private Sub Form_Load()

    datSft = 1

    DataEncD = 0

    cmdEncoder.Caption = "編碼"

    cmdDecoder.Caption = "解碼"

    cmdEnd.Caption = "結束程式"

 

End Sub