Calling ALL Programmers

[melloman]

This is a call for anyone who has done Intro to Visual Basic.

You can see the full assignment in the spoiler:

Spoiler!

Coding:

Spoiler!

'-
Option Strict On
Public Class Form1

Private Sub btnDefault_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDefault.Click
Dim intCustNumber As Integer
Dim intAdult As Integer
Dim intKid As Integer

'to change dtpSail date 7 days from system date
dtpSail.Value = DateAdd(DateInterval.Day, 7, Today)


txtCustName.Text = "********"
txtCustNumber.Text = "*********"
txtAdult.Text = "2"
txtKid.Text = "1"

rbRV.Checked = True
'Setting RV as automatic Default
rbVanVic.Checked = True
'Setting Van-Victoria as automatic Default
cbWiFi.Checked = True
'Setting WiFi as automatic Default
End Sub

Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click
Dim bytAdult, bytKids As Byte
Dim intAmount As Integer
Dim intAdultamt, intKidsamt As Double
Dim intWifi As Integer
Dim intRestaurant, intNonRv, intRV, intFootPass, intVanVic, intVanNan As Double
Dim strName() As String
Dim strFormat As String = "{0,-20}{1,30:c2}"
':c2 is currency format with 2 dec
Dim intResult As Integer
'Dim strCustName As String
Dim dblAmount As Double
Dim dblRestaurant As Double
Dim dblWifi As Double
'Dim txtAdult As String
Dim dblFootPass As Double



bytAdult = CByte(txtAdult.Text)
bytKids = CByte(txtKid.Text)
intAdultamt = bytAdult * 15
intKidsamt = bytKids * 12.5
'intAdultamt = 15
'intKidsamt = 12.5

intFootPass = 0
intRV = 50
intNonRv = 35.75
intVanVic = 12.5
intVanNan = 22.5
dblRestaurant = 15

If cbWiFi.Checked = True Then
dblWifi = dblWifi + 5
Else
dblWifi = dblWifi + 0
End If
cbWiFi.Checked = CBool(FormatCurrency(dblWifi, 2))

dtpSail.Value = DateAdd(DateInterval.Day, 7, Today)

txtCustName.Text = "*********"
'txtCustNumber.Text = "**********"


lstResult.Items.Add(String.Format(strFormat, "Invoice ID", txtCustNumber.Text))
lstResult.Items.Add(String.Format(strFormat, "Customer Name", txtCustName.Text))
lstResult.Items.Add(String.Format(strFormat, "Reservation Date", dtpSail.Value))
'lstResult.Items.Add(String.Format(strFormat, "Reservatopm Date",

'lstResult.Items.Add(String.Format(strFormat, "Sail Date",
lstResult.Items.Add(String.Format(strFormat, "Passenger Fare", intAdultamt + intKidsamt))
Select Case True
Case rbFootPass.Checked
lstResult.Items.Add(String.Format(strFormat, "Category Charge", intFootPass))
Case rbRV.Checked
lstResult.Items.Add(String.Format(strFormat, "Category Charge", intRV))
Case rbNonRV.Checked
lstResult.Items.Add(String.Format(strFormat, "Category Charge", intNonRv))
End Select
Select Case True
Case rbVanVic.Checked
lstResult.Items.Add(String.Format(strFormat, "Destination Charge", intVanVic))
Case rbVanNan.Checked
lstResult.Items.Add(String.Format(strFormat, "Destination Charge", intVanNan))
End Select
'lstResult.Items.Add(String.Format(strFormat, "Restaurant Charge", intAdultamt))
lstResult.Items.Add(String.Format(strFormat, "Wifi Charge", dblWifi))
'lstResult.Items.Add(String.Format(strFormat, "Total Amount Due",

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
End Class

Issues:

'Invoice ID: to display last 3 digits of customer number and Initals of Name. Eg. EL725
'Customer Name "Last Name, First Name" while Customer Name txt box remains "First Name Last Name"
'Reservation Date = system date but in mm/dd/yyyy
'Sail Date = show sail date 7 days from reservation date
'Restaurant Charge = how to have seperate charges for adults and kids
'Total Amount Due = add everything together.

ANY HELP IS GREATLY APPRECIATED AS THIS IS DUE TOMORROW AT MIDNIGHT..

P.S. If you can help me figure this shit out. Coffee and donuts are on me at a n00b/RS meet.

[Tawpie]

'Invoice ID: to display last 3 digits of customer number and Initals of Name. Eg. EL725

For this, you will need to learn these functions: GetChar, Split, and ToString. Oh and, a basic understanding of concatenation.

I'm not going to put the code in here because I don't have any IDE to test the code, but I'll explain the steps required to achieve your objective.

1. Store their name in a variable, lets call this name.

2. Use Split method of String class to break name into two chunks INTO an array. (Tips: Space is the default Delimiter, and set the appropriate number for Limit to ensure you're only getting two letters.)

3. Use a for loop, use the GetChar method of String class to take the first indexed character of each string in your array. Store each char to a variable

4. Use the Right method of String class to grab the 3 numbers of your customer number.

5. Concatenate everything together to form XXnnn.

Hope this helps. I would code it if I had an IDE for VB, but I don't.

[Tawpie]

By the way, what are the content inside the second spoiler? Are those your work in progress? Or given by instructor?

[melloman]

Current work in progress.

[Tawpie]

I recommend you use the data type Decimal for any variables for money.

Look Here!