Download Programmers Manual - RSAP

Figure 33. RSAPv3 Controls Dialog -- Default Analysis Settings.
The following lines of code read the cutoff values from the RSAPv3 Control Form.
For i = 1 To Count
S1cutoff = CDbl(frmRSAPcontrols.{Read cutoff value for x-section score}
S2cutoff = …{Read cutoff value for posted speed limit score}
S3cutoff = …{Read cutoff value for vertical grade score}
S4cutoff = …{Read cutoff value for Horizontal Curve score}
If S1score < S1cutoff Then
S1score = S1score / 2
End If
If S2score < S2cutoff Then
S2score = S2score / 2
End If
If S3score < S3cutoff Then
S3score = S3score / 2
End If
If S4score < S4cutoff Then
S4score = S4score / 2
End If
C-101