If Anweisung umschreiben?

[keNshi]

Hallo Leute,

habe eine Frage.

Wie kann ich diese If Anweisung statt mit 10 Zeilen mit 5 schreiben kann mir da jemand schnell helfen?

If n Mod 5 / 2 = 0 Then
 		T(1) = erwärmung
 		T(3) = erwärmung
 		T(5) = erwärmung
 	Else
 		T(2) = abkühlung
 		T(4) = abkühlung
 		T(6) = abkühlung
 	End If

das wäre nett thx


MFG Domi

 

[Da_Ron]

If n Mod 5 / 2 = 0 Then
T(1) Or T(3) Or T(5) = erwärmung
Else
T(2) Or T(4) Or T(6) = abkühlung
End If

Versuchs mal so weiß aber nicht ob es klappt

 

[keNshi]

If n Mod 2 = 0 Then
 		 T (1) Or T(3) Or T(5) = erwärmung
 	  Else
 		 T (2) Or T(4) Or T(6) = abkühlung
 	  End If

Ne der macht vorm ersten T also T(1) oder T(2) in dem fall immer eine lehrzeile zwichen "T" und "(1)" und dann kommt "fehler beim kopilieren: Sub, Function oder Property erwartet"

ich hab keine ahnung