15 replies to this topic

[dantay9]

I know there are a lot of calculators on the forum, but I couldn't find many with anything other than the basic functions. Here is mine. I am still working on more functions like sine, cosine, and tangent, but I thought I'd post it to see if anyone has any ideas more ideas to improve my calculator.

Attached Files

•  Calculator.au3   9.96K   249 downloads

Edited by dantay9, 26 March 2009 - 10:18 PM.

[Valuater]

oops....

Not Sure what I did here

>Running:(3.3.0.0):C:\Program Files\AutoIt3\autoit3.exe "C:\Program Files\AutoIt3\Examples\My Stuff\trick_old12.au3"
C:\Program Files\AutoIt3\Examples\My Stuff\trick_old12.au3 (252) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
ElseIf StringIsXDigit($SplitString[1]) <> 0 And $SplitString[1] <> '.' And StringLeft($Text, 3) <> 'Ans' And Number($SplitString[1]) = 0 Then
ElseIf StringIsXDigit(^ ERROR
->21:07:48 AutoIT3.exe ended.rc:1
+>21:07:49 AutoIt3Wrapper Finished
>Exit code: 1 Time: 80.341

I used two lines of numbers, something like 111111111111111111111111111122222222222222224444444444/2=

***********


Anyways I use OnEvent and GUIGetMsg() all the time, however I do believe that calculators s are more effective using On-Event-Mode

Nice extended calculations...

Valuater
8)

[dantay9]

Thanks for your input. Not sure exactly what you did. I will use OnEvent when I make the menu and maybe for a few other functions.

[Authenticity]

Case $Button[17]
    If $Solved = True Then
        $Solved = False
        GUICtrlSetData($Input, '')
    EndIf
    Local $aNumbers = StringSplit(GUICtrlRead($Input), '-+\*^')
    If Not StringInStr($aNumbers[$aNumbers[0]], '.') Then SetInput('.')
.
.
.

You need this too, right?

Edited by Authenticity, 25 March 2009 - 11:14 PM.

[dantay9]

Yeah I do need that. Updated the first post.

[Authenticity]

You are not restricting the amount of decimal point per number. If you use 1..2 * 1..9 you won't get any result, not talking about 1.2.3.4 * 1.2.3.4. ;]

Edited by Authenticity, 26 March 2009 - 12:35 AM.

[dantay9]

Nice catch. Thanks for pointing that out. Forgot to put in all of your example.

Edited by dantay9, 26 March 2009 - 12:41 AM.

[Authenticity]

8*(6+4) = "Can't end expression with an operator."

Maybe using StringRegExp recursively? (?R)

[dantay9]

I have never used StringRegExp before and it looks really confusing. I looked at the help file, but it didn't help me understand what it was doing. Can you give me an example, so I can learn how to use it?

[Yashied]

Pi / Pi = ???

Сan make the screen more, for example

3.14159265358979
/
3.14159265358979
=
1

[dantay9]

I was trying to use AUTOHSCROLL but I couldn't get it to work correctly. I think it has something to do with the edit box being readonly.

[Yashied]

I was trying to use AUTOHSCROLL but I couldn't get it to work correctly. I think it has something to do with the edit box being readonly.

I think enough to limit the number of digits as a simple calculator.

[dantay9]

I think enough to limit the number of digits as a simple calculator.

The limit needs to be around 16 because AutoIt doesn't support any more. When I use GUICtrlSetLimit(), it doesn't work. The number of characters aren't limited.

[Authenticity]

If there was an option to call an embedded code after a successful match of StringRegExp\Replace (there are 256 of those) like (?C1) calling Assign or UDF before replacing or matching any text it'd make it really easy, otherwise it's still available using a few more lines of code by factorizing the equation into "before (" and after ")" and "between )(" heh.

Anyway, I think you can do it exactly as the Windows calculator does by increasing a counter for each opening parentheses and decreasing it if the closing one was pressed, if it's <> 0 then it's not a valid equation.

If you mind taking a look, I've just replaced any inner parentheses with "_" to show that if there was the opportunity to call an embedded code or UDF code while the search and replace is on the way it'll be so convenient:

Dim $sText = "7*(3^((2+7)^(1+1))+0.5)^0.5*(3+1)"
Dim $sPattern = "\(([^()]*|(?R))\)"
Dim $iExtended = 0
Dim $aMatches

Do 
    $sText = StringRegExpReplace($sText, $sPattern, "_")
    $iExtended = @extended
    ConsoleWrite($sText & @LF)
    
    $aMatches = StringRegExp($sText, $sPattern, 3)
    If IsArray($aMatches) Then _ArrayDisplay($aMatches)
Until Not $iExtended

If you'll try "7*(3^((2+7)^(1+1))+0.5)^0.5*(3+1" then you'll end up with an extra "(" which means that running another StringInStr for ( and return value bigger the 0 is an invalid equation. ;]

[dantay9]

Thank you. I see there is a lot more to learn, but this should get me started.

[dantay9]

I changed the Error Check function to use StringRegExp(). Tell me what you think. This is my first try at StringRegExp() and I couldn't have done it without Expresso. I am still having trouble with the multilined, scrollable input box. Any help would be appreciated.

Edited by dantay9, 26 March 2009 - 10:18 PM.