Ｆ７, ※, ※, ※, Ｐ４
ここでのパラメータＰ４は００がメイン（ＶＦＯ－Ａ）Ｓメータです。ちなみにＳＵＢ（ＶＦＯ－Ｂ）Ｓメータは０１、ＰＯメータが８０、．．．．と割り当てられています。
今回は００のメインＶＦＯ－ＡのＳメータですので、コマンドは
Ｆ７,００，００，００，００
になります。このコマンドをｆｔ１０００ｍｐｃｏｍで送出します。
String^ cntcomdat;
String^ retda;
String^ backdata;
cntcomdat="F700000000";
retda="NONE";
backdata=ft1000mpcom(cntcomdat,retda);
このbackdataにシリアル通信でのＳメータ値が返るように関数化したｆｔ－１０００ｍｐｃｏｍ上で処理を行い値を返すようにします。
コマンドに対するＦＴ－１０００ｍｐからのＣＡＴデータは４バイト＋１バイトの値が返ってきます。最初の４バイトはＳメータの値を４バイト分と、送ったＳメータコマンドＦ７がそのまま返ってきます。
例）８Ｃ８Ｃ８Ｃ８ＣＦ７
ここでｆｔ－１０００ｍｐｃｏｍ関数ではＳメータリクエストのＦ７をチェックして、該当するコマンドの場合は上記データ５バイトを読み取りを行います。他にもデータを返すものとして、ＣＡＴコントロールコマンド表のNo.29の内部ステータスの呼び出しＦＡがありますので、後々様にこれも検出できるように次のようにしておきます。
以下主要部コードです。
------------------------------------------------------------------------------
array<Byte>^ bin;
bin=gcnew array<Byte>(5);
array<String^>^ binasc=gcnew array<String^ >(5);
array<String^>^ ainasc=gcnew array<String^ >(5);
int rbuf;
int i;
int j;
int k;
int ad;
String^ retdat;
if ((kako[4] == 0xFA) | (kako[4] == 0xF7)){
int ac=0;
for(ac=0;ac<=4;ac++){
bin[ac]=_serialPort1->ReadByte(); //ここで返り値を読み取ります
}
//ここにはbin[ac]を加工するルーチンがあります。
// 16進の文字列化、一桁のデータを2桁にする
//1バイトずつ読み取ったデータを連結する処理など ８Ｃ８Ｃ８Ｃ８ＣＦ７
for (i=0; i<=4 ; i++){
binasc[i]=bin[i].ToString("X");
}
int lenasc;
for(j=0 ; j<=4 ; j++){
lenasc=binasc[j]->Length;
if(lenasc==1){
ainasc[j]="0"+binasc[j];
{else{
ainasc[j]=binasc[j];
}
}
txretda="";
retdat="";
for (k=0 ; k<=4 ; k++){
txretda=txretda+ainasc[k];
}
retdat=txretda;
_serialPort1->Close();
textBox15->Text=retdat;
return retdat;
}else{
retdat=txretda;
textBox15->Text=retdat;
_serialPort1->Close();
return retdat;
}
_serialPort1->Close();
------------------------------------------------------------------------------
該当コマンド以外は通常の処理で"NONE"を返します。
以上でＳメータコマンドがくると現在のＳメータ値とコマンドの５バイトが返ってくるようになります。この５バイトをＳメータの表示用に利用するわけです。いろいろな方法があるとは思いますが、まずこの返ってくる値５バイト中の最初の１バイト分の（ＨＥＸ）を使いました。単純に００からＦＦまでの範囲をとる値です。これがわかるとプログレスバーに単純にＭＡＸ値を設定し後は読み取った値をValue設定するだけでＳメータらしく動きます。以下プログレスバーのコードです。
------------------------------------------------------------------------------
int sdat;
int snagasa;
String^ picksdat;
snagasa=(backdata)->Length;
picksdat=backdata->Substring(0,2);
sdat=(Int32::Parse(picksdat,System::Globalization::NumberStyles::HexNumber));
progressBar1->Maximum=0xFF;
progressBar1->Value=sdat;
------------------------------------------------------------------------------
厳密にはＳＧで信号を入れて無線機でのＳメータの正確なポイントデータを取得してＳメータ表示させると精度が良くなります。今回はコード中のコメント整理ができてない為、主要部を手打ちコピペしました。先のタイマーコマンドの周波数読みボタンでタイマーを使うと周波数データ表示とＳメータ表示がリアルタイムで表示できます。周波数の読み取りルーチンにＳメータ読み取り処理を入れることがミソかと思います。だいぶ古い無線機ですのでＣＡＴシステムの情報がもう少しあってもいいのではないかと思いますが、プログラム内容を書いているものがほとんどないと思います。できたユーザとしてしか使えないアプリがアマチュア無線家としては寂しいですね。もちろんよくできたプログラムは勿論ありますが、できれば自分でプログラムできるほうが、楽しみも倍増すると思います。しかも無償の言語提供もされているわけですので、是非ともトライしてほしいと思います。とにかく自分で制御できることが最高です。つづく
