December 13th, 2006, 03:09 PM
|
|
Registered User
|
|
Join Date: Dec 2006
Location: South Florida, USA
Posts: 1
Time spent in forums: 36 m 17 sec
Reputation Power: 0
|
|
|
Need help with a VB program
Well, the program im writing looks like its got no errors, but when I run it doesnt work(When I want to Display the Final Costs, etc. It displays 0 ), maybe I got something wrong with it, plz help:
(Its not complete yet)
PHP Code:
Option Strict On
Public Class frmHotelBillingApp
Const _decUStoMex As Decimal = 18.852D
Private Sub frmHotelBillingApp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Threading.Thread.Sleep(1000)
End Sub
Private Sub cboTypeofRoom_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboTypeofRoom.SelectedIndexChanged
Me.cboCurrency.Visible = True
End Sub
Private Function KingStandard(ByVal decSubTotal As Decimal) As Decimal
decSubTotal = 235D
Return decSubTotal
End Function
Private Function KingSuite(ByVal decSubTotal As Decimal) As Decimal
decSubTotal = 280D
Return decSubTotal
End Function
Private Function QueenStandard(ByVal decSubTotal As Decimal) As Decimal
decSubTotal = 255D
Return decSubTotal
End Function
Private Function QueenSuite(ByVal decSubTotal As Decimal) As Decimal
decSubTotal = 310D
Return decSubTotal
End Function
Private Sub cboCurrency_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCurrency.SelectedIndexChanged
Me.cboNofNights.Visible = True
End Sub
Private Function US(ByVal decTax As Decimal) As Decimal
decTax = 7D
Return decTax
End Function
Private Function Mex(ByVal decTax As Decimal) As Decimal
decTax = 18.5D
Return decTax
End Function
Private Sub cboNofNights_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboNofNights.SelectedIndexChanged
Dim intNumberofNightsChoice As Integer
Dim decFinalCost As Decimal
Dim intRoomTypeChoice As Integer
Dim intCurrencyChoice As Integer
Dim decSubTtal As Decimal
Dim decTax As Decimal
intCurrencyChoice = Me.cboCurrency.SelectedIndex
intRoomTypeChoice = Me.cboTypeofRoom.SelectedIndex
intNumberofNightsChoice = Me.cboNofNights.SelectedIndex
Me.lblFCost.Visible = True
Me.lblSubotal.Visible = True
Me.lblTaxes.Visible = True
Select Case intRoomTypeChoice
Case 0
KingStandard(decSubTtal)
Case 1
KingSuite(decSubTtal)
Case 2
QueenStandard(decSubTtal)
Case 3
QueenSuite(decSubTtal)
End Select
Select Case intCurrencyChoice
Case 0
US(decTax)
Case 1
Mex(decTax)
End Select
Select Case intNumberofNightsChoice
Case 0
decFinalCost = decSubTtal + decTax
Me.lblTax.Visible = True
Me.lblTax.Text = decTax.ToString("P")
Me.lblSub.Visible = True
Me.lblSub.Text = decSubTtal.ToString("C")
Me.lblTot.Visible = True
Me.lblTot.Text = decFinalCost.ToString("C")
Case 1
' Me.lblTax.Visible = True
' Me.lblTax.Text = "$"
' Me.lblSub.Visible = True
' Me.lblSub.Text = "$"
' Me.lblTot.Visible = True
' Me.lblTot.Text = "$"
Case 2
' Me.lblTax.Visible = True
' Me.lblTax.Text = "$"
' Me.lblSub.Visible = True
' Me.lblSub.Text = "$"
' Me.lblTot.Visible = True
' Me.lblTot.Text = "$"
Case 3
' Me.lblTax.Visible = True
' Me.lblTax.Text = "$"
' Me.lblSub.Visible = True
' Me.lblSub.Text = "$"
' Me.lblTot.Visible = True
' Me.lblTot.Text = "$"
Case 4
' Me.lblTax.Visible = True
' Me.lblTax.Text = "$"
' Me.lblSub.Visible = True
' Me.lblSub.Text = "$"
' Me.lblTot.Visible = True
' Me.lblTot.Text = "$"
Case 5
' Me.lblTax.Visible = True
' Me.lblTax.Text = "$"
' Me.lblSub.Visible = True
' Me.lblSub.Text = "$"
' Me.lblTot.Visible = True
' Me.lblTot.Text = "$"
Case 6
' Me.lblTax.Visible = True
' Me.lblTax.Text = "$"
' Me.lblSub.Visible = True
' Me.lblSub.Text = "$"
' Me.lblTot.Visible = True
' Me.lblTot.Text = "$"
End Select
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
