code tips

beste mensen. ik ben zelf niet zo'n code wizard en heb hier een stuk code maar ik gok dat het een stuk simpeler kan. heeft er iemand tips



Select Case Stap
 Case 0        'rood gaat langzaam aan'
  Incr Rood
  If Rood = 31 Then
   Stap = 1
  End If
 Case 1
   Incr Blauw 'blauw gaat langzaam aan'
  If Blauw = 31 Then
   Stap = 2
  End If
 Case 2
  Decr Rood 'rood gaat langzaam uit'
  If Rood = 0 Then
   Stap = 3
   Rood = 0
  End If
 Case 3
   Incr Groen 'groen gaat langzaam aan'
   If Groen = 31 Then
   Stap = 4
  End If
 Case 4
  Decr Blauw 'gaat langzaam uit'
  If Blauw = 0 Then
  Blauw = 0
  Stap = 5
  End If
 Case 5
  Incr Rood 'rood gaat langzaam aan'
   If Rood = 31 Then
   Stap = 6
   End If
 Case 6
  Decr Groen 'groen gaat langzaam uit'
  If Groen = 0 Then
   Groen = 0
   Stap = 1
  End If
End Select

dit loopt in een loopje rond. het is voor een GRB lamp waar de kleuren langzaam overvloeien.

iemand tips?

Ach, als het werkt.
Weet niet welke taal je gebruikt, maar zoiets (ervan uitgaande dat je altijd met 31 stappen werkt):

stappen = 31

'...

Select Case Stap
 Case 0        
  Incr Rood 'rood gaat langzaam aan'
 Case 1
   Incr Blauw 'blauw gaat langzaam aan'
 Case 2
  Decr Rood 'rood gaat langzaam uit'
 Case 3
   Incr Groen 'groen gaat langzaam aan'
 Case 4
  Decr Blauw 'gaat langzaam uit'
 Case 5
  Incr Rood 'rood gaat langzaam aan'
 Case 6
  Decr Groen 'groen gaat langzaam uit'
End Select

dec stappen
if stappen = 0
	inc stap
	if stap = 6
		stap = 1
	end if
	stappen = 31
end if