Visual Basic

6-Sep-09 11:12

write a windows application that allows the user to enter
a seven-digit number in a multiple line textbox
when the user clicks the generate words button.I changed as much code I have yesterday but it is not generating words can anyone help me

[code]

Partial Class Form1
Inherits System.Windows.Forms.Form

Public Numbers(7, 3) As String
Public Phonenumber As Integer
Public output As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Numbers(0, 0) = "A"
Numbers(0, 1) = "B" '2
Numbers(0, 2) = "C" '2
Numbers(1, 0) = "D" '3
Numbers(1, 1) = "E" '3
Numbers(1, 2) = "F" '3
Numbers(2, 0) = "G" '4
Numbers(2, 1) = "H" '4
Numbers(2, 2) = "I" '4
Numbers(3, 0) = "J" '5
Numbers(3, 1) = "K" '5
Numbers(3, 2) = "L" '5
Numbers(4, 0) = "M" '6
Numbers(4, 1) = "N" '6
Numbers(4, 2) = "O" '6
Numbers(5, 0) = "P" '7
Numbers(5, 1) = "R" '7
Numbers(5, 2) = "S" '7
Numbers(6, 0) = "T" '8
Numbers(6, 1) = "U" '8
Numbers(6, 2) = "V" '8
Numbers(7, 0) = "W" '9
Numbers(7, 1) = "X" '9
Numbers(7, 2) = "Y" '9

End Sub
Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click

Dim phoneNumber As String = GetNumber()

'check if the number contains 0 or 1
While phoneNumber.Contains("0") Or phoneNumber.Contains("1")
phoneNumber = GetNumber()
End While

'create a hashtable to hold the digits
Dim arrayL As New Hashtable
Dim x As Integer = 1
For i As Integer = 65 To 90 Step 3
arrayL.Add(x, New Char() {Chr(i), Chr(i + 1), Chr(i + 2)})
x += 1
Next

Dim word As String = ""

'creates only 3 words out of the phonenumber
For i As Integer = 0 To 2

For Each s As String In phoneNumber
word = word & DirectCast(arrayL.Item(CInt(s)), Char())(i).ToString
Next
Next

output = PhoneNumberWordsListBox.Text

End Sub

Private Sub PhoneNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged
Phonenumber = PhoneNumberTextBox.Text

End Sub
Private Function GetNumber() As String

Return PhoneNumberTextBox.Text()
End Function
End Class
[/code]

Henry Minute6-Sep-09 11:39

6-Sep-09 11:39

Please confirm that what you want to do is:

User types "123" into textbox (but 7 digits not 3)
Clicks button
Output is "one two three"

Is that correct?

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

rbjanaki6-Sep-09 11:46

6-Sep-09 11:46

I have to generate a telephone number word not to spell the number

ex: 4247288 = HAIRCUT

Henry Minute6-Sep-09 12:17

6-Sep-09 12:17

That was not clear in any of your posts about this. If you had given that example you might have got some help.

BTW when posting code surround it with <pre>your code goes here</pre> tags, we don't use [code][/code] on CP. Smile | :)

Now that your problem is clear, I will have to think about it. If I get any ideas I will post back to you. In the mean time others might have suggestions.

rbjanaki6-Sep-09 12:24

6-Sep-09 12:24

Sorry about that. Thanks for your help. I think my for loop is not working and the words had to be generate in listbox

Hurricane30006-Sep-09 12:31

6-Sep-09 12:31

To try to understand what you want obtain, I need to know:

In this piece of your code:

