Jump to content

input


au3scr
 Share

Recommended Posts

How i get data from $inputvastus?

i need to get data from input(s) so i can make calculating finctions :)

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\rain\my documents\kxf\form1.kxf
$Form1_1 = GUICreate("RCalc", 611, 343, 193, 125)
$Button1 = GUICtrlCreateButton("2", 64, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("6", 104, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("9", 104, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("7", 24, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("1", 24, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("3", 104, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("8", 64, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("5", 64, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button9 = GUICtrlCreateButton("4", 24, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("+", 176, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button11 = GUICtrlCreateButton("-", 176, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button12 = GUICtrlCreateButton("*", 176, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button13 = GUICtrlCreateButton("=", 216, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button14 = GUICtrlCreateButton("%", 216, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button15 = GUICtrlCreateButton("/", 216, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button16 = GUICtrlCreateButton("-/+", 64, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button17 = GUICtrlCreateButton("0", 24, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button18 = GUICtrlCreateButton(",", 104, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button19 = GUICtrlCreateButton("x^2", 176, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button20 = GUICtrlCreateButton("x^3", 216, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button21 = GUICtrlCreateButton("Cos", 256, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button22 = GUICtrlCreateButton("Sin", 256, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button23 = GUICtrlCreateButton("M-", 256, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button24 = GUICtrlCreateButton("M+", 256, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button25 = GUICtrlCreateButton("GB", 328, 303, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button26 = GUICtrlCreateButton("MB", 328, 263, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button27 = GUICtrlCreateButton("KB", 328, 223, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button28 = GUICtrlCreateButton("ZB", 368, 303, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button29 = GUICtrlCreateButton("EB", 368, 263, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button30 = GUICtrlCreateButton("PB", 368, 223, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button31 = GUICtrlCreateButton("B", 328, 183, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button32 = GUICtrlCreateButton("TB", 368, 183, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button33 = GUICtrlCreateButton("[", 408, 303, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button34 = GUICtrlCreateButton(")", 408, 263, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button35 = GUICtrlCreateButton("(", 408, 223, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button36 = GUICtrlCreateButton("YB", 408, 183, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button37 = GUICtrlCreateButton("micro", 446, 303, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button38 = GUICtrlCreateButton("milli", 446, 263, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button39 = GUICtrlCreateButton("centi", 446, 223, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button40 = GUICtrlCreateButton("atto", 502, 303, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button41 = GUICtrlCreateButton("femto", 502, 263, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button42 = GUICtrlCreateButton("pico", 502, 223, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button43 = GUICtrlCreateButton("deci", 446, 183, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button44 = GUICtrlCreateButton("nano", 502, 183, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button45 = GUICtrlCreateButton("Chr", 558, 303, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button46 = GUICtrlCreateButton("]", 558, 263, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button47 = GUICtrlCreateButton("yocto", 558, 223, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button48 = GUICtrlCreateButton("zepto", 558, 183, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button49 = GUICtrlCreateButton("Str To HEX", 328, 144, 83, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button50 = GUICtrlCreateButton("Str To HEX", 424, 144, 83, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button51 = GUICtrlCreateButton("Str -> Binar", 520, 144, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button52 = GUICtrlCreateButton("Binar -> Str", 232, 144, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button53 = GUICtrlCreateButton("Dec", 177, 145, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button54 = GUICtrlCreateButton("C", 104, 144, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button55 = GUICtrlCreateButton("F", 104, 104, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button56 = GUICtrlCreateButton("D", 24, 104, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button57 = GUICtrlCreateButton("E", 64, 104, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button58 = GUICtrlCreateButton("B", 64, 144, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button59 = GUICtrlCreateButton("A", 24, 144, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button60 = GUICtrlCreateButton("Abs", 176, 104, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button61 = GUICtrlCreateButton("Exp", 232, 104, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button62 = GUICtrlCreateButton("r^2 -> Pii", 288, 104, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button63 = GUICtrlCreateButton("d -> Pii", 384, 104, 83, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button64 = GUICtrlCreateButton("Pii * r^2", 472, 104, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button65 = GUICtrlCreateButton("a*h/2", 560, 104, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Label1 = GUICtrlCreateLabel("r", 24, 56, 9, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputr = GUICtrlCreateInput("", 40, 56, 45, 21)
$Label2 = GUICtrlCreateLabel("d", 104, 56, 13, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputd = GUICtrlCreateInput("", 120, 56, 45, 21)
$Label3 = GUICtrlCreateLabel("Pii", 176, 56, 22, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputpii = GUICtrlCreateInput("", 200, 56, 45, 21)
$Label4 = GUICtrlCreateLabel("a", 256, 56, 13, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputa = GUICtrlCreateInput("", 272, 56, 45, 21)
$Label5 = GUICtrlCreateLabel("h", 328, 56, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputh = GUICtrlCreateInput("", 344, 56, 45, 21)
$Label6 = GUICtrlCreateLabel("V", 400, 56, 14, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputv = GUICtrlCreateInput("", 416, 56, 45, 21)
$Label7 = GUICtrlCreateLabel("s", 480, 56, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputs = GUICtrlCreateInput("", 496, 56, 45, 21)
$Label8 = GUICtrlCreateLabel("t", 544, 56, 8, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputt = GUICtrlCreateInput("", 560, 56, 45, 21)
$inputvastus = GUICtrlCreateInput("", 24, 24, 577, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Menüü osa :)
$MenuItem1 = GUICtrlCreateMenu("File")
$MenuItem2 = GUICtrlCreateMenuItem("E&xit", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenu("Matem")
$MenuItem4 = GUICtrlCreateMenuItem("kolmnurga pindala", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("r -> d", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("ringi pindala", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("d -> Pii ", $MenuItem3)
$MenuItem8 = GUICtrlCreateMenuItem("r -> Pii", $MenuItem3)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $MenuItem2
            Exit
        Case $Button5 
            $add1 = $inputvastus&"1"
            GUICtrlSetData($inputvastus,$add1)      
EndSwitch
WEnd
Link to comment
Share on other sites

I added

Case $Button59

$adda = GUICtrlRead($inputvastus)&"A"

GUICtrlSetData($inputvastus,$adda)

But it adds A 3 times..Whats wrong?

click on other number and then on A

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\rain\my documents\kxf\form1.kxf
$Form1_1 = GUICreate("RCalc", 611, 343, 193, 125)
$Button1 = GUICtrlCreateButton("2", 64, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("6", 104, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("9", 104, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("7", 24, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("1", 24, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("3", 104, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("8", 64, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("5", 64, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button9 = GUICtrlCreateButton("4", 24, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("+", 176, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button11 = GUICtrlCreateButton("-", 176, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button12 = GUICtrlCreateButton("*", 176, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button13 = GUICtrlCreateButton("=", 216, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button14 = GUICtrlCreateButton("%", 216, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button15 = GUICtrlCreateButton("/", 216, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button16 = GUICtrlCreateButton("-/+", 64, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button17 = GUICtrlCreateButton("0", 24, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button18 = GUICtrlCreateButton(",", 104, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button19 = GUICtrlCreateButton("x^2", 176, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button20 = GUICtrlCreateButton("x^3", 216, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button21 = GUICtrlCreateButton("Cos", 256, 304, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button22 = GUICtrlCreateButton("Sin", 256, 264, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button23 = GUICtrlCreateButton("M-", 256, 224, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button24 = GUICtrlCreateButton("M+", 256, 184, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Button25 = GUICtrlCreateButton("GB", 328, 303, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button26 = GUICtrlCreateButton("MB", 328, 263, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button27 = GUICtrlCreateButton("KB", 328, 223, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button28 = GUICtrlCreateButton("ZB", 368, 303, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button29 = GUICtrlCreateButton("EB", 368, 263, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button30 = GUICtrlCreateButton("PB", 368, 223, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button31 = GUICtrlCreateButton("B", 328, 183, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button32 = GUICtrlCreateButton("TB", 368, 183, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button33 = GUICtrlCreateButton("[", 408, 303, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button34 = GUICtrlCreateButton(")", 408, 263, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button35 = GUICtrlCreateButton("(", 408, 223, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button36 = GUICtrlCreateButton("YB", 408, 183, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Button37 = GUICtrlCreateButton("micro", 446, 303, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button38 = GUICtrlCreateButton("milli", 446, 263, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button39 = GUICtrlCreateButton("centi", 446, 223, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button40 = GUICtrlCreateButton("atto", 502, 303, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button41 = GUICtrlCreateButton("femto", 502, 263, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button42 = GUICtrlCreateButton("pico", 502, 223, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button43 = GUICtrlCreateButton("deci", 446, 183, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button44 = GUICtrlCreateButton("nano", 502, 183, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button45 = GUICtrlCreateButton("Chr", 558, 303, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button46 = GUICtrlCreateButton("]", 558, 263, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button47 = GUICtrlCreateButton("yocto", 558, 223, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button48 = GUICtrlCreateButton("zepto", 558, 183, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
$Button49 = GUICtrlCreateButton("Str To HEX", 328, 144, 83, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button50 = GUICtrlCreateButton("Str To HEX", 424, 144, 83, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button51 = GUICtrlCreateButton("Str -> Binar", 520, 144, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button52 = GUICtrlCreateButton("Binar -> Str", 232, 144, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button53 = GUICtrlCreateButton("Dec", 177, 145, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button54 = GUICtrlCreateButton("C", 104, 144, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button55 = GUICtrlCreateButton("F", 104, 104, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button56 = GUICtrlCreateButton("D", 24, 104, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button57 = GUICtrlCreateButton("E", 64, 104, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button58 = GUICtrlCreateButton("B", 64, 144, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button59 = GUICtrlCreateButton("A", 24, 144, 30, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Button60 = GUICtrlCreateButton("Abs", 176, 104, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button61 = GUICtrlCreateButton("Exp", 232, 104, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button62 = GUICtrlCreateButton("r^2 -> Pii", 288, 104, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button63 = GUICtrlCreateButton("d -> Pii", 384, 104, 83, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button64 = GUICtrlCreateButton("Pii * r^2", 472, 104, 85, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button65 = GUICtrlCreateButton("a*h/2", 560, 104, 45, 30, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Label1 = GUICtrlCreateLabel("r", 24, 56, 9, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputr = GUICtrlCreateInput("", 40, 56, 45, 21)
$Label2 = GUICtrlCreateLabel("d", 104, 56, 13, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputd = GUICtrlCreateInput("", 120, 56, 45, 21)
$Label3 = GUICtrlCreateLabel("Pii", 176, 56, 22, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputpii = GUICtrlCreateInput("", 200, 56, 45, 21)
$Label4 = GUICtrlCreateLabel("a", 256, 56, 13, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputa = GUICtrlCreateInput("", 272, 56, 45, 21)
$Label5 = GUICtrlCreateLabel("h", 328, 56, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputh = GUICtrlCreateInput("", 344, 56, 45, 21)
$Label6 = GUICtrlCreateLabel("V", 400, 56, 14, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputv = GUICtrlCreateInput("", 416, 56, 45, 21)
$Label7 = GUICtrlCreateLabel("s", 480, 56, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputs = GUICtrlCreateInput("", 496, 56, 45, 21)
$Label8 = GUICtrlCreateLabel("t", 544, 56, 8, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inputt = GUICtrlCreateInput("", 560, 56, 45, 21)
$inputvastus = GUICtrlCreateInput("", 24, 24, 577, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Menüü osa :)
$MenuItem1 = GUICtrlCreateMenu("File")
$MenuItem2 = GUICtrlCreateMenuItem("E&xit", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenu("Matem")
$MenuItem4 = GUICtrlCreateMenuItem("kolmnurga pindala", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("r -> d", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("ringi pindala", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("d -> Pii ", $MenuItem3)
$MenuItem8 = GUICtrlCreateMenuItem("r -> Pii", $MenuItem3)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $MenuItem2
            Exit
        Case $Button5 
            $add1 = GUICtrlRead($inputvastus)&"1"
            GUICtrlSetData($inputvastus,$add1)  
        Case $Button1 
            $add2 = GUICtrlRead($inputvastus)&"2"
            GUICtrlSetData($inputvastus,$add2)
        Case $Button6 
            $add3 = GUICtrlRead($inputvastus)&"3"
            GUICtrlSetData($inputvastus,$add3)  
        Case $Button9 
            $add4 = GUICtrlRead($inputvastus)&"4"
            GUICtrlSetData($inputvastus,$add4)
        Case $Button8 
            $add5 = GUICtrlRead($inputvastus)&"5"
            GUICtrlSetData($inputvastus,$add5)
        Case $Button2
            $add6 = GUICtrlRead($inputvastus)&"6"
            GUICtrlSetData($inputvastus,$add6)
        Case $Button4 
            $add7 = GUICtrlRead($inputvastus)&"7"
            GUICtrlSetData($inputvastus,$add7)
        Case $Button7 
            $add8 = GUICtrlRead($inputvastus)&"8"
            GUICtrlSetData($inputvastus,$add8)  
        Case $Button3 
            $add9 = GUICtrlRead($inputvastus)&"9"
            GUICtrlSetData($inputvastus,$add9)  
        Case $Button17 
            $add0 = GUICtrlRead($inputvastus)&"0"
            GUICtrlSetData($inputvastus,$add0)
        Case $Button59
            $adda = GUICtrlRead($inputvastus)&"A"
            GUICtrlSetData($inputvastus,$adda)
EndSwitch
WEnd
Edited by au3scr
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...