解編碼
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