coding prob [resolved]

[azrina]

the code i enclose here have no errors but the output not appear..why?whts wrong with the 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

[blindlizard]

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

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

[BrianS]

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.

[azrina]

thank u all