BobCat Motors Solution

Expand Post »

hey all. the program is for Chapter 8 Lesson C in the Visual Basic 2005

below is code where i have to create a program that allows the user to enter a 4-digit number that identifies whether the salesperson is full or part time.

"Each salesperson at BobCat Motors is assigned an ID number, which consists of four characters. The first character is either the letter F or the letter P. The letter F indicates that the salesperson is a full-time employee. The letter P indicates that he or she is a part-time employee. The middle two characters are the salesperson's initials, and the last character is either a 1 or a 2. A 1 indicates that the salesperson sells new cars, and a 2 indicates that the salesperson sells used cars.

VB.NET Syntax (Toggle Plain Text)
    Private Sub xCalcButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xCalcButton.Click
        'variables
        Dim strInput As String = ""
 
        Dim str1stCharacter As String = ""
        Dim strlstCharacter As String
 
        Dim strOutput As String = ""
 
        Dim fullt As Integer = 0
        Dim partt As Integer = 0
        Dim newsellcar As Integer = 0
        Dim usesellcar As Integer = 0
 
        strInput = Me.xIdTextBox.Text
 
        ' changes the id number case to upper
        strInput = Me.xIdTextBox.Text.ToUpper()
        ' sets the focus
        Me.xIdTextBox.Focus()
 
        str1stCharacter = Microsoft.VisualBasic.Left(strInput, 1)
        strlstCharacter = Microsoft.VisualBasic.Left(strInput, 4)
 
        If str1stCharacter = "F" And strlstCharacter = "1" Then
            'salesperson is fulltime and sells new cars
             Me.xFulltimeLabel.Text = 
            Me.xNewCarsLabel.Text = CStr(newsellcar)
        ElseIf str1stCharacter = "F" And strlstCharacter = "2" Then
            'salesperson is fulltime and sells used cars
             Me.xFulltimeLabel.Text = 
             Me.xUsedCarsLabel.Text =
        ElseIf str1stCharacter = "P" And strlstCharacter = "1" Then
            'salesperson is part-time and sells new cars
             Me.xParttimeLabel.Text =
             Me.xNewCarsLabel.Text = 
 
        ElseIf str1stCharacter = "P" And strlstCharacter = "2" Then
            'salesperson is part-time and sells used cars
             Me.xParttimeLabel.Text =
             Me.xUsedCarsLabel.Text =
 
        End If
 
 
    End Sub
    Private Sub xCalcButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xCalcButton.Click
        'variables
        Dim strInput As String = ""

        Dim str1stCharacter As String = ""
        Dim strlstCharacter As String

        Dim strOutput As String = ""

        Dim fullt As Integer = 0
        Dim partt As Integer = 0
        Dim newsellcar As Integer = 0
        Dim usesellcar As Integer = 0

        strInput = Me.xIdTextBox.Text

        ' changes the id number case to upper
        strInput = Me.xIdTextBox.Text.ToUpper()
        ' sets the focus
        Me.xIdTextBox.Focus()

        str1stCharacter = Microsoft.VisualBasic.Left(strInput, 1)
        strlstCharacter = Microsoft.VisualBasic.Left(strInput, 4)

        If str1stCharacter = "F" And strlstCharacter = "1" Then
            'salesperson is fulltime and sells new cars
             Me.xFulltimeLabel.Text = 
            Me.xNewCarsLabel.Text = CStr(newsellcar)
        ElseIf str1stCharacter = "F" And strlstCharacter = "2" Then
            'salesperson is fulltime and sells used cars
             Me.xFulltimeLabel.Text = 
             Me.xUsedCarsLabel.Text =
        ElseIf str1stCharacter = "P" And strlstCharacter = "1" Then
            'salesperson is part-time and sells new cars
             Me.xParttimeLabel.Text =
             Me.xNewCarsLabel.Text = 

        ElseIf str1stCharacter = "P" And strlstCharacter = "2" Then
            'salesperson is part-time and sells used cars
             Me.xParttimeLabel.Text =
             Me.xUsedCarsLabel.Text =

        End If


    End Sub

I know what I want to do...just kinda stuck on making it happen. I'm thinking I may need a Do While structure for the F and P but iono.

Help?

leroi green

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

93 posts
since Oct 2007

Permalink

May 6th, 2008

Re: BobCat Motors Solution

The code looks valid and it's gonna do what it's supposed to.
You don't need a Do While.

This snippet extracts the first and last character of the string which is then used in the IF statement for comparison.
str1stCharacter = Microsoft.VisualBasic.Left(strInput, 1) strlstCharacter = Microsoft.VisualBasic.Left(strInput, 4)
What, exactly, is it that you want to do and you get stuck on?

Oxiegen

Reputation Points: 87

Solved Threads: 128

Practically a Master Poster

Offline

652 posts
since Jun 2006

Permalink

May 7th, 2008

Re: BobCat Motors Solution

Like Oxiegen said, it should run perfectly but don't forget to finish the IF statement and fill the equal sign to do what it should ie.

VB Syntax (Toggle Plain Text)
Me.xFulltimeLabel.Text = "Full-Time: True"
Me.xFulltimeLabel.Text = "Full-Time: True"

Also you don't need to write "Me." infront because its already assumed that its like that.

toko

Reputation Points: 10

Solved Threads: 8

Junior Poster

Offline

104 posts
since Aug 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: FileNotFoundException

Next Thread in VB.NET Forum Timeline: display output prompted by radio button

DaniWeb Message

Cancel Changes

User Name
Password