VB6 Calculation

[mdtam]

Hai..I'am using VB6..I want do some calculations..If the weight is 1.2 then X = 2..my code looks like this:

nilai = $10.00
If txtWeight.Text > 1 Then x = 2
If txtWeight.Text > 2 Then x = 3
If txtWeight.Text > 3 Then x = 4
If txtWeight.Text > 4 Then x = 5
If txtWeight.Text > 5 Then x = 6
If txtWeight.Text > 6 Then x = 7
.
.
.
.
If txtWeight.Text > 100 Then x = 1001

lblPos.Caption = FormatCurrency(nilai * x, 2, vbTrue, vbTrue, vbTrue)

How can I make the code as simple as possible?

[Nightwalker83]

You could do something along these lines.

Option Explicit
Dim nilai As Currency, x As Integer
Private Sub Command1_Click()
nilai = 10#
Select Case txtWeight.Text
 Case 1
  x = 2
 Case 2
  x = 3
 Case 3
  x = 4
 Case 4
  x = 5
 Case 5
  x = 6
 Case 6
  x = 7
End Select
If txtWeight.Text = x Then x = txtWeight.Text + 1
End Sub

Private Sub txtWeight_Validate(Cancel As Boolean)
 If Not IsNumeric(txtWeight.Text) Then MsgBox "Please number only numbers!"
End Sub

[mdtam]

if txtWeight.text > 100 so I have to do until case is 100? Wow it's too long again if the value is 1 then X still 1 but if the value is 1.01 then X will become 2.

[Bonnie West]

lblPos.Caption = FormatCurrency(nilai * x, 2, vbTrue, vbTrue, vbTrue)

How can I make the code as simple as possible?

lblPos.Caption = FormatCurrency(nilai * -Int(-CDbl(txtWeight.Text)), 2&, vbTrue, vbTrue, vbTrue)

See Rounding Up section in How To Implement Custom Rounding Procedures for more details.

[DataMiser]

another way that could work would be to check for the decimal point and if present drop it and add 1

x=instr(txtweight.text)
If x>0 then
    Weight=Cint(left$(txtweight.text,x-1))+1
Else
    Weight=Cint(txtWeight.Text)
End If

Assuming of course that you are not going to have an entry of x.00

[mdtam]

Thanks Bonnie West..the code works perfectly..awesome