Differences between RDS and RBDS:
Code:
CurrentProgram.mRBDS = ((PICode And &HFF00) >> 8) < &HB0)
(RBDS is a Boolean identifying that the current program is a a RBDS/US program)
Handling of PTY ("NewValue"):
Code:
If mRBDS Then
Select Case CInt(Value)
Case 0, 1, 30, 31
NewValue = Value 'REM same for RDS/RBDS
Case 2
NewValue = enPTY.Information
Case 3
NewValue = enPTY.Sport
Case 4
NewValue = enPTY.Talk
Case 5
NewValue = enPTY.RockMusic
Case 6
NewValue = enPTY.ClassicRock
Case 7
NewValue = enPTY.AdultHits
Case 8
NewValue = enPTY.SoftRock
Case 9
NewValue = enPTY.Top40
Case 10
NewValue = enPTY.Country
Case 11
NewValue = enPTY.Oldies
Case 12
NewValue = enPTY.Soft
Case 13
NewValue = enPTY.Nostalgica
Case 14
NewValue = enPTY.Jazz
Case 15
NewValue = enPTY.Classic
Case 16
NewValue = enPTY.RhytmBlues
Case 17
NewValue = enPTY.SoftRhytmBlues
Case 18
NewValue = enPTY.ForeignLanguage
Case 19
NewValue = enPTY.ReligiousMusic
Case 20
NewValue = enPTY.ReligiousTalk
Case 21
NewValue = enPTY.Personality
Case 22
NewValue = enPTY.Public_
Case 23
NewValue = enPTY.College
Case 24 - 28
NewValue = enPTY.Unassigned
Case 29
NewValue = enPTY.Weather
End Select
Else
NewValue = Value
End If
Bookmarks