Guten Tag,
ich bin neu hier und habe die Software seit 2 Tagen, habe aber schon mit der
Freeware - Version (V3.0). So jetzt habe ich folgendes Problem:
Bei der alten Version (V3.0) ging dieser Rechenvorgang:
Sub Btn1berech_Click
If txt1cosphi>1 Then Msgbox (Cos Phi nicht größer als 1,OK)
If txt1cosphi=0 Then txt1cosphi=1
If txt1span = 24 Then txt1Leist = txt1Span * txt1Strom / 1000
If txt1span = 230 Then txt1Leist = txt1Span * txt1Strom * txt1cosphi / 1000
If txt1span = 400 Then txt1Leist = txt1Span * txt1Strom * txt1cosphi * Sqrt(3) / 1000
End Sub
Mit der Version (5.50) funtz das ganze nicht.
ALso es handelt sich um diese Zeile (um den Rechenvorgang an sich)
txt1Leist = txt1Span * txt1Strom / 1000
Erel hat mir den Vorschlag gemacht es so,
txt1Leist.text = txt1Span.text * txt1Strom.text / 1000
zu machen das geht aber auch nicht.
Ich habe mal die beiden Programme mit hoch geladen
Viele Dank für eure Mühe
Bobbes