Calculator :)

1. offizieller Beitrag

    Jo ich habe heute einige Stunden damit verbracht meinen Taschenrechner zu Coden.

    Er hat :

    - 374 Zeilen XD
    Ok spaß bei seite xD

    Man kann folgenes machen :

    - Addition
    - Subtraktion
    - Multiplikation
    - Division
    - Satz des Pythagoras

    - Prozentrechnung
    - Prozentwert (W)
    - Prozentsatz (p)
    - Grundwert (G)

    -Zinsrechnung
    - Zinsen (Z) - In Jahren
    - Zinsen (Z) - In Monaten
    - Zinsen (Z) - In Tagem
    - Zinssatz (p)
    - Zinstage
    - Kapital (K)
    - Kapital (K) - Höhe es Kredits

    - Geometrie
    - Quadrat
    - Rechteck
    - Trapez
    - Parallelogramm
    - Dreieck
    - Würfel
    - Quader
    - Säule
    - Zylinder
    - Pyramide
    - Kegel
    - Kugel


    ScreenShots :

    [Blockierte Grafik: http://img63.imageshack.us/img63/1271/startx.jpg]

    [Blockierte Grafik: http://img688.imageshack.us/img688/6917/prozentrechnung.jpg]

    [Blockierte Grafik: http://img684.imageshack.us/img684/9082/zinsrechnung.jpg]

    [Blockierte Grafik: http://img97.imageshack.us/img97/8563/geometriej.jpg]


    Download : Load the Calculator made by Goldy

    Achtung laaaaaaaaaaaaaaaanger Quellcode XD
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=Calculator.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.3.4.0
    Author: Goldy

    [/autoit] [autoit][/autoit] [autoit]

    Script Function:
    Calculator.

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ;============================
    ;======Beispiel - Goldy======
    ;============================
    ;$zahl1 = InputBox ("Zahl1","Hier bitte die erste Zahl eingeben")
    ;$zahl2 = InputBox ("Zahl2","Geben sie nun hier die zweite Zahl ein")
    ;$zahl3 = $zahl1 - $zahl2
    ;MsgBox (0,"Ergebnis",$zahl3)
    ;$a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    ;=============================
    ;=============================

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1_1 = GUICreate("Calculator", 212, 261, 909, 122)
    $Button1 = GUICtrlCreateButton("Addition", 8, 8, 81, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Subtraktion", 104, 8, 97, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Multiplikation", 8, 40, 81, 25, $WS_GROUP)
    $Button4 = GUICtrlCreateButton("Division", 104, 40, 97, 25, $WS_GROUP)
    $Button5 = GUICtrlCreateButton("Satz des Pythagoras", 8, 72, 193, 25, $WS_GROUP)
    $Button6 = GUICtrlCreateButton("Prozentrechnung", 8, 104, 193, 25, $WS_GROUP)
    $Button7 = GUICtrlCreateButton("Zinsrechnung", 8, 136, 193, 25, $WS_GROUP)
    $Button8 = GUICtrlCreateButton("Geometrie", 8, 168, 193, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("© by Goldy ", 8, 200, 60, 17)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button1
    $zahl1 = StringReplace(InputBox("Zahl1","Hier bitte die erste Zahl eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("Zahl2","Geben sie nun hier die zweite Zahl ein"), ",", ".")
    $zahl3 = $zahl1 + $zahl2
    MsgBox (0,"Ergebnis",$zahl3)
    Case $Button2
    $zahl1 = StringReplace(InputBox ("Zahl1","Hier bitte die erste Zahl eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("Zahl2","Geben sie nun hier die zweite Zahl ein"), ",", ".")
    $zahl3 = $zahl1 - $zahl2
    MsgBox (0,"Ergebnis",$zahl3)
    Case $Button3
    $zahl1 = StringReplace(InputBox ("Zahl1","Hier bitte die erste Zahl eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("Zahl2","Geben sie nun hier die zweite Zahl ein"), ",", ".")
    $zahl3 = $zahl1 * $zahl2
    MsgBox (0,"Ergebnis",$zahl3)
    Case $Button4
    $zahl1 = StringReplace(InputBox ("Zahl1","Hier bitte die erste Zahl eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("Zahl2","Geben sie nun hier die zweite Zahl ein"), ",", ".")
    $zahl3 = $zahl1 / $zahl2
    MsgBox (0,"Ergebnis",$zahl3)
    Case $Button5
    $zahl1 = StringReplace(InputBox ("a²","Hier bitte a² eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("b²","Geben sie nun hier b² ein"), ",", ".")
    $zahl3 = $zahl1*$zahl1 + $zahl2*$zahl2
    $zahl4 = Sqrt($zahl3)
    MsgBox (0,"Ergebnis",$zahl4)
    Case $Button6
    _ProzentRechnen()
    Case $Button7
    _ZinsRechnen()
    Case $Button8
    _Geometrie()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _ProzentRechnen()
    #Region ### START Koda GUI section ### Form=E:\Programme\AutoIt3\SciTE\Koda\Forms\Prozentrechnung.kxf
    $Form2 = GUICreate("Prozentrechnung", 496, 82, 390, 243)
    $Button20 = GUICtrlCreateButton("Prozentwert (W)", 8, 8, 145, 25, $WS_GROUP)
    $Button21 = GUICtrlCreateButton("Prozentsatz (p)", 168, 8, 145, 25, $WS_GROUP)
    $Button22 = GUICtrlCreateButton("Grundwert (G)", 328, 8, 145, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Button20
    $zahl1 = StringReplace(InputBox ("Grundwert","Hier bitte den Grundwert (G) eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("Prozentsatz","Hier bitte den Prozentsatz (p) eingeben"), ",", ".")
    $zahl3 = $zahl1 * $zahl2
    $zahl4 = $zahl3 / 100
    MsgBox (0,"Der Prozentwert ist :",$zahl4)
    Case $Button21
    $zahl1 = StringReplace(InputBox("Prozentwert","Hier bitte den Prozentwert (W) eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox("Grundwert","Hier bitte den Grundwert (G) eingeben"), ",", ".")
    $zahl3 = $zahl1 - $zahl2
    $zahl4 = $zahl3 * 100
    $zahl5 = $zahl4 / $zahl2
    MsgBox (0,"Der Prozentsatz ist:",$zahl5)
    Case $Button22
    $zahl1 = StringReplace(InputBox ("Prozentsatz","Hier bitte den Prozentsatz (p) eingeben"), ",", ".")
    $zahl2 = StringReplace(InputBox ("Prozentwert","Hier bitte den Prozentwert (W) eingeben"), ",", ".")
    $zahl3 = $zahl2 * 100
    $zahl4 = $zahl3 / $zahl1
    MsgBox (0,"Der Grundwert ist:",$zahl4)
    EndSwitch
    WEnd
    GUIDelete($Form2)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _ZinsRechnen()

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form3 = GUICreate("Zinsrechnung", 499, 158, 630, 261)
    $Button23 = GUICtrlCreateButton("Zinsen (Z) - In Jahren", 8, 32, 145, 25, $WS_GROUP)
    $Button24 = GUICtrlCreateButton("Zinssatz (p)", 168, 32, 145, 25, $WS_GROUP)
    $Button25 = GUICtrlCreateButton("Kapital (K)", 328, 32, 145, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Berechnung der Zinsen", 24, 8, 115, 17)
    $Button26 = GUICtrlCreateButton("Zinsen (Z) - In Monaten", 8, 72, 145, 25, $WS_GROUP)
    $Button27 = GUICtrlCreateButton("Zinsen (Z) - In Tagen", 8, 112, 145, 25, $WS_GROUP)
    $Label2 = GUICtrlCreateLabel("Berechnung des Zinssatzes", 176, 8, 135, 17)
    $Label3 = GUICtrlCreateLabel("Berechnung der Zinstage", 176, 80, 124, 17)
    $Button28 = GUICtrlCreateButton("Zinstage", 168, 112, 145, 25, $WS_GROUP)
    $Label4 = GUICtrlCreateLabel("Berechnung des Kapitals", 336, 8, 145, 25)
    $Button29 = GUICtrlCreateButton("Kapital (K) - Höhe des Kredits", 328, 72, 145, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button23
    $kapital = StringReplace(InputBox ("Kapital","Hier bitte das Kapital (K) eingeben"), ",", ".")
    $p = StringReplace(InputBox ("Zinssatz","Hier bitte den Zinssatz (p) eingeben"), ",", ".")
    $erg1 = $kapital*$p
    $erg2 = $erg1 / 100
    MsgBox (0,"Die Zinsen betragen:",$erg2)
    Case $Button24
    $kapital = StringReplace(InputBox ("Kapital","Hier bitte das Kapital (K) eingeben"), ",", ".")
    $zinsen = StringReplace(InputBox ("Zinsen","Hier bitte die Zinsen (Z) eingeben"), ",", ".")
    $erg1 = $zinsen*100
    $erg2 = $erg1 / $kapital
    MsgBox (0,"Der Zinsen betragen:",$erg2)
    Case $Button25
    $p = StringReplace(InputBox ("Zinssatz","Hier bitte den Zinssatz (p) eingeben"), ",", ".")
    $zinsen = StringReplace(InputBox ("Zinsen","Hier bitte die Zinsen (Z) eingeben"), ",", ".")
    $erg1 = $zinsen*100
    $erg2 = $erg1 / $p
    MsgBox (0,"Der Zinsen betragen:",$erg2)
    Case $Button26
    $kapital = StringReplace(InputBox ("Kapital","Hier bitte das Kapital (K) eingeben"), ",", ".")
    $p = StringReplace(InputBox ("Zinssatz","Hier bitte den Zinssatz (p) eingeben"), ",", ".")
    $monate = StringReplace(InputBox ("Monate","Hier bitte die Anzahl der Monate (m) eingeben"), ",", ".")
    $erg = ($kapital*$p*$monate)/(100*12)
    MsgBox (0,"Die Zinsen betragen:",$erg)
    Case $Button27
    $kapital = StringReplace(InputBox ("Kapital","Hier bitte das Kapital (K) eingeben"), ",", ".")
    $p = StringReplace(InputBox ("Zinssatz","Hier bitte den Zinssatz (p) eingeben"), ",", ".")
    $tage = StringReplace(InputBox ("Tage","Hier bitte die Anzahl der Tage (t) eingeben"), ",", ".")
    $erg = ($kapital*$p*$tage)/(100*360)
    MsgBox (0,"Die Zinsen betragen:",$erg)
    Case $Button28
    $kapital = StringReplace(InputBox ("Kapital","Hier bitte das Kapital (K) eingeben"), ",", ".")
    $zinsen = StringReplace(InputBox ("Zinsen","Hier bitte die Zinsen (Z) eingeben"), ",", ".")
    $p = StringReplace(InputBox ("Zinssatz","Hier bitte den Zinssatz (p) eingeben"), ",", ".")
    $erg = ($zinsen*100*360)/($kapital*$p)
    MsgBox (0,"Tage die das Kapital angelegt war:",$erg)
    Case $Button29
    $t = StringReplace(InputBox ("Tage","Hier bitte die Anzahl der Tage (t) eingeben"), ",", ".")
    $zinsen = StringReplace(InputBox ("Zinsen","Hier bitte die Zinsen (Z) eingeben"), ",", ".")
    $p = StringReplace(InputBox ("Zinssatz","Hier bitte den Zinssatz (p) eingeben"), ",", ".")
    $erg = ($zinsen*100*360)/($p*$t)
    MsgBox (0,"Tage die das Kapital angelegt war:",$erg)

    [/autoit] [autoit][/autoit] [autoit]

    EndSwitch
    WEnd
    GUIDelete($Form3)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _Geometrie()
    #Region ### START Koda GUI section ### Form=E:\Programme\AutoIt3\SciTE\Koda\Forms\Geometrie.kxf
    $Form4 = GUICreate("Geometrie", 643, 331, 282, 414)
    $Button30 = GUICtrlCreateButton("Umfang", 8, 48, 145, 25, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel(" Quadrat", 16, 16, 90, 17)
    $Button31 = GUICtrlCreateButton("Flächeninhalt", 8, 80, 145, 25, $WS_GROUP)
    $Label2 = GUICtrlCreateLabel(" Rechteck", 56, 120, 57, 17)
    $Button32 = GUICtrlCreateButton("Umfang", 8, 152, 145, 25, $WS_GROUP)
    $Button33 = GUICtrlCreateButton("Flächeninhalt", 8, 184, 145, 25, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("Parallelogramm", 208, 16, 75, 17)
    $Button34 = GUICtrlCreateButton("Umfang", 168, 48, 145, 25, $WS_GROUP)
    $Button35 = GUICtrlCreateButton("Flächeninhalt", 168, 80, 145, 25, $WS_GROUP)
    $Label4 = GUICtrlCreateLabel("Dreieck", 224, 120, 41, 17)
    $Button36 = GUICtrlCreateButton("Umfang", 168, 152, 145, 25, $WS_GROUP)
    $Button37 = GUICtrlCreateButton("Flächeninhalt", 168, 184, 145, 25, $WS_GROUP)
    $Label5 = GUICtrlCreateLabel("Trapez", 64, 224, 37, 17)
    $Button38 = GUICtrlCreateButton("Umfang", 8, 248, 145, 25, $WS_GROUP)
    $Button39 = GUICtrlCreateButton("Flächeninhalt", 8, 280, 145, 25, $WS_GROUP)
    $Label6 = GUICtrlCreateLabel("Würfel", 224, 224, 35, 17)
    $Button40 = GUICtrlCreateButton("Oberfläche", 168, 248, 145, 25, $WS_GROUP)
    $Button41 = GUICtrlCreateButton("Volumen", 168, 280, 145, 25, $WS_GROUP)
    $Label7 = GUICtrlCreateLabel("Quader", 376, 16, 39, 17)
    $Button42 = GUICtrlCreateButton("Oberfläche", 328, 48, 145, 25, $WS_GROUP)
    $Button43 = GUICtrlCreateButton("Volumen", 328, 80, 145, 25, $WS_GROUP)
    $Label8 = GUICtrlCreateLabel("Säule", 376, 120, 31, 17)
    $Button44 = GUICtrlCreateButton("Oberfläche", 328, 152, 145, 25, $WS_GROUP)
    $Button45 = GUICtrlCreateButton("Volumen", 328, 184, 145, 25, $WS_GROUP)
    $Label9 = GUICtrlCreateLabel("Zylinder", 376, 224, 41, 17)
    $Button46 = GUICtrlCreateButton("Oberfläche", 328, 248, 145, 25, $WS_GROUP)
    $Button47 = GUICtrlCreateButton("Volumen", 328, 280, 145, 25, $WS_GROUP)
    $Label10 = GUICtrlCreateLabel("Pyramide", 536, 16, 47, 17)
    $Button48 = GUICtrlCreateButton("Oberfläche", 488, 48, 145, 25, $WS_GROUP)
    $Button49 = GUICtrlCreateButton("Volumen", 488, 80, 145, 25, $WS_GROUP)
    $Label11 = GUICtrlCreateLabel("Kegel", 544, 120, 31, 17)
    $Button50 = GUICtrlCreateButton("Volumen", 488, 152, 145, 57, $WS_GROUP)
    $Label12 = GUICtrlCreateLabel("Kugel", 544, 224, 31, 17)
    $Button51 = GUICtrlCreateButton("Oberfläche", 488, 248, 145, 25, $WS_GROUP)
    $Button52 = GUICtrlCreateButton("Volumen", 488, 280, 145, 25, $WS_GROUP)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button30
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $erg = $a*4
    MsgBox (0,"Der Umfang des Quadrats ist:",$erg)
    Case $Button31
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $erg = $a*$a
    MsgBox (0,"Der Flächeninhalt des Quadrats ist:",$erg)
    Case $Button32
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $erg = 2*($a+$b)
    MsgBox (0,"Der Umfang des Rechtecks ist:",$erg)
    Case $Button33
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $erg = $a*$b
    MsgBox (0,"Der Flächeninhalt des Rechtecks ist:",$erg)
    Case $Button34
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $erg = (2*$a)+(2*$b)
    MsgBox (0,"Der Umfang des Parallelogramms ist:",$erg)
    Case $Button35
    $g = StringReplace(InputBox ("G","Gib hier die Länge der Seite G ein"), ",", ".")
    $h = StringReplace(InputBox ("H","Gib hier die Länge der Seite H ein"), ",", ".")
    $erg = $g*$h
    MsgBox (0,"Der Flächeninhalt des Parallelogramms ist:",$erg)
    Case $Button36
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $c = StringReplace(InputBox ("C","Gib hier die Länge der Seite C ein"), ",", ".")
    $erg = $a+$b+$c
    MsgBox (0,"Der Umfang des Dreiecks ist:",$erg)
    Case $Button37
    $g = StringReplace(InputBox ("G","Gib hier die Länge der Seite G ein"), ",", ".")
    $h = StringReplace(InputBox ("H","Gib hier die Länge der Seite H ein"), ",", ".")
    $erg = ($g*$h)/2
    MsgBox (0,"Der Flächeninhalt des Dreiecks ist:",$erg)
    Case $Button38
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $c = StringReplace(InputBox ("C","Gib hier die Länge der Seite C ein"), ",", ".")
    $d = StringReplace(InputBox ("D","Gib hier die Länge der Seite D ein"), ",", ".")
    $erg = $a+$b+$c+$d
    MsgBox (0,"Der Umfang des Trapez ist:",$erg)
    Case $Button39
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $c = StringReplace(InputBox ("C","Gib hier die Länge der Seite C ein"), ",", ".")
    $h = StringReplace(InputBox ("H","Gib hier die Länge der Seite H ein"), ",", ".")
    $erg = ($a+$c)/2
    $erg2 = $erg *$h
    MsgBox (0,"Der Flächeninhalt des Trapezes ist:",$erg2)
    Case $Button40
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $erg = 6*$a*$a
    MsgBox (0,"Die Oberfläche des Würfels ist:",$erg)
    Case $Button41
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $erg = 6*$a*$a
    MsgBox (0,"Das Volumen des Würfels ist:",$erg)
    Case $Button42
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $c = StringReplace(InputBox ("C","Gib hier die Länge der Seite C ein"), ",", ".")
    $erg = (2*$a*$b)+(2*$a*$c)+(2*$b*$c)
    MsgBox (0,"Die Oberfläche des Quaders ist:",$erg)
    Case $Button43
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $c = StringReplace(InputBox ("C","Gib hier die Länge der Seite C ein"), ",", ".")
    $erg = $a*$b
    $erg2 = $erg*$c
    MsgBox (0,"Das Volumen des Quaders ist:",$erg2)
    Case $Button44
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $b = StringReplace(InputBox ("B","Gib hier die Länge der Seite B ein"), ",", ".")
    $c = StringReplace(InputBox ("C","Gib hier die Länge der Seite C ein"), ",", ".")
    $g = StringReplace(InputBox ("G","Gib hier die Länge der Seite G ein"), ",", ".")
    $koerper = StringReplace(InputBox ("Körper","Gib hier Hkörper ein"), ",", ".")
    $erg = 2*$g+$a*$koerper+4*$koerper+5*$koerper
    MsgBox (0,"Die Oberfläche der Säule ist:",$erg)
    Case $Button45
    $g = StringReplace(InputBox ("G","Gib hier die Länge der Seite G ein"), ",", ".")
    $koerper = StringReplace(InputBox ("Körper","Gib hier Hkörper ein"), ",", ".")
    $erg = $g*$koerper
    MsgBox (0,"Das Volumen der Säule ist:",$erg)
    Case $Button46
    $r = StringReplace(InputBox ("r","Gib hier den Radius ein "), ",", ".")
    $pi = 3.14159265
    $koerper = StringReplace(InputBox ("Körper","Gib hier Hkörper ein"), ",", ".")
    $erg = (2*$pi*$r*$r) + (2*$pi*$r*$koerper)
    MsgBox (0,"Die Oberläsche des Zylinders ist:",$erg)
    Case $Button47
    $r = StringReplace(InputBox ("r","Gib hier den Radius ein "), ",", ".")
    $pi = 3.14159265
    $koerper = StringReplace(InputBox ("Körper","Gib hier Hkörper ein"), ",", ".")
    $erg = $pi*$r*$r*$koerper
    MsgBox (0,"Das Volumen des Zylinders ist:",$erg)
    Case $Button48
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $Ha = StringReplace(InputBox ("Ha","Gib hier die Länge der Seite Ha ein"), ",", ".")
    $erg = ($a*$a)+(4*$a*$Ha)/2
    MsgBox (0,"Die Oberfläche der Pyramide ist:",$erg)
    Case $Button49
    $a = StringReplace(InputBox ("A","Gib hier die Länge der Seite A ein"), ",", ".")
    $koerper = StringReplace(InputBox ("Körper","Gib hier Hkörper ein"), ",", ".")
    $erg = 1/3*$a*$a*$koerper
    MsgBox (0,"Das Volumen der Pyramide ist:",$erg)
    Case $Button50
    $r = StringReplace(InputBox ("r","Gib hier den Radius ein "), ",", ".")
    $pi = 3.14159265
    $koerper = StringReplace(InputBox ("Körper","Gib hier Hkörper ein"), ",", ".")
    $erg = 1/3*$pi*$r*$r*$koerper
    MsgBox (0,"Das Volumen des Kegels ist:",$erg)
    Case $Button51
    $r = StringReplace(InputBox ("r","Gib hier den Radius ein "), ",", ".")
    $pi = 3.14159265
    $erg = 4*$pi*$r*$r
    MsgBox (0,"Die Oberfläche der Kugel ist:",$erg)
    Case $Button52
    $r = StringReplace(InputBox ("r","Gib hier den Radius ein "), ",", ".")
    $pi = 3.14159265
    $erg = 4/3*$pi*$r*$r*$r
    MsgBox (0,"Das Volumen der Kugel ist:",$erg)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    EndSwitch
    WEnd
    EndFunc

    [/autoit]

    Ich hoffe euch gefällt was ihr hier sehen könnt :)

    Dies ist das erste was ich mit AutoIT gemacht habe :)


    MfG


    Goldy

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    2 Mal editiert, zuletzt von Goldy (16. Februar 2010 um 13:48)

    Zitat von Bakku

    Ich kann den Screenshot irgendwie nicht sehen.
    Ist das bei allen so?

    Hatte nur kurz falsch verlinkt ^^

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Also ich sehe nur Bilder einer GUI was man in 5 Minuten gemacht hat ;). Code?

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Ach ups xD Sorry
    werde ich jetzt Editieren xD

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Ist doch schon drin?

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Sollte nun richtig angezeigt werden :)

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Vielen dank :)
    Haber dafür mehrere Stunden gebraucht :)

    Eigentlich sollte alles gehen da ich alle geteste habe und die auch die aufgaben richtig gelöst haben.


    :) - Ich hoffe der ein oder andere benutzt ihn :)

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Vielen dank :)

    Sobald ich was gelernt habe werde ich den auf jeden Fall updaten.

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Sehr nett :thumbup:
    Würde dir empfehlen den Code und die exe als Anhang(am besten im .zip archiv) zu posten...

    Spoiler anzeigen

    Grundkenntnisse in: C++, JavaScript
    Sehr gute Kenntnisse: PHP, JAVA, C und näturlich AutoIt


    Klaviatur, Anhang UDF, GDI+ Mühle

    Zitat

    "Wenn einen um 20h der Pizzadienst anruft und fragt, ob man's nur vergessen hat und ob man das gleiche
    möchte wie immer -- dann sollte man sein Bestellverhalten evtl überdenken"

    Ich werde auf jeden fahl nochmal Überarbeiten ,
    so das es bestimmt auch weniger Zeilen sind und versuchen den Code noch ein bisl Übersichtlicher zu machen.


    Goldy

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]

    Schickes Teil, muss ich ehrlich sagen ;)
    Nur Code ist halt ziemlich lang.
    Kurzer Tipp zum Kürzen (Ist mir beim Überfliegen aufgefall'n):
    Bei den Geometrischen Funktionen hast du jedes mal $pi deklariert!
    Es reicht wenn du das einmal am Anfang des Skripts mit

    [autoit]

    Global Const $pi = 3.14159265

    [/autoit]


    machst. Aber egal, Code bei Seite, der Benutzer sieht den Code nicht ;)
    Top!

    Vielen dank Zacharja :)

    das mit dem Global Const kannte ich bis jetzt noch nicht , werde ich aber beachten sobald ich weiter Code :)


    Goldy

    Meine Projekte :

    Taschenrechner [X]
    JamLegend Auto-Player [Canceld]
    Launcher [X]
    Multi-Game-Quest-Viewer [Canceld]


    [autoit]

    If $goffy or not $brain Then $DeleteInetCable

    [/autoit]