Numbers(0, 0) = "A"
Numbers(0, 1) = "B" '2
Numbers(0, 2) = "C" '2
Numbers(1, 0) = "D" '3
Numbers(1, 1) = "E" '3
Numbers(1, 2) = "F" '3
Numbers(2, 0) = "G" '4
Numbers(2, 1) = "H" '4
Numbers(2, 2) = "I" '4
Numbers(3, 0) = "J" '5
Numbers(3, 1) = "K" '5
Numbers(3, 2) = "L" '5
Numbers(4, 0) = "M" '6
Numbers(4, 1) = "N" '6
Numbers(4, 2) = "O" '6
Numbers(5, 0) = "P" '7
Numbers(5, 1) = "R" '7
Numbers(5, 2) = "S" '7
Numbers(6, 0) = "T" '8
Numbers(6, 1) = "U" '8
Numbers(6, 2) = "V" '8
Numbers(7, 0) = "W" '9
Numbers(7, 1) = "X" '9
Numbers(7, 2) = "Y" '9

Do you forgotten the comment "'2" in the first line?
And do you forgotten the letter "Q" in the list?
Words must be without letter "Q"?

modified on Sunday, September 6, 2009 6:39 PM

rbjanaki6-Sep-09 12:42

6-Sep-09 12:42

there is no Q in the list my problem does't have a letter Q assign to any number and yes I did not comment in the first line I don't think it is a problem.

Thank you

Henry Minute6-Sep-09 13:36

6-Sep-09 13:36

Here are a few ideas to give you a start.

It is just a form with a TextBox (txtResult) and a Button (btnGenerate). I am using a TextBox because I am only doing 1 possibility (you wouldn't want me to deprive you of the fun of doing it yourself, now, would you? Big Grin | :-D

), but you are right ListBox is the way to go. In fact you might want to consider using 3 (or 4 if you allow for the possibility that some keys have 4 possibilities) ListBoxes.

Any way here is what I thought you might use.

Dim input As String = "4247288"

Dim characterLookup As Dictionary(Of Char, Char()) = New Dictionary(Of Char, Char())

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

Private Sub FillCharacterLookup()
    characterLookup.Add("2"c, New Char() {"A"c, "B"c, "C"c})
    characterLookup.Add("3"c, New Char() {"D"c, "E"c, "F"c})
    characterLookup.Add("4"c, New Char() {"G"c, "H"c, "I"c})
    characterLookup.Add("5"c, New Char() {"J"c, "K"c, "L"c})
    characterLookup.Add("6"c, New Char() {"M"c, "N"c, "O"c})
    characterLookup.Add("7"c, New Char() {"P"c, "Q"c, "R"c, "S"c})
    characterLookup.Add("8"c, New Char() {"T"c, "U"c, "V"c})
    characterLookup.Add("9"c, New Char() {"W"c, "X"c, "Y"c, "Z"c})
End Sub

Private Sub OutputResult()
    Dim outArray(7) As Char
    For index As Integer = 0 To input.Length - 1
        outArray(index) = characterLookup(input(index))(0)
    Next
    Me.txtResult.Text = Convert.ToString(outArray)
End Sub

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
    Me.OutputResult()
End Sub

If you put this code on a form, as described above, run it and click the Generate button you should get "GAGPATT" which is defined as the output from a Cow at an S & M party.

rbjanaki6-Sep-09 14:16

6-Sep-09 14:16

thank very much, but I have to display 2187 combinations in a list box after user enter the phone number in textbox

Henry Minute6-Sep-09 14:36

6-Sep-09 14:36

rbjanaki wrote:
thank very much, but I have to display 2187 combinations in a list box after user enter the phone number in textbox

I know that. This means that you are not allowing 'Q' or 'Z', otherwise there would be more than that.

The sample code I gave you was just to demonstrate a method of obtaining the characters for the keys entered. What you have to do is to figure out a way to obtain all the possible combinations (729 for each of the possible start letters, in your example "4247288", that is 729 words starting with 'G', 729 for 'H' and 729 for 'I')
Putting them in a ListBox is trivial instead of Me.txtResult.Text = Convert.ToString(outArray) use Me.lboxResult.Items.Add(Convert.ToString(outArray)).

As I said in my previous post "you don't really want me to deprive you of the fun of working out how to do it, do you?", besides, I doubt that you could afford my rates. Smile | :)

