pls help me!im begging you

**izorcism** · Aug 17th, 2009, 03:24 PM

this program is in CONSOLE OF VB.NET PLS CONVERT IT TO WINDOW APPLICATIO PLS

Module m1

Sub Main()

Dim n, libo, daan, pagitanngsampu, isa, sampu, lolipop As Integer
Dim layas As String = ""
Dim unangletra As Char
Dim tali As String
Console.WriteLine("")
Console.WriteLine(" convert number in words ")
Console.Write("---------------------------------------------------- ")

Console.Write("Enter a number from 1 to 9999: ")

n = Console.ReadLine()
If n > 9999 Then
Console.Write("Number exceeds maximum recommended input.")
Else

libo = n \ 1000
n = n Mod 1000

daan = n \ 100
n = n Mod 100

If n >= 11 AndAlso n <= 19 Then
pagitanngsampu = n Mod 10
Else
sampu = n \ 10
n = n Mod 10
isa = n
End If
End If

If libo = 1 Then

layas = layas + "one thousand "

ElseIf libo = 2 Then

layas = layas + "two thousand "

ElseIf libo = 3 Then
layas = layas + "three thousand "

ElseIf libo = 4 Then
layas = layas + "four thousand "

ElseIf libo = 5 Then
layas = layas + "five thousand "

ElseIf libo = 6 Then
layas = layas + "six thousand "

ElseIf libo = 7 Then
layas = layas + "seven thousand "

ElseIf libo = 8 Then
layas = layas + "eight thousand "

ElseIf libo = 9 Then
layas = layas + "nine thousand "

End If

If daan = 1 Then
layas = layas + "one hundred "

ElseIf daan = 2 Then
layas = layas + "two hundred "

ElseIf daan = 3 Then
layas = layas + "three hundred "

ElseIf daan = 4 Then
layas = layas + "four hundred "

ElseIf daan = 5 Then
layas = layas + "five hundred "

ElseIf daan = 6 Then
layas = layas + "six hundred "

ElseIf daan = 7 Then
layas = layas + "seven hundred "

ElseIf daan = 8 Then
layas = layas + "eight hundred "

ElseIf daan = 9 Then
layas = layas + "nine hundred "
End If

If pagitanngsampu = 1 Then

layas = layas + "eleven "

ElseIf pagitanngsampu = 2 Then
layas = layas + "twelve "

ElseIf pagitanngsampu = 3 Then
layas = layas + "thirteen "

ElseIf pagitanngsampu = 4 Then
layas = layas + "fourteen "

ElseIf pagitanngsampu = 5 Then
layas = layas + "fifteen "

ElseIf pagitanngsampu = 6 Then
layas = layas + "sixteen "

ElseIf pagitanngsampu = 7 Then
layas = layas + "seventeen "

ElseIf pagitanngsampu = 8 Then
layas = layas + "eighteen "

ElseIf pagitanngsampu = 9 Then
layas = layas + "nineteen "

End If

If sampu = 1 Then

layas = layas + "ten "

ElseIf sampu = 2 Then

layas = layas + "twenty "

ElseIf sampu = 3 Then
layas = layas + "thirty "

ElseIf sampu = 4 Then
layas = layas + "fourty "

ElseIf sampu = 5 Then
layas = layas + "fifty "

ElseIf sampu = 6 Then
layas = layas + "sixty "

ElseIf sampu = 7 Then
layas = layas + "seventy "

ElseIf sampu = 8 Then
layas = layas + "eighty "

ElseIf sampu = 9 Then
layas = layas + "ninety "

End If

If isa = 1 Then
layas = layas + "one "

ElseIf isa = 2 Then
layas = layas + "two "

ElseIf isa = 3 Then
layas = layas + "three "

ElseIf isa = 4 Then
layas = layas + "four "

ElseIf isa = 5 Then
layas = layas + "five "

ElseIf isa = 6 Then
layas = layas + "six "

