COMPARA?ÃO DE VALORES 02 TEXTBOX

ZANDOTC 09/06/2014 10:21:02
#438797
Bom Dia

Estou com 02 textbox com os seguintes valores.

Textbox1
01010101010101

Textbox2
10101111101101

O terceiro textbox mostraria o valor da comparação entre os 02 textbox iniciais. Porém onde é 0 e 1 ou 1 e 0 deve-se manter o 1 e onde eh 0 e 0 deve-se manter o 0, já se for 1 e 1 deve-se colocar 0.
O exemplo acima, o textbox3 ficaria com o seguinte resultado:

Textbox1
01010101010101
Textbox2
10101111101101
Textbox3
11111010111000

Ele compararia o textbox1 e o textbox2 e colocaria o resultado no textbox3
algo tipo caracter por caracter.

Obrigado pela colaboração
WILLIAMVIEIR 09/06/2014 11:28:17
#438798 Resposta escolhida
Bom dia,

Pelo oque eu entendi isso pode resolver.!

For i = 1 To 14
If Mid(Text1.Text, i, 1) = [Ô]0[Ô] And Mid(Text2.Text, i, 1) = [Ô]1[Ô] Then
Text3.Text = Text3.Text & [Ô]1[Ô] [ô]---------------------------------------------- 0 + 1
ElseIf Mid(Text1.Text, i, 1) = [Ô]1[Ô] And Mid(Text2.Text, i, 1) = [Ô]0[Ô] Then
Text3.Text = Text3.Text & [Ô]1[Ô] [ô]---------------------------------------------- 1 + 0
ElseIf Mid(Text1.Text, i, 1) = [Ô]0[Ô] And Mid(Text2.Text, i, 1) = [Ô]0[Ô] Then
Text3.Text = Text3.Text & [Ô]0[Ô] [ô]---------------------------------------------- 0 + 0
ElseIf Mid(Text1.Text, i, 1) = [Ô]1[Ô] And Mid(Text2.Text, i, 1) = [Ô]1[Ô] Then
Text3.Text = Text3.Text & [Ô]0[Ô] [ô]---------------------------------------------- 1 + 1
End If
Next
ZANDOTC 09/06/2014 14:22:15
#438803
Dizer o que mais... SIMPLESMENTE PERFEITO.

MUITTOOO OBRIGADO AMIGO.
Tópico encerrado , respostas não são mais permitidas
Voltar