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
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Calculator.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.4.0
Author: Goldy
Script Function:
Calculator.
#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"), ",", ".")
;=============================
;=============================
#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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
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
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 ###
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
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 ###
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)
EndSwitch
WEnd
GUIDelete($Form3)
EndFunc
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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
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)
EndSwitch
WEnd
EndFunc
Ich hoffe euch gefällt was ihr hier sehen könnt
Dies ist das erste was ich mit AutoIT gemacht habe
MfG
Goldy