28 replies to this topic

[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.

Attached Files

•  Calculator.zip   2.02K   487 downloads

Edited by Daniel W., 10 October 2006 - 04:35 PM.

[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 by RazerM, 26 May 2006 - 06:25 PM.

[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 by The Great 'Awesoma-Powa!', 26 May 2006 - 10:09 PM.

[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 by th.meger, 27 May 2006 - 11:51 PM.

[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 by Daniel W., 28 May 2006 - 12:15 AM.

[Daniel W.]

So
i need your help now
This is the solve function i got already ( thanks razerM for start )

AutoIt        expandcollapse  popup

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 by Daniel W., 28 May 2006 - 03:10 AM.

[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