Fromel = Formel
Ein Insider Gag aus unserer Klasse^^. Ein nettes Programm zum Rechnen.
Freue mich auf Kritik 
Mfg und viel Spaß Nakroma
Spoiler anzeigen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; Author: Nakroma
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$GUI = GUICreate("Fromel", 305, 210, 255, 125)
$Tab1 = GUICtrlCreateTab(8, 8, 290, 190)
$TabSheet1 = GUICtrlCreateTabItem("Prozent")
$button1 = GUICtrlCreateButton("p% Prozentsatz", 24, 40)
$button2 = GUICtrlCreateButton("W Prozentwert", 24, 80)
$button3 = GUICtrlCreateButton("G Grundwert", 24, 120)
$TabSheet2 = GUICtrlCreateTabItem("Körper")
$button4 = GUICtrlCreateButton("Oktaeder", 24, 40)
$button5 = GUICtrlCreateButton("Quadrat", 24, 80)
$button6 = GUICtrlCreateButton("Dreieck", 24, 120)
$TabSheet3 = GUICtrlCreateTabItem("Rechnungen")
$button8 = GUICtrlCreateButton("Plus", 24, 40)
$button9 = GUICtrlCreateButton("Minus", 24, 80)
$button10 = GUICtrlCreateButton("Mal", 24, 120)
$button11 = GUICtrlCreateButton("Geteilt", 24, 160)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button1
Prozentsatz()
Case $button2
Prozentwert()
Case $button3
Grundwert()
Case $button4
Oktaeder()
Case $button5
Quadrat()
Case $button6
Dreieck()
Case $button8
Plus()
Case $button9
Minus()
Case $button10
Mal()
Case $button11
Geteilt()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Prozentsatz()
$pspw = InputBox("Fromel", "Bitte Prozentwert eingeben")
If @error Then
Return
Endif
$psgw = InputBox("Fromel", "Bitte Grundsatz eingeben")
If @error Then
Return
Endif
$ps = $pspw / $psgw
MsgBox(0, "Fromel", "p%: " & $ps)
EndFunc
Func Prozentwert()
$pwps = InputBox("Fromel", "Bitte Prozentsatz eingeben")
If @error Then
Return
Endif
$pwgw = InputBox("Fromel", "Bitte Grundwert eingeben")
If @error Then
Return
Endif
$pw = $pwgw * $pwps
MsgBox(0, "Fromel", "W: " & $pw)
EndFunc
Func Grundwert()
$gwpw = InputBox("Fromel", "Bitte Prozentwert eingeben")
If @error Then
Return
Endif
$gwps = InputBox("Fromel", "Bitte Prozentsatz eingeben")
If @error Then
Return
Endif
$gw = $gwpw / $gwps
MsgBox(0, "Fromel", "G: " & $gw)
EndFunc
Func Oktaeder()
$okt_a = InputBox("Fromel", "Bitte Seite a eingeben")
If @error Then
Return
Endif
$okt_b = InputBox("Fromel", "Bitte Seite b eingeben")
If @error Then
Return
Endif
$okt = $okt_a * 8 + $okt_b * 4
MsgBox(0, "Fromel", "Umfang: " & $okt)
EndFunc
Func Quadrat()
$quad_a = InputBox("Fromel", "Bitte Seite a eingeben")
If @error Then
Return
Endif
$quad_b = InputBox("Fromel", "Bitte Seite b eingeben")
If @error Then
Return
Endif
$quad = $quad_a * 2 + $quad_b * 2
MsgBox(0, "Fromel", "Umfang: " & $quad)
EndFunc
Func Dreieck()
$drei_a = InputBox("Fromel", "Bitte Seite a eingeben")
If @error Then
Return
Endif
$drei_b = InputBox("Fromel", "Bitte Seite b eingeben")
If @error Then
Return
Endif
$drei_c = InputBox("Fromel", "Bitte Seite c eingeben")
If @error Then
Return
Endif
$drei = $drei_a + $drei_b + $drei_c
MsgBox(0, "Fromel", "Umfang: " & $drei)
EndFunc
Func Plus()
$plus_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$plus_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$plus = $plus_a + $plus_b
MsgBox(0, "Fromel", "+: " & $plus)
EndFunc
Func Minus()
$min_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$min_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$min = $min_a - $min_b
MsgBox(0, "Fromel", "-: " & $min)
EndFunc
Func Mal()
$mal_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$mal_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$mal = $mal_a * $mal_b
MsgBox(0, "Fromel", "*: " & $mal)
EndFunc
Func Geteilt()
$get_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$get_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$get = $get_a / $get_b
MsgBox(0, "Fromel", "/: " & $get)
EndFunc
