Thread: HQCT software development

Hello,

Here's the code from CPCTuner that handles the RR interface commands:

Code:

   // RR_V holds value after ';' when the command is numeric
   // RR_C holds RR command
   // RR_C1 holds value after ';' when the command is alfa-numeric
   // HQCTuner is the HQCT object
   // SendToRR is a function that sends data to RR
   case RRCommand of
      tune   :
         begin
            // Check if we have to switch between AM/FM for new frequency
            if (RR_V < 6700) then
            begin
               // New AM freq from rr
               if HQCTuner.FMBand then
                  HQCTuner.FMBand := false;
               if RR_V <> HQCTuner.FrequencyAM then
                  HQCTuner.FrequencyAM := RR_V;
            end;
            if (RR_V >= 6700) then
            begin
               if not HQCTuner.FMBand then
                  HQCTuner.FMBand := true;
               if RR_V <> HQCTuner.FrequencyFM then
                  HQCTuner.FrequencyFM := RR_V;
            end;
         end;
      seekup : HQCTuner.ScanStations(ScanUp,   false);
      seekdn : HQCTuner.ScanStations(ScanDown, false);
      mute   : HQCTuner.Mute         := not HQCTuner.Mute;
      step   : HQCTuner.FMStepOffset := RR_V;
      source :
         begin
            case TRRSource(ansiindextext(RR_C, RRSource)) of
               // TunerSrc, CDSrc, PhoneSrc, NaviSrc
               radio : HQCTuner.SoundSource := TunerSrc;
               aux1  : HQCTuner.SoundSource := CDSrc;
               aux2  : HQCTuner.SoundSource := AUXSrc;
               nav   : HQCTuner.SoundSource := NaviSrc;
               phone : HQCTuner.SoundSource := PhoneSrc;
               else
            end;
         end;
      setvol      : HQCTuner.Volume := RR_V;
      setbass     : HQCTuner.Bass   := RR_V;
      settreble   : HQCTuner.Treble := RR_V;
      setmute     : if (RR_V > 0) then HQCTuner.Mute := true else HQCTuner.Mute := false;
      switchinput :
         begin
            if copy(w_s, Pos(';', w_s) + 1, 2) = 'on' then
            begin
               // Save current source
               CurrentSource := HQCTuner.SoundSource;
               // switch to new source
               if LeftStr(w_s, 3) = 'dio' then
                  HQCTuner.SoundSource := TunerSrc
               else
                  if LeftStr(w_s, 3) = 'ux1' then
                     HQCTuner.SoundSource := CDSrc
                  else
                     if LeftStr(w_s, 3) = 'ux2' then
                        HQCTuner.SoundSource := AUXSrc
                     else
                        if LeftStr(w_s, 3) = 'nav' then
                           HQCTuner.SoundSource := NaviSrc
                        else
                           if LeftStr(w_s, 3) = 'one' then
                              HQCTuner.SoundSource := PhoneSrc;
            end
            else
               // switch to previous source
               HQCTuner.SoundSource := CurrentSource;
         end;
      rvol    : SendToRR('rvol;'    + IntToStr(HQCTuner.Volume));
      rtreble : SendToRR('rtreble;' + IntToStr(HQCTuner.Treble));
      rbass   : SendToRR('rbass;'   + IntToStr(HQCTuner.Bass));
      else
   end;

It's possible to control the following CPCTuner functions:
- switch (frequency AM/FM)
- seek (a station up)
- seek (a station down)
- mute (toggles)
- step (step is used when CPCTuner starts seek, be carefull, no value check yet, use 10 for 0.1Mhz in FM; 20 for 0.2Mhz)
- source (switch between audio sources)
- setvol (change volume between 0 and 68)
- settreble (change treble between 0 and 7)
- setbass (change bass between 0 and 7)
- setmute (0=unmute, 1=mute)
- switchinput (switch between audio sources, special)
- rvol (read current volume)
- rtreble (read current treble)
- rbass (read current bass)

A lot of these functions are specified more in detail in this post from PaulKaye.

