Traducteur (suite)

re,

Pour utiliser des actions SZ :
CODE VB avec :

Code:

If ..... then

puis:
Les actions SZ
enfin:
CODE VB avec:

Code:

End IF

Je n'ai pas testé mais il me semble que ça fonctionne.
Sinon:

Code:

If (e.KeyCode = Keys.Enter) Then
  call button1(nothing, nothing)
End If

button1 étant le bouton que lance la traduction.
et là aussi je n'ai pas testé.

Cordialement ,
le réparateur de PC

merci mais sa me met invalide a chaque fois voici le code ( merci le reparateur )

Public Class Form1

Dim FileDico As System.IO.StreamReader
Dim ReadLine As String
Dim IsWordValid As Boolean = False



'Traduction de Français vers Serbe
Private Sub ButFrToEn_Click(sender As System.Object, e As System.EventArgs) Handles ButFrToEn.Click
IsWordValid = False
If TBFr.Text.ToLower = "" Then
MsgBox("text Français vide !")
Else
TBFr.Text = TBFr.Text.ToLower
FileDico = New System.IO.StreamReader(My.Computer.FileSystem.CurrentDirectory & "\trad.txt", System.Text.Encoding.Default)
Do
ReadLine = FileDico.ReadLine()
If ReadLine = "[END]" Then
If IsWordValid = False Then
MsgBox("Mot non référencé")
End If
Exit Do

End If
ElseIf ReadLine.Split("=")(0).ToLower = TBFr.Text.ToLower Then
TBEn.Text = ReadLine.Split("=")(1).ToLower
IsWordValid = True
Exit Do
End If
Loop
FileDico.Close()
End If
End Sub

Private Sub groupBox2_Enter(sender As Object, e As EventArgs)

End Sub

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

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TBFr.Text = ""
TBEn.Text = ""

End Sub


End Class

re,

Il y a une erreur dans ton code :
Le code avec erreur repérée :

Code:

Public Class Form1

    Dim FileDico As System.IO.StreamReader
    Dim ReadLine As String
    Dim IsWordValid As Boolean = False



    'Traduction de Français vers Serbe
    Private Sub ButFrToEn_Click(sender As System.Object, e As System.EventArgs) Handles ButFrToEn.Click
        IsWordValid = False
        If TBFr.Text.ToLower = "" Then
            MsgBox("text Français vide !")
        Else
            TBFr.Text = TBFr.Text.ToLower
            FileDico = New System.IO.StreamReader(My.Computer.FileSystem.CurrentDirectory & "\trad.txt", System.Text.Encoding.Default)
            Do
                ReadLine = FileDico.ReadLine()
                If ReadLine = "[END]" Then
                    If IsWordValid = False Then
                        MsgBox("Mot non référencé")
                    End If
                    Exit Do
                End If '/!\ ATTENTION ERREUR supprimer la ligne !
 ElseIf ReadLine.Split("=")(0).ToLower = TBFr.Text.ToLower Then
                TBEn.Text = ReadLine.Split("=")(1).ToLower
                IsWordValid = True
                Exit Do
 End If
 Loop
        FileDico.Close()
 End If
    End Sub

    Private Sub groupBox2_Enter(sender As Object, e As EventArgs)

    End Sub

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

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TBFr.Text = ""
        TBEn.Text = ""

    End Sub


End Class


en supprimant le End If en trop, ça fonctionne !

Cordialement ,
Le réparateur de PC

marche toujours pas


Private Sub ButFrToEn_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ButFrToEn.KeyDown
If (e.KeyCode = Keys.Enter) Then
Call ButFrToEn_KeyDown(Nothing, Nothing)
End If

End Sub

ou alors ca aussi
Private Sub ButFrToEn_KeyDown(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.KeyEventArgs) Handles ButFrToEn.KeyDown
If (e.KeyCode = Keys.Enter) Then
Call ButFrToEn(Nothing, Nothing)
End If

End Sub

merci

re,

Le code VB n'est PAS à mettre dans le KeyDown du bouton mais sur le TextBox .
utilise ceci:

Code:

Private Sub TBFr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TBFr.KeyDown
 If (e.KeyCode = Keys.Enter) Then
 Call ButFrToEn_Click(Nothing, Nothing)
 End If
 End Sub


Le code ci-dessus veux dire:
Met le code ci-dessous dans l'évènement KeyDown du TextBox français:

Code:

If (e.KeyCode = Keys.Enter) Then
 Call ButFrToEn_Click(Nothing, Nothing)
 End If


Cordialement ,
Le réparateur de PC

ca marche merci chef

alors voila sujet resolu.
J'arrive maintenant a mettre en francais puis en serbe latin et en serbe cyrillique.
Pour cela dans ma fenetre serbe j'ai changé la police ( consolas ,police serbe ) j'ai d'ailleur rajouter la police dans mon dossier bin, et je fait mon fichier txt avec wordpad et voila le tour est joué.
maintenant je tape le mot francais dans ma 1ere txtbox et j'ai le resultat en serbe latin et cyrillique dans l'autre.
juste un tres tres grand merci au réparateur car j'utilise la base de ton propre traducteur donc un grand merci a toi.

re,

OK, je l'ai fait pour ça ...

Cordialement ,

Le réparateur de PC

Tu va le publier ton traducteur?

je pense pas c'est juste a titre perso je pars en serbie dans trois semaines.....apres rien n'empeche de remplacer le serbe par une autre langues et la comme je refais entierement mon fichier txt avec rajout du cyrillique ca me prends du temps mais je verrais a la rentrée si le serbe interresse quelqu'un
bon aller je met le projet a dll pour ceux qui veulent voir c'est en vb pas en sz, et le bouton des mots référencés et faux car je viens de recommencé le fichier txt voila telecharger le ici cliquez ici
ah j'oubliais le texte en serbe s'affiche en vert , les 1er mots sont en serbe latin suivi de / prononciation française suivi de /  ecriture cyrillique
voila
mnogo vam hvala 

he oui serge le retour,donc je viens de dll la version 4.0.0 donc je pense refaire un traducteur franco/serbe   le dernier m'ayant un  peu aider cet été je prends en compte de nouveaux parametres comme le fait qu'a  Belgrade , par exemple, tu a l'acces wifi gratuit sur tout les kiosques de marchands de glaces de tee shirt etc.... donc quasiment connecter partout ou tu va, (même en pleine campagne des balkans j'avais reussi a av oir du réseau   ). J'aimerais bien me servirde la dll google translate mais elle est toujours payante    et la dll de bing est gratuite mais n'a pas le serbe en catalogue. Si quelqu'un connait une autre dll, mais ca m’étonnerais. Ah si j'oubliais , il faudra maintenant que mon traducteur traduise le mot français en serbe et en ALLEMAND    . Allez je vous tiendrez au courant......

[EDIT] après discussion, je ré-ouvre ce post