[COLOR="#FF0000"] v1=0[/COLOR]
For ipts = 1 To .Points.Count 'alle punten aflopen en kleuren ngl. afwijking sd
[COLOR="#FF0000"]v = Fix((Ywaarden(ipts - 1) - g) / sd) 'afronden afwijking tov gemiddelde naar een veelvoud van sd
If Sgn(v) <> Sgn(v1) Then v1 = 0 'SGN = teken (neg=-1, 0=0, pos=+1) als sgn(afiwijking) anders is dan tellerstand dan teller terug op nul zetten
If Abs(v) >= s Then v1 = v1 + Sgn(v) 'teller telt +1 bij positieve waarden op, -1 bij negatieve waarden ![/COLOR]
Select Case [COLOR="#FF0000"]Abs(v)[/COLOR]
Case 0 To 2: 'aan deze moet je niets veranderen, standaard cobalt groene punten en anders groene doorlopende lijnen
[COLOR="#FF0000"] If Abs(v1) >= 3 Then '3 of meer opeenvolgende punten met een afwijking van meer dan 1 s
.Points(ipts).MarkerForegroundColor = RGB(255, 0, 0) 'inhoud punt rood<----------------nieuw
.Points(ipts).MarkerBackgroundColor = RGB(255, 0, 0) 'rand punt rood<------------------nieuw
End If[/COLOR]
Case Else
.Points(ipts).MarkerForegroundColor = RGB(255, 0, 0) 'inhoud punt rood<----------------nieuw
.Points(ipts).MarkerBackgroundColor = RGB(255, 0, 0) 'rand punt rood<------------------nieuw
End Select
Next
case 2 to 8