| |
VB.NET - Ein- und UmsteigerMehrere Bedingungen in einer IF-Funktion | | | Autor: chris90x | Datum: 16.06.12 23:59 |
| Hallo,
habe gerade ein Problem, und zwar komm ich momentan beim Programmieren nicht weiter.
Ich programmiere im Moment einen Bußgeldrechner.
Bei der IF-Funktion habe ich jetzt mehrere Bedingungen.
vy = txt_kmh.Text
If rbtn_innerhalb.Checked = True And vy <= 10 Then MsgBox("Es ist ein" & _
"Bußgeld in Höhe von 15€ zu erwarten", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 15 < vy <= 20 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 25€ zu erwarten", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 15 < vy <= 20 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 35€ zu erwarten", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 20 < vy <= 25 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 80€ und 1 Punkt zu erwarten", _
MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 25 < vy <= 30 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 100€ und 3 Punkte zu erwarten", _
MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 30 < vy <= 40 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 160€, 3 Punkte und 1 Monat Fahrverbot zu" & _
"erwarten ", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 40 < vy <= 50 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 200€, 4 Punkte und 1 Monat Fahrverbot zu" & _
"erwarten ", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 50 < vy <= 60 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 280€, 4 Punkte und 2 Monate Fahrverbot zu" & _
"erwarten ", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 60 < vy <= 70 Then MsgBox("Es ist" & _
"ein Bußgeld in Höhe von 480€, 4 Punkte und 3 Monate Fahrverbot zu" & _
"erwarten ", MsgBoxStyle.Information)
If rbtn_innerhalb.Checked = True And 70 <= vy Then MsgBox("Es ist ein" & _
"Bußgeld in Höhe von 680€, 4 Punkte und 3 Monate Fahrverbot zu erwarten" & _
"", MsgBoxStyle.Information) Ist der vy-Wert z.b. 16, gibt er mir alle Messageboxen >16 nacheinander aus.
Hat vielleicht jemand eine Idee?
Danke im Vorraus | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|