Liebe AutoIt.de-User
ich stelle hier meinen Zensurenrechner vor.
Ich habe zwar bereits vor geraumer Zeit angefangen mit AutoIt zu programmieren, bin aber trotzdem noch eher schlecht, da ich nicht viel zum programmieren habe. Ich würde mich trotzdem über konstruktiv Kritik jeglicher Art freuen.
Die Version die ich hier hochgeladen habe ist bereits 3.0, da ich es vorher immer vergessen habe.
Quellcode
While 1
$doing=0
$notges=0
$noten=InputBox ("Anzahl","Wie viele Noten wollen sie zusammen rechnen?")
Do
$blablablub=Inputbox ("Note","Bitte geben sie die Note ein.")
$note=StringReplace ($blablablub,",", ".")
$notges=$notges+$note
$doing=$doing+1
Until $doing=$noten
$notzus=$notges/$noten
$notzusrun=runden ($notzus)
MsgBox (0,"Ergebniss","Dein Durchschnitt ist :"&$notzus&@CRLF&"Gerundet:"&$notzusrun)
ClipPut ($notzusrun)
$been=MsgBox (4,"Beenden","Wollen sie den Zensurenrechner 3.0 beenden?")
If $been=6 Then
ExitLoop
EndIf
WEnd
Exit
func runden ($rund)
If $rund>1 And $rund<1.49 Then
$gerund1 = "1"
ElseIf $rund=1 Then
$gerund1 = "1"
ElseIf $rund=1.5 Then
$gerund1 = "1.5"
ElseIf $rund>1.51 And $rund<2.49 Then
$gerund1 = "2"
ElseIf $rund=2.5 Then
$gerund1 = "2.5"
ElseIf $rund>2.51 And $rund<3.49 Then
$gerund1 = "3"
ElseIf $rund=3.5 Then
$gerund1 = "3.5"
ElseIf $rund>3.51 And $rund<4.49 Then
$gerund1 = "4"
ElseIf $rund=4.5 Then
$gerund1 = "4.5"
ElseIf $rund>4.51 And $rund<5.49 Then
$gerund1 = "5"
ElseIf $rund=5.5 Then
$gerund1 = "5.5"
ElseIf $rund>5.51 And $rund<6 Then
$gerund1 = "6"
EndIf
return $gerund1
EndFunc