PCS Electronics MAXPRO5015+ v2, Manual

Page: 66 / 70

Brought to you by PCS Electronics, www.pcs-electronics.com
66
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "ECC"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
temp = Chr$(ECC + 4)
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finish command
'Sending RF POWER status
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FO"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
If Option25(13).Value = True Then
‘check version
temp = Chr$((Int(TXPower / 100 * 34)) + 4) 'was 100*20 for max pro 4025 v3
Else
temp = Chr$((Int(TXPower / 100 * 44)) + 4) 'was 100*20 for max pro 4025 v4
End If
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finish command
'Sending Frequency
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FF"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
temp = Chr$((Int(TXFrequency / 5) - Int(Int(TXFrequency / 5) / 128) * 128) + 4) 'low part of freq
temp = temp & Chr$((Int(Int(TXFrequency / 5) / 128)) + 4) 'high part of freq
MSComm1.Output = temp
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Treble
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDT"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$( 4)
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Bass
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDB"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$(Bass + 4)
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Attack
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDA"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$( 4)
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Decay
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDD"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$(Decay + 4)
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Threshold
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDH"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$(Thr 4)
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Compression
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDC"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$(Compr 4)
MSComm1.Output = Chr$(2) 'Finish command
'Sending DSP settings - Integration
MSComm1.Output = Chr$(0) 'Start (0)
MSComm1.Output = "FDI"
MSComm1.Output = Chr$(1) 'End command and start of data (1)
MSComm1.Output = Chr$(Integ 4)