Guten Tag,
Würde gerne etwas Hilfe gestellt bekommen ob jemand eine Idee hat diesen Code in eine Schleife zu packen um ihn villeicht zu komprimieren und erweitern zu können
Code:
Erstellt mit Visual Basic 2017
MFG
*Topic verschoben, BBCode angepasst*
Würde gerne etwas Hilfe gestellt bekommen ob jemand eine Idee hat diesen Code in eine Schleife zu packen um ihn villeicht zu komprimieren und erweitern zu können
Code:
VB.NET-Quellcode
- If Val(TextBox47.Text) = 0 Then
- TextBox56.Text = ""
- ElseIf Val(TextBox47.Text) <= 5 Then
- TextBox56.Text = 5
- ElseIf Val(TextBox47.Text) <= 5 + 2.5 Then
- TextBox56.Text = 5 + 2.5
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 2) Then
- TextBox56.Text = 5 + (2.5 * 2)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 3) Then
- TextBox56.Text = 5 + (2.5 * 3)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 4) Then
- TextBox56.Text = 5 + (2.5 * 4)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 5) Then
- TextBox56.Text = 5 + (2.5 * 5)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 6) Then
- TextBox56.Text = 5 + (2.5 * 6)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 7) Then
- TextBox56.Text = 5 + (2.5 * 7)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 8) Then
- TextBox56.Text = 5 + (2.5 * 8)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 9) Then
- TextBox56.Text = 5 + (2.5 * 9)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 10) Then
- TextBox56.Text = 5 + (2.5 * 10)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 11) Then
- TextBox56.Text = 5 + (2.5 * 11)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 12) Then
- TextBox56.Text = 5 + (2.5 * 12)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 13) Then
- TextBox56.Text = 5 + (2.5 * 13)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 14) Then
- TextBox56.Text = 5 + (2.5 * 14)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 15) Then
- TextBox56.Text = 5 + (2.5 * 15)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 16) Then
- TextBox56.Text = 5 + (2.5 * 16)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 17) Then
- TextBox56.Text = 5 + (2.5 * 17)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 18) Then
- TextBox56.Text = 5 + (2.5 * 18)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 19) Then
- TextBox56.Text = 5 + (2.5 * 19)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 20) Then
- TextBox56.Text = 5 + (2.5 * 20)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 21) Then
- TextBox56.Text = 5 + (2.5 * 21)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 22) Then
- TextBox56.Text = 5 + (2.5 * 22)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 23) Then
- TextBox56.Text = 5 + (2.5 * 23)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 24) Then
- TextBox56.Text = 5 + (2.5 * 24)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 25) Then
- TextBox56.Text = 5 + (2.5 * 25)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 26) Then
- TextBox56.Text = 5 + (2.5 * 26)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 27) Then
- TextBox56.Text = 5 + (2.5 * 27)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 28) Then
- TextBox56.Text = 5 + (2.5 * 28)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 29) Then
- TextBox56.Text = 5 + (2.5 * 29)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 30) Then
- TextBox56.Text = 5 + (2.5 * 30)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 31) Then
- TextBox56.Text = 5 + (2.5 * 31)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 32) Then
- TextBox56.Text = 5 + (2.5 * 32)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 33) Then
- TextBox56.Text = 5 + (2.5 * 33)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 34) Then
- TextBox56.Text = 5 + (2.5 * 34)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 35) Then
- TextBox56.Text = 5 + (2.5 * 35)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 36) Then
- TextBox56.Text = 5 + (2.5 * 36)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 37) Then
- TextBox56.Text = 5 + (2.5 * 37)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 38) Then
- TextBox56.Text = 5 + (2.5 * 38)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 39) Then
- TextBox56.Text = 5 + (2.5 * 39)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 40) Then
- TextBox56.Text = 5 + (2.5 * 40)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 41) Then
- TextBox56.Text = 5 + (2.5 * 41)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 42) Then
- TextBox56.Text = 5 + (2.5 * 42)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 43) Then
- TextBox56.Text = 5 + (2.5 * 43)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 44) Then
- TextBox56.Text = 5 + (2.5 * 44)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 45) Then
- TextBox56.Text = 5 + (2.5 * 45)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 46) Then
- TextBox56.Text = 5 + (2.5 * 46)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 47) Then
- TextBox56.Text = 5 + (2.5 * 47)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 48) Then
- TextBox56.Text = 5 + (2.5 * 48)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 49) Then
- TextBox56.Text = 5 + (2.5 * 49)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 50) Then
- TextBox56.Text = 5 + (2.5 * 50)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 51) Then
- TextBox56.Text = 5 + (2.5 * 51)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 52) Then
- TextBox56.Text = 5 + (2.5 * 52)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 53) Then
- TextBox56.Text = 5 + (2.5 * 53)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 54) Then
- TextBox56.Text = 5 + (2.5 * 54)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 55) Then
- TextBox56.Text = 5 + (2.5 * 55)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 56) Then
- TextBox56.Text = 5 + (2.5 * 56)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 57) Then
- TextBox56.Text = 5 + (2.5 * 57)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 58) Then
- TextBox56.Text = 5 + (2.5 * 58)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 59) Then
- TextBox56.Text = 5 + (2.5 * 59)
- ElseIf Val(TextBox47.Text) <= 5 + (2.5 * 60) Then
- TextBox56.Text = 5 + (2.5 * 60)
- End If
Erstellt mit Visual Basic 2017
MFG
*Topic verschoben, BBCode angepasst*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()