[VB6] waarden met decimalen uit 2 listboxen optellen

[Blerp]

ik heb 2 listboxen met waarden daarin. Die moeten bij selectie bij elkaar opgeteld worden en de uitkomst moet in een textboxje komen te staan. Het maakt niet uit of ik er nou integers of strings van maak, maar hij wil de decimalen niet gebruiken.
mijn pogingen:

code:

Label12.Caption = List5.List(List5.ListIndex) + List7.List(List7.ListIndex)

geeft een uitkomst met 2 komma's, werkt dus hetzelfde als "&"

code:

Label12.Caption = int(List5.List(List5.ListIndex)) + int(List7.List(List7.ListIndex))

telt wel op, maar zonder decimalen. Dus 2.89 + 6.41 = 8

En als ik ipv int str gebruik komt er helemaal geen uitkomst.
Ook heb ik geprobeerd om beide waarden eerst met 100 te vermenigvuldigen, dan op te tellen en dan te delen door 100 om te kijken of de decimalen dan wel meegenomen worden, maar ook dan geen decimalen.
Wat doe ik fout? Ik kan namelijk ook nergens een voorbeeld vinden van iemand die 2 listboxwaarden wij elkaar op wil tellen....

[whoami]

Als je iets cast naar een integer dan moet je ook niet verbaasd zijn dat er geen decimalen meer zijn natuurlijk...

[mulder]

Val() ? of CDbl

[ Voor 37% gewijzigd door mulder op 12-05-2005 16:08 ]

[gemini85]

val(List5.List(List5.ListIndex)) + val(die andere)

[bigbeng]

Integers zijn gehele waarden, je moet singles of doubles gebruiken. En als je alleen met integers rekent, dan zullen ook delingen een geheel getal opleveren.
Kijk eens in de MS documentatie bij CSng en CDbl (functies), dan moet je wel verder komen.

edit:
Spuit 11

[ Voor 5% gewijzigd door bigbeng op 12-05-2005 16:10 ]

[Blerp]

met CDbl werkt het

ik had echt geen idee waarin ik het moest casten. het is nu

code:

Label12.Caption = CDbl(List5.List(List5.ListIndex)) + CDbl(List7.List(List7.ListIndex))

geworden en dat werkt prima. Kan ik eindelijk prijzen uitrekenen