VB.NET

VB.NET RSS

help with array please

Please support our VB.NET advertiser: $4.95 a Month - ASP.NET Web Hosting – Click Here!

•

Join Date: Nov 2008

Posts: 74

Reputation: sacarias40 is an unknown quantity at this point

Solved Threads: 0

sacarias40 sacarias40 is offline

Offline

Junior Poster in Training

help with array please

Nov 22nd, 2008

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
 
 
    Private Sub TextBox1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover
        ToolTip1.SetToolTip(TextBox1, "Cash Flow")
    End Sub
    Private Sub TextBox2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseHover
        ToolTip1.SetToolTip(TextBox2, "Account Balance")
    End Sub
 
 
    Private Sub TextBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        TextBox1.Clear()
    End Sub
 
    Private Sub TextBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown
        TextBox2.Clear()
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'these variable need to plug into an equation
        dim name as string
        Dim current As Decimal
        Dim toBuy As Integer
        Dim startPrice As Decimal
        Dim newPrice As Decimal
        Dim totalNeed As Decimal
        Dim quantity As Integer
        Dim subNeed As Decimal
        Dim account As Decimal
        Dim flow As Decimal
        Dim hours As Decimal
 
        'this is the equation
        newPrice = current + (toBuy) * (0.1 * startPrice)
 
        totalNeed = newPrice * quantity
 
        subNeed = totalNeed - account
 
        hours = subNeed / flow
 
        MsgBox("it will take you " & hours & " hours to save up for " & quantity & name & "'s. ")
    End Sub
End Class
Public Class Form1


    Private Sub TextBox1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover
        ToolTip1.SetToolTip(TextBox1, "Cash Flow")
    End Sub
    Private Sub TextBox2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseHover
        ToolTip1.SetToolTip(TextBox2, "Account Balance")
    End Sub


    Private Sub TextBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        TextBox1.Clear()
    End Sub

    Private Sub TextBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown
        TextBox2.Clear()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'these variable need to plug into an equation
        dim name as string
        Dim current As Decimal
        Dim toBuy As Integer
        Dim startPrice As Decimal
        Dim newPrice As Decimal
        Dim totalNeed As Decimal
        Dim quantity As Integer
        Dim subNeed As Decimal
        Dim account As Decimal
        Dim flow As Decimal
        Dim hours As Decimal

        'this is the equation
        newPrice = current + (toBuy) * (0.1 * startPrice)

        totalNeed = newPrice * quantity

        subNeed = totalNeed - account

        hours = subNeed / flow

        MsgBox("it will take you " & hours & " hours to save up for " & quantity & name & "'s. ")
    End Sub
End Class

for example, the plaza that i was about to click on (in the pic)
it is in combobox1, it is plaza, and its starting price is 1000000 dollars.

it has a starting price, but depending on how many somebody already owns it has a current price. you can find out the current price by plugging what you know into the equation:
newPrice = (current) + (toBuy) * (0.1 * startPrice)
you then plug the rest of these into some more code(not shown yet) to get the hours to save up.

my question is, how do i make an array that has the name and starting price associated with the combobox1.

so when i click the plaza it plugs the startPrice into the equation and it plugs the name into the msgbox output string.

please help, ive been struggling with this for a couple weeks now.
best regards!!!

Attached Images

	mobcalc.jpg (14.0 KB, 2 views)
	mobcalc2.jpg (10.0 KB, 2 views)

•

Join Date: Mar 2007

Posts: 304

Reputation: timothybard is an unknown quantity at this point

Solved Threads: 25

timothybard timothybard is offline

Offline

Posting Whiz

Re: help with array please

Nov 22nd, 2008

Here is some example code of how to set up an array:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
        'Declare Array
        Dim properties(3, 1) As String
 
        'Set values of Array
        properties(0, 0) = "Plaza"
        properties(0, 1) = "1000000"
 
        properties(0, 0) = "Seaside Lot"
        properties(0, 1) = "1500000"
 
        properties(0, 0) = "Restaurant"
        properties(0, 1) = "3000000"
 
        'Retreive values of Array
        Dim newPrice, current, toBuy As Double
        newPrice = current + toBuy * (0.1 * properties(0, 1))
        'Declare Array
        Dim properties(3, 1) As String

        'Set values of Array
        properties(0, 0) = "Plaza"
        properties(0, 1) = "1000000"

        properties(0, 0) = "Seaside Lot"
        properties(0, 1) = "1500000"

        properties(0, 0) = "Restaurant"
        properties(0, 1) = "3000000"

        'Retreive values of Array
        Dim newPrice, current, toBuy As Double
        newPrice = current + toBuy * (0.1 * properties(0, 1))