Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
Taschenrechner Buttons Taschenrechner Buttons
You last visited: Today at 19:54

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Taschenrechner Buttons

Discussion on Taschenrechner Buttons within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
SourZ's Avatar
 
elite*gold: 53
The Black Market: 3/1/0
Join Date: Dec 2009
Posts: 427
Received Thanks: 88
Taschenrechner Buttons

hi
ich wollte grad nen taschenrechner programmieren, aber irgendwo is nen fehler^^

bei case 2,3 und 4 steht absichtilich noch nichts.

kann mir einer dann auch gleich schreiben wies richtig wäre? wäre nett

PHP Code:
#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 174, 251, 218, 158)
$Button1 = GUICtrlCreateButton("+", 16, 48, 137, 41, 0)
$Button2 = GUICtrlCreateButton("-", 16, 96, 137, 41, 0)
$Button3 = GUICtrlCreateButton("x", 16, 144, 137, 41, 0)
$Label1 = GUICtrlCreateLabel("Was möchten sie rechnen?", 16, 16, 141, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Hobo Std")
$Button4 = GUICtrlCreateButton("/", 16, 192, 137, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Zahl1 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl2 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl3 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl4 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl5 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl6 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl7 InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl8 InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl9 = $Zahl1 + $Zahl2

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Zahl1
            $Zahl2
            $Zahl9
        Case $Button2
            
            
        Case $Button3
            
            
        Case $Button4
            
            
        
    EndSwitch
WEnd 
SourZ is offline  
Old   #2
 
BlackHybrid's Avatar
 
elite*gold: 52
The Black Market: 101/0/0
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
Gibt doch ein TuT, das du dir ankuggen kannst.
BlackHybrid is offline  
Old   #3
 
SourZ's Avatar
 
elite*gold: 53
The Black Market: 3/1/0
Join Date: Dec 2009
Posts: 427
Received Thanks: 88
wäre trotzdem nett wenn mir jemand den richtigen code für meinen taschenrechner geben könnte
SourZ is offline  
Old   #4
 
BlackHybrid's Avatar
 
elite*gold: 52
The Black Market: 101/0/0
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
Dann beschreib mal was du genau willst. Bei Case $Button1 stehen die Variablen alleine. Was du an der stelle auch immer machen möschtest dei Variablen müssen mit etwas im Zusammenhang stehen.
BlackHybrid is offline  
Old   #5
 
Toasty-man's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jul 2010
Posts: 307
Received Thanks: 290
So schwer ist es auch nicht :O
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rechner", 202, 170, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 185, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("1", 8, 40, 43, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("2", 56, 40, 43, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("3", 104, 40, 43, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("4", 8, 72, 43, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("5", 56, 72, 43, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("6", 104, 72, 43, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("7", 8, 104, 43, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("8", 56, 104, 43, 25, $WS_GROUP)
$Button9 = GUICtrlCreateButton("9", 104, 104, 43, 25, $WS_GROUP)
$Button10 = GUICtrlCreateButton("0", 8, 136, 43, 25, $WS_GROUP)
$Button11 = GUICtrlCreateButton(".", 56, 136, 43, 25, $WS_GROUP)
$Button12 = GUICtrlCreateButton("=", 104, 136, 43, 25, $WS_GROUP)
$Button13 = GUICtrlCreateButton("+", 152, 40, 43, 25, $WS_GROUP)
$Button14 = GUICtrlCreateButton("-", 152, 72, 43, 25, $WS_GROUP)
$Button15 = GUICtrlCreateButton("*", 152, 104, 43, 25, $WS_GROUP)
$Button16 = GUICtrlCreateButton("/", 152, 136, 43, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}", "clear")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "1")
        Case $Button2
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "2")
        Case $Button3
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "3")
        Case $Button4
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "4")
        Case $Button5
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "5")
        Case $Button6
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "6")
        Case $Button7
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "7")
        Case $Button8
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "8")
        Case $Button9
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "9")
        Case $Button10
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "0")
        Case $Button11
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & ".")
        Case $Button12
            GUICtrlSetData($Input1, Execute(GUICtrlRead($Input1)))
        Case $Button13
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "+")
        Case $Button14
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "-")
        Case $Button15
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "*")
        Case $Button16
            GuiCtrlSetData($Input1, GuiCtrlRead($Input1) & "/")
    EndSwitch
