Traductor con bases de datos

Iniciado por birdez, 31 Mayo 2012, 09:47 AM

0 Miembros y 2 Visitantes están viendo este tema.

Roboto

copy/paste del codigo de la aplicacion k  programaste

birdez

LA APLICACIÓN DEBE TRADUCIR FRASES PRO PRIMERO QUIERO COMPROBAR SI SE TRADUCIR PALABRAS SUELTAS PARA MIRAR DESPUÉS A TRADUCIR FRASES QUE TENGAS SEPARADORES COMO ESPACIOS, PUNTOS, COMAS Y PUNTOS Y COMAS QUE AUN NO LO CONSEGUÍ HACER :S

SINO COMPRENDES CUALQUIER COSA DIMELO SIN PROBELMAS

GRACIAS






Public Class Form1
    Dim añadirpalaras As New Dialog1

    Private Sub PalabrasBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs)
        Me.Validate()
        Me.PalabrasBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DiccionarioDataSet)

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'DiccionarioDataSet.Palabras' Puede moverla o quitarla según sea necesario.
        Me.PalabrasTableAdapter.Fill(Me.DiccionarioDataSet.Palabras)

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

        ComboBox1.SelectedIndex = 0
    End Sub

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

    Private Sub ButtonAñadir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAñadir.Click
        añadirpalaras.ShowDialog()
    End Sub

    Private Sub BotonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles BotonTraducir.Click
        Dim PalabraTxt1 As String

        Dim palabra As String


        PalabraTxt1 = TextBox1.Text

        If String.IsNullOrEmpty(TextBox1.Text) Then
            MessageBox.Show("Debe introducir un texto para traducirlo")
            TextBox1.Focus()


        ElseIf ComboBox1.SelectedItem = "Seleccione un idioma" Then

            MessageBox.Show("Debe elegir un idioma original")
        ElseIf ComboBox1.SelectedItem = "Español" Then

            If RadioButtonIng.Checked = True Then
                If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, PalabraTxt1) Then

                    'AQUI ES DONDE TENGO QUE PONER QUE EL TEXTBOX ESCRIBA LA PALABRA INGLESA
                Else
                    MessageBox.Show("La palabra NO existe")
                End If
            Else

                MessageBox.Show("Debe elegir un idioma para traducir")
            End If

        ElseIf ComboBox1.SelectedItem = "Ingles" Then



            If RadioButtonEsp.Checked = True Then

                If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, TextBox1.Text) Then
                    MessageBox.Show("La palabra existe")
                Else

                End If


            Else

                MessageBox.Show("Debe elegir un idioma para traducir")
            End If
        End If

    End Sub

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

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

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

        RadioButtonIng.Checked = False

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

        RadioButtonEsp.Checked = False

    End Sub

    Private Sub ButtonLimptextotraducir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLimptextotraducir.Click
        TextBox1.Clear()
    End Sub

    Private Sub ButtonLimpiarTextTraducido_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLimpiarTextTraducido.Click
        TextBox2.Clear()
    End Sub

   
   
End Class





Roboto

 :-(

pero las dudas no las tenias con la base de datos y la sql?¿?¿?
faltan esos codigos

birdez

la secuencia q puse en el dataset para crear el fill es la q me dijiste

SELECT Ingles
FROM Palabras
WHERE Español = ?

Y MI DUDA AHORA ES DODNE PONER LO DE:

If RadioButtonIng.Checked = True Then
                If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, PalabraTxt1) Then

                    'AQUI ES DONDE TENGO QUE PONER QUE EL TEXTBOX ESCRIBA LA PALABRA INGLESA
                Else
                    MessageBox.Show("La palabra NO existe")
                End If
            Else

                MessageBox.Show("Debe elegir un idioma para traducir")
            End If


DONDE PONE LO DE AQUI ES DONDE.....

hay como puedo poner para referirme a la palabra inglesa la palabra en español me la encuentra xq si la imprimo me la imprime pro la ingles no consigo sacarla no se q tenog que poner esa es mi duda

sabes lo q quiero decirte?

birdez


Roboto

la sql te tiene k devolver una palabra en ingles.
solo tienes k ponerla en el textbox.Text y ya esta.

no recuerdo ahora mismo las instrucciones pork cada personas accede de forma diferente a la base de datos.
yo por ejemplo hacia dataReaders,guardaba los datos dentro y luego accedia ( C#)
tu lo haces con un dataset,asi k el codigo k tienes k poner no se decirtelo al 100%.

solo tienes k acceder a tu dataset,pillarle el campo donde guardas la palabra en ingles y mostrarla en el textbox.

p.d: esas cosas tendrias k saberlas,como has conseguido aprobar acceso a datos?¿?¿?¿?¿?¿?¿

birdez

no he a aprobado accesos a daros x eso os pregunto que como se hace xq no se hacer lo q te pido jaja

no se acceder a esa columna desde el dataset si me dices como se puede hacer lo intento y te sigo comentando como lo he hecho gracias

Roboto

#17
 :-(

no te puedo ayudar mucho pork hace años k no toco esas cosas.
lo k si te puedo dar es esto.

es un codigo de cuando yo acabe el modulo,k programe en VB,pancima eso.
no tienes ni k usar sentencias sql,solo tienes k navegar atraves del dataset o lo k kiera k sea.

cuando agregas una base de datos al vb,la arrastras al formulario y el propio visual lo hace todo.
eso es lo k hacia,luego con las instrucciones k ves ahi,recorro el dataset como si fuera un array.

http://s2.subirimagenes.com/privadas/1856418sin-ttulo.jpg

mas k eso no te puedo ayudar,hay tutoriales en google de como hacerlo


p.d: ese codigo lo k hace es k tu metes un usuario y comprueba si existe ese usuario

birdez

no puedo ver la imagen me sale q no a sigo encontrada?   :(

Roboto

Cita de: birdez en  3 Junio 2012, 20:20 PM
no puedo ver la imagen me sale q no a sigo encontrada?   :(

dale a intro,en la url,copiala y dale a intro.