클래스에서 값을 폼으로 반환

Question

레이블에 표시되는 값에 따라 다른 색상으로 반환 할 클래스에서 함수를 호출하고 있습니다.

Function GetLabelColor(value As Integer) As Color 
    If value <= 3.9 Then 
     Return Color.Green 
    ElseIf (value >= 4) And (value <= 6.9) Then 
     Return Color.Orange 
    ElseIf value >= 7 Then 
     Return Color.Red 
    End If 
End Function 

그리고 형태로 내가 전화를이 코드를 사용하고 : : 아래의 방법이다

Dim uicommon = New CommonUI() 
Dim labelColor = uicommon.GetLabelColor(Integer.Parse(lblResultadoTotal.Text)) 

lblResultadoTotal.ForeColor = labelColor 
lblGB.ForeColor = labelColor 

그러나 어떤 이유로 나에게 값이 경우에도 단지 녹색 색상을 반환합니다 3.9보다 크다. 나를 도울 수있는 해결책이 있습니까?

Answer 1

정수 대신 Double을 사용해야합니다.

Answer 2

기능은 아래에 제공된 것과 같은 일을하지만 당신은 원하는 경우 정수 (정수)를 통과 그것은

Function GetLabelColor(value As Double) As Color 

    If (value >= 4) And (value < 7) Then 
     Return Color.Orange 
    ElseIf value >= 7 Then 
     Return Color.Red 
    End If 
    Return Color.Green 
End Function 

에 전달하는 등 3.9으로 소수를 허용하는 더블을 받아 정수 값이 3.9와 같지 않으므로 값을 < = 3.9와 같이 비교하면 안됩니다. 대신이 버전을 사용할 수 있습니다.

Function GetLabelColor(value As Integer) As Color 

    If (value >= 4) And (value <= 6) Then 
     Return Color.Orange 
    ElseIf value > 6 Then 
     Return Color.Red 
    End If 
    Return Color.Green 
End Function 

두 가지 버전의 방법을 사용하는 경우이 값을 사용하여 문자열 값을 구문 분석해야합니다. 당신이 값을받지 않으면

Double.Parse(lblResultadoTotal.Text) 

당신은 그것을 전달되는 당신의 방법하지만 값이 문제가되지 않습니다 기대합니다. 이것을 테스트하기 위해 값을 하드 코딩 해보십시오. 즉 Integer.Parse (lblResultadoTotal.Text)를 실제 숫자로 바꿉니다. 5 당신이 기대하는 색깔을 얻는 지보십시오.

이 값 10.4

Imports System.Drawing 

Module Module1 

Sub Main() 

    Console.WriteLine(GetLabelColor(Double.Parse("10.4"))) 

    Console.ReadLine() 
End Sub 

Function GetLabelColor(value As Double) As Color 

    If (value >= 4) And (value <= 6) Then 
     Return Color.Orange 
    ElseIf value > 6 Then 
     Return Color.Red 
    End If 
    Return Color.Green 
End Function 

End Module 

Answer 3

을위한 그러나이 값이 3.9보다 큰 경우에도 나에게 단지 녹색 색상을 반환합니다 어떤 이유로 작업을 설명 할 수있는 간단한 콘솔 응용 프로그램을 보여줍니다. 나를 도울 수있는 해결책이 있습니까?

"3.9 이상"은 "> = 4"와 같지 않습니다. 수 이론에서 3.9와 4.0 사이의 값은 무한합니다. 이진 부동 소수점 표현의 현실은 실제로는 무한히 많지는 않지만 조금씩 변하지 만 여전히 많은 저주가 있습니다. 어떤 상황에서도 3.9는> = 4.0과 비교할 수 없습니다.

3.9가 4.0처럼 작동하도록하려면 값을 정수 (정수)로 반올림해야합니다. 이를 수행하는 기본 제공 방법은 Math.Round입니다. an overload은 MidpointRounding 열거 형의 값을 지정할 수있게 해줍니다.이 열거 형은 .5로 끝나는 번호를 처리하는 방법을 제어합니다. 예를 들어 AwayFromZero은 2.5에서 4.0으로 반올림하고 ToEven에서는 3.0으로 반올림합니다. 3.5의 경우 결과는 두 경우 모두 동일합니다.

Function GetLabelColor(value As Double) As Color 
    Dim roundedValue As Integer = Math.Round(value, MidpointRounding.AwayFromZero) 
    If (roundedValue >= 4) AndAlso (roundedValue < 7) Then 
     Return Color.Orange 
    ElseIf roundedValue >= 7 Then 
     Return Color.Red 
    Else 
     Return Color.Green 
    End If 
End Function 

참고 : 당신은 아마 오히려 And보다, 당신의 상태에 AndAlso을 사용하고 싶습니다. 두 경우 모두 결과는 동일하지만 AndAlso 및 OrElse이 바람직한 논리 연산자입니다.And 및 Or 연산자는 비트 단위로 연산에 예약되어 있습니다. 여기서는 수행하지 않습니다. 그리고 당신이하는 일은 거의 없습니다.