WEnd

Func clear()
       GUICtrlSetData($Input1, "")
       EndFunc 
so würde es bei mir aussehen mit F1 löschst du das was in dem input steht hab vergessen nen button fürs löschen der zahlen in der input vergessen deswegen hab ich einfach so gemacht das man f1 drücken muss :O
Toasty-man is offline  
Old   #6


 
Meikbrosoft's Avatar
 
elite*gold: 45
The Black Market: 56/0/0
Join Date: Mar 2010
Posts: 1,564
Received Thanks: 350
Dieser Teil ist falsch gesetzt:
PHP Code:
$Zahl1 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl2 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl3 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl4 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl5 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl6 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl7 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl8 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$Zahl9 = $Zahl1 + $Zahl2 
Das muss doch erst kommen wenn man auf +, -, : oder * gedrückt hat, deswegen muss man das im jedem Case $Button1-4 einfügen und nicht nach dem GUI. Außerdem hast du die = zwischen Variblen und Inputboxen vergessen. Wieso kommen so viele ? Mach du erstmal nur zwei Inputboxen. Ich würd dir raten, ein neues gui mit inputfeldern zu machen sieht schöner aus
Das Ergebnis kommt nie raus, weil du es nicht ausrechnest, machs doch mit ner msgbox

hier mal dein script überarbeitet:
PHP Code:
#include <GUIConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 174, 251, 218, 158)
$Button1 = GUICtrlCreateButton("+", 16, 48, 137, 41, 0)
$Button2 = GUICtrlCreateButton("-", 16, 96, 137, 41, 0)
$Button3 = GUICtrlCreateButton("x", 16, 144, 137, 41, 0)
$Label1 = GUICtrlCreateLabel("Was möchten sie rechnen?", 16, 16, 141, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Hobo Std")
$Button4 = GUICtrlCreateButton("/", 16, 192, 137, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
$Zahl1 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl2 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis1 = $Zahl1 + $Zahl2
MsgBox(0,"Ergebnis",$ergebnis1)

        Case $Button2
            $Zahl3 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl4 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis2 = $Zahl3 - $Zahl4
MsgBox(0,"Ergebnis",$ergebnis2)

        Case $Button3
            $Zahl5 =InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl6 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis3 = $Zahl5 * $Zahl6
MsgBox(0,"Ergebnis",$ergebnis3)

        Case $Button4
            $Zahl7=InputBox ("Taschenrechner", "Bitte geben sie zahl 1 ein.")
$Zahl8 =InputBox ("Taschenrechner", "Bitte geben sie zahl 2 ein.")
$ergebnis4 = $Zahl7 / $Zahl8
MsgBox(0,"Ergebnis",$ergebnis4)


    EndSwitch
WEnd 
Meikbrosoft is offline  
Thanks
1 User
Old   #7
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jun 2009
Posts: 121
Received Thanks: 13
Habs mir erlaubt, übersichtlicher zu machen + neue Funktion.
Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rechner", 235, 300, 0, 0)
GUISetBkColor(0x0066CC)
$Label1 = GUICtrlCreateLabel("Was möchtest du machen?", 3, 8, 233, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Addieren", 16, 48, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Subtrahieren", 16, 88, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Multiplizieren", 16, 128, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Dividieren", 16, 168, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Potenzieren", 16, 208, 200, 33)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("Exit", 75, 260, 80, 40)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button6
			Exit
		Case $Button1
			$Addieren1 = InputBox("Zahl 1","Gib hier den 1. Summand an:","","",70,150)
			$Addieren2 = InputBox("Zahl 2","Gib hier den 2. Summand an:","","",70,150)
			$Ergebnis1 = $Addieren1 + $Addieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis1,200,60)
			Sleep(3000)
			SplashOff()
		Case $Button2
			$Subtrahieren1 = InputBox("Zahl 1","Gib hier den Minuend an:","","",70,150)
			$Subtrahieren2 = InputBox("Zahl 2","Gib hier den Subtrahend an:","","",70,150)
			$Ergebnis2 = $Subtrahieren1 - $Subtrahieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis2,200,60)
			Sleep(3000)
			SplashOff()
		Case $Button3
			$Multiplizieren1 = InputBox("Zahl 1","Gib hier den 1. Faktor an:","","",70,150)
			$Multiplizieren2 = InputBox("Zahl 2","Gib hier den 2. Faktor an:","","",70,150)
			$Ergebnis3 = $Multiplizieren1 * $Multiplizieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis3,200,60)
			Sleep(3000)
			SplashOff()
		Case $Button4
			$Dividieren1 = InputBox("Zahl 1","Gib hier den Divident an:","","",70,150)
			$Dividieren2 = InputBox("Zahl 2","Gib hier den Divisor an:","","",70,150)
			If $Dividieren2 = 0 Then
				SplashTextOn("Fehler","Die Division durch 0" & Chr(13) &"ist nicht definiert!", 250,70)
				Sleep(2500)
				SplashOff()
			EndIf
			If $Dividieren2 > 0 Then
				$Ergebnis4 = $Dividieren1 / $Dividieren2
				SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis4,200,60)
				Sleep(3000)
				SplashOff()
			EndIf	
		Case $Button5
			$Potenzieren1 = InputBox("Potenzzahl","Gib hier die Zahl ein, die potenziert werden soll:","","",70,150)
			$Potenzieren2 = InputBox("Anzahl","Wie oft soll es potenziert werden?","","",70,150)
			$Ergebnis5 = $Potenzieren1 ^ $Potenzieren2
			SplashTextOn("Ergebnis","Das Ergebnis ist:" & Chr(13) & $Ergebnis5,200,60)
			Sleep(3000)
			SplashOff()
	EndSwitch
