✔ Viele Textboxen

[Julian Maicher]

VB6 casted automatisch, dürte also nicht daran liegen.
Ich denke es liegt einfach daran, dass txtAusgabe zunächst leer ist. Also einen leeren String beinhaltet, welchen du zu INT konvertierst. Das geht natürlich nicht.

Aber ohnehin ist es schwachsinn, bei jedem Schleifendurchlauf das Textfeld zu füllen und damit zu rechnen. Da drängt sich eine weitere Hilfsvariable ja geradezu auf. Und dann hast du vermutlich auch nicht mehr das angesprochene Problem.

Dim output As Integer

For m = 0 To 8 
  If txtEingabe(m).Text = "" Then 
    txtEingabe(m).Text = 0 
  End If 
  output = output + (30 * CInt(txtEingabe(m).Text) * (1.1 ^ CInt(txtEingabe(m).Text)) + 20) 
  If txtEingabe(m).Text = 0 Then 
    output = output - 20 
  End If
Next m
txtAusgabe.Text = output

*EDIT: Zu overflow: Dann rechne nicht mit INT, sondern mit Double oder Long ...

 

[Dark Ranger]

So habe ich es gerade, aber sobald ich jetzt z.B. alle textfelder mit 20 fülle, dann sagt er mit "Overflow"

 

[Julian Maicher]

Nochmal: Dann rechne nicht im Integer, sondern mit Double, Long oder einem anderen, größeren Datentyp.

 

[Dark Ranger]

Ok!
Jetzt gibt es kein Overflow mehr, aber jetzt stimmen die berechneten Werte nicht mehr!

 

[Dark Ranger]

Wie hoch kann man Double denn belasten?

 

[Julian Maicher]

http://www.vbarchiv.net/commands/Datentypen.php

 

[Dark Ranger]

Ok das wird wohl reichen! Danke!

Ich werde mich dann beim nächsten Problem wieder melden, nachdem ich tutorials.de und google durchstöbert habe!