ayudaa traductor

[birdez]

Hola tengo una duda tengo que realizar un traductor entre ingles - español o español - ingles y solo se traducir una palabra en cuando pongo un espacio , una coma .... no me lo detecta y no se como puedo conseguir que me traduzca algún texto si alguien pudiera ayudarme....
muchas gracias a todos de antemano

[Elemental Code]

y como lo haces?

pone algo de codigo.
y vemos porque no funciona.

[birdez]

y que pongo todo el codigo que tengo? os apañareis pa entender las cosas que tengo en el formulario y eso?

Código (vbnet) [Seleccionar] Expandir


Dim matrizesp As String() = {"Hola", "casa", "pepe"}
    Dim matrizing As String() = {"Hello", "house", "saluton"}
    Dim prueba As New ArrayList()






    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("Seleccione un idioma")
        ComboBox1.Items.Add("Español")
        ComboBox1.Items.Add("Ingles")
       
       

    End Sub

   
    Private Sub BotonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles BotonTraducir.Click
        Dim palabra As String = String.Format(TextBox1.Text)
        'Dim numerotecleado As Integer = Integer.Parse(TextBox1.Text)

       
        If TextBox1.Text = Nothing Then
            MessageBox.Show("Introduzca una palabra o texto a traducir")

        Else
            If ComboBox1.SelectedIndex = -1 Then
                MessageBox.Show("Seleccione un Idioma Original")
            End If


            If RadioButtonEsp.Checked + RadioButtonIng.Checked = False Then

                MessageBox.Show("Seleccione un Idioma a Traducir")

            End If
        End If

        For indice As Integer = 0 To matrizing.GetUpperBound(0)
            If ComboBox1.SelectedItem = "Español" Then


                If matrizesp(indice) = palabra Then
                    TextBox2.Text = matrizing(indice)
                   
                    Exit For

                End If
            End If
            If ComboBox1.SelectedItem = "Ingles" Then


                If matrizing(indice) = palabra Then
                    TextBox2.Text = matrizesp(indice)
                   
                    Exit For

                End If
            End If
        Next
    End Sub

    Private Sub BotonSalir_Click(sender As System.Object, e As System.EventArgs) Handles BotonSalir.Click
        Me.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedItem = "" Then
            RadioButtonEsp.Enabled = False
            RadioButtonIng.Enabled = False
        End If

        If ComboBox1.SelectedItem = "Español" Then
            RadioButtonEsp.Enabled = False
            RadioButtonIng.Enabled = True
        End If

        If ComboBox1.SelectedItem = "Ingles" Then
            RadioButtonIng.Enabled = False
            RadioButtonEsp.Enabled = True
        End If
    End Sub


[Elemental Code]

amigo esto es vb.net
no? :S

[raul338]

Debes trabajar con los strings, leyendo de poco a poco... buscando signos de puntuación y de ahi reemplazando las oraciones

[birdez]

ok y eso como puedo hacerlo esq no se me ocurre como hacer eso
podriais ayudarme?

[birdez]

estais seguros q esto es .NET?

[$Edu$]

Jajaja si copias codigo no aprenderas nunca, mas vale ponete a leer y a aprender, ya que no sabes ni en que programas..

[birdez]

solo pido que me digais como puedo saber la forma de que el programa me distinga las palabras que me deis una explicacion ya que solo consigue que me detecte palabras sueltas si le pongo espacios o algo no me lo detecta

[$Edu$]

Pero si no sabes ni en que esta el codigo, es porque no lo hiciste vs, entonces para que perder el tiempo? Ademas tu codigo lo que hace es dependiendo que opcion se elijio, mostrar una de estos arrays:

Dim matrizesp As String() = {"Hola", "casa", "pepe"}
Dim matrizing As String() = {"Hello", "house", "saluton"}

Asi que no se que pregunta..