erictheman
06-15-2003, 03:30 AM
hello i have made a pig latin program in visual basic 6 which will convert any word into pig latin. but it only works for one word. i would like to have it so that it can perform the same task but for multiple words. but i would like to know how to accomplish this without using an array.
'Eric Thomas
'Pig Latin Program
Private Sub cmdEnter_Click()
word$ = txtinput.Text
Cls
For x = 1 To Len(word$)
temp$ = Mid(word, x, 1)
newword$ = Mid(word$, 2, Len(word$)) & Mid(word$, 1, 1) & "ay"
If temp$ = "a" Or temp$ = "e" Or temp$ = "i" Or temp$ = "o" Or temp$ = "u" Then
If Mid(word$, 1, 1) = "a" Or Mid(word$, 1, 1) = "e" Or Mid(word$, 1, 1) = "i" Or Mid(word$, 1, 1) = "o" Or Mid(word$, 1, 1) = "u" Then
newword$ = word$ & "way"
x = Len(word)
Else
temp2$ = Left$(word$, x - 1)
newword$ = Mid(word$, x, Len(word$)) & temp2$ & "ay"
x = Len(word)
End If
End If
Next x
Print newword$
End Sub
'Eric Thomas
'Pig Latin Program
Private Sub cmdEnter_Click()
word$ = txtinput.Text
Cls
For x = 1 To Len(word$)
temp$ = Mid(word, x, 1)
newword$ = Mid(word$, 2, Len(word$)) & Mid(word$, 1, 1) & "ay"
If temp$ = "a" Or temp$ = "e" Or temp$ = "i" Or temp$ = "o" Or temp$ = "u" Then
If Mid(word$, 1, 1) = "a" Or Mid(word$, 1, 1) = "e" Or Mid(word$, 1, 1) = "i" Or Mid(word$, 1, 1) = "o" Or Mid(word$, 1, 1) = "u" Then
newword$ = word$ & "way"
x = Len(word)
Else
temp2$ = Left$(word$, x - 1)
newword$ = Mid(word$, x, Len(word$)) & temp2$ & "ay"
x = Len(word)
End If
End If
Next x
Print newword$
End Sub