VBScript: Was ist falsch?
PI = InputBox("Wie viele Punkte konnte man insgesamt erreichen?" & vbLf & "" & vbLf & "" & vbLf & "" & vbLf & "" & vbLf & "	Bitte schreibe Dezimalzahlen mit Komma: ,")
If PI="" then
wscript.quit
End If
P1 = InputBox("Ab wie viel Prozent gibt es eine 1?")
If P1="" then
wscript.quit
End If
P2 = InputBox("Ab wie viel Prozent gibt es eine 2?")
If P2="" then
wscript.quit
End If
P3 = InputBox("Ab wie viel Prozent gibt es eine 3?")
If P3="" then
wscript.quit
End If
P4 = InputBox("Ab wie viel Prozent gibt es eine 4?")
If P4="" then
wscript.quit
End If
P5 = InputBox("Ab wie viel Prozent gibt es eine 5?")
If P5="" then
wscript.quit
End If
P6 = 0
PM1=P1-1
PM2=P2-1
PM3=P3-1
PM4=P4-1
PM5=P5-1
PP1=""& P1 &"% "+"- 100%"
PP2=""& P2 &"% "+"- "& PM1 &"%"
PP3=""& P3 &"% "+"- "& PM2 &"%"
PP4=""& P4 &"% "+"- "& PM3 &"%"
PP5=""& P5 &"% "+"- "& PM4 &"%"
PP6="0%"+" - "& PM5 &"%"
PK="0"
do
PK = InputBox("Wie viele Punkte hat das Kind erreicht?" & vbLf & "" & vbLf & "1 = "& PP1 &"" & vbLf & "2 = "& PP2 &"" & vbLf & "3 = "& PP3 &"" & vbLf & "4 = "& PP4 &"" & vbLf & "5 = "& PP5 &"" & vbLf & "6 = "& PP6 &"")
If PK="" then
wscript.quit
End If
eg=PK/PI
eg=eg100
msgbox ""& eg &""
If eg >= P1 And eg <= "100" Then
msgbox ""& eg &"% hat das Kind und die Note:" & vbLf & "" & vbLf & "sehr gut"
ElseIf eg >= P2 And eg <= PM1 Then msgbox ""& eg &"% hat das Kind und die Note:" & vbLf & "" & vbLf & "gut"
ElseIf eg >= P3 And eg <= PM2 Then msgbox ""& eg &"% hat das Kind und die Note:" & vbLf & "" & vbLf & "befriedigend"
ElseIf eg >= P4 And eg <= PM3 Then msgbox ""& eg &"% hat das Kind und die Note:" & vbLf & "" & vbLf & "ausreichend"
ElseIf eg >= P5 And eg <= PM4 Then msgbox ""& eg &"% hat das Kind und die Note:" & vbLf & "" & vbLf & "mangelhaft"
ElseIf eg >= "0" And eg <= PM5 Then msgbox ""& eg &"% hat das Kind und die Note:" & vbLf & "" & vbLf & "üngenügend"
End If
loop 

Das ist mein Code un in der letzten loop schleife wird keine msgbox angezeigt. Die Prozente liegen im bereich einer 1 und trozdem passiert nichts. Woran liegt das?

eg ist übrings die Prozentzahl des Kindes. Bis zu

msgbox ""& eg &""

hat alles auch geklappt

Computer, Musik, Technik, Programm, Programmieren, Code, Coding, programming, Technologie, VBS, Visual Basic Script
3 Antworten