資訊好好玩

0愛的鼓勵 0訂閱站台

Rem 主題: 二進位碼運算
Rem 表單配置：如附圖
Rem 運用函數：Left,Right,Mid
Rem 動作：如畫面

Dim s11, s21, s12, s22 As String
Private Sub Command1_Click()
txt1 = Trim(Text1)
txt2 = Trim(Text2)

'取出前4位元，後4位元
s11 = Left(txt1, 4)
s21 = Left(txt2, 4)
s12 = Right(txt1, 4)
s22 = Right(txt2, 4)

'運算結果字串輸出
Text3 = OP_AND(s11, s21) & "." & s12  '高4位元AND運算，低4保留
Text4 = OP_OR(s11, s21) & "." & s22  '高4位元OR運算，低4保留
End Sub

Private Function OP_AND(ByVal ss1 As String, ByVal ss2 As String) As String
Dim sResult As String

'分別取出1位元作運算
For i = 1 To 4
    s1 = Mid(ss1, i, 1)
    s2 = Mid(ss2, i, 1)
    sResult = sResult & (s1 And s2)
Next

'傳回結果
OP_AND = sResult

End Function
Private Function OP_OR(ByVal ss1 As String, ByVal ss2 As String) As String
Dim sResult As String

'分別取出1位元作運算
For i = 1 To 4
    s1 = Mid(ss1, i, 1)
    s2 = Mid(ss2, i, 1)
    sResult = sResult & (s1 Or s2)
Next

'傳回結果
OP_OR = sResult

End Function

Private Sub Command2_Click()
txt1 = Trim(Text1)
txt2 = Trim(Text2)

'取出前4位元，後4位元
s11 = Left(txt1, 4)
s21 = Left(txt2, 4)
s12 = Right(txt1, 4)
s22 = Right(txt2, 4)

Text3 = s11 & "." & OP_AND(s12, s22)   '高4位元保留，低4位元AND運算
Text4 = s21 & "." & OP_OR(s12, s22)  '高4位元保留，低4位元OR運算

End Sub