Calculator

[Daniel W.]

Hi,

i have completely rewritten the calculator so here it is

10.10.2006 Updates:
- _IsPrime updated for 2
- Flickering mousecursor fixed;)

Regards Daniel W.

Calculator.zip

Edited October 10, 2006 by Daniel W.

[RazerM]

It works very well. Well done.

[Daniel W.]

Thanks , i am working on a blockinput for a-z because if any of these chars is in the input execute returns nothing.

If i got that then i will work on an solve function.

like this:

Solve(5 = x - 3 , x)

Then i should return this

x = 8

[RazerM]

looks like a good idea! (Not that id use it for homework.... )

Edit: this should get you started

MsgBox(0,0,Solve("6 = x - 6", "x"))
Func Solve($equation, $char)
    $equation = StringStripWS($equation, 8)
    $split = StringSplit($equation, "=")
    $side = 2
    If StringInStr($split[1], $char) <> 0 Then $side = 0
    If StringInStr($split[2], $char) <> 0 Then $side = 1
    If $side = 0 Then ;left
        For $i = -1000 To 1000
            $test = StringReplace($split[1], $char, "(" & $i & ")")
            If Execute($test) = $split[2] Then Return $i
        Next
    ElseIf $side = 1 Then ;right
        For $i = -1000 To 1000
            $test = StringReplace($split[2], $char, "(" & $i & ")")
            If Execute($test) = $split[1] Then Return $i
        Next
    Else
        Return 0
    EndIf
EndFunc

Edited May 26, 2006 by RazerM

[jacksont123]

[offtopic]wow I had no idea there were autoit tags!!![/offtopic]

nice calculator! keep up the good work.

edit: in the second menu, i think you spelt standard wrong

Edited May 26, 2006 by The Great 'Awesoma-Powa!'

[Daniel W.]

Oh kk thanks its just german not english ^^

PS GERMAN ROXX!!!!

PSS: CAPS LOCK ROXX!!!

[jacksont123]

hehe. sorry.

[Daniel W.]

oh no problem

thanks again for the advise

[Daniel W.]

Updated it

[Daniel W.]

ANd just another Update

[Xenobiologist]

Hi,

not bad, but I don't like the RegWrite! What about an ini file instead of that?

So long,

Mega

P.S.: Warum schreibt man einen Taschenrechner, wenn er bei Windows dabei ist. Schulprojekt?

[Daniel W.]

Hi,

i could do it with ini but whats so bad with ONE registry key?

PS: Ne aber warum macht man für nen SPiel ne Mod?

Weil man findet das was fehlt

Ist nicht für Schule btw

[Valuater]

Hi,

not bad, but I don't like the RegWrite! What about an ini file instead of that?

So long,

Mega

P.S.: Warum schreibt man einen Taschenrechner, wenn er bei Windows dabei ist. Schulprojekt?

i agree, i wont test/use it because i dont like "extra" entries in my reg that needs to be read everytime i start-up... or for any non-necessary reason

8)

[Xenobiologist]

Hi,

i could do it with ini but whats so bad with ONE registry key?

PS: Ne aber warum macht man für nen SPiel ne Mod?

Weil man findet das was fehlt

Ist nicht für Schule btw

HI,

the problem is that the registry grows up and by the way, I don't want anything to write to my registry if I can avoid it. Nobodys cleans all the keys (deletes them) - that is why I don't like it.

Just my 2 Cents!

PS: Na dann viel Spaß weiterhin und man sieht sich sicher noch öfter.

Edit: Wie hast du denn die Skins gemacht?

Edited May 27, 2006 by th.meger

[Daniel W.]

KK in 20 mins i make a version with ini file

Meinste die Buttons?

Hab auf meinem pc nach .ico files gesucht und die gefunden ich kann die ja mit hochladen

[Daniel W.]

See first post.

There it is

€: 2nd site

Edited May 28, 2006 by Daniel W.

[Daniel W.]

So

i need your help now

This is the solve function i got already ( thanks razerM for start )

Func _solve($gleichung, $char)
    $gleichung = StringStripWS($gleichung, 8)
    $split = StringSplit($gleichung, "=")
    $side = 3
    If StringInStr($split[1], $char) = 1 and StringInStr($split[2], $char) = 1 Then $side = 2
    If StringInStr($split[1], $char) <> 0 Then $side = 0
    If StringInStr($split[2], $char) <> 0 Then $side = 1
    If $side = 0 Then ;left
        For $i = -1000 To 1000
            $test = StringReplace($split[1], $char, "(" & $i & ")")
            If Execute($test) = $split[2] Then Return $i
        Next
    ElseIf $side = 1 Then ;right
        For $i = -1000 To 1000
            $test = StringReplace($split[2], $char, "(" & $i & ")")
            If Execute($test) = $split[1] Then Return $i
        Next
        Return 1    
    ElseIf $side = 2 Then ;both
        For $i = -1000 to 1000
            $test1 = StringReplace($split[1], $char, "(" & $i & ")")
            $test2 = StringReplace($split[2], $char, "(" & $i & ")")
            If $test1 = $test2 Then Return $i
        Next
            Return 1
    Else
        Return 0
    EndIf
EndFunc

Works not nice because with "/" it returns wrong numbers and with "*" it always returns "0"

Edited May 28, 2006 by Daniel W.

[Daniel W.]

New version and hotkeyset is working against me ^^

[JoshDB]

Nice, I really like the style.

[Daniel W.]

Thanks maybe you can tell me some background colors in Hex you would like to have