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]