bdc436hp and 536 serial connection

[Vonskie]

Using the serial driver I want to write a program that displays on the desktop the info that is on the scanner when it gets a transmission. where can I find a list of commands to send the scanner via the serial interface?

Its hard to read the scanner screen I want to display it large on the desktop.

 

[fxdscon]

Using the serial driver I want to write a program that displays on the desktop the info that is on the scanner when it gets a transmission. where can I find a list of commands to send the scanner via the serial interface.

Its hard to read the scanner screen I want to display it large on the desktop.

Is this possible?

I will write it in free pascal so it will work on the mac also.

The serial commands for the new scanners have not been publicly released yet.

Others have been experimenting, check these:

http://forums.radioreference.com/uniden-scanners/284003-serial-mode.html#post2127700

http://forums.radioreference.com/un...cd536hp-serial-commands-list.html#post2117877

.

 

[AZScanner]

Using the serial driver I want to write a program that displays on the desktop the info that is on the scanner when it gets a transmission. where can I find a list of commands to send the scanner via the serial interface?

Its hard to read the scanner screen I want to display it large on the desktop.

This should do the trick: TechnicalDocs < HomePatrol < TWiki

-AZ

 

[Vonskie]

looked at the linked docs
how would I calculate the sum of the below line?

RMT[¥t]STATUS[¥t]NG[¥t][SUM][¥r]

looks like i would have to send a line like above to the scanner every 1/2 second and then parse the results to the screen.

 

[EricCottrell]

Hello,

The only Homepatrol commands that I got to work are the AUF commands used for audio feeding. The RMT commands do not work. Some of the commands for the BC396XT do work.

I would look at the STS and GLG commands. The format of the response is slightly different than previous scanners because the displays are different.

73 Eric

 

[EricCottrell]

Hello,

The STS command for the 535. The command response is different between the 536 and 436 because of display. Also there are some extended characters used (character codes above 127).

<COMMAND STS>
Get Current Status
Controller → Radio
① STS[\r]
Radio → Controller
① STS,[DSP_FORM],[L1_CHAR],[L1_MODE],[L2_CHAR],[L2_MODE],[L3_CHAR],[L3_MODE],
････,[L6_CHAR],[L6_MODE],[SQL],[MUT],[BAT],[WAT],[RSV],
[RSV],[SIG_LVL],[BK_COLOR],[BK_DIMMER][\r]

[DSP_FORM] : Display Form (4 - 6 digits:######)
(each # is 0 or 1) 0 means Small Font / 1 means Large Font.
[L1_CHAR] : Line1 Characters 36char (fixed length)
[L1_MODE] : Line1 Display Mode 36char
[L2_CHAR] : Line2 Characters 36char (fixed length)
[L2_MODE] : Line2 Display Mode 36char
[L3_CHAR] : Line3 Characters 36char (fixed length)
[L3_MODE] : Line3 Display Mode 36char
:
[L6_CHAR] : Line6 Characters 36char (fixed length)
[L6_MODE] : Line6 Display Mode 36char
[SQL] : Squelch Status (0:CLOSE / 1:OPEN)
[MUT] : Mute Status (0:OFF / 1:ON)
[RSV] : Reserve Parameter * This is always only “0”.
[BAT] : Battery Low Status (0:No Alert / 1:Alert)
[WAT] : Weather Alert Status (0:No Alert / 1: Alert / $$$: Alert SAME CODE)
[SIG_LVL] : Signal Level ( 0 – 5 )
[BK_COLOR] : Backlight Color (OFF)
[BK_DIMMER] : Backlight Dimmer (0:OFF / 1:Low / 2:Middle / 3:High )

NOTE : Display Mode for Line1 – Line6
(space) : NORMAL CHAR, *: REVERSE CHAR     _ (Under bar) : Underline
If all 16chars are normal, only "," is sent.
The number of [Lx_CHAR] and [Lx_MODE] depend on Display Form.

73 Eric

 

[Vonskie]

Here is some code I threw together in a few minutes using Lazarus and FreePascal and the Synapse library.

It has a timer of 1/2 second sends the GLG command to the scanner and displays the rcvd data in a memo box. I will be adding to it this weekend giving it config and autosizing fonts and etc based on windows size. I want to be able to see the scanner info from across the room.

Wanted to throw some sample code out there to inspire others as I could not find any.

procedure TForm1.Timer1Timer(Sender: TObject);

var
ser: TBlockSerial;
rawmessage: string;
begin
ser := TBlockSerial.Create;
try
ser.ConvertLineEnd := True;
ser.Connect('COM4');
ser.config(115200, 8, 'N', 0, False, False);
ser.sendstring('GLG' + #13#10);
if (ser.LastError <> 0) then
Exit;

rawmessage := ser.Recvstring(4000);

if pos('GLG,,,,,', rawmessage) > 0 then
begin
memo1.Clear;
memo1.Lines.Add('Scanning....');

end
else
begin
memo1.Clear;
memo1.Lines.Add(rawmessage);

end;
finally
ser.Free;
end;

end;