#include <GUIConstantsEX.au3>

Func GUI_init()

   Global $title = "Values"
   Global $gui_width = 320
   Global $gui_height = 310
   Global $GUI = GUICreate($title, $gui_width, $gui_height)
   Global $button1 = GUICtrlCreateButton("f(x) = ax + b", 10, 10, 300, 50)
   Global $button2 = GUICtrlCreateButton("f(x) = ax^2 + bx + c", 10, 70, 300, 50)
   Global $button3 = GUICtrlCreateButton("f(x) = ax^3 + bx^2 + cx + d", 10, 130, 300, 50)
   Global $button4 = GUICtrlCreateButton("f(x) = ax^4 + bx^3 + cx^2 + dx + e", 10, 190, 300, 50)
   Global $button5 = GUICtrlCreateButton("f(x) = ax^5 + bx^4 + cx^3 + dx^2 + ex + f", 10, 250, 300, 50)
   GUISetState(@SW_SHOW, $gui)

EndFunc

Func Running()

   While 1

	  Switch GUIGetMsg()

		 Case $button1
			GUIDelete($gui)
			Return 1

		 Case $button2
			GUIDelete($gui)
			Return 2

		 Case $button3
			GUIDelete($gui)
			Return 3

		 Case $button4
			GUIDelete($gui)
			Return 4

		 Case $button5
			GUIDelete($gui)
			Return 5

		 Case $GUI_EVENT_CLOSE
			GUIDelete($gui)
			Exit

	  EndSwitch

   WEnd

EndFunc

Func Input($id)

   Switch $id

	  Case 1
		 Global $a = InputBox($title, "ax = ?")
		 Global $b = InputBox($title, "b = ?")

	  Case 2
		 Global $a = InputBox($title, "ax^2 = ?")
		 Global $b = InputBox($title, "bx = ?")
		 Global $c = InputBox($title, "c = ?")

	  Case 3
		 Global $a = InputBox($title, "ax^3 = ?")
		 Global $b = InputBox($title, "bx^2 = ?")
		 Global $c = InputBox($title, "cx = ?")
		 Global $d = InputBox($title, "d = ?")

	  Case 4
		 Global $a = InputBox($title, "ax^4 = ?")
		 Global $b = InputBox($title, "bx^3 = ?")
		 Global $c = InputBox($title, "cx^2 = ?")
		 Global $d = InputBox($title, "dx = ?")
		 Global $e = InputBox($title, "e = ?")

	  Case 5
		 Global $a = InputBox($title, "ax^5 = ?")
		 Global $b = InputBox($title, "bx^4 = ?")
		 Global $c = InputBox($title, "cx^3 = ?")
		 Global $d = InputBox($title, "dx^2 = ?")
		 Global $e = InputBox($title, "ex = ?")
		 Global $f = InputBox($title, "f = ?")

   EndSwitch

EndFunc

Func Evaluate($id)

   Local $min = InputBox($title, "Start = ?")
   Local $max = InputBox($title, "End = ?")
   Local $step = InputBox($title, "Step = ?")
   Local $f = FileOpen("D:\documents\coding\Values\" & String(InputBox($title, "Name = ?")) & ".txt")
   Local $p = InputBox($title, "How many digits after the comma?")
   FileWrite($f, "test")
   Local $s = 0
   Local $z = $min

   Switch $id

	  Case 1
		 For $z = $min To $max Step $step
			$s = Round(($a * $z) + ($b), $p)
			FileWrite($f, $z & @TAB & $s)
			ConsoleWrite($z & " done " & $s & @CRLF)
		 Next

	  Case 2
		 For $z = $min To $max Step $step
			$s = Round(($a * ($z^2)) + ($b * $z) + ($c), $p)
			FileWrite($f, $z & @TAB & $s)
			ConsoleWrite($z & " done " & $s & @CRLF)
		 Next

	  Case 3
		 For $z = $min To $max Step $step
			$s = Round(($a * ($z^3)) + ($b * ($z^2)) + ($c * $z) + ($d), $p)
			FileWrite($f, $z & @TAB & $s)
			ConsoleWrite($z & " done " & $s & @CRLF)
		 Next

	  Case 4
		 For $z = $min To $max Step $step
			$s = Round(($a * ($z^4)) + ($b * ($z^3)) + ($c * ($z^2)) + ($d * $z) + ($e), $p)
			FileWrite($f, $z & @TAB & $s)
			ConsoleWrite($z & " done " & $s & @CRLF)
		 Next

	  Case 5
		 For $z = $min To $max Step $step
			$s = Round(($a * ($z^5)) + ($b * ($z^4)) + ($c * ($z^3)) + ($d * ($z^2)) + ($e * $z) + ($f), $p)
			FileWrite($f, $z & @TAB & $s)
			ConsoleWrite($z & " done " & $s & @CRLF)
		 Next

   EndSwitch

   FileClose($f)
   GUIDelete($gui)

EndFunc

Func Caller()

   GUI_init()
   Local $id = Running()
   Input($id)
   Evaluate($id)

EndFunc


Caller()
Exit