Percent: code van het programma
- We moeten alleen iets coderen in de knop waarmee de control instellen:
Dim positief As Integer
Dim negatief As Integer
positief = InputBox("Geef de waarde voor ja")
negatief = InputBox("Geef de waarde voor nee")
With Percent1
.WaardeJa = positief
.WaardeNee = negatief
'probleem: WaardeJa en WaardeNee zijn strings...
.TekstJa = Int((CDbl(.WaardeJa) / (CDbl(.WaardeJa) + CDbl(.WaardeNee))) * 100) &
"%"
.TekstNee = Int((CDbl(.WaardeNee) / (CDbl(.WaardeJa) + CDbl(.WaardeNee))) * 100) &
"%"
End With
[VB Web] - [hlrnet] - [copyright]