coding prob [resolved]

the code i enclose here have no errors but the output not appear..why?whts wrong with the code??

VB Code:

Private Sub btnKira_Click()
 
Dim X
Dim Y
Dim z
 
'ratio value
X = Val(txtHasil.Text) + Val(txtPulih.Text)
Y = X / Val(txtPeriksa.Text)
z = Format(Y, "0")
 
If txtKuantiti2.Text >= 2 And txtKuantiti2.Text <= 50 Then
    Select Case z
            Case z = 0
                    txtRatio.Text = "0"
                    txtAQL.Text = "2.5"
                    txtSpriksa.Text = "5"
                    txtLulus.Text = "0"
                    txtGagal.Text = "1"
            Case z = 1
                    txtRatio.Text = "1"
                    txtAQL.Text = "2.5"
                    txtSpriksa.Text = "5"
                    txtLulus.Text = "0"
                    txtGagal.Text = "1"
    End Select
End If
End Sub

Change this: Get rid of the x = in your case statements

VB Code:

Select Case z
            Case 0
                    txtRatio.Text = "0"
                    txtAQL.Text = "2.5"
                    txtSpriksa.Text = "5"
                    txtLulus.Text = "0"
                    txtGagal.Text = "1"
            Case 1
                    txtRatio.Text = "1"
                    txtAQL.Text = "2.5"
                    txtSpriksa.Text = "5"
                    txtLulus.Text = "0"
                    txtGagal.Text = "1"
    End Select

Hard to say without knowing what you are actually trying to do.

Do a Step Into the code at the Click command and watch what it does, this will show you what is happening and you can view all your variables.

thank u all :)