ElseIf isa = 7 Then
layas = layas + "seven "

ElseIf isa = 8 Then
layas = layas + "eight "

ElseIf isa = 9 Then
layas = layas + "nine "

End If

lolipop = Len(layas)
unangletra = UCase(Left(layas, 1))
tali = Mid(layas, 2, lolipop)
Console.Write("")
Console.Write("{0}{1}", unangletra, tali)
Console.ReadLine()
End Sub

End Module

**mickey_pt** · Aug 17th, 2009, 03:37 PM

Have you try to do it yourself?

Just two hints, you can replace the console.write/writeline by messagebox's, and the Console.read/readline by inputbox's...

That's a quicky/dirty way to do the job.

**Shaggy Hiker** · Aug 17th, 2009, 03:39 PM

I don't think that is a conversion that anybody can do for you, as it is where all the style comes into a program. I would suggest that you start a new project as a Windows Forms Application. You will be able to copy over all the code you currently have, but that would probably be easier than trying to add the right references, and the right items, to convert the existing program.

In the Windows Forms Application, you will have one form to start with. Decide what controls you want to put on the form. How will you display the current output? It could either be in one or more labels, or in a textbox, or even a listbox. It looks like you are accepting user entry, so probably a textbox to accept that. Then the bulk of the work has to happen at some point. The typical point is to add a button to the form, and when the user clicks the button, then you check to see that the textbox has useable information in it, then process the information.

Where you put the controls, and how you lay out the design, is entirely up to you, as it should be.

**Pradeep1210** · Aug 17th, 2009, 03:46 PM

There are many things you need to consider while converting console application to windows application. Where do u get the input from? Where do you write any output to? etc.

As a first step, try the following things:
1. Start a new windows application project.
2. Form1 would be there by default. Add 2 textboxes and a button to it.
3. Copy and paste that code to button click event. (copy whatever is between Sub Main...End Sub)
4. Replace all Console.ReadLine() with TextBox1.Text
5. Replace all Console.Write with TextBox2.AppendText
6. Run the application and see if it works.

**izorcism** · Aug 17th, 2009, 03:47 PM

im having problem in this one

lolipop = Len(layas)
unangletra = UCase(Left(layas, 1))
tali = Mid(layas, 2, lolipop)
Console.Write("")
Console.Write("{0}{1}", unangletra, tali)
Console.ReadLine()

.......i tried a lot but i didnt get it pls help

**Atheist** · Aug 17th, 2009, 03:54 PM

If you're refering to this line:

Code:

Console.Write("{0}{1}", unangletra, tali)

It formats the string, then prints it in the console. If you'd like to display the same text in a messagebox you'd do:

Code:

MessageBox.Show(String.Format("{0}{1}", unangletra, tali))

**izorcism** · Aug 17th, 2009, 03:57 PM

the word LEFT IS THE ERROR

**Pradeep1210** · Aug 17th, 2009, 03:58 PM

Originally Posted by izorcism

im having problem in this one

lolipop = Len(layas)
unangletra = UCase(Left(layas, 1))
tali = Mid(layas, 2, lolipop)
Console.Write("")
Console.Write("{0}{1}", unangletra, tali)
Console.ReadLine()

.......i tried a lot but i didnt get it pls help

That part would be replaced like this. (you can omit empty strings)

Code:

        lolipop = Len(layas)
        unangletra = UCase(Strings.Left(layas, 1))
        tali = Mid(layas, 2, lolipop)
        TextBox2.AppendText(unangletra & tali)

**Atheist** · Aug 17th, 2009, 04:00 PM

Well if you had told us that right away and not leaving things for us to guess you'd save us some work would you not?

You are using an awful lot of VB6 legacy methods. You should switch to the corresponding .NET ones:
Left - String.Substring
UCase - String.ToUpper
Len - String.Length
Mid - String.Substring

All these methods are non-shared members of the string class, so you'd call them on your string objects.

