genau so hab ich das gemeint
Beiträge von war10ck
-
-
war auch gerade fertig damit^^
-
wenn das ne gui is mit if $msg = $ID von Checkbox then... machen
-
Hab mal nen einfachen Rechner Programmiert, vllt habt ihr ne idee wie man das ganze verkürzen kann.
Für Ideeen für weitere Funktionen wäre ich dankbar, falls ihr nen Bug findet bitte sagen.
Hier das Skript:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Math.au3>#region GUI
[/autoit] [autoit][/autoit] [autoit]
guicreate("Claculator", 320, 220)
GUIctrlcreateinput("", 10, 10, 300, 30) ;ID=3
GUIctrlcreatebutton("1", 10, 50, 30, 30) ;ID=4
guictrlcreatebutton("4", 10, 90, 30, 30) ;ID=5
guictrlcreatebutton("7", 10, 130, 30, 30) ;ID=6
guictrlcreatebutton("0", 10, 170, 30, 30) ;ID=7
guictrlcreatebutton("2", 50, 50, 30, 30) ;ID=8
guictrlcreatebutton("5", 50, 90, 30, 30) ;ID=9
guictrlcreatebutton("8", 50, 130, 30, 30) ;ID=10
guictrlcreatebutton(".", 50, 170, 30, 30) ;ID=11
guictrlcreatebutton("3", 90, 50, 30, 30) ;ID=12
guictrlcreatebutton("6", 90, 90, 30, 30) ;ID=13
guictrlcreatebutton("9", 90, 130, 30, 30) ;ID=14
guictrlcreatebutton("(-)", 90, 170, 30, 30) ;ID=15
guictrlcreatebutton("+", 130, 50, 30, 30) ;ID=16
guictrlcreatebutton("-", 130, 90, 30, 30) ;ID=17
guictrlcreatebutton("*", 130, 130, 30, 30) ;ID=18
guictrlcreatebutton("/", 130, 170, 30, 30) ;ID=19
guictrlcreatebutton("x²", 170, 50, 30, 30) ;ID=20
guictrlcreatebutton("x^-1", 170, 90, 30, 30) ;ID=21
guictrlcreatebutton("^", 170, 130, 30, 30) ;ID=22
guictrlcreatebutton("sin", 210, 50, 30, 30) ;ID=23
guictrlcreatebutton("cos", 210, 90, 30, 30) ;ID=24
guictrlcreatebutton("tan", 210, 130, 30, 30) ;ID=25
guictrlcreatebutton("C", 250, 50, 30, 30) ;ID=26
guictrlcreatebutton("CE", 250, 90, 30, 30) ;ID=27
guictrlcreatebutton("PI", 250, 130, 30, 30) ;ID=28
guictrlcreatebutton("ENTER", 170, 170, 110, 30) ;ID=29
guiseticon("icon.ico")guisetstate(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#endregion GUI#region Button Functions
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
dim $rechnung
$pi= 3.14159265358979323846264338328while 1
[/autoit]
$msg= guigetmsg()
if $msg= $GUI_EVENT_CLOSE Then Exit
Select
case $msg=4
$edit=guictrlread(3)
$string= $edit &1
guictrlsetdata( 3, $string)
case $msg=5
$edit=guictrlread(3)
$string= $edit &4
guictrlsetdata(3, $string)
case $msg=6
$edit=guictrlread(3)
$string= $edit &7
guictrlsetdata(3, $string)
case $msg= 7
$edit = guictrlread(3)
$string= $edit &0
guictrlsetdata(3, $string)
case $msg= 8
$edit=guictrlread(3)
$string= $edit &2
guictrlsetdata(3, $string)
case $msg=9
$edit=guictrlread(3)
$string= $edit &5
guictrlsetdata(3, $string)
case $msg= 10
$edit=guictrlread(3)
$string= $edit &8
guictrlsetdata(3, $string)
case $msg = 11
$edit= guictrlread(3)
$string= $edit &.
guictrlsetdata(3, $string)
case $msg= 12
$edit=guictrlread(3)
$string= $edit &3
guictrlsetdata(3, $string)
case $msg= 13
$edit= guictrlread(3)
$string= $edit &6
guictrlsetdata(3, $string)
case $msg= 14
$edit= guictrlread(3)
$string= $edit &9
guictrlsetdata(3, $string)
case $msg= 15
$edit= guictrlread(3)
$string= -& $edit
guictrlsetdata(3, $string)
case $msg= 16
$edit=guictrlread(3)
$rechnung=$rechnung & $edit
$rechnung=$rechnung &"+"
guictrlsetdata(3,"")
case $msg= 17
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "-"
guictrlsetdata(3,"")
case $msg= 18
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "*"
guictrlsetdata(3, "")
case $msg= 19
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "/"
guictrlsetdata(3, "")
case $msg= 20
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "^2"
guictrlsetdata(3, "")
case $msg= 21
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "^-1"
guictrlsetdata(3, "")
case $msg=22
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$rechnung= $rechnung & "^"
guictrlsetdata(3, "")
case $msg=23
$edit=guictrlread(3)
$edit2= _radian( $edit )
$string= sin( $edit2 )
guictrlsetdata(3, $string)
case $msg= 24
$edit=guictrlread(3)
$edit2= _radian( $edit)
$string= cos( $edit2 )
guictrlsetdata(3, $string)
case $msg= 25
$edit=guictrlread(3)
$edit2= _radian( $edit )
$string= tan($edit2)
guictrlsetdata(3, $string)
case $msg= 26
guictrlsetdata(3, "")
case $msg= 27
$edit=guictrlread(3)
guictrlsetdata(3,"")
$rechnung=0
case $msg=28
$rechnung= $rechnung & $pi
guictrlsetdata(3, $pi)
case $msg=29
$edit=guictrlread(3)
$rechnung= $rechnung & $edit
$ergebnis= execute($rechnung)
guictrlsetdata(3, $ergebnis)
endselect
wend
#endregion Button FunctionsEdit: Ich hab schon nen Bug gefunden, in meiner Rechtschreibung xD
Edit2: So hab jetz noch den Icon Hochgeladen, das skript werde ich so bald ich Zeit habe verbessern -
lol coole funktion xD
-
erst select
dann case für die einzelnen fälle z.b case $spielliste= "Alarmstufe Rot 3"
darunter dann mit guictrlsetdata die infos die du haben willst bei der info gruppe ein label mit den infos erstellen lassenedit: so jetzt hab ich grad geseen dass schon weider wer schneller war xD
-
-
Wie kann ich die letzte stelle einse Strings löschen?
Mfg
-
Na wenigstens einer hat den witz daran verstanden
Stimme dir zu padmak
-
is mir neu
-
Schulaufgabe, Hausübung od so iwie
-
???? wie meinst du das?
-
na ja, ic hab mal sowas in der richtung geschrieben und damit in der schule ubeabsichtigt ca. 50 pc´s für ca. 20 min lahmgelegt xD
Das is dann ein bisschen in die hose gegangen weils die Lehrer auch mitbekommen haben
-
was is ne schux?????
-
Guck mal in die Forenregeln, Spaßviren sind hier verboten
-
nochmal: es get nicht darum, dass ic ein programm brauche was daskann, das ganze ist rein zur Übung
-
vllt youtube, die suchfunktio von autoit.de od sowas
-
hab mal versucht ein paar funktionen für das ganze zu schreiben
Hier mal um auflösen von as²+bx+c=0
Spoiler anzeigen
[autoit]func _squareequation1( $a,$b, $c)
[/autoit]
Local $x1
LocaL $x2
LocaL $calc1
local $calc2
$calc1 = (-$b + sqrt($b ^2 - 4*$a * $c))/(2*$a)
$x1 = Execute( $calc1 )
$calc2 = (-$b - sqrt($b ^2 - 4*$a * $c))/(2*$a)
$x2= Execute ($calc2)
_arraycreate( $x1, $x2 )
endfunc
und hier für x²+px+q=0Spoiler anzeigen
[autoit]
[/autoit]
func _squareequation2($p, $q)
Local $x1
Local $x2
local $calc1
local $calc2
$calc1 = -($p /2) + sqrt(($p /2)^2 - $q)
$x1 = execute( $calc1 )
$calc2 = -($p /2) - sqrt(($p /2)^2 - $q)
_arraycreate($x1, $x2)
endfunc
Gesucht ist jeweils xWenn ich das so mache Funktioniert es zwar, ich muss aber für fast jede art von Gleichung ne eigene Funktion erstellen, da werde ich ja alt! xD
Mfg
-
bei guicreate unter style entweder $WS_EX_TRANSPARENT oder 0x00000020 (wenn das andere nicht geht wie bei mir) hinschreiben dann sollte es gehen
-
nur so ne frage: was sollte an den Beispiel schwer sein?
Und ic weis was sin, cos.. is.
Na ja egal, wenn ics nict in bringe is es ja auc egal, jedenfalls guck ic mir da was für mate an, was ha auch nicht schlecht ist
