LumosCalc - Endlich nachgeholt ;)

**chesstiger**

So, ich hab endlich mal das getan, was man normalerweise als erstes schreiben soll... einen Taschenrechner
Ich hab damals als erstes einen grr-Converter geschrieben...
Er hat zb. a in Gr, b in Grr und c in Grrr usw... umgewandelt, hin und zurück... Fragt nicht^^

Wenn man [R] drückt, wird die Zahl gerundet... ich könnte mich dafür schlagen, dass ich bis vorhin nicht wusste, dass es Round() gibt.. hab selbst was dafür geschrieben... Da gibts einen kleinen Bug, wenn man [R] drückt, obwohl die Zahl kein Komma (oder Punkt ;)) hat, dann gibts 'n Error...

Und wenn man Strg + Umschalt + H drückt, verschwindet die GUI. Bei nochmaligem drücken taucht sie wieder auf.

Das wars glaub soweit... ~~der freie Platz links ist für eine Speicherfunktion gedacht, das mach ich morgen...~~

Speicherfunktion implementiert! Also... eher Variablenfunktion

Spoiler anzeigen

[Blockierte Grafik: http://img3.fotos-hochladen.net/uploads/lchdbvpg8enc.png]

lg Chess

letsgo

Für dein erstes Programm nicht schlecht, Schachkätzchen
Das Problem mit dem Runden kann durch folgenden Code gelöst werden (also eine Abfrage ob der Wert überhaupt ein Array ist und bis [2] geht)

Spoiler anzeigen

[autoit]

Func _Round($VALUE)
$aVALUE = StringSplit($VALUE,".")
if IsArray($aVALUE) and $aVALUE[0]>=2 Then
;msgbox(0,"",$aVALUE[2])
$NUMBER = Execute($aVALUE[2])
$NUMBER = StringTrimRight($NUMBER,StringLen($NUMBER) - 1)
;MSGBOX(0,"",$NUMBER)
If $NUMBER >= 5 Then Return Ceiling($VALUE)
If $NUMBER < 5 Then Return Floor($VALUE)
Else
Return $VALUE
EndIf
EndFunc

[/autoit]

EDIT: Startpost falsch interpretiert, ist natürlich nicht dein erstes Programm
Und ich dachte, wenn du schon ne eigene Funktion hast, kann sie auch mal richtig funktionieren

**chesstiger**

Hey, das ist nicht mein erstes Programm
Nur das, was ich als erstes schreiben wollte, aber nie gemacht hab... wäre ja schlimm, wenn das das einzige wäre, was ich nach über einem Jahr schaffe...;)

Round($VALUE,0) tuts doch eigentlich, oder? Ich hab nur bis vorhin nicht gewusst, das es Round() gibt....

Danke fürs feedback!;)

lg chess

...
...
...
schachkätzchen

Cheater Dieter

Gut, allerdings kommt bei einer nicht definierten Lösung immer "-1.#IND)" als Ergebnis. Wie wäre es mit einem "n.d." oder einem "Error" als Rückgabewert?

**chesstiger**

... Nicht definierte Lösung?;)

Sorry, aber wo kommt denn bei dir "-1.#IND)"?
Ich hab, ausser bei der [R]-Geschichte, nie errors gehabt...

Lg chess

Cheater Dieter

Ziehe mal die Wurzel einer negativen Zahl oder teile eine Zahl durch 0.

**chesstiger**

Achso, bei einem mathematischen Fehler!

Am besten vorher kontrollieren, ob ein Error ensteht und dann weniger kryptisch ausgeben, hast recht;)

danke & lg chess

PS: So gehts;)

[autoit]

Func _Calc()
FileWrite(@TempDir & "\LumosCalc.log",GUICtrlRead($INPUT))
$CALCED = _PC2User(Execute(_User2PC(GUICtrlRead($INPUT))))
If $CALCED = "1.#INF" Or $CALCED = "-1.#IND" Then $CALCED = "MATH ERROR"
GUICtrlSetData($INPUT,$CALCED)
FileWrite(@TempDir & "\LumosCalc.log","=" & GUICtrlRead($INPUT) & ";" & @CRLF)
EndFunc

[/autoit]