**izorcism** · Aug 17th, 2009, 04:12 PM

THIS IS MY NEW CODE IN WINDOW APPLICATION UNFORTUNATELY SOME NUMBER LIKE NUMBERS GREATER THAN 99 ARE NOT WORKING EVEN 11 TO 19

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim libo, daan, pagitanngsampu, isa, sampu, lolipop As Integer
Dim layas As String = ""
Dim unangletra As Char
Dim tali As String

If TextBox1.Text > 9999 Then
MsgBox("Number exceeds maximum recommended input.")
ElseIf TextBox1.Text <= 99 Then

libo = TextBox1.Text \ 1000
TextBox1.Text = TextBox1.Text Mod 1000

daan = TextBox1.Text \ 100
TextBox1.Text = TextBox1.Text Mod 100

If TextBox1.Text \ 100 Mod 10 >= 1 AndAlso TextBox1.Text \ 100 Mod 10 <= 9 Then
pagitanngsampu = TextBox1.Text Mod 10

Else

sampu = TextBox1.Text \ 10
TextBox1.Text = TextBox1.Text Mod 10
isa = TextBox1.Text

End If

End If

If libo = 1 Then

layas = libo + "one thousand "

ElseIf libo = 2 Then

layas = layas + "two thousand "

ElseIf libo = 3 Then
layas = layas + "three thousand "

ElseIf libo = 4 Then
layas = layas + "four thousand "

ElseIf libo = 5 Then
layas = layas + "five thousand "

ElseIf libo = 6 Then
layas = layas + "six thousand "

ElseIf libo = 7 Then
layas = layas + "seven thousand "

ElseIf libo = 8 Then
layas = layas + "eight thousand "

ElseIf libo = 9 Then
layas = layas + "nine thousand "

End If

If daan = 1 Then
layas = layas + "one hundred "

ElseIf daan = 2 Then
layas = layas + "two hundred "

ElseIf daan = 3 Then
layas = layas + "three hundred "

ElseIf daan = 4 Then
layas = layas + "four hundred "

ElseIf daan = 5 Then
layas = layas + "five hundred "

ElseIf daan = 6 Then
layas = layas + "six hundred "

ElseIf daan = 7 Then
layas = layas + "seven hundred "

ElseIf daan = 8 Then
layas = layas + "eight hundred "

ElseIf daan = 9 Then
layas = layas + "nine hundred "
End If

If pagitanngsampu = 1 Then

layas = layas + "eleven "

ElseIf pagitanngsampu = 2 Then
layas = layas + "twelve "

ElseIf pagitanngsampu = 3 Then
layas = layas + "thirteen "

ElseIf pagitanngsampu = 4 Then
layas = layas + "fourteen "

ElseIf pagitanngsampu = 5 Then
layas = layas + "fifteen "

ElseIf pagitanngsampu = 6 Then
layas = layas + "sixteen "

ElseIf pagitanngsampu = 7 Then
layas = layas + "seventeen "

ElseIf pagitanngsampu = 8 Then
layas = layas + "eighteen "

ElseIf pagitanngsampu = 9 Then
layas = layas + "nineteen "

End If

If sampu = 1 Then

layas = layas + "ten "

ElseIf sampu = 2 Then

layas = layas + "twenty "

ElseIf sampu = 3 Then
layas = layas + "thirty "

ElseIf sampu = 4 Then
layas = layas + "fourty "

ElseIf sampu = 5 Then
layas = layas + "fifty "

ElseIf sampu = 6 Then
layas = layas + "sixty "

ElseIf sampu = 7 Then
layas = layas + "seventy "

ElseIf sampu = 8 Then
layas = layas + "eighty "

ElseIf sampu = 9 Then
layas = layas + "ninety "

End If

If isa = 1 Then
layas = layas + "one "

ElseIf isa = 2 Then
layas = layas + "two "

ElseIf isa = 3 Then
layas = layas + "three "

