Beiträge von PainTain

[autoit]

; by PainTain

[/autoit] [autoit][/autoit] [autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=Made by PainTain
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit] [autoit][/autoit] [autoit]

#NoTrayIcon
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GuiEdit.au3>

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("Calculator by PainTain", 434, 386, 214, 119)
GUISetFont(8, 800, 0, "MS Sans Serif")
$hTerm = GUICtrlCreateEdit("", 16, 16, 401, 37, $ES_READONLY);---BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$hNumNull = GUICtrlCreateButton("0", 16, 328, 91, 41)
$hNumPoint = GUICtrlCreateButton(".", 120, 328, 91, 41)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$hResult = GUICtrlCreateButton("=", 224, 328, 91, 41)
$hNumOne = GUICtrlCreateButton("1", 16, 272, 91, 41)
$hNumTwo = GUICtrlCreateButton("2", 120, 272, 91, 41)
$hNumThree = GUICtrlCreateButton("3", 224, 272, 91, 41)
$hNumFour = GUICtrlCreateButton("4", 16, 216, 91, 41)
$hNumFive = GUICtrlCreateButton("5", 120, 216, 91, 41)
$hNumSix = GUICtrlCreateButton("6", 224, 216, 91, 41)
$hNumSeven = GUICtrlCreateButton("7", 16, 160, 91, 41)
$hNumEight = GUICtrlCreateButton("8", 120, 160, 91, 41)
$hNumNine = GUICtrlCreateButton("9", 224, 160, 91, 41)
$hResOutput = GUICtrlCreateEdit("", 16, 82, 324, 64, $SS_CENTER + $ES_READONLY)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$hNumPlus = GUICtrlCreateButton("+", 328, 160, 91, 41)
$hNumMinus = GUICtrlCreateButton("-", 328, 216, 91, 41)
$hNumMulti = GUICtrlCreateButton("x", 328, 272, 91, 41)
$hNumDivi = GUICtrlCreateButton("%", 328, 328, 91, 41)
GUICtrlCreateLabel("Result:", 16, 64, 88, 17)
$hClearAll = GUICtrlCreateButton("Clear All", 352, 120, 67, 25)
$hBackspace = GUICtrlCreateButton("Back", 352, 80, 67, 25)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hNumNull
_GUICtrlEdit_AppendText($hTerm, "0")
Case $hNumOne
_GUICtrlEdit_AppendText($hTerm, "1")
Case $hNumTwo
_GUICtrlEdit_AppendText($hTerm, "2")
Case $hNumThree
_GUICtrlEdit_AppendText($hTerm, "3")
Case $hNumFour
_GUICtrlEdit_AppendText($hTerm, "4")
Case $hNumFive
_GUICtrlEdit_AppendText($hTerm, "5")
Case $hNumSix
_GUICtrlEdit_AppendText($hTerm, "6")
Case $hNumSeven
_GUICtrlEdit_AppendText($hTerm, "7")
Case $hNumEight
_GUICtrlEdit_AppendText($hTerm, "8")
Case $hNumNine
_GUICtrlEdit_AppendText($hTerm, "9")
Case $hNumPoint
_GUICtrlEdit_AppendText($hTerm, ".")
Case $hNumPlus
_GUICtrlEdit_AppendText($hTerm, "+")
Case $hNumMinus
_GUICtrlEdit_AppendText($hTerm, "-")
Case $hNumMulti
_GUICtrlEdit_AppendText($hTerm, "*")
Case $hNumDivi
_GUICtrlEdit_AppendText($hTerm, "%")
Case $hClearAll
GUICtrlSetData($hTerm, "")
GUICtrlSetData($hResOutput, "")
Case $hBackspace
$fInputRead = GUICtrlRead($hTerm)
$fInputBack = StringTrimRight($fInputRead, 1)
GUICtrlSetData($hTerm, $fInputBack)
;~ If @error Then MsgBox(0, "Debug", "Error: " & @error)
Case $hResult
_CheckTerm()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _CheckTerm()
Local $fTermRead = GUICtrlRead($hTerm)

[/autoit] [autoit][/autoit] [autoit]

If $fTermRead = "" Then
MsgBox(0 + 64 + 4096, "Error", "Please insert a Term to calcute!")
ElseIf StringLeft($fTermRead, 1) = "+" Or StringLeft($fTermRead, 1) = "-" Or StringLeft($fTermRead, 1) = "*" Or StringLeft($fTermRead, 1) = "%" Then
MsgBox(0 + 64 + 4096, "Error", "Invalid Term!")
ElseIf StringRight($fTermRead, 1) = "+" Or StringRight($fTermRead, 1) = "-" Or StringRight($fTermRead, 1) = "*" Or StringRight($fTermRead, 1) = "%" Then
MsgBox(0 + 64 + 4096, "Error", "Invalid Term!")
ElseIf StringLeft($fTermRead, 1) = "." Or StringRight($fTermRead, 1) = "." Or StringInStr($fTermRead, "..") Then
MsgBox(0 + 64 + 4096, "Error", "Invalid Term!")
ElseIf StringInStr($fTermRead, "+-") Or StringInStr($fTermRead, "+*") Or StringInStr($fTermRead, "+%") Or StringInStr($fTermRead, "++") Or StringInStr($fTermRead, "-+") Or StringInStr($fTermRead, "-*") Or StringInStr($fTermRead, "-%") Or StringInStr($fTermRead, "--") Then
MsgBox(0 + 64 + 4096, "Error", "Invalid Term!")
ElseIf StringInStr($fTermRead, "*+") Or StringInStr($fTermRead, "**") Or StringInStr($fTermRead, "*-") Or StringInStr($fTermRead, "*%") Or StringInStr($fTermRead, "%+") Or StringInStr($fTermRead, "%-") Or StringInStr($fTermRead, "%*") Or StringInStr($fTermRead, "%%") Then
MsgBox(0 + 64 + 4096, "Error", "Invalid Term!")
Else
_CalculateTerm($fTermRead)
EndIf
EndFunc ;==>_CheckTerm

[/autoit] [autoit][/autoit] [autoit]

Func _CalculateTerm($fTermRead)
$fTermConv = StringReplace($fTermRead, "%", "/")
;~ ConsoleWrite($fTermConv & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

$fResult = Execute($fTermConv)

[/autoit] [autoit][/autoit] [autoit]

;~ ConsoleWrite(StringLen($fResult) & @CRLF)
If StringLen($fResult) >= 18 Then
GUICtrlSetData($hResOutput, _TrimResult($fResult))
Else
GUICtrlSetData($hResOutput, $fResult)
EndIf
EndFunc ;==>_CalculateTerm

[/autoit] [autoit][/autoit] [autoit]

Func _TrimResult($fResult) ;Ich weiß, könnte man auch mit Round machen
Local $i = 1

[/autoit] [autoit][/autoit] [autoit]

Do
$fResult = StringTrimRight($fResult, 1)
$i += 1
Until StringLen($fResult) = 18
Return $fResult
EndFunc ;==>_TrimResult

[/autoit]