FIT 100
© Copyright University of
Washington 1999-2000
The Yes/No Logic
Private Sub cmdYes_Click()
loSide = loSide + increment
Call guess
End Sub
Private Sub cmdNo_Click()
increment = increment \ 10
If increment < 1 Then
lblHead.Caption = "You Weigh Exactly ..."
lblGuess.Caption
= loSide
lblPound.Caption = "lbs!"
Else
Call guess
End If
End Sub
vThe “Yes” logic only adds-in, but the “No” logic
reduces the increment and must also test for completion
lblGuess.Caption = loSide +
increment
lblGuess.Caption = loSide +
increment