RSS

calculation calculation hhmmmmm.....

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Tools Display Modes

Views: 323 | Replies: 4

•

Join Date: Apr 2008

Posts: 5

Reputation: afan_ell is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

afan_ell

Offline

Newbie Poster

calculation calculation hhmmmmm.....

Apr 1st, 2008

can anyone help me
i wanna calculate the total of electrical bill
this is my situation...

Rate 1 = 0.218 for first 0 – 200 KWh usage
Rate 2 = 0.289 for 201-1000 KWh usage
Electrical usage (KWh) = Latest Meter Reading - Previous Meter Reading
If electrical usage between 0 – 200 KWh,
Total payment = (Electrical usage x Rate 1) + arrears
If electrical usage between 201 - 1000 KWh,
Total payment = (Electrical usage x Rate 2) + arrears

can anyone help me on VB6 coding....

•

Join Date: Feb 2008

Location: Cebu, Philippines

Posts: 122

Reputation: cometburn is an unknown quantity at this point

Rep Power: 1

Solved Threads: 19

cometburn

Offline

Junior Poster

Re: calculation calculation hhmmmmm.....

Apr 1st, 2008

You got it already. The problem is you have to Code it. Lol. Let me look at this one.

Proud to be Philippine made...

•

Join Date: Feb 2008

Location: Cebu, Philippines

Posts: 122

Reputation: cometburn is an unknown quantity at this point

Rep Power: 1

Solved Threads: 19

cometburn

Offline

Junior Poster

Re: calculation calculation hhmmmmm.....

Apr 1st, 2008

here it is...

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim Rate As Double
Dim ElectricalUsage As Double
Dim TotalPayment As Double
'get Electrical Usage
ElectricalUsage = Val(txtLatestMeterReading.Text) - Val(txtPreviousMeterReading.Text)
 
If ElectricalUsage <= 200 Then
    Rate = 0.218
ElseIf ElectricalUsage > 200 And ElectricalUsage <= 1000 Then
    Rate = 0.289
Else
    'Electrical Usage is greater than 1000
End If
 
'calculate (what's arrears anyway?)
TotalPayment = (ElectricalUsage * Rate) + arrears
MsgBox TotalPayment
Dim Rate As Double
Dim ElectricalUsage As Double
Dim TotalPayment As Double
'get Electrical Usage
ElectricalUsage = Val(txtLatestMeterReading.Text) - Val(txtPreviousMeterReading.Text)

If ElectricalUsage <= 200 Then
    Rate = 0.218
ElseIf ElectricalUsage > 200 And ElectricalUsage <= 1000 Then
    Rate = 0.289
Else
    'Electrical Usage is greater than 1000
End If

'calculate (what's arrears anyway?)
TotalPayment = (ElectricalUsage * Rate) + arrears
MsgBox TotalPayment