So if you need to change the volume in the -eA version, use the setvol command with a value between 0 and 68, or the source command to change between radio/CD/phone ... So all you have to do is add a slider or button to RR and send the correct message.

Have fun!

Luc,

I'm very new to RR, are you saying that a suitably modified RR skin is ready to control the -eA via CPCTuner?

All the tuner functions worked, but I couldn't swap sources nor control volumes or tone.

Cheers

Carl

Hi Luc!

I downloaded the new 1.1.1.50. Small change in log file. http://web.comhem.se/bengt-olof.swing/20071130Log.txt

I also tried the new dll and runned it with vb example. I did <start>, end then pressed <FM>.



Do you get any clues from this?

Cheers, B-O

Ps.
One little ide. If the logfile contains version info there will be no question what sw that was acctually run at the time.
Ds.

Originally Posted by Aspectcarl

Luc,

I'm very new to RR, are you saying that a suitably modified RR skin is ready to control the -eA via CPCTuner?
Carl

Yes, I modified the interface (Windows messages) so that the -eA version can be controlled via RR. Of course RR needs to be modified for this. The description of the messages can be found in my previous post. I also have a little test program I use (see attachment), its very simple. Start the test program, then start CPCTuner and you can control CPCTuner by typing messages in the text box and push enter or the Send button. The listbox shows messages that are sent to RR. You can use this tool to help test the commands that need to be send to CPCTuner.

Originally Posted by Aspectcarl

Luc,

All the tuner functions worked, but I couldn't swap sources nor control volumes or tone.

Carl

You mean via RR then? This is normal, RR doens't send the right commands yet to CPCTuner to change volume, source and or tone.

I will send an email to PaulKaye tomorrow and ask him if he has made any progress on his -eA interface for RR. After all he asked me to change the interface.

Success!

Originally Posted by bes51659

Hi Luc!

I downloaded the new 1.1.1.50. Small change in log file. http://web.comhem.se/bengt-olof.swing/20071130Log.txt

I also tried the new dll and runned it with vb example. I did <start>, end then pressed <FM>.



Do you get any clues from this?

Cheers, B-O

Ps.
One little ide. If the logfile contains version info there will be no question what sw that was acctually run at the time.
Ds.

Updated (CPCTuner and DLL) again, hopefully this is the one.
I'll add the version info in the logfile this weekend.

Cheers,
Luc

Sorry, P. Not quite yet....

00:20:14:325 INF: Tuner - CPCTuner version 1.1.1.50.
00:20:14:325 INF: Tuner - Communication thread created succesfully.
00:20:14:325 INF: Tuner - USB object created successfully.
00:20:14:335 INF: Tuner - Windows message tuner thread: 12
00:20:34:514 INF: Tuner - Windows message tuner thread: 28
00:20:34:774 INF: Tuner - Windows message tuner thread: 28
00:20:47:623 INF: Tuner - Windows message tuner thread: 2
00:20:47:633 INF: Tuner - Windows message tuner thread: 130

"Could not connect. Timeout error"

Bump

Not pushing, Luc. Its soon xmas.

But just in case you think my HQCT-e is working all of a sudden, its not :-) I'm just working on some other stuff. (Mostly An 8051 system for controlling power to LCD, USB hubs, PC, rearview camera and communicating on BMW IBus)

Just hoping I'm still on your todo list.

If not before then, Merry X-mas!

Originally Posted by bes51659

Bump

Not pushing, Luc. Its soon xmas.

But just in case you think my HQCT-e is working all of a sudden, its not :-) I'm just working on some other stuff. (Mostly An 8051 system for controlling power to LCD, USB hubs, PC, rearview camera and communicating on BMW IBus)

Just hoping I'm still on your todo list.

If not before then, Merry X-mas!

Hi B,
Just a stupid question that you probably already gave the answer for but I'm not sure. Does the software from Diogenes work with your module?

Solution hopefully before X-mas

Hi Luc
I tried The RRHQCT original ver 2.0 from your site before and I did not get any errors. But I did not have a proper antenna to try it out completely and have not heard any sound.
So in order not give a stupid question a stupid answer I will try again :-)
Hold on.