I have a program in which a user enters a sentence in English into a text box, then the sentence is translated into French and German based on words in an array of structures that gets its values from a text file. I have almost all of the program written, but I am a bit confused on how to get VB to get the English words that are entered into the text box separately so they can be translated individually and the value returned. I need help with this last part. I need to use a Sub Procedure to get the English Words and to Translate them. Any help would be appreciated.
Here is what I have so far.
Public Class frmTranslate ' Create Structure with a member for each language Structure Translator Dim english As String Dim french As String Dim german As String End Structure ' Create array of structures Dim trans(15) As Translator Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Add words to array of structures trans(). Dim temp As Translator Dim sr As IO.StreamReader = IO.File.OpenText("words.TXT") For i As Integer = 0 To 15 trans(i).english = sr.ReadLine trans(i).french = sr.ReadLine trans(i).german = sr.ReadLine Next 'Close the reader sr.Close() 'Perform bubble sort by English word. For i As Integer = 1 To 15 For j As Integer = 1 To 16 - i If Trans(j - 1).english > Trans(j).english Then temp = Trans(j - 1) Trans(j - 1) = Trans(j) Trans(j) = temp End If Next Next End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblFrench.Click End Sub Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click 'Translate English sentence to French and German. Dim english() As String 'Hold results Dim sentence As Translator 'Ensure the sentence ends with a period, get English words Dim line As String = tbxEnterSentence.Text.Trim.ToUpper If line.Substring(line.Length - 1) <> "." Then line &= "." End If english = GetWords(line) sentence = Translate(english) 'Display the results, format sentence to have period at the end tbxFrench.Text = sentence.french.Trim & "." tbxGerman.Text = sentence.german.Trim & "." End Sub Sub GetWords(ByVal line As String) End Sub End Sub Sub Translate(ByVal english As String) End Sub End Class