dbasnett's Profile User Rating: -----

Reputation: 106 Stalwart
Group:
Active Members
Active Posts:
596 (0.28 per day)
Joined:
01-October 08
Profile Views:
7,243
Last Active:
User is offline Yesterday, 04:36 AM
Currently:
Offline

Previous Fields

Country:
Who Cares
OS Preference:
Who Cares
Favorite Browser:
Who Cares
Favorite Processor:
Who Cares
Favorite Gaming Platform:
Who Cares
Your Car:
Who Cares
Dream Kudos:
0

Latest Visitors

Icon   dbasnett has not set their status

Posts I've Made

  1. In Topic: Doubling Time, do loops

    Posted 10 Jul 2014

    I came up with a different answer. Double in 11 years, million in 77 years.

            Dim initAmt As Decimal = 10000D
            Dim dblAmt As Decimal = initAmt * 2D
            Dim dblMonths As Integer = -1
            Dim ctMonths As Integer = 0
            Dim yrRate As Decimal = 0.06D
    
            'assume the money is compunded monthly
            Dim moRate As Decimal = yrRate / 12D
    
            Do While initAmt < 1000000D
                If dblMonths = -1 AndAlso initAmt >= dblAmt Then
                    dblMonths = ctMonths
                End If
                ctMonths += 1
                initAmt += initAmt * moRate
            Loop
            Debug.WriteLine("DBL in " & (dblMonths / 12D).ToString)
            Debug.WriteLine("Mil in " & (ctMonths / 12D).ToString)
    
    
  2. In Topic: Random Number Guessing Game Help

    Posted 28 Jun 2014

    When you do TryParse the first parameter is the string, the second is the result. Where do you want the result to go? Should it be the random number generated by the computer?
  3. In Topic: Random Number Guessing Game Help

    Posted 28 Jun 2014

    I took your code and made some changes, but left the cause of the error. Take a look at the line where the error is and this link:

    http://msdn.microsof...y/f02979c7.aspx

        Dim rndnum As New Random
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim guess As Integer = -1
            Dim counter As Integer
            counter = 0
            Dim numberToGuess As Integer = rndnum.Next(1, 101)
            Debug.WriteLine(numberToGuess)
            Dim strguess As String
    
            Do
                strguess = InputBox("Guess a Number", "Guess the Number Game")
                If Not Integer.TryParse(strguess, numberToGuess) Then 'error is on this line
                    MessageBox.Show("Guess Must Be a Number!")
                ElseIf guess < numberToGuess Then
                    MessageBox.Show("You Guessed Too Low", "Guess the Number Game")
                ElseIf guess > numberToGuess Then
                    MessageBox.Show("You Guessed Too High", "Guess the Number Game")
                ElseIf guess = numberToGuess Then
                    InputBox("You Win!!!!!!", "Guess the Number Game")
                End If
            Loop While guess <> numberToGuess
        End Sub
    
    
  4. In Topic: How to turn an integer into a time value?

    Posted 22 Jun 2014

    https://www.csun.edu...ple%20Learn.pdf
  5. In Topic: How to turn an integer into a time value?

    Posted 22 Jun 2014

    View PostSheepings, on 22 June 2014 - 11:50 AM, said:

    ...But by posting code right after I direct him to sources for him to learn more, you're pissing all over my efforts to teach the OP by just blasting code across the page, which no doubt will side track him from the links he actually need to read in order to progress with his/her learning experience. That's all I have to say on this.


    Wow! My intent was to urinate all over the 'correct way' to help users. Yep, that was definitely my plan. After the last incident like this I was docked points. I really don't need this grief, reminds me of SO.

My Information

Member Title:
D.I.C Addict
Age:
Age Unknown
Birthday:
July 29
Gender:
Years Programming:
45

Contact Information

E-mail:
Private
Website URL:
Website URL  http://

Friends

Comments

dbasnett has no profile comments yet. Why not say hello?