Annoying Zero VB 2010

[thewhiteshadow]

Thank you all for your help:

My program is running great with one little problem, it keep adding a zero to my listbox and the multiplication and sum result don't line up well. Heeeeelp. the result would be like:

1X0 = 0 <==== The Problem
1X1 = 0
1X2 = 1
1X3 = 2

===============new code===============================


Dim numeroMulti, numeroSuma As Integer

'data enter by user
numeroMulti = CDbl(TextBox1.Text)
numeroSuma = CDbl(TextBox1.Text)


'line of code to call modul tmultiSuma
Call tmultiSuma(numeroMulti, numeroSuma)

End Sub
Public Sub tmultiSuma(ByVal numeroMulti As Integer, ByVal numeroSuma As Integer)
Dim tMulti, tSuma, tCounter As Integer

'loop to calculat sum and multiplication table

Do Until tCounter = 13
'lista resultado multiplicacion
ListBox1.Items.Add(tCounter & "X" & numeroMulti & "=" & "" & tMulti)

'lista resultado suma
ListBox2.Items.Add(tCounter & "+" & numeroSuma & "=" & "" & tSuma)

'operation with a counter
tMulti = tCounter * numeroMulti
tSuma = tCounter + numeroSuma
tCounter = tCounter + 1
Loop

[baja_yu]

You posted in the wrong section. this is for VB Classic not .Net. I've notified Mods to move the thread for you.

[thewhiteshadow]

thank you, I already post it in vb.net, thank you for advising me.

[baja_yu]

Your problem is that you are first adding items to the listbox and then doing the calculations. It should be the other way around.

[thewhiteshadow]

can you post the code, is my first program in visual basic and I thing this is as far as I can go, it would be of great help. thank you.

[baja_yu]

Move the .Add functions to the end of the loop.

[thewhiteshadow]

like this


Do Until tCounter >= 13

'operacion con counter
tMulti = tCounter * numeroMulti
tSuma = tCounter + numeroSuma
tCounter = tCounter + 1

ListBox1.Items.Add(numeroMulti & "X" & tCounter & "=" & "" & tMulti) 'lista resultado multiplicacion
ListBox2.Items.Add(numeroSuma & "+" & tCounter & "=" & "" & tSuma) 'lista resultado suma

Loop

is still showing the extra zero in the result, man I'm done, is too hard.

[baja_yu]

Try

Do Until tCounter >= 13
   tCounter = tCounter + 1
   
   'operacion con counter
   tMulti = tCounter * numeroMulti
   tSuma = tCounter + numeroSuma

   ListBox1.Items.Add(numeroMulti & "X" & tCounter & " = " & tMulti) 'lista resultado multiplicacion
   ListBox2.Items.Add(numeroSuma & "+" & tCounter & " = " & tSuma) 'lista resultado suma
Loop

[thewhiteshadow]

jajajajaj, Thanks baja_yu it work, you are amazing, my first program an is running great thank to you, thank, thank, thank, thank, thank for your help, I appreciate it a lot.
THANKS!!!!!!!!!!!!!!!!.

[baja_yu]

No problem.

As you feel your question has been answered, please take time to mark the thread as Resolved. You can do so by going to the Thread Tools menu, which is on the right side above your original post, and choosing Mark Thread Resolved.

[MartinLiss]

Thread moved.