[R] If/Endif & Switch/EndSwitch
Posté : mer. 10 avr. 2019 19:43
Bonjour,
je me permet de vous solliciter à nouveau car je me demande comment raccourcir les lignes que je crée pour un programme.
J'ai tout un tas de ligne comme cet exemple :
Je me suis dit que Switch/EndSwitch serait une solution mais je suis incapable d'arriver à le retranscrire !
Peut-être une solution plus simple ?
Je doute également sur le fait d'ajouter des and à mes lignes, est-ce que cela peux fausser un calcul ?
Trop de conditions ?
Merci
je me permet de vous solliciter à nouveau car je me demande comment raccourcir les lignes que je crée pour un programme.
J'ai tout un tas de ligne comme cet exemple :
If $readA1 < 0.6 And $CalculClass < 19 Then
GUICtrlSetBkColor($inpVM0Clac2, 0x0000FF)
EndIf
If $readA1 >= 0.6 And $readA1 <= 0.8 And $CalculClass >= 19 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM1Clac2, 0x0000FF)
EndIf
If $readA1 > 0.8 And $readA1 <= 1 And $CalculClass > 28 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM2Clac2, 0x0000FF)
EndIf
If $readA1 > 1 And $readA1 <= 1.3 And $CalculClass > 38 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM3Clac2, 0x0000FF)
EndIf
If $readA1 > 1.3 And $readA1 <= 1.6 And $CalculClass > 48 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM4Clac2, 0x0000FF)
EndIf
If $readA1 > 1.6 And $CalculClass > 55 Then
GUICtrlSetBkColor($inpVM5Clac2, 0x0000FF)
EndIf
GUICtrlSetBkColor($inpVM0Clac2, 0x0000FF)
EndIf
If $readA1 >= 0.6 And $readA1 <= 0.8 And $CalculClass >= 19 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM1Clac2, 0x0000FF)
EndIf
If $readA1 > 0.8 And $readA1 <= 1 And $CalculClass > 28 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM2Clac2, 0x0000FF)
EndIf
If $readA1 > 1 And $readA1 <= 1.3 And $CalculClass > 38 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM3Clac2, 0x0000FF)
EndIf
If $readA1 > 1.3 And $readA1 <= 1.6 And $CalculClass > 48 And $CalculClass <= 100 Then
GUICtrlSetBkColor($inpVM4Clac2, 0x0000FF)
EndIf
If $readA1 > 1.6 And $CalculClass > 55 Then
GUICtrlSetBkColor($inpVM5Clac2, 0x0000FF)
EndIf
Peut-être une solution plus simple ?
Je doute également sur le fait d'ajouter des and à mes lignes, est-ce que cela peux fausser un calcul ?
Trop de conditions ?
Merci