Tool: Flipgefahr

[Nephisto]

Hier nochmal ein extra Thread für mein Tool

Verbesserungen:
1.11:
Bilder eingefügt
Kultur über 35.000 möglich

noch zu machen (wofür ich noch zu unerfahren bin):
bei Freilassen eines Feldes der totale Absturz des Progs

edit: neue Version hochgeladen am 24.11. ; vorher 17 downloads

[Ζοκακλες]

in delphi sagst du? legst du den code offen?

[Nephisto]

in delphi sagst du? legst du den code offen?

nene, hab doch im anderen Thread geschrieben, dass es Visual Basic ist

[Ζοκακλες]

ernsthaft? wie komm ich denn nur auf delphi?

[Nephisto]

ernsthaft? wie komm ich denn nur auf delphi?

weiß nicht, kannst nur du wissen

[/spam]

[fachus]

noch zu machen (wofür ich noch zu unerfahren bin):
bei Freilassen eines Feldes der totale Absturz des Progs

Wenn du den Source hier reinstellst, oder mit per email zusendest schau ich mal, was geändert werden muss, damit der Absturz nicht mehr passiert.

[Nephisto]

Hier:

Private Sub cmdberechne_Click()
Dim A As Integer
Dim F As Integer
Dim T As Integer
Dim Cc As Integer
Dim H As Integer
Dim Cte As Long
Dim Cty As Long
Dim G As Integer
Dim D As Double
Dim P As Double
Dim Y As Double
A = txtauslaendische
F = txtaufstaendige
T = txtarbeitsfelder
Cte = txtkultura
Cty = txtkulture
G = txtmilitaer
D = txtpalast
If optja Then
Cc = 2
optnein = False
End If
If optnein Then
Cc = 1
optja = False
End If
If optes Then
H = 5
optunruhen = False
optnormal = False
End If
If optunruhen Then
H = 2
optes = False
optnormal = False
End If
If optnormal Then
H = 1
optes = False
optunruhen = False
End If
P = ((A + (2 * F) + T) * Cc * H * (Cte / Cty) - G) / D
Y = (A + (2 * F) + T) * Cc * H * (Cte / Cty)
txtflip.Text = P
txtmilitaer2 = Y
End Sub

sollte alles sein, oder?

[fachus]

Wahrscheinlich nur ein Problem mit Division durch Null.

So müsste es gehen:
.
.
.
if Cty <> 0 and D <> 0 then
P = ((A + (2 * F) + T) * Cc * H * (Cte / Cty) - G) / D
Y = (A + (2 * F) + T) * Cc * H * (Cte / Cty)
endif
.
.
.

Alternativ könntest du auch eine on error resume next-Anweisung einbauen.

[Nephisto]

Wahrscheinlich nur ein Problem mit Division durch Null.

Alternativ könntest du auch eine on error resume next-Anweisung einbauen.

soweit sind wir im Unterricht noch nicht, aber ich versuchs mal einzubauen

edit: kannst du das nochmal genauer per mial erklären?

[Nephisto]

so, neue Version ist online

Änderungen:
- Prog stürzt nicht mehr ab, wenn ein Feld frei bleibt (danke fachus )
- Fehler in der Formel bei "es lebe der... Tag" verbessert

[Mauri]

das is ja super das programm!
sauber...