Taschenrechner Tipps..?

goku5454 · 21. Januar 2011

Hallo,
ich hab hier ein Taschenrechner mal gemacht!
Habt ihr noch i-welche Tipps für mich oder ist das so gut für den anfang? (ich habe mit "coden" vor 2-3 tagen angefangen ^^)

Spoiler anzeigen

[cs]#include <GUIConstants.au3>

$Form1_1 = GUICreate("Form1", 213, 211, 330, 155)
$Button1 = GUICtrlCreateButton("0", 8, 168, 73, 33, 0)
$Button2 = GUICtrlCreateButton("1", 8, 128, 33, 33, 0)
$Button3 = GUICtrlCreateButton("2", 48, 128, 33, 33, 0)
$Button4 = GUICtrlCreateButton("3", 88, 128, 33, 33, 0)
$Button5 = GUICtrlCreateButton("4", 8, 88, 33, 33, 0)
$Button6 = GUICtrlCreateButton("5", 48, 88, 33, 33, 0)
$Button7 = GUICtrlCreateButton("6", 88, 88, 33, 33, 0)
$Button8 = GUICtrlCreateButton("7", 8, 48, 33, 33, 0)
$Button9 = GUICtrlCreateButton("8", 48, 48, 33, 33, 0)
$Button10 = GUICtrlCreateButton("9", 88, 48, 33, 33, 0)
$Button11 = GUICtrlCreateButton("+", 128, 48, 33, 33, 0)
$Button12 = GUICtrlCreateButton("-", 128, 88, 33, 33, 0)
$Button13 = GUICtrlCreateButton("*", 128, 128, 33, 33, 0)
$Button14 = GUICtrlCreateButton("/", 128, 168, 33, 33, 0)
$Button15 = GUICtrlCreateButton("=", 168, 120, 33, 81, 0)
$Button16 = GUICtrlCreateButton("C", 168, 48, 33, 65, 0)
$Button17 = GUICtrlCreateButton(".", 88, 168, 33, 33, 0)
$Input1 = GUICtrlCreateInput("", 8, 16, 193, 21)
GUISetState(@SW_SHOW)

While 1
If (StringInStr(GUICtrlRead($Input1), ".", 0, 2) > 0) Then
GUICtrlSetData($Input1, StringTrimRight(GUICtrlRead($Input1), 1))
EndIf
Switch GUIGetMsg()

Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "0")
Case $Button2
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "1")
Case $Button3
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "2")
Case $Button4
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "3")
Case $Button5
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "4")
Case $Button6
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "5")
Case $Button7
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "6")
Case $Button8
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "7")
Case $Button9
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "8")
Case $Button10
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "9")
Case $Button17
GUICtrlSetData($Input1, GUICtrlRead($Input1) & ".")
Case $Button11
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "+")
Case $Button12
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "-")
Case $Button13
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "*")
Case $Button14
GUICtrlSetData($Input1, GUICtrlRead($Input1) & "/")
Case $Button15
GUICtrlSetData($Input1, Execute(GUICtrlRead($Input1)))
Case $Button16
GUICtrlSetData($Input1, "")

EndSwitch
WEnd
[/cs]

Edit: habs geändert mit include (unwichtige) drausen!
Edit²: hab noch gemacht das man nur 1x " . " machen kann

S3cret · 21. Januar 2011

- Variablen 'nen eigenständigen Namen geben
- Unnötige includes entfernen

Und dann würde ich bestimmten Code zusammentragen, z.B.

Code

$nMsg = GUIGetMsg()
Switch $nMsg

zu

Code

Switch GUIGetMsg()

da du ja mit $nMsg sonst nicht mehr arbeitest. Fördert, finde ich, die Übersichtlichkeit.

goku5454 · 21. Januar 2011

Was müsste ich machen das ich nur 1x . machen kann weil ich kann das gerade belibig oft machen :s

... includes wurden entfernt (Unnötige)

S3cret · 21. Januar 2011

goku5454 schrieb:

Was müsste ich machen das ich nur 1x . machen kann weil ich kann das gerade belibig oft machen :s

Ich verstehe nicht, was du damit meinst^^

fff619 · 21. Januar 2011

S3cret schrieb:

Ich verstehe nicht, was du damit meinst^^

er will wissen, wie er nur 1x ein . verwenden kann

bei ihm kann beim eintippen also auch folgende zahl rauskommen:

2.34.1.23.1232131.23.3..23.444....2

S3cret · 21. Januar 2011

Achso. 1x ein "."
Dafür gibt es die Funktion StringInStr, damit kannste prüfen, ob der Punkt schon im Eingabestring vorhanden ist.

Icynator · 21. Januar 2011

Bewerkstelligen könntest du das mit folgendem Code:

Code

If (StringInStr(GUICtrlRead($Input), ".", 0, 2) > 0) Then
GUICtrlSetData($Input, StringTrimRight(GUICtrlRead($Input), 1))
EndIf

Muss in die while schleife allerdings nach dem switch.

Die erste Zeile überprüft ob ein zweiter Punkt eingegeben wurde und die zweite Zeile löscht diesen Punkt dann gleich wieder.

Teilen