[Kalkulator] Kto pomoże? Początki autoit

[Yuaver]

Dopiero zaczynam zabawę z autoit i wczoraj chciałem napisać kalkulator. Oto mój kod:

 

 

 

 

on()
Func on()
MsgBox(0, "Kalkulator", "Wybierz liczbę na klawiaturze..." & @LF & "1- dodawanie, 2- odejmowanie, 3- mnożenie, 4- dzielenie, END- wyłącz")
HotKeySet("{1}" , "dodawanie" )
HotKeySet("{2}" , "odejmowanie" )
HotKeySet("{3}" , "mnozenie" )
HotKeySet("{4}" , "dzielenie" )
HotKeySet("{Backspace}" , "on" )
HotKeySet("{end}" , "end" )
EndFunc

$a
$b

dodawanie()
Func dodawanie()
MsgBox(0, "Info", "Podawaj tylko liczy calkowite" & @LF & "Jzeli chcesz wrócić do pola wyboru wcisnij Backspace" & @LF & "Jezeli chcesz wyłączyć program wcisnij END")
Sleep(250)
MsgBox(0, "Dodawanie", "Podaj A")
Sleep(100)
MsgBox(0, "Dodawanie", "Podaj B")
Sleep(100)
MsgBox(0, "Suma to:", "" & @LF & a + b )
MsgBox(0, "Co chcesz zrobić?", "Wrócić do pola wyboru - Backspace" & @LF & "Wyłączyć program - END")
EndFunc

odejmowanie()
Func odejmowanie()
MsgBox(0, "Info", "Podawaj tylko liczy calkowite" & @LF & "Jzeli chcesz wrócić do pola wyboru wcisnij Backspace" & @LF & "Jezeli chcesz wyłączyć program wcisnij END")
Sleep(250)
MsgBox(0, "Odejmowanie", "Podaj A")
Sleep(100)
MsgBox(0, "Odejmowanie", "Podaj B")
Sleep(100)
MsgBox(0, "Róznica to:", "" & @LF & a - b )
MsgBox(0, "Co chcesz zrobić?", "Wrócić do pola wyboru - Backspace" & @LF & "Wyłączyć program - END")
EndFunc

mnozenie()
Func mnozenie()
MsgBox(0, "Info", "Podawaj tylko liczy calkowite" & @LF & "Jzeli chcesz wrócić do pola wyboru wcisnij Backspace" & @LF & "Jezeli chcesz wyłączyć program wcisnij END")
Sleep(250)
MsgBox(0, "Mnoenie", "Podaj A")
Sleep(100)
MsgBox(0, "Mnoenie", "Podaj B")
Sleep(100)
MsgBox(0, "Iloczyn to:", "" & @LF & a * b )
MsgBox(0, "Co chcesz zrobić?", "Wrócić do pola wyboru - Backspace" & @LF & "Wyłączyć program - END")
EndFunc

dzielenie()
Func dzielenie()
MsgBox(0, "Info", "Podawaj tylko liczy calkowite" & @LF & "Jzeli chcesz wrócić do pola wyboru wcisnij Backspace" & @LF & "Jezeli chcesz wyłączyć program wcisnij END")
Sleep(250)
MsgBox(0, "Dzielenie", "Podaj A")
Sleep(100)
MsgBox(0, "Dzielenie", "Podaj B")
Sleep(100)
MsgBox(0, "Iloraz to:", "" & @LF & a + b )
MsgBox(0, "Co chcesz zrobić?", "Wrócić do pola wyboru - Backspace" & @LF & "Wyłączyć program - END")
EndFunc
end()
Func end()
MsgBox(0, "Off", "Program wyłączony...")
EndFunc
;Kalkulator by Yuaver 4 TrikiWinXP ;p

 

 

A takie coś mi wywala:

 

 

 

C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3(12,3) : ERROR: syntax error
$a
~~^
C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3(4,32) : ERROR: dodawanie(): undefined function.
HotKeySet("{1}" , "dodawanie" )
~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3(5,34) : ERROR: odejmowanie(): undefined function.
HotKeySet("{2}" , "odejmowanie" )
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3(6,31) : ERROR: mnozenie(): undefined function.
HotKeySet("{3}" , "mnozenie" )
~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3(7,32) : ERROR: dzielenie(): undefined function.
HotKeySet("{4}" , "dzielenie" )
~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3(9,28) : ERROR: end(): undefined function.
HotKeySet("{end}" , "end" )
~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Hubi$\Pulpit\ °\AutoIT\31-st.au3 - 6 error(s), 0 warning(s)

 

Kto mi wytłumaczy błędy, i napisze działający kod do tego?

[nerv234]

Ehh. stworzyć gui bym polecał do kalkulatora. Co do errorów to użyłeś funkcję przed deklaracją.

[4ggr35510n]

Global $a

Global $b

 

I powinno być dobrze.

[M4niak]

dodawanie()

 

Taka rzecz w kodzie wydaje polecenie do uruchomienie funkcji..

A Ty każdą funkcję przypisałeś do hotkey'a, więc to i inne jest zbędne..

[tele1234567]

Gotowy przykład

 

http://www.mpcforum....ator-w-autoit3/

 

Brak tylko w nim przecinka...

 

Dodając przecinek musisz wiedzieć że kalkulator autoit używa tylko kropki,

wiec...

 

_______________________ JESLI KTOS BY CHCIAŁ DODAC RECZNIE GUZIK __________

Przykład jak zamienić "," na "."

 

$Rzm = GUICtrlRead($Input6)
	  $RzmS = number(stringreplace($Rzm, ",",".")) ; zamienia "," na "."

Potem robisz z tym jakies działanie i wklejasz w odpowiednie miejsce.

_________________________________________________________________________

 

_______________________ OPCJA Z GUZIK__________________________

Lub dorabiasz w Koda Designer guzik , generujesz kod --> " F9" , kopiujesz , wklejasz do edytora tekstowego np. scite,

i do guzika dopisujesz komende jesli sie nie mylę

Send("Tu wpisz co ma wpisać")

 

______________________________________________________________

[ziuto]

jak chcesz zobaczyć jak trzeba nie które funkcję zrobić możesz zobaczyć mój kod kalkulatora..

http://www.mpcforum.pl/topic/432798-kalkurator/

może nie jest perfect bo jako 1 i trzeba kilku poprawek ale działa..

długi kod bo zachciało mi się bawić z opcją ręcznego wpisywania czyli z klawiatury można też wpisywać równania a nie tylko klikać myszką..

dlugie bo taka improwizorowane kontrolowanie wpisywanego tekstu..