|
You last visited: Today at 14:22
Advertisement
Taschenrechner Buttons
Discussion on Taschenrechner Buttons within the AutoIt forum part of the Coders Den category.
05/31/2011, 18:09
|
#1
|
elite*gold: 53 
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
|
|
|
|
05/31/2011, 19:47
|
#2
|
elite*gold: 52
Join Date: Oct 2010
Posts: 1,998
Received Thanks: 389
|
Gibt doch ein TuT, das du dir ankuggen kannst.
|
|
|
|
|
06/01/2011, 20:06
|
#3
|
elite*gold: 53
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
|
|
|
|
|
06/01/2011, 21:49
|
#4
|
elite*gold: 52
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.
|
|
|
|
|
06/02/2011, 15:13
|
#5
|
elite*gold: 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
|
|
|
|
|
06/03/2011, 19:16
|
#6
|
elite*gold: 45
Join Date: Mar 2010
Posts: 1,561
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
|
|
|
|
|
06/08/2011, 16:28
|
#7
|
elite*gold: 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
|
|
|
|
 |
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 +1. The time now is 14:23.
|
|