ElseIf isa = 4 Then
layas = layas + "four "

ElseIf isa = 5 Then
layas = layas + "five "

ElseIf isa = 6 Then
layas = layas + "six "

ElseIf isa = 7 Then
layas = layas + "seven "

ElseIf isa = 8 Then
layas = layas + "eight "

ElseIf isa = 9 Then
layas = layas + "nine "

End If

lolipop = Len(layas)
unangletra = UCase(Strings.Left(layas, 1))
tali = Mid(layas, 2, lolipop)
TextBox2.AppendText(unangletra & tali)

**Atheist** · Aug 17th, 2009, 04:12 PM

Put Option Strict ON. Fix the errors that you'll get.

**Pradeep1210** · Aug 17th, 2009, 04:17 PM

It works good for me. Maybe you did something wrong.
BTW if you wrap your code in [ CODE] [/ CODE] tags it would be easy for everyone to read here.

Try this:

Code:

    Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, libo, daan, pagitanngsampu, isa, sampu, lolipop As Integer
        Dim layas As String = ""
        Dim unangletra As Char
        Dim tali As String

        n = TextBox1.Text
        If n > 9999 Then
            TextBox2.AppendText("Number exceeds maximum recommended input.")
        Else
            libo = n \ 1000
            n = n Mod 1000

            daan = n \ 100
            n = n Mod 100

            If n >= 11 AndAlso n <= 19 Then
                pagitanngsampu = n Mod 10
            Else
                sampu = n \ 10
                n = n Mod 10
                isa = n
            End If
        End If

        If libo = 1 Then
            layas = layas + "one thousand "
        ElseIf libo = 2 Then
            layas = layas + "two thousand "
        ElseIf libo = 3 Then
            layas = layas + "three thousand "
        ElseIf libo = 4 Then
            layas = layas + "four thousand "
        ElseIf libo = 5 Then
            layas = layas + "five thousand "
        ElseIf libo = 6 Then
            layas = layas + "six thousand "
        ElseIf libo = 7 Then
            layas = layas + "seven thousand "
        ElseIf libo = 8 Then
            layas = layas + "eight thousand "
        ElseIf libo = 9 Then
            layas = layas + "nine thousand "
        End If

        If daan = 1 Then
            layas = layas + "one hundred "
        ElseIf daan = 2 Then
            layas = layas + "two hundred "
        ElseIf daan = 3 Then
            layas = layas + "three hundred "
        ElseIf daan = 4 Then
            layas = layas + "four hundred "
        ElseIf daan = 5 Then
            layas = layas + "five hundred "
        ElseIf daan = 6 Then
            layas = layas + "six hundred "
        ElseIf daan = 7 Then
            layas = layas + "seven hundred "
        ElseIf daan = 8 Then
            layas = layas + "eight hundred "
        ElseIf daan = 9 Then
            layas = layas + "nine hundred "
        End If

        If pagitanngsampu = 1 Then
            layas = layas + "eleven "
        ElseIf pagitanngsampu = 2 Then
            layas = layas + "twelve "
        ElseIf pagitanngsampu = 3 Then
            layas = layas + "thirteen "
        ElseIf pagitanngsampu = 4 Then
            layas = layas + "fourteen "
        ElseIf pagitanngsampu = 5 Then
            layas = layas + "fifteen "
        ElseIf pagitanngsampu = 6 Then
            layas = layas + "sixteen "
        ElseIf pagitanngsampu = 7 Then
            layas = layas + "seventeen "
        ElseIf pagitanngsampu = 8 Then
            layas = layas + "eighteen "
        ElseIf pagitanngsampu = 9 Then
            layas = layas + "nineteen "
        End If

        If sampu = 1 Then
            layas = layas + "ten "
        ElseIf sampu = 2 Then
            layas = layas + "twenty "
        ElseIf sampu = 3 Then
            layas = layas + "thirty "
        ElseIf sampu = 4 Then
            layas = layas + "fourty "
        ElseIf sampu = 5 Then
            layas = layas + "fifty "
        ElseIf sampu = 6 Then
            layas = layas + "sixty "
        ElseIf sampu = 7 Then
            layas = layas + "seventy "
        ElseIf sampu = 8 Then
            layas = layas + "eighty "
        ElseIf sampu = 9 Then
            layas = layas + "ninety "
        End If

        If isa = 1 Then
            layas = layas + "one "
        ElseIf isa = 2 Then
            layas = layas + "two "
        ElseIf isa = 3 Then
            layas = layas + "three "
        ElseIf isa = 4 Then
            layas = layas + "four "
        ElseIf isa = 5 Then
            layas = layas + "five "
        ElseIf isa = 6 Then
            layas = layas + "six "
        ElseIf isa = 7 Then
            layas = layas + "seven "
        ElseIf isa = 8 Then
            layas = layas + "eight "
        ElseIf isa = 9 Then
            layas = layas + "nine "
        End If
        lolipop = Len(layas)
        unangletra = UCase(Strings.Left(layas, 1))
        tali = Mid(layas, 2, lolipop)
        TextBox2.AppendText("")
        TextBox2.AppendText(unangletra & tali)
    End Sub

