All pastes #927863 Raw Edit

Untitled

public text v1 · immutable
·published 2008-03-04 16:28 UTC
rendered paste body
If CheckValidation Then Exit Sub
Dim temp_price As Double

If txtweight.Text < 50 Then temp_price = 0.35
If (txtweight.Text > 50) Or (txtweight.Text < 100) Then temp_price = 0.6
If (txtweight.Text > 100) Or (txtweight.Text < 200) Then temp_price = 0.9
If txtweight.Text > 200 Then temp_price = ((((txtweight.Text - 200) / 100) * 0.2) + 0.9)

If cboxMouldTech.Text = "Vacuum" Then temp_price = temp_price * 2
If cboxMouldTech.Text = "Blow" Then temp_price = temp_price * 1.5
If cboxMouldTech.Text = "Injection" Then temp_price = temp_price * 1
If cboxMouldTech.Text = "Coating" Then temp_price = temp_price * 2.5