Moooooin,
möchte hier mal meinen Taschenrechner releasen, den ich vor langer Zeit geschrieben hab und nun noch nen bisschen abgeändert / verbessert hab.
Zum Starten Script.au3 ausführen!
Feedback ist erwünscht
Mit freundlichen Grüßen
Daniel W.
Moooooin,
möchte hier mal meinen Taschenrechner releasen, den ich vor langer Zeit geschrieben hab und nun noch nen bisschen abgeändert / verbessert hab.
Zum Starten Script.au3 ausführen!
Feedback ist erwünscht
Mit freundlichen Grüßen
Daniel W.
Thx habs geändert
Hi,
Fehlermeldung ist weg, aber das Exit funktioniert noch nicht
Ich war mal so frei und hab das gefixt. Hab das ganze in Zeile 71 eingefügt.
Script.au3
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.1.5 (beta)
Author: Daniel Wahlmann
Script Function:
Calculator
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include "Header.au3"
[/autoit] [autoit][/autoit] [autoit]Global $ctrlButton[11]
[/autoit] [autoit][/autoit] [autoit]GUICreate("Calculator", 240, 240 )
[/autoit] [autoit][/autoit] [autoit]$ctrlMenu_All = GUICtrlCreateMenu("&Calculator")
$ctrlMenu_All_Prime = GUICtrlCreateMenuitem( "Primenumer Ctrl+F1", $ctrlMenu_All )
GUICtrlCreateMenuitem( "", $ctrlMenu_All )
$ctrlMenu_All_Help = GUICtrlCreateMenu("&Help", $ctrlMenu_All)
$ctrlMenu_All_Help_Question = GUICtrlCreateMenuitem( "?", $ctrlMenu_All_Help)
$ctrlMenu_All_Help_About = GUICtrlCreateMenuitem( "About", $ctrlMenu_All_Help)
GUICtrlCreateMenuitem( "", $ctrlMenu_All )
$ctrlMenu_All_Exit = GUICtrlCreateMenuitem( "Exit", $ctrlMenu_All)
$ctrlInput = GUICtrlCreateInput("", 10, 20, 220, 20)
$ctrlButton[0] = GUICtrlCreateButton("0", 10, 180, 40, 20)
$ctrlButton[1] = GUICtrlCreateButton("1", 10, 90, 40, 20)
$ctrlButton[2] = GUICtrlCreateButton("2", 50, 90, 40, 20)
$ctrlButton[3] = GUICtrlCreateButton("3", 90, 90, 40, 20)
$ctrlButton[4] = GUICtrlCreateButton("4", 10, 120, 40, 20)
$ctrlButton[5] = GUICtrlCreateButton("5", 50, 120, 40, 20)
$ctrlButton[6] = GUICtrlCreateButton("6", 90, 120, 40, 20)
$ctrlButton[7] = GUICtrlCreateButton("7", 10, 150, 40, 20)
$ctrlButton[8] = GUICtrlCreateButton("8", 50, 150, 40, 20)
$ctrlButton[9] = GUICtrlCreateButton("9", 90, 150, 40, 20)
$ctrlButton_Vorzeichen = GUICtrlCreateButton("+/-", 50, 180, 40, 20)
$ctrlButton_Komma = GUICtrlCreateButton(",", 90, 180, 40, 20)
$ctrlButton_CE = GUICtrlCreateButton("CE", 90, 60, 60, 20)
$ctrlButton_C = GUICtrlCreateButton("C", 170, 60, 60, 20)
$ctrlButton_Mal = GUICtrlCreateButton("*", 150, 90, 30, 20)
$ctrlButton_Prozent = GUICtrlCreateButton("%", 150, 150, 30, 20)
$ctrlButton_Plus = GUICtrlCreateButton("+", 150, 120, 30, 20)
$ctrlButton_Sqrt = GUICtrlCreateButton("Sqrt", 200, 150, 30, 20)
$ctrlButton_Hoch = GUICtrlCreateButton("^", 150, 180, 30, 20)
$ctrlButton_Geteilt = GUICtrlCreateButton("/", 200, 90, 30, 20)
$ctrlButton_Minus = GUICtrlCreateButton("-", 200, 120, 30, 20)
$ctrlButton_Gleich = GUICtrlCreateButton("=", 200, 180, 30, 20)
$ctrlButton_Back = GUICtrlCreateButton("Back", 10, 60, 60, 20)
GUISetBkColor( 0xB0B0D0 )
[/autoit] [autoit][/autoit] [autoit]#region OnEvent
GUISetOnEvent( $GUI_EVENT_CLOSE, "_Exit" )
GUICtrlSetOnEvent( $ctrlButton_Vorzeichen, "_ctrlButton_Vorzeichen" )
GUICtrlSetOnEvent( $ctrlButton_Prozent, "_ctrlButton_Prozent" )
GUICtrlSetOnEvent( $ctrlButton_Sqrt, "_ctrlButton_Sqrt" )
GUICtrlSetOnEvent( $ctrlButton_Plus, "_ctrlButton_Plus" )
GUICtrlSetOnEvent( $ctrlButton_Minus, "_ctrlButton_Minus" )
GUICtrlSetOnEvent( $ctrlButton_Mal, "_ctrlButton_Mal" )
GUICtrlSetOnEvent( $ctrlButton_Geteilt, "_ctrlButton_Geteilt" )
GUICtrlSetOnEvent( $ctrlButton_Hoch, "_ctrlButton_Hoch" )
GUICtrlSetOnEvent( $ctrlButton_Komma, "_ctrlButton_Komma" )
GUICtrlSetOnEvent( $ctrlButton_Back, "_ctrlButton_Back" )
GUICtrlSetOnEvent( $ctrlButton_C, "_ctrlButton_C_CE" )
GUICtrlSetOnEvent( $ctrlButton_CE, "_ctrlButton_C_CE" )
GUICtrlSetOnEvent( $ctrlButton_Gleich, "_ctrlButton_Gleich" )
GUICtrlSetOnEvent( $ctrlMenu_All_Prime, "_ctrlMenu_All_Prime" )
GUICtrlSetOnEvent( $ctrlMenu_All_Help_About, "_ctrlMenu_All_Help_About" )
GUICtrlSetOnEvent( $ctrlMenu_All_Help_Question, "_ctrlMenu_All_Help_Question" )
GUICtrlSetOnEvent( $ctrlMenu_All_Exit, "_Exit")
For $lNum = 0 to 9
GUICtrlSetOnEvent( $ctrlButton[$lNum], "_ctrlButton" & $lNum )
Next
#endregion
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
_BlockAtoZ( $ctrlInput )
WEnd
Ich danke dir
Ich hatte es vergessen
Hallo!
Schönes skript aber wenn ich -7^2 eingebe kommt 49 raus, nicht -49..
Mfg Spider
jo weil -7 * -7 auch 49 ergibt
musste eben -1 * 7^2 eingeben ansonsten wird die Execute funktion das immer so umwandeln^^
-7*-7 = 49
DENN
Minus mal minus ergibt Plus
Hi,
@spider : jetzt sieh mal zu, wie du da wieder rauskommst.
So long,
Mega
Hallo!
Lol, meine mutter is Matheleherin an ner hochschule und sagt
-7^2 = -49
(-7)^2=49
Mfg Spider
Texas Instruments Taschenrechner sagt -7² = 49
jup stimmt ja auch
Hi,
also calc sagt mir -7^2 = 49
So long,
Mega
Hallo!
Mein Taschenrechner (immerhin 55€) sagt das hier:
[Blockierte Grafik: http://img-up.net/img/DSC00290P0XA1.JPG]
Mfg Spider
Wenn man bei Google -7^2 eintippt... kommt bei Google raus:
-(7^2) = -49
Achja und noch wieso ...
^ vor -
Hi,
wäre in der Programmierung auch so. ^ vor - trotzdem spannend!
So long,
Mega
Cooles Thema
-(7^2) = -49
Das bedeutet aber: -1 mal 7 zum Quadrat
Und das wäre wirklich: -49
Aber -7 zum Quadrat ist und bleibt +49
Man kann es sich doch ganz einfach merken indem man sagt, dass "Minus mal Minus gleich Plus" ergibt. Sowas sollte einem normalerweise in der Schule beigebracht werden/ worden sein :X
Mein Taschenrechner sagt das auch o_O
-7^2 = -49
-7 * -7 = 49
(-7)^2 = 49
jetzt check ich garnichts mehr :O
Waluev