Code:
If uitkomst >= 1000 Then
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 10)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 10)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 9)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 23)
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 23)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 9)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 10)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 10)
ElseIf uitkomst >= 100 Then
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 11)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 11)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 10)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 24)
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 24)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 10)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 11)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 11)
ElseIf uitkomst >= 10 Then
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 12)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 12)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 11)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 25)
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 25)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 11)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 12)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 12)
Else
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 13)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 13)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 12)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = False Then uitkomst = Math.Round(uitkomst, 26)
If Radio1.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 26)
If Radio2.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 12)
If Radio1.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 13)
If Radio2.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then uitkomst = Math.Round(uitkomst, 13)
End If
Deze code (die eigenlijk nog veel langer is, het begint eigenlijk met
If uitkomst >= 1000000000 Then...
en dan steeds korter, dit is dus eigenlijk alleen het eind van de code.
Hoe kan ik dit korter schrijven?
Ik vermoed wel dat dit kan omdat:
- Het gedeelte 'if uitkomst >= x' volgens een logaritme kleiner wordt
- De tegenovergestelde* uitkomsten precies gelijk zijn
*met tegenovergestelde bedoel ik:
als radio1.checked en CB1.checked en CB2.checked alledrie true zijn, en de uitkomst wordt dan afgerond op X, dan wordt radio2.checked (true) en CB1.c (false) en CB2.c (false) ook afgerond op X
*Misschien iets dat helpt: als radio1.checked true is dan is radio2.checked altijd false en andersom.