Выберите Case в программе Windows vb.net - PullRequest
Новая
       25

Выберите Case в программе Windows vb.net

0 голосов
/ 17 октября 2019

Используя вариант выбора, напишите программу vb.net, которая принимает решение при превышении скорости драйвера и отображает решение об изменении метки для каждого решения. 

    Dim speed As Integer
    Dim diff As Integer

    'speed limits
    Dim nofine As Integer = 60
    Dim twenty As Integer = 60
    Dim forty As Integer = 80
    Dim sixty As Integer = 100
    Dim last As Integer = 120

    Select Case Val(TextBox1.Text)
        Case 1
            speed = Val(TextBox1.Text)
            diff = speed - nofine
            If diff <= 5 Then
                Label2.Text = "No fine."
            End If
    End Select
End Sub

Моя проблемаЯ не могу показать решение на этикетке. Для каждого ограничения скорости принимается решение о превышении скорости водителем, например, об ограничении скорости - 80 Миль / ч, решение оштрафовано на 40 фунтов стерлингов, и label2.text должен отобразить это решение, а также изменить его задний цвет на желтый.

1 Ответ

1 голос
/ 17 октября 2019

Я думаю, что это ваш код

Попробуйте 

Public Enum Fines
   twenty = 60
   forty = 80
   sixty = 100
   last = 120
End Enum

Public Class Form1
   Private speed As Integer


   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Int16.TryParse(TextBox1.Text, speed)

    If speed <= Fines.twenty Then
        Label2.Text = "No fine."
    ElseIf speed >= Fines.last Then
        Label2.Text = Fines.last.ToString()
    ElseIf speed >= Fines.sixty Then
        Label2.Text = Fines.sixty.ToString()
    ElseIf speed >= Fines.forty Then
        Label2.Text = Fines.forty.ToString()
    ElseIf speed >= Fines.twenty Then
        Label2.Text = Fines.twenty.ToString()
    End If

End Sub

End Class
...