Cube Root Add Calculator

[Slaeghtor]

It's my first script.

Features:

- with GUI

- Easily, Put result, get cube roots.

- Category is Math.

- Click to Sart and wait a while.

Example : If you put 91, it will be 3³ + 4³ = 91, so targets are 3 and 4.

expandcollapse popup

; Author : Slaeghtor  Date : 30.05.2011 12.01
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### 
$Form1_1 = GUICreate("Micro Cube Calculator v1.0 - Slaeghtor", 371, 226, 359, 218)
$kup = GUICtrlCreateInput("91", 176, 30, 145, 34, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
GUICtrlSetFont(-1, 16, 800, 0, "Calibri")
GUICtrlSetTip(-1, "Put result here.")
$Basla = GUICtrlCreateButton("Start", 24, 88, 147, 57)
GUICtrlSetFont(-1, 24, 800, 0, "Calibri")
$sayi = GUICtrlCreateLabel("         Result :", 24, 30, 133, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("                 Developed by Slaeghtor  slaeghtor@gmail.com", 32, 176, 308, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Calibri")
$Button1 = GUICtrlCreateButton("Help", 202, 87, 147, 57)
GUICtrlSetFont(-1, 24, 800, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Basla
        $sonuc = GUICtrlRead($kup)
        If $sonuc = "" Then
            MsgBox(0, "Error", "You must put a number.")
        ElseIf $sonuc > 2000000000 Then 
            MsgBox(0, "Error", "This number too long for this program.")
        Else
        Do
        $var1 = Random(1, 1000, 1)
        $var11 = $var1 * $var1
        $var111 = $var1 * $var11
        $var2 = Random(1, 1000, 1)
        $var22 = $var2 * $var2
        $var222 = $var22 * $var2
        Until $var111 + $var222 = $sonuc
        MsgBox(0, "Found", $var1 & "³" & " + " & " " & $var2 & "³" & " = " & $sonuc)
        EndIf
    Case $Button1
        MsgBox(0, "Help", "Put result of cube. It will say you cube root.")
    EndSwitch
WEnd

Compiled Link : http://www.mediafire.com/?c70jkf60oww1jo1

Edited July 28, 2011 by Slaeghtor

[enaiman]

Good script for your first one.

Now, let's get to business

Your script does return some results but ... if the number can't be represented as a sum of the cubes of two integers - your script will be stuck in a loop forever. Just put 8 in the box and wait for your script to finish - I doubt it will be finishing at any time. That being said, your script will fail way too often.

Next: you need to put a check for whatever is entered in yout input box - it needs to accept only numbers - right now it accepts text too and that will make the script hang.

Next: using random numbers to test them is not a fast method at all because you will be testing alot of not needed numbers (if the input is 9 - is there any need to test numbers up to 1000?)

Conclusion: good script but needs alot more work. Good luck.

[Slaeghtor]

Thanks for this comment.

I made it for it:

I'm Subscribe to a math magazine. So this magazine asked a question about cube roots. I can't remember now that hwat they asked but:

Example : "What cube roots of 23214522563( < this is example).

So I asked myself that how can I find that and I created this program and shared.

So sorry for this sheet english