Brought to you by PCS Electronics, www.pcs-electronics.com
64
General Command Format
This is the format of a PS00 command, which sets PS00 to **TEST**:
<StartByte>
RT
<EndCommandByte>
**THIS IS A TEST OF RADIO TEXT FEATURE**
<EndByte>
VB basic example:
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "RT"
MSComm1.Output = Chr$(1) ‘End Command start of value(1)
MSComm1.Output = "**THIS IS A TEST OF RADIO TEXT FEATURE**"
MSComm1.Output = Chr$(2) ‘End Command and value
Format descriptions for the other supported parameters:
‘Sending TP
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "TP"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
temp = Str$(TP)
temp = LTrim(temp)
MSComm1.Output = temp
'Sending STEREO/MONO status
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FS"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
temp = Str$(TXStereo)
temp = LTrim(temp)
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finish command
'Sending RDS active (PWR)
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "PWR" 'Program reference, lower byte of PI
MSComm1.Output = Chr$(1) 'End command and start of data (1)
If Check1.Value = 1 Then
temp = "1" 'turn RDS on
Else
temp = "0" 'turn RDS off
End If
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finished transmission
'Sending CCAC
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "CCAC" 'Program reference, lower byte of PI
MSComm1.Output = Chr$(1) 'End command and start of data (1)
temp = Str$(CountryCode * 16 + AreaCoverage)
temp = LTrim(temp)
If Len(temp) = 2 Then temp = "0" & temp
If Len(temp) = 1 Then temp = "00" & temp
If Len(temp) = 0 Then temp = "000"
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finished transmission
'Sending ProgReference
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "PREF" 'Program reference, lower byte of PI
MSComm1.Output = Chr$(1) 'End command and start of data (1)
temp = Str$(ProgramReference)
temp = LTrim(temp)
If Len(temp) = 2 Then temp = "0" & temp
If Len(temp) = 1 Then temp = "00" & temp
If Len(temp) = 0 Then temp = "000"
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finished transmission
'Sending PTY
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "PTY"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
