Private Sub Command1_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Masukan Input biner " Else If Text1.Text = 1 And Text2.Text = 1 Then Text3.Text = 1 Else Text3.Text = 0 End if End If End Sub
Private Sub Command1_Click()
If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then
MsgBox
"Masukan Input biner "
Else
If Text1.Text = 1 And Text2.Text = 1 Then
Text3.Text = 1
Else
Text3.Text = 0
End if
End If
End Sub