Wenas, estoy haciendo un programa que te 'cambia' las palabras a binario y viceversa.
Este es parte del code:
Option Explicit
'variables
Dim a1 As Integer ' variable que almacena el resultado de InStr, devuelve 0(si no hay letra) y 1 (si q hay letra)
Dim c01 As String, c02 As String, c03 As String ' variables q sirven para contar
Private Sub Command1_Click()
c01 = "" 'cada vez q se le da al boton limpiamos resultados anteriores
a1 = InStr(Text1.Text, "a") 'A
If a1 = 0 Then
'no esta
Else
c03 = "01000001"
c01 = c01 + c02 + c03 'Letra + espacio + nueva letra
End If
a1 = InStr(Text1.Text, "b") 'B
If a1 = 0 Then
'no esta
Else
c03 = "01000010"
c01 = c01 + c02 + c03
End If
....
Text2.Text = c01 'alfinal lo muestra todo en un text
Private Sub Form_Load()
c02 = " "
End Sub
El problema esque no reconoce mas de una letra repetida(solo muestra una letra, si escribes agua, solo saldra 'traducido' agu
)
Me imagino que sera un usando un for o algo de eso no?
Weno espero haber q me decis, un saludo