WEnd
Tobolobo is offline  
Reply

« StringRegExp - bestimmte Sachen ändern | The West Bot? »

Similar Threads Similar Threads
[HELP]Taschenrechner
03/09/2011 - AutoIt - 2 Replies
Also ich wollte nen kleinen Taschenrechner Skripten. Hab jz ein Problem. Undzwar soll in die hinterste Inputbox der Zeile das Ergebnis angezeigt werden. Wie kann ich das machen? #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= ;------------------------------------------------ ----GUI---------------------------------------
[VB.Net] Der kleine Taschenrechner
05/30/2010 - Coding Tutorials - 3 Replies
Hallo Elitepvpers! Heute zeige ich euch wie ihr mit der Programmiersprache Visual Basic 2008 einen kleinen Taschrechner programmieren könnt! So lasst uns anfangen! Zuerst sollte man ein neues Projekt erstellen, mit dem Namen Grundrechenarten. SO wenn ihr nun die Form vor euch habt, macht folgendes : Eine GroupBox in die Form ziehen In diese GroupBox zieht ihr 4 RadioButtons Diese Benennt ihr wie folgt : Addition(+)
Taschenrechner Coden
12/16/2009 - General Coding - 5 Replies
Hallo Com Es ist mir ein wenig peinlich aber ich habe ein Problem. Ich habe nun mit dem Coden bei Visual Basic begonnen. Mein erstes Projekt ist ein Taschenrechner :rolleyes: Ich habe das Design fertig gemacht aber bei dem Coden stecke ich fest :rolleyes: Ich wollte fragen ob mir einer Helfen könnte :) Hier: Was hab ich da Falsch gemacht? Was falsches eingestellt? Ich benutze das Programm Microsoft Visual Basic 2008 Express Edition.
Problem wenn Buttons Disable dann Enable sind die buttons zum senden zu verwenden
11/19/2009 - AutoIt - 5 Replies
also hab ja durch hilfe geschafft buttons mit Checkbox Enable und disable zu machn nur mein prob ist jetzt das ich die buttons nicht verwenden kann hab schon einiges ausprobiert aber wenn ich dann bsp button1 drücke passiert einfach nix kann mir wer helfen `? bekommt thx für ;) hier der code: #include <GUIConstantsEx.au3> GUICreate("") $check = GUICtrlCreateCheckbox("Enable/Disable Buttons", 10, 10, 140, 20) $button = GUICtrlCreateButton("Button",10,50) $button1 =...
[Buttons]Hi wer kann mir die Buttons erklären
08/16/2009 - Metin2 Private Server - 6 Replies
Hi ich will kg machen,kenne aber die bedeutung der buttons nich könnt ihr mir vllt.helfen MfG TheRisk Hier ein Screen:http://img16.imageshack.us/img16/3016/gaul. jpg



All times are GMT +2. The time now is 19:56.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.