Neuling sucht Hilfe für Wenn, dann mit Text und Ja/nein

i2c

Zitat

Edit: Habs mir jetz doch nochmal genauer angeschaut Also soweit komm ich damit auch klar, allerdings berechnet er Krankheit 1 und Krankheit 3 selbst wenn kein Haken drinn ist, Krankheit 2 berücksichtigt er gar nicht

Das scheint mir aber zu funktionieren. Schau bitte nochmal ob du auch den aktuellen Code hast. Ich musste da zwischenzeitlich was korrigieren, hatte ein GUICtrlRead() vergessen.

WOnder

Spoiler anzeigen

[autoit]

$gesamt=inputbox("Patient","Was gibt der Patient?","")
$abzug=inputbox("Patient","Was wird dem abgezogen?","0.21")
$Medi=inputbox("Medikament","Kosten für Medikamente","2.78")
$Medi1=inputbox("Medikament","Kosten für Medikamente","0.17")
$Medi2=inputbox("Medikament","Kosten für Medikamente","0.22")
$Medi3=inputbox("Medikament","Kosten für Medikamente","0.22")
$Medi4=inputbox("Medikament","Kosten für Medikamente","3.42");und so weiter
_Func()

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

Func _Func()
$1= $gesamt - $abzug
$2=$1-$Medi
$3=$2-$Medi1
$4=$3-$Medi2
$5=$4-$Medi3
$6=$5-$Medi4;und so weiter

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

Msgbox(0,"Ergebnis",$6)
EndFunc

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

Wenn du ein Meidkament nicht bezahlst killst du es einfach weg und lässt frei

Likey

Hm, da hat mir die erste variante mit den Kästchen viel besser gefallen.

Ich hab selbst versucht nen weg zu finden damit das richtig berechnet wird, aber so:

Spoiler anzeigen

Func _Start()

$Rinput1=GUICTRLREAD($Input1)-GUICTRLREAD($Input2)-GUICTRLREAD($Rinput7) ; minus wenn ich richtig verstehe
If GUICTRLREAD($Checkbox1) = $GUI_CHECKED Then
$Rinput2 = $Rinput2 + 0.21 ; den Betrag der da abgezogen wird (für medikament)
ElseIf GUICTRLREAD($Checkbox2) = $GUI_CHECKED Then
$Rinput3 = $Rinput2 + 2.78 ; den Betrag der da abgezogen wird (für medikament)

Elseif GUICTRLREAD($Checkbox3) = $GUI_CHECKED Then
$Rinput4= $Rinput3 + 0.17 ; den Betrag der da abgezogen wird (für medikament)
ElseIf GUICTRLREAD($Checkbox4) = $GUI_CHECKED Then
$Rinput5 = $Rinput4 + 0.22 ; den Betrag der da abgezogen wird (für medikament)
ElseIf GUICTRLREAD ($Checkbox5) = $GUI_CHECKED Then
$Rinput6 = $Rinput5 + 0.22 ;
Elseif GUICTRLREAD($Checkbox6) = $GUI_CHECKED Then
$Rinput7 = $Rinput6 + 3.42 ;
EndIf
Msgbox(0,"",$Rinput1)

will es nicht funktionieren xD

WOnder