Luc Pattyn6-Sep-09 12:39

6-Sep-09 12:39

Henry Minute wrote:
I will have to think about it

Yeah, I don't know where to get a haircut on a Sunday evening either.

Laugh | :laugh:

Luc Pattyn

Badger | [badger,badger,badger,badger...]

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Henry Minute6-Sep-09 12:41

6-Sep-09 12:41

Luc Pattyn wrote:
Yeah, I don't know where to get a haircut on a Sunday evening either.

What a backward place you must live in. Smile | :)

I have a choice from 2,187 possibilities. Laugh | :laugh:

Luc Pattyn6-Sep-09 12:53

6-Sep-09 12:53

Henry Minute wrote:
I have a choice from 2,187 possibilities

Too bad, as I know how hard it is for you to make even simple decisions...

$Shucks | :-\$

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Henry Minute6-Sep-09 12:58

6-Sep-09 12:58

Luc Pattyn wrote:
Too bad, as I know how hard it is for you to make even simple decisions...

True!

It gets worse, I have just realized that there could be more options than that. I forgot that some keys have 4 characters!

BTW I forgot to 5 your previous post. Putting it right now. Smile | :)

Luc Pattyn6-Sep-09 13:14

6-Sep-09 13:14

Henry Minute wrote:
I forgot to 5 your previous post.

I bet you also forgot to take your pills. Again.

Smile | :)

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Henry Minute6-Sep-09 13:15

[Solved] A strange question about strings. [modified]

6-Sep-09 13:15

Stop it, I'll fall off! Laugh | :laugh:

Hurricane30006-Sep-09 9:53

6-Sep-09 9:53

Hi all,

I need that application I'm developing can consider the same (=), 3 strings for example like these:

String A = "This, is, a, sample, 12345"
String B = "this, is,a, Sample ,12345"
String C = "This,is,a,sample,12345"

Someone know if there is a simple way (may be a single instruction?) to do that?
I know how to do that, but it is not a simple way.

Thanks

Ignazio

modified on Saturday, September 12, 2009 2:09 PM

Luc Pattyn6-Sep-09 10:14

6-Sep-09 10:14

your question is unclear. IF what you want is a way to compare two strings ignoring white space, ignoring comma's and ignoring case, then the solution is two write a function MyStringCompare(ByVal string1 as String, ByVal string2 as String) as Integer wherein you first remove white space and comma's, and then use the built-in string compare function, telling it to ignore case.

If that is unclear to you, I strongly advice you to buy and study a book on the programming language of your choice.

Smile | :)

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Hurricane30006-Sep-09 10:32

6-Sep-09 10:32

Hi,

Yes, I need a way to compare 2 strings, ignoring spaces and case.
In the end of my question, I written that I know how to do that, but I was hoping that someone know a simpler way, or may be an already built-in instruction in V.B. to do this work.

Thanks for help and for "advice"

Ignazio

εїзεїзεїз6-Sep-09 10:28

εїзεїзεїз

6-Sep-09 10:28

can you explain it little more what is your point if i am not wrong do you want that you have same string but in different cases and spaces and you want it to be consider as same

is this your question or what ????

Best Of Regards,
SOFTDEV
Sad like books with torn pages, sad like unfinished stories ...

Hurricane30006-Sep-09 10:33

6-Sep-09 10:33

Hi,

Yes.

Christian Graus6-Sep-09 11:06

Christian Graus

6-Sep-09 11:06

You can do a case insensitive comparison easy enough. I don't know there's a way to ignore spaces without actually removing them.

String.Compare takes a bool to say if it's case sensitive.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Hurricane30006-Sep-09 11:17

6-Sep-09 11:17

That for me has prioritary importance, is the problem of spaces.
The case insensitive comparation is a secondary requirement.
It seems that I can't avoid the work to delete spaces.......

Ignazio