19 lines
1 KiB
Text
19 lines
1 KiB
Text
Public Sub Main()
|
|
Dim fDeg As Float[] = [0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]
|
|
Dim cHeading As Collection = ["N": "North", "S": "South", "W": "West", "E": "East", "b": "by"]
|
|
Dim sHeading As String[] = ["N", "NbE", "NNE", "NEbE", "NE", "NEbE", "ENE", "EbN", "E", "EbS", "ESE", "SEbE", "SE", "SEbS", "SSE", "SbE", "S", "SbW", "SSW", "SWbS", "SW", "SWbW", "WSW", "WbS", "W", "WbN", "WNW", "NWbW", "NW", "NWbN", "NNW", "NbW"]
|
|
Dim siLoop As Short
|
|
Dim sDirection As String
|
|
Dim fCount, fTemp As Float
|
|
|
|
For Each fCount In fDeg
|
|
fTemp = Round(fCount / 11.25)
|
|
If fTemp = 32 Then fTemp = 0
|
|
For siLoop = 0 To Len(sHeading[fTemp])
|
|
sDirection &= cHeading[Mid(sHeading[fTemp], siLoop + 1, 1)] & " "
|
|
Next
|
|
Print "Index=" & Format(fTemp + 1, "#0") & " " & Format(Str(fCount), "##0.00") & " degrees = " & sDirection
|
|
sDirection = ""
|
|
Next
|
|
|
|
End
|