#include <GUIConstantsEx.au3>
GuiCreate("Kalkulator by ... Yubasek ", 230, 100)
$inpLiczba1=GuiCtrlCreateInput("",15,15,50,20,0x2000)
$labZnak=GuiCtrlCreateLabel("z",75,15)
$inpLiczba2=GuiCtrlCreateInput("",90,15,50,20,0x2000)
GuiCtrlCreateLabel("=",145,15);tego zmieniac nie bedziemy wiec tu zmienna nie jest potrzebna
$inpWynik=GuiCtrlCreateInput("",160,15,50,20,0x2000)
$btnPlus=GuiCtrlCreateButton("+",15,50,30)
$btnMinus=GuiCtrlCreateButton("-",50,50,30)
$btnRazy=GuiCtrlCreateButton("*",85,50,30)
$btnPodziel=GuiCtrlCreateButton("/",120,50,30)
$btnRowne=GuiCtrlCreateButton("=",170,50,30)
GUISetState()
$msg=GUIGetMsg()
While $msg <> $GUI_EVENT_CLOSE
$msg=GUIGetMsg();umieszczamy GuiGetMsg() w pętli, zeby program caly czas sprawdzal, czy wcisnelismy jakis button lub krzyzyk.
Select
Case $msg=$btnPlus ;jesli wcisniemy $btnPlus to:
GUICtrlSetData($labZnak,"+")
Case $msg=$btnMinus ;jesli wcisniemy $btnMinus to:
GUICtrlSetData($labZnak,"-")
Case $msg=$btnRazy ;jesli wcisniemy $btnRazy to:
GUICtrlSetData($labZnak,"*")
Case $msg=$btnPodziel ;jesli wcisniemy $btnPodziel to:
GUICtrlSetData($labZnak,"/")
Case $msg=$btnRowne ;jesli wcisniemy $btnRowne to:
$znak=GUICtrlRead($labZnak);odczytujemy z labela jaki znak jest obecnie ustawiony.
$liczba1=GuiCtrlRead($inpLiczba1);odczytujemy pierwszą liczbę z pola input
$liczba2=GUICtrlRead($inpLiczba2);odczytujemy druga liczbę z pola input
Select
Case $znak="z";jesli znak jest literą z to:
MsgBox(0,"Bład", "Nie wybrałes zadnej operacjii matematycznej");powiadomienie o błędzie
Case $znak="+";jesli znak to "+" to:
$wynik=$liczba1+$liczba2;obliczenie sumy i przypisanie jej do zmiennej wynik
GUICtrlSetData($inpWynik,$wynik)
Case $znak="-";jesli znak to "-" to:
$wynik=$liczba1-$liczba2;obliczenie roznicy i przypisanie jej do zmiennej wynik
GUICtrlSetData($inpWynik,$wynik)
Case $znak="*";jesli znak to "*" to:
$wynik=$liczba1*$liczba2;obliczenie iloczynu i przypisanie jej do zmiennej wynik
GUICtrlSetData($inpWynik,$wynik)
Case $znak="/";jesli znak to "/" to:
If $liczba2=0 Then ;jesli dzielnik jest rowny 0
MsgBox(0,"Blad","Nie dziel przez zero ");wyswietlenie błedu
Else;w przeciwnym wypadku:
$wynik=$liczba1/$liczba2;obliczenie ilorazu i przypisanie jej do zmiennej wynik
GUICtrlSetData($inpWynik,$wynik)
EndIf
EndSelect
EndSelect
WEnd
kalkulator z tutka autoit