**izorcism** · Aug 17th, 2009, 04:40 PM

thnk you very much!

------ there is something wrong in textbox2.text
---- it appends the answer in the textbox?
which should not be

example:

first try :
i inputted : 21
output : Twenty one

second try:
i inputted: 23
output : Twenty one Twenty three (WHICH IS WRONG)

PLS HELP,....
THANK YOU

**mickey_pt** · Aug 17th, 2009, 04:43 PM

Just put TextBox2.Clear in the beginning of the sub...

**Shaggy Hiker** · Aug 17th, 2009, 06:25 PM

Option Strict ON would be a VERY good idea for this program. All the implicit conversions and manipulations you were doing in the code could have caused most of the problems you were having. Pradeep solved most of that by putting the textbox into an integer in a single step, though even that is risky, because it assumes that the contents of the textbox CAN be converted to an integer. If it can't, the program will crash.

Replacing:

n = TextBox1.Text

with:

Code:

If Not Integer.TryParse(TextBox1.Text,n) Then
 Windows.Forms.Messagebox.Show("Some nasty message because it wasn't an integer.")
 Return
End If

would be safer.

**Pradeep1210** · Aug 18th, 2009, 02:27 AM

Originally Posted by izorcism

thnk you very much!

------ there is something wrong in textbox2.text
---- it appends the answer in the textbox?
which should not be

example:

first try :
i inputted : 21
output : Twenty one

second try:
i inputted: 23
output : Twenty one Twenty three (WHICH IS WRONG)

PLS HELP,....
THANK YOU

What I did there was a quick conversion of Console Application to Windows Application. I ignored many things, since I just concentrated on the conversion part.
What you need to do now is go line by line and fix things.
There are many things that are fundamentally different in Console and Windows applicaitons. e.g. All input and output is at same place. Things are almost always appended to the output rather than an overwrite/replace. Fixed messages as well as program output goes at same place.. etc.

Here are some fixes you would like to do now:
1. Fixed messages like "Enter a number from 1 to 9999: " etc. would go into labels placed at appropriate places.
2. Warning/Error messages like "Number exceeds maximum recommended input." go into MessageBox/MsgBox.
3. You won't like to append the new output to previous output. Instead you want an overwrite/replace of previous output. This means TextBox2.AppendText should now be replaced by appropriate assignment operator. e.g. TextBox2.AppendText(unangletra & tali) should be replaced by: TextBox2.Text = unangletra & tali
4. Put appropriate checks on user input as SH pointed out in previous post to avoid application from crashing.
5. You won't like anyone writing in your output box. So make it readonly.

Thread: pls help me!im begging you

Thread Tools

Display

pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Re: pls help me!im begging you

Posting Permissions