Habe es so müsste es stimmen!

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Documents\Formen\Krank.kxf
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Kapihospital Börsenrechner", 278, 560, 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Input1 = GUICtrlCreateInput("Erlös", 16, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Kosten", 16, 56, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Nasenflügelakne", 96, 248, 200, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Zwergfellentzündung", 96, 280, 200, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Brecheritis", 96, 320, 200, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Schädelbrummen", 96, 360, 200, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Schürfwunde", 96, 400, 200, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Segelohrentzündung", 96, 440, 200, 17)
$Label1 = GUICtrlCreateLabel("Maximal Erlös", 160, 16, 101, 17)
$Label2 = GUICtrlCreateLabel("Preis des Verkäufers?", 160, 56, 110, 17)
$Button1 = GUICtrlCreateButton("Berechnen", 88, 480, 89, 25, 0)
GUICTRLSetOnEvent($Button1, "_Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Func _Start()
$box1=GUIctrlread($Checkbox1)
$box2=GUICTRLREAD($Checkbox2)
$box3=GUIctrlread($Checkbox3)
$box4=GUICTRLREAD($Checkbox4)
$box5=GUICtrlRead($Checkbox5)
$box6=GUICtrlRead($Checkbox6)

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

$Rinput1=GUICTRLREAD($Input1)-GUICTRLREAD($Input2) ; minus wenn ich richtig verstehe
If $box1 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.21 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box2 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 2.78 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
if $box3 = $GUI_CHECKED Then
$Rinput1= $Rinput1 - 0.17 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box4 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box5 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ;
Else
$Rinput1= $Rinput1 + 0
Endif
if $box6 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 3.42 ;
Else
$Rinput1=$Rinput1+0
EndIf
Msgbox(0,"",$Rinput1)

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

EndFunc

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

Func _Exit()
Exit
EndFunc

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

while 1
sleep(10)
WEnd

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

Und jetzt mit einem schönen Schlusssatz!

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Documents\Formen\Krank.kxf
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Kapihospital Börsenrechner", 278, 560, 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Input1 = GUICtrlCreateInput("Erlös", 16, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Kosten", 16, 56, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Nasenflügelakne", 96, 248, 200, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Zwergfellentzündung", 96, 280, 200, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Brecheritis", 96, 320, 200, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Schädelbrummen", 96, 360, 200, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Schürfwunde", 96, 400, 200, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Segelohrentzündung", 96, 440, 200, 17)
$Label1 = GUICtrlCreateLabel("Maximal Erlös", 160, 16, 101, 17)
$Label2 = GUICtrlCreateLabel("Preis des Verkäufers?", 160, 56, 110, 17)
$Button1 = GUICtrlCreateButton("Berechnen", 88, 480, 89, 25, 0)
GUICTRLSetOnEvent($Button1, "_Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Func _Start()
$box1=GUIctrlread($Checkbox1)
$box2=GUICTRLREAD($Checkbox2)
$box3=GUIctrlread($Checkbox3)
$box4=GUICTRLREAD($Checkbox4)
$box5=GUICtrlRead($Checkbox5)
$box6=GUICtrlRead($Checkbox6)

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

$Rinput1=GUICTRLREAD($Input1)-GUICTRLREAD($Input2) ; minus wenn ich richtig verstehe
If $box1 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.21 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box2 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 2.78 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
if $box3 = $GUI_CHECKED Then
$Rinput1= $Rinput1 - 0.17 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box4 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box5 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ;
Else
$Rinput1= $Rinput1 + 0
Endif
if $box6 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 3.42 ;
Else
$Rinput1=$Rinput1+0
EndIf
If $Rinput1 > 0 Then
Msgbox(0,"Ergebnis","Sie machen bei diesem Kunden "&@CRLF&"einen Gewinn von "&$Rinput1& " hT")
ElseIf $Rinput1 < 0 Then
MsgBox(0,"Ergebnis","Sie machen bei diesem Kunden "&@CRLF&"einen Verlust von "&$Rinput1&" hT")
EndIf

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

EndFunc

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

Func _Exit()
Exit
EndFunc

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

while 1
sleep(10)
WEnd

[/autoit]

Likey

Zitat von WOnder

Habe es so müsste es stimmen!

Spoiler anzeigen

[autoit]
#include
#include
#include
#include
#include
#Region ### START Koda GUI section ### Form=C:\Users\Documents\Formen\Krank.kxf
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Kapihospital Börsenrechner", 278, 560, 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Input1 = GUICtrlCreateInput("Erlös", 16, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Kosten", 16, 56, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Nasenflügelakne", 96, 248, 200, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Zwergfellentzündung", 96, 280, 200, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Brecheritis", 96, 320, 200, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Schädelbrummen", 96, 360, 200, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Schürfwunde", 96, 400, 200, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Segelohrentzündung", 96, 440, 200, 17)
$Label1 = GUICtrlCreateLabel("Maximal Erlös", 160, 16, 101, 17)
$Label2 = GUICtrlCreateLabel("Preis des Verkäufers?", 160, 56, 110, 17)
$Button1 = GUICtrlCreateButton("Berechnen", 88, 480, 89, 25, 0)
GUICTRLSetOnEvent($Button1, "_Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
Func _Start()
$box1=GUIctrlread($Checkbox1)
$box2=GUICTRLREAD($Checkbox2)
$box3=GUIctrlread($Checkbox3)
$box4=GUICTRLREAD($Checkbox4)
$box5=GUICtrlRead($Checkbox5)
$box6=GUICtrlRead($Checkbox6)
[/autoit] [autoit][/autoit] [autoit]
$Rinput1=GUICTRLREAD($Input1)-GUICTRLREAD($Input2) ; minus wenn ich richtig verstehe
If $box1 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.21 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box2 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 2.78 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
if $box3 = $GUI_CHECKED Then
$Rinput1= $Rinput1 - 0.17 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box4 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box5 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ;
Else
$Rinput1= $Rinput1 + 0
Endif
if $box6 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 3.42 ;
Else
$Rinput1=$Rinput1+0
EndIf
Msgbox(0,"",$Rinput1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func _Exit()
Exit
EndFunc
[/autoit] [autoit][/autoit] [autoit]
while 1
sleep(10)
WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Und jetzt mit einem schönen Schlusssatz!

Spoiler anzeigen

[autoit]
#include
#include
#include
#include
#include
#Region ### START Koda GUI section ### Form=C:\Users\Documents\Formen\Krank.kxf
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Kapihospital Börsenrechner", 278, 560, 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Input1 = GUICtrlCreateInput("Erlös", 16, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Kosten", 16, 56, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Nasenflügelakne", 96, 248, 200, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Zwergfellentzündung", 96, 280, 200, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Brecheritis", 96, 320, 200, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Schädelbrummen", 96, 360, 200, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Schürfwunde", 96, 400, 200, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Segelohrentzündung", 96, 440, 200, 17)
$Label1 = GUICtrlCreateLabel("Maximal Erlös", 160, 16, 101, 17)
$Label2 = GUICtrlCreateLabel("Preis des Verkäufers?", 160, 56, 110, 17)
$Button1 = GUICtrlCreateButton("Berechnen", 88, 480, 89, 25, 0)
GUICTRLSetOnEvent($Button1, "_Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]
Func _Start()
$box1=GUIctrlread($Checkbox1)
$box2=GUICTRLREAD($Checkbox2)
$box3=GUIctrlread($Checkbox3)
$box4=GUICTRLREAD($Checkbox4)
$box5=GUICtrlRead($Checkbox5)
$box6=GUICtrlRead($Checkbox6)
[/autoit] [autoit][/autoit] [autoit]
$Rinput1=GUICTRLREAD($Input1)-GUICTRLREAD($Input2) ; minus wenn ich richtig verstehe
If $box1 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.21 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box2 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 2.78 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
if $box3 = $GUI_CHECKED Then
$Rinput1= $Rinput1 - 0.17 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box4 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ; den Betrag der da abgezogen wird (für medikament)
Else
$Rinput1=$Rinput1+0
Endif
If $box5 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 0.22 ;
Else
$Rinput1= $Rinput1 + 0
Endif
if $box6 = $GUI_CHECKED Then
$Rinput1 = $Rinput1 - 3.42 ;
Else
$Rinput1=$Rinput1+0
EndIf
If $Rinput1 > 0 Then
Msgbox(0,"Ergebnis","Sie machen bei diesem Kunden "&@CRLF&"einen Gewinn von "&$Rinput1& " hT")
ElseIf $Rinput1 < 0 Then
MsgBox(0,"Ergebnis","Sie machen bei diesem Kunden "&@CRLF&"einen Verlust von "&$Rinput1&" hT")
EndIf
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func _Exit()
Exit
EndFunc
[/autoit] [autoit][/autoit] [autoit]
while 1
sleep(10)
WEnd
[/autoit]

Alles anzeigen

Danke
genau so hab ichs mir vorgestellt

Bist der Beste!

WOnder

Gern geschehn und gerne wieder!