Visual Basic Deleted

[KlayThompson]

Deleted

 

[KlayThompson]

Sana mapansin po ng mga master jan sa vb.

 

[dee-u]

I-store mo sa class-level variable yung data na gusto mong mabago pagkaclick niyang button.

 

[KlayThompson]

panu po yun? pasensya po kakastart lang namin sa vb eh medyo mahina pa po. salamat po sa pagsagot nyo master

 

[Murrzz]

Yeah use another Variable

 

[KlayThompson]

paanu po?

 

[dee-u]

Not sure kung correct ito, pero parang ganito, icheck mo yung nakahighlight na lines:

[CODE lang="csharp" title="Code" highlight="7,22"]Option Explicit On
Option Strict On
Option Infer Off

Public Class Form1

Dim decItemPrice As Decimal


Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click

Const Tax As Decimal = 0.05D
Dim Shipping As Decimal = 6.5D
Dim decSubtotal As Decimal
Dim decSalesTax As Decimal
Dim decTotal As Decimal
Dim intCount As Integer

Decimal.TryParse(txtItemPrice.Text, decItemPrice)


decSubtotal = decSubtotal + decItemPrice
decSalesTax = decItemPrice * Tax
decTotal = decSubtotal + decSalesTax + Shipping

If (decSubtotal >= 100) Then
decTotal = decTotal - Shipping
Shipping = 0.0D
End If

lblSubtotal.Text = decSubtotal.ToString("c2")
lblSalesTax.Text = decSalesTax.ToString("c2")
lblShipping.Text = Shipping.ToString("c2")
lblTotal.Text = decTotal.ToString("c2")


End Sub

Private Sub txtItemPrice_Click(sender As Object, e As EventArgs) Handles txtItemPrice.Click

txtItemPrice.SelectAll()
End Sub

Private Sub txtItemPrice_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtItemPrice.KeyPress

If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." Then
e.Handled = True
End If
End Sub

Private Sub txtItemPrice_TextChanged(sender As Object, e As EventArgs) Handles txtItemPrice.TextChanged

lblSubtotal.Text = String.Empty
lblSalesTax.Text = String.Empty
lblShipping.Text = String.Empty
lblTotal.Text = String.Empty
End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class[/CODE]

 

[KlayThompson]

ganun pa rin boss eh, ayaw mag add dun sa next input ng user. Pero salamat pa rin dito lodi

 

[KlayThompson]

kung sakaling masolve nyo po magbibigay po ako ng 50 smartload gusto ko lang kasi pag aralan kung san ako nagkulang.

 

[dee-u]

Gumagana siya, katetesting ko lang. Input ka ng 20, click calculate. Tapos input ka ng 10, click calculate. HIndi ba ganun?

 

[KlayThompson]

nilipat ko po yung thread dito lods.

50Php Smartload para sa unang makakasolve ng problem na to.