Vb6 用VB计算二进制输入后的校验和_Vb6

Vb6 用VB计算二进制输入后的校验和

vb6

Vb6 用VB计算二进制输入后的校验和,vb6,Vb6,我不知道如何在输入text1后计算校验和，输入text1表示二进制字节中的除数。我尝试了CUSEMUTHONET= Text 1.Text XOR Text 2。文本但不工作，我已经在Internet上搜索过了，但是它只适用于C++和java，在VB中可以吗？你必须用两个数字，而不是一个字符串尝试：不能对字符串执行异或操作。你必须用两个数字，而不是一个字符串尝试： @乔治 Private Sub Command1_Click() If Len(Text1.Text) &

我不知道如何在输入text1后计算校验和，输入text1表示二进制字节中的除数。我尝试了CUSEMUTHONET= Text 1.Text XOR Text 2。文本但不工作，我已经在Internet上搜索过了，但是它只适用于C++和java，在VB中可以吗？你必须用两个数字，而不是一个字符串

尝试：

不能对字符串执行异或操作。你必须用两个数字，而不是一个字符串

尝试：

@乔治

Private Sub Command1_Click()

    If Len(Text1.Text) & (Text2.Text) = 0 Or Text1.Text & Text2.Text) Like "[!0-1]" Then
        Text3 = "Wrong Input, Please Correct it!!"
    Else
        checksum.Text = CStr(CLng(Text1.Text) Xor CLng(Text2.Text))
        Trans(2).Text = (Text1.Text) + (checksum.Text) 
        Text3 = "Congratulation CRC is generated"
    End If 

End Sub

@乔治

Private Sub Command1_Click()

    If Len(Text1.Text) & (Text2.Text) = 0 Or Text1.Text & Text2.Text) Like "[!0-1]" Then
        Text3 = "Wrong Input, Please Correct it!!"
    Else
        checksum.Text = CStr(CLng(Text1.Text) Xor CLng(Text2.Text))
        Trans(2).Text = (Text1.Text) + (checksum.Text) 
        Text3 = "Congratulation CRC is generated"
    End If 

End Sub

请详细说明一下好吗？这是我的代码私有子命令1_Click（），如果Len（Text1.Text）和（Text2.Text）=0或Text1.Text和（Text2.Text）像“[！0-1]”，那么Text3=“输入错误，请更正！！”否则校验和。Text=CStr（CLng（Text1.Text）Xor CLng（Text2.Text））Trans（2）.Text=（Text1.Text）+（checksum.Text）Text3=“祝贺CRC生成”如果结束子命令可以详细说明，请？这是我的代码私有子命令1_Click（），如果Len（Text1.Text）&（Text2.Text）=0或Text1.Text&（Text2.Text）类似“[！0-1]”然后Text3=“输入错误，请更正！！”否则校验和。Text=CStr（CLng（Text1.Text）Xor CLng（Text2.Text））Trans（2）。Text=（Text1.Text）+（checksum.Text）Text3=“祝贺CRC生成”如果Len（Text1.Text）和（Text2.Text）=0错误，则结束。应该是

Len（Text1.Text）&Len（Text2.Text）=0

。我认为&应该是或，而不是和。它不会出错，但不会更改任何数据，因为数字XOR 0=numberUnless Ricky-2135意味着连接Text1.Text和Text2.Text

应该是

，而像“[！0-1]”这样的Text1.Text&Text2.Text）是错误的。应该是Text1.Text像“[！0-1]”和Text2.Text像“[！0-1]”
，但是，再说一遍，你想用像做什么？模式[！0-1]
很可能不正确，因为您要做的只是检查文本是否不是0或1，而只是检查单个字符串。任何非单字符字符串都会将其验证为false，从而陷入Else
amd，破坏您的calculation@Jac我明白你的意思，这是一种非常糟糕的编码方式。使代码更难阅读。如果Len（Text1.Text）和（Text2.Text）=0不正确。应该是Len（Text1.Text）&Len（Text2.Text）=0
。我认为&应该是或，而不是和。它不会出错，但不会更改任何数据，因为数字XOR 0=numberUnless Ricky-2135意味着连接Text1.Text和Text2.Text&
应该是，而像“[！0-1]”这样的Text1.Text&Text2.Text）是错误的。应该是Text1.Text像“[！0-1]”和Text2.Text像“[！0-1]”
，但是，再说一遍，你想用像做什么？模式[！0-1]
很可能不正确，因为您要做的只是检查文本是否不是0或1，而只是检查单个字符串。任何非单字符字符串都会将其验证为false，从而陷入Else
amd，破坏您的calculation@Jac我明白你的意思，这是一种非常糟糕的编码方式。使代码更难阅读。