Power1 value is zero after for next VB.NET

Question

1.00/5 (1 vote)

See more:

VB

Dim Guc1....Guc59 as decimal

Guc1=Val(TextBox5.Text)*Val(Textbox98.Text)
  . 
  .
  .
Guc59=Val(TextBox42.Text)*Val(Textbox12.Text)

For i = 1 To 59 Step 2

        Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox)
        Dim guc As Decimal = CType(("Guc".ToString & i), Decimal)

        Hız1 = Val(txt.Text) * RollinRadius * 3.14 * 3.6 / (Val(TextBox1.Text) * Val(TextBox33.Text) * 30)


        Power1 = guc * 3.14 / (30 * 1000) *2  *3)

        ListBox2.Items.Add(Power1)


    Next

What I have tried:

Could you please help me to solve Power1 zerp issue.
I think ctype is incorrect here.

Posted 10-Feb-17 22:25pm

Member 12860952

Updated 10-Feb-17 22:48pm

Ralf Meier

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Ralf Meier · Accepted Answer · 2017-02-10T22:42:00

A little more explaining would be useful for your question ...

I would do the following :
- instead of using 59 seperate Variables (Guc1 ... Guc59) use an Array (Dim Guc(59) as decimal)
now you are able to index each Array-Element inside your loop.
- are you really sure that each Textbox contains a numeric value ?

However - your code could look like this :

VB

Dim Guc (59) as decimal

Guc(1) = Val(TextBox5.Text)*Val(Textbox98.Text)
.
.
.
Guc(59) = Val(TextBox42.Text)*Val(Textbox12.Text)

For i = 1 To 59 Step 2
   Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox)
   Hız1 = Val(txt.Text) * RollinRadius * 3.14 * 3.6 / (Val(TextBox1.Text) * Val(TextBox33.Text) * 30)

   Power1 = guc(i) * 3.14 / (30 * 1000) *2 *3)  ' <== instead of 3.14 you could also use Math.Pi

   ListBox2.Items.Add(Power1)
Next

Additional :
If you give your Textboxes (and also other controls) names which correspond to the input, which is made into them, your will become much more understandable and readable.
Do you think, that you will know in a few months which input is to be made into TextBox42 (for example) ?