VB 2005 Hi all! Short little question

mikan · #1 (**permalink**) 10-20-2007, 08:45 PM

//////edit: oct 22 solved. was making it lots harder than needed;
easier to call the textbox in each case. [returns are weeeeird]
don't know if that's a good explanation, but variables
pass through correctly and the whole program works now. thanks all ^______________^////

Hello

I'm trying to write a program where the user enters a number in a message box, and values are calculated
through a function.
What I can't figure out is how to pass that calculated number [suppose it's a variable called quantity] to
a text box.
I do something like
quantity = (txtShipment.Text)

and get Message="Conversion from string "" to type 'Double' is not valid."

quantity is declared as a double, but I can't seem to figure this out. :/

Is there a way to go about this? Thank you muchly

edit::
after some editing, I now get a 0 in the textbox.
How can the variable pass through the function and display in a textbox?
It's going byref in the input data sub, and is byref in the function where the calculations are done.
Thanks in advance ^^;

Lee · #2 (**permalink**) 10-21-2007, 03:50 AM

If you showed your code it would make your question much clearer, from what you have said i would say try:
txtShipment.text = quantity

If thats not right then your question is not what i thought, as i said please post code.

mikan · #3 (**permalink**) 10-21-2007, 10:46 AM

Edit oct 22: !! Oh right, will fix the variable name and return from the function. Hmm..
Will update post with future problem once that's figured out.
~~~~
Ok, thanks. What I aim to do is take the variable of the input box and pass it down a procedure.
Somehow the value isn't being processed through to the calculation.

These are some pieces:

Quote:

Public Class Form1

Private Sub btnCalTax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalTax.Click
Dim income As Double

GetData(income)
FedIncomeTax(income)
txtTaxable.Text = income
End Sub

Quote:

Sub GetData(ByVal income As Double)
income = CDbl(InputBox("Enter income"))
End Sub

Quote:

Function FedTax(ByRef income As Double) As Double
Select Case income
Case 7150 To 29050
Return 0.15 * (taxableIncome - 7150)

Case 29050 To 70350
Return 0.25 * (taxableIncome - 29050)
End Select

End Function

mikan · #4 (**permalink**) 10-22-2007, 11:04 PM

whew, solved. seems to be so far, anyway :^_^:
prob not the best solution, but figured to just call the textbox up in each case instead.
don't know how to explain it, though, esp if this isn't the best answer.

HelloWorld · #5 (**permalink**) 10-22-2007, 11:33 PM

Sorry that I couldn't help you at all because I'm not VB experienced programmer haha... ^^ but it's good that you can solve it, it happened to me before too haha...

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

The Following User Says Thank You to Lee For This Useful Post:
HelloWorld (10-21-2007)

The Following User Says Thank You to mikan For This Useful Post:
HelloWorld (10-21-2007)