-
- Private Sub btnCalcul_Click()
- Dim dblNum As Double, dblNumBy As Double, i As Byte, calcType As Integer
- dblNum = Val(txtChiffre1): dblNumBy = Val(txtChiffre2)
- For i = 0 To 3
- calcType = IIf(optCalcType.Item(i).Value, i, -1)
- If calcType <> -1 Then Exit For
- Next
-
- txtResultat = Choose(calcType + 1, _
- dblNum + dblNumBy, _
- dblNum - dblNumBy, _
- dblNum * dblNumBy, _
- dblNum / dblNumBy)
- ' --
- End Sub
Private Sub btnCalcul_Click()
Dim dblNum As Double, dblNumBy As Double, i As Byte, calcType As Integer
dblNum = Val(txtChiffre1): dblNumBy = Val(txtChiffre2)
For i = 0 To 3
calcType = IIf(optCalcType.Item(i).Value, i, -1)
If calcType <> -1 Then Exit For
Next
txtResultat = Choose(calcType + 1, _
dblNum + dblNumBy, _
dblNum - dblNumBy, _
dblNum * dblNumBy, _
dblNum / dblNumBy)
' --
End Sub