Repair, Modify using Arduino and old cameras ...

SONY TC-K222ESAのトラブル：カセットが取り出せない

Fri, 26 Jun 2026 17:05:52 +0900

前にも触れた事がありますが，カセットでFMのエアーチェックをしています．
録音はVictorのDD-R3改造機，再生はSONY TC-K222ESAです．録音にはオートリバース機が欠かせません．DD-R3の改造については以前書いた事がありますが，更に改造し「大変気に入った状態」になりましたが，それは次の機会に譲る事として，今日はTC-K222ESAのトラブルです．
　昨日，いつものように聴いていたところ，いきなり停止し，PLAYも巻き戻しも，早送りもできない状況になりました．しかも，カセットが取り出せません．使っていたテープはTDKのAD2．以前，部分的にワカメになり，その部分を除去したテープです．今日，メカを取り出し，じっくり調べたところ右側キャプスタンにたっぷり巻きついていました．それを取り除き一件落着ですが，どうも同じテープでトラブルを起こすのが気になります．そう言えば，SONY XII 100（CANVAS WINDOW HALF)でも度々ワカメになるテープがあります．（お気に入りの曲が入っているので，怖くて聴けません．）
　しかし，TDKのAE，AD, AD1, DJ1, AR, CDing2, DJ2, AXIA PS1, PS2, JZ2, K2ではワカメになった事がありません．
　先日，GoogleのAIにAD2, CDing2，DJ2の違いについて質問した事がありますが，その中に気になる記述があったことを思い出しました．
　AI曰く：ベース（支持体）となるプラスチックフィルムの素材は、3銘柄とも基本的にはPET（ポリエチレンテレフタレート）ですが、引き裂き強度や平滑性の処理（グレード）が異なります。

　さらにAI曰く：ベースの質（AD2が優位）：AD2は高価格帯（中級クラス）のため、走行安定性を高めるために変形しにくく均一に引き伸ばされた高品位ベース．

　どうも，この高品位ベースに問題があるんじゃないかと思います．トラブルを起こしたAD2のテープを指で触ってみると，経年変化のためか何かベト〜とした感じがあります．これが高平滑性と相まって問題を起こしているのではと想像します．

　我が家のTC-K222ESAにはかつての高級テープは似合わないのかも知れません．

-------

追記：

　AD2は相性が悪いかと思っていたんですが，安かったのでつい２本購入してしまいました．様子を見ようと思います．

最強のGX-R60EXを作る：補足

Sat, 25 Apr 2026 10:54:47 +0900

　前回「DD-R3カセットデッキ改造3」で感動したテープをGX-R60EXで聞いてみました．残念ながらTC-K222ESAには負けるようでした．高音の伸びが今一つで，どうもスッキリしません．今まで気付かなかった弱点が見えてきたようです．もっとも，TC-K222ESAはOPアンプが変更してあったり，なんと言ってもFETコンプリメンタリーのバッファーアンプ付き出力ですから，比較するのが酷だったのかもしれません．と言うことで，GX-R60EXの再生系を見直す予定ですが，少し時間がかかりそうです．

　下の写真は，GX-R60のメカ駆動基板の端子説明です．電気的には，GX-R60EXと同一であることを確認した私の忘備録です．

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る実動

Fri, 16 Jan 2026 11:26:43 +0900

本プロジェクト「ArduinoでGX-R60EXのリモコンを作る」も最後になりました．

SONYのダブルデッキ用のリモコンRM-J903（以前約千円で購入）のコードを読んで，Arduinoのスケッチに書き加えました．RM-J903のA,B両デッキとしても，またELGOOのリモコンでも動作します．（他のSONYリモコンでも使えるものはあると思いますが，未確認です．）　ELEGOOのリモコンと比較したところ，RM-J903の場合，約5m離れても問題なくコントロールできることがわかりました．受信角度範囲も問題ないので，受光モジュール周りの改造はしなくても良くなりました．

　なお，受光モジュールはVS1838Bのままですが，供給電圧を5Vから3.3Vに変更しました．

ということで，本プロジェクトは無事終了です．

（本改造に伴う故障，事故など一切のトラブルには責任を持ちません．改造，スケッチの使用は自己責任で行ってください．）

補足：ここで使った互換 Arduino nanoですが，当初Serial通信ができず戸惑いました．SerialのドライバーやCPUの問題かもしれませんが，Arduinoの専門家ではないので分かりません．とりあえず，MacのArduino IDEでArduino Duemilanove or Diecimila, ATmega328Pを選ぶと動作したので，そのままで使っています．Windows10ではうまくいきませんでした．？

補足2：Sony のコードを訂正しましたが，まだ不完全かもしれません．（20261.18)

赤外線受光モジュールをOSRB38C9AAに変えました．受光部が小さめで，前面にVS1838Bのような妙なでっぱりが無いので，取り付けが容易だからです．また，GX-R60EXの前パネルにあける穴はVS1838Bに比べて小さくて済みます．

補足3：さらに訂正しました．もう大丈夫だと思います．(2026.1.19)

補足4: 使いだしてから10日経ちましたが，順調です．

---- 最終のスケッチ　（予告なく変更することがあります）　-----

#include "IRremote.h"
int receiver = 19;  // Signal Pin of IR receiver Pin 19 （すなわちA5)
int PinN;

/*-----宣言部分-----*/
IRrecv irrecv(receiver);  // create instance of 'irrecv'
decode_results results;   // create instance of 'decode_results'

/*-----( Function )-----*/
void translateIR()  // takes action based on IR code received
{
  switch (results.value)
  {
    // For SONY remote control B deck (Set the DECK selector B)
    case 0x000F0E: PinN = 5; break;  // RESET
    case 0x00070E: PinN = 4; break;  // MEMORY for IPLS
    case 0x000D8E: PinN = 6; break;   // FAST REWIND
    case 0x00038E: PinN = 7; break;   // FAST FORWARD
    case 0x00004E: PinN = 9; break;   // PLAY BACK
    case 0x000F8E: PinN = 8; break;   // A. MUTE
    case 0x00058E: PinN = 10; break;  //PLAY FORWARD
    case 0x00078E: PinN = 11; break;  //REC PAUSE
    case 0x00018E: PinN = 12; break;  //STOP
    case 0x00098E: PinN = 12; break;  //STOP (WAIT)
    // For SONY remote control A deck (Set the DECK selector A)
    case 0x0000AE: PinN = 5; break;  // RESET
    case 0x00072E: PinN = 4; break;  // MEMORY for IPLS
    case 0x000CC1: PinN = 6; break;   // FAST REWIND
    case 0x0002C1: PinN = 7; break;   // FAST FORWARD
    case 0x000EC1: PinN = 9; break;   // PLAY BACK
    case 0x000FC1: PinN = 8; break;   // A. MUTE
    case 0x0004C1: PinN = 10; break;  //PLAY FORWARD
    case 0x0006C1: PinN = 11; break;  //REC PAUSE
    case 0x0001C1: PinN = 12; break;  //STOP
    case 0x0009C1: PinN = 12; break;  //STOP (WAIT)

   // FOR ELEGOO REMOTE Controle    case 0xFFE21D: PinN = 12; break;   //("FUNC/STOP")
    case 0xFF02FD: PinN = 12; break;   //("PAUSE")
    case 0xFFA25D: PinN = 11; break;   //("POWER")
    case 0xFF906F: PinN = 10; break;   //("UP")
    case 0xFFE01F: PinN = 9; break;   //("DOWN")
    case 0xFFA857: PinN = 8; break;   //("VOL-")
    case 0xFFC23D: PinN = 7; break;   //("FAST FORWARD")
    case 0xFF22DD: PinN = 6; break;   //("FAST BACK")
    case 0xFF6897: PinN = 5; break;  //("0")
    case 0xFF9867: PinN = 4; break;  //("EQ")
    case 0xFFB04F: PinN = 20;break;  //("ST/REPT")
    default:
      Serial.println(" other button   ");
  }  // End Case
  delay(500);  // 
}  //END translateIR
void setup() 
{
  Serial.begin(9600);
  Serial.println("IR Receiver Button Decode");
  irrecv.enableIRIn();  // Start the receiver
  for (int i = 4; i <= 12; i++) { pinMode(i, OUTPUT); }
  for (int i = 4; i <= 12; i++) { digitalWrite(i, LOW); }
} 
void loop() 
{
  if (irrecv.decode(&results))  // IR signalは来ている？
  {
    translateIR();
    Serial.println(PinN);
    digitalWrite(PinN, HIGH);  // PinN is pin number.
    delay(100);
    digitalWrite(PinN, LOW);
    delay(200);  // チャタリング防止
    irrecv.resume();  // 次の信号
  }
} 

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る5

Thu, 15 Jan 2026 22:59:27 +0900

　Arduino nanoを動かすだけの余裕がGX-R60EXの内部5V電源（回路図では5.6V)にあると判断した理由は以下の通りです．　

1. Arduino nanoを含む増設基板の消費電流は5V供給時20mA，5.6V供給時25mAと小さい．

2. 以下の理由で，GX-R60EXの5.6V電源には余力があると考えられる．

　（1） GX-R60EXとGX-R70EXの電源トランスは全く同一で両者とも部品番号T2076J.

　（2）回路図によればGX-R60とGX-R70の5.6V安定化電源の回路は同一．

　（3）それにも関わらず，両者のSYSTEM CONTROL基板を回路図で比較するとGX-R70には5.6Vを使うICが相当数増えている．

　（4）実際，GX-R60EXのSYSTEM CONTROL基板のほぼ半分には部品が取り付けてない．一方，GX-R70EXには取り付けてある．

3. 増設基板を内部電源で動作させ，安定化電源周りの半導体の温度を測っても，問題が感じられない．室温22℃での制御トランジスターTR48とシリコンブリッジD19の実測温度は31℃と29℃．

　これらの状況から，増設基板をGX-R60EXの内部電源で動作させても問題は無いと判断した．

（とは言っても，これは自己責任の判断です．真似されるときには自己責任でお願いします．）

　なお，Arduino nanoを内部電源で動作させてもノイズ発生，増加などの問題は生じていない．

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る4

Thu, 15 Jan 2026 22:19:37 +0900

　GX-R60EXのSYSTEM CONTROL(A)基板上に増設基板を設置した様子です．増設基板の足4本はアラルダイトでSYSTEM CONTROL(A)基板に接着しました．Arduino nanoの5Vは有線リモコンの配線の2番（P10の2番）から取っています．またGNDはP10の1番につないでいます．（GX-R60EXの5V電源を使っても大丈夫か？ですが，こうした理由については次回にご説明します．ただ，これは自己責任での判断です）

　赤外線受光ユニットは下写真の中央（REC BALANCEのすぐ上部，赤矢印）に穴を開けて内部にアラルダイトで固定しました．ここは前面パネルの内側に空間があり，Arduino基板にも近く，配線が容易です．現状，リモコンは使えていますが，「受光距離が短い」「受光範囲が狭い」の問題があります．「穴をもう少し大きくする」，「受光ユニットの位置をもう少し前面に移動させる」などして，受光立体角を広げる必要がありそうです．また，Elegooのリモコンは頼りないので，この点も考える必要がありそうです．（後述のようにSONYのリモコン使用で問題は解消．）

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る3

Wed, 14 Jan 2026 09:30:56 +0900

　Arduino nano関係の回路図です．（作製，使用は自己責任でお願いします．回路図やスケッチには誤りや，不都合があるかもしれません．）有線リモコンには付属していないC.RESETとIPLSを付け加えました．これらはIC3の9，10ピンに接続されているコンデンサーの足から配線する予定です．

　試作はVS1839Bで行なって，一応の動作は確認しましたが，最終的にはOSRB38C9AAに変える予定です．

　Arduinoのスケッチは，Elegooのキットに添付されていたLesson13 (IR Receiver Module)のスケッチを元に書き換えたものです．Elegooのリモコンで動作させていますが，将来的にはもっと使い易いものにする予定です．

-----------ここからスケッチ-------

#include "IRremote.h"

int receiver = 19;  // Signal Pin of IR receiver Pin 19 （すなわちA5)
int PinN;


/*-----( Declare objects )-----*/
IRrecv irrecv(receiver);  // create instance of 'irrecv'
decode_results results;   // create instance of 'decode_results'

/*-----( Function )-----*/
void translateIR()  // takes action based on IR code received

{
  switch (results.value)
  {
    case 0xFFE21D: PinN = 12; break;   //("FUNC/STOP")
    case 0xFF02FD: PinN = 12; break;   //("PAUSE")
    case 0xFFA25D: PinN = 11; break;   //("POWER")
    case 0xFF906F: PinN = 10; break;   //("UP")
    case 0xFFE01F: PinN = 9; break;   //("DOWN")
    case 0xFFA857: PinN = 8; break;   //("VOL-")
    case 0xFFC23D: PinN = 7; break;   //("FAST FORWARD")
    case 0xFF22DD: PinN = 6; break;   //("FAST BACK")
    case 0xFF6897: PinN = 5; break;  //("0")
    case 0xFF9867: PinN = 4; break;  //("EQ")
    case 0xFFFFFFFF: Serial.println(" REPEAT");break;  
    default:
      Serial.println(" other button   ");
  }  // End Case
  delay(500);  // 
}  //END translateIR
void setup() 
{
  Serial.begin(9600);
  Serial.println("IR Receiver Button Decode");
  irrecv.enableIRIn();  // Start the receiver
  for (int i = 4; i <= 12; i++) { pinMode(i, OUTPUT); }
  for (int i = 4; i <= 12; i++) { digitalWrite(i, LOW); }
} 
void loop() 
{
  if (irrecv.decode(&results))  // IR signalは来ている？
  {
    translateIR();
    Serial.println(PinN);
    digitalWrite(PinN, HIGH);  // PinN is pin number.
    delay(100);
    digitalWrite(PinN, LOW);
    delay(200);  // チャタリング防止
    irrecv.resume();  // 次の信号
  }
} 

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る2

Tue, 13 Jan 2026 08:44:12 +0900

　試作した基板は，互換Arduino nanoと　3 channel photo coupler PS2401A-3が3個，抵抗２本からなる簡単なものです．PS2401A-3は制御する側とされる側が電気的に切れているので，ノイズ対策には良いかもしれません．赤外線受光モジュールはとりあえず持ち合わせのVS1838Bです．

　基板の裏側はこんな感じです．GX-R60EXのSYSTEM CONTROL(A)基板の空きスペースに十分設置可能な大きさです．やり始めて気付きましたが，GX-R70には無い空きスペースはGX-R60のメリットです．

　なお，この試作基板の回路図とArduinoのスケッチは次回以降掲載の予定です．

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る1

Mon, 12 Jan 2026 17:42:27 +0900

　最近，Arduinoで遊んでいます．今度のプロジェクトはAKAIのカセットデッキ「GX-R60EXのリモコンをArduino nanoで作って，それを内蔵しよう」というものです． GX-R60EXは音が良いので気に入っていますが，リモコンが無いと不便なんです．

　GX-R60には有線用のリモコン端子がありますが，赤外線のリモコンには対応していません．（正確に言えば，有線の端子にアダプターを付けてリモコン化できますが．）

　さて，回路図によれば，IC3(LC7800)の1〜12ピンをGNDに落として動作を制御できるようです．実際，有線のリモコン端子はここの1〜4, 6，7，8に接続されています．

　基板で言うとここが有線リモンコン端子の元です．1がGND，2が5Vです．（この5VでArduino

nanoを動かすことができると都合良いのですが．後で検討します．）

　この基板はSYSTEM CONTROL(A)ですが，現物を見るとスカスカなんですね．GX-R70と同一基板のためです．この辺りにArduino nanoの基板を設置することにします．

カセットデッキ AKAI GX-R60EX 修理

Sun, 28 Dec 2025 10:33:00 +0900

　AKAIのリバースデッキに興味があり，ジャンクのGX-R60EXを落札してしまいました．上板に凹みや傷があり，蓋が開かないというものです．

　今回もaudiolife様のホームページを参考にさせていただきました．（いつもながらの有用な情報に感謝しています．）　https://audiolife.coolblog.jp/

　報告されている故障例のようにカムギャ（ロータリーエンコーダー）のピンが原因でした．写真（赤矢印）のように内側２本が大きく変形していました．

　整形して，清掃後，瞬間接着剤ではり，さらに薄くアラルダイトを塗っておきました．動作OKです．（何故変形したのかは謎ですね．）さらに，テープ検出やドアーOPEN検出のスイッチ類を2000番のペーパーで磨いておきました．

　キャプスタンモーターが少しうるさかったので，前回GX-R3500から取り外したキャプスタンモーターと交換しました．キャプスタンベルトは問題なさそうなので，引き続き使用です．ピンチローラーですが，ヘッドが上がりっぱなしだったので変形が心配でした．しかし，特に問題はなかったようです．幸い各種ギヤーやモーターの固着は無いようでした．早送り，早戻しは順調なので，アイドラーの確認は省略しました．

　我が家のテストテープでアジマス，速度調整，さらにバイアス調整を行なって修理完了です．テストテープの内一本は，1973年頃にSONY製のドルビーBアダプター：NR-115を購入した時に付属していたものです．もう一本は，1991年頃TC-RX77を購入した直後に作成した自家製のメタルテープです，それを使って4kHzでアジマスやレベル調整を行ない，さらに前述のドルビーテープで確認しています．家のデッキは全て（と言っても3台）同様に調整していますので，自宅利用には問題ありません．

　早速，一箇所改造してしまいました．というのも，OUTPUTとヘッドフォーン出力が同じボリュームで変化するのは不便だからです．GX-R60の回路図によれば，ヘッドフォーン出力は前面のボリュームの後，アンプを通っていますが，後ろのOUTPUTはボリュームから直接出ているようです．ということで，基板の青コネクターとRCA端子の配線を切り離し（ルータが活躍），R221（TR66側）から直接RCA端子に配線しました（保護のため直列に820Ω）．ということで使いやすくなりました．

　ケミコンの交換などやるべきことはありますが，とりあえずこれで聞いてみることにします．

カセットデッキ A&D GX-R3500 修理ワウフラッター 2

Sun, 14 Dec 2025 10:43:45 +0900

　GX-R3500 ワウフラッター問題の続きです．キャプスタンモーターを在庫品Pioneer RXM-075-B (12V, 2400rpm, CCD 反時計回転）に交換してみましたが，変化無しでした．このモーターは随分前に模型にでも使おうかと思って買っておいたものですが，意外なところで使えました．オリジナルのモーターに比べてやや大型ですが，問題なく取り付けできました．プーリの取り外し，取り付けも特に困難なくすみました．磁気シールド改善の為，あり合わせの薄い鉄板を巻いておきましたが，幸いノイズの増加は無ったようです．このまま様子見です．

カセットデッキ A&D GX-R3500修理ワウフラッター

Fri, 12 Dec 2025 10:23:19 +0900

　A&DのリバースデッキGX-R3500を修理して使っていましたが，オーボエなどの木管楽器の音色に違和感があり，ワウフラッターを疑い始めました．

下記ブログを参考にさせていただいて色々と検討しました．

　　https://foxtango101.blog.jp/archives/21956487.html

　　（TEAC C-1Mk2 メンテ始末記：番外編その8「ワウフラッター改善の記録？」）

測定に使ったソフトウェアはA.N.T. Audio WFGUIというものです．

調整・検討箇所は主として，キャプスタンベルト，ピンチローラー，トレイリッド（蓋）です．

まずベルトですが，元々のサイズがわかりません．今まではSonyのデッキ用に用意していた70, 0.5, 5というものを使っていました．これを中古のSonyデッキから外したやや硬めのベルト（実測：75.，0.5, 4）に変更して測定（3kHz）したところ，0.07〜0.10とまずまずの値でした．

　次に新品購入した73，0,.5，5で試したところ，時には0.06の場合もある一方，通常は0.15程度と再現性が無い状態でした．どうもカセットテープの固定具合に依存しているようで，トレイリッドの緩衝材を色々と変えたり，ピンチローラーを変えたり，フライホイールのゴム跡をさらに磨いたりしましたが改善しません（変形しているプラスチック製固定バネも少し調整しました．）．ベルトをカッターで慎重に切って，幅を3.5mmにしてみましたが，最小値は0.05程度になるも，最大値が0.15程度で改善なしでした．

　今までで一番良かった中古のベルトに戻したところ，他の措置が効いたようで，0.05〜0.09とまずまず安定していました．（自機での録再ですから，カタログ値の0.05よりは悪く出ても不思議はないです．）

ただ，少し気になるところがあります．下図は，良い場合と悪い場合の例ですが，悪い場合にはサイン波状の変動の振幅が大きくなるようです．これは多分，周期的なフラッターだと思いますが，この原因を解明できれば，もっと良くなるものと思います．なお，SONY TC-K222ESAでは，このような現象は見られません．これは一体なにでしょう？

VP-7720A 改造自動測定化プロジェクト実動3

Wed, 03 Dec 2025 17:54:27 +0900

実動2で気になっていた問題について検討しました．実動2の問題点Aは歪率のレンジ-30dBと-20dBの接続の問題でした．これはAnalyzer基板AのR38（ATT2 40dB，可変抵抗500Ω）の調整で解決しました．

　問題点Bですが，リレーK1, K2, K5, K6を新品交換しているうちに改善しました．どれが決定打だったのか不明です．（手持ちのVP-7721Aの回路図とVP-7720AのAnalzerA基板のInput部分は異なるのが一因で分かっていません．）　この間，寝た子を起こしたようで，色々とトラブルに巻き込まれました．K5をコントロールしているTD62307Pの12番ピンが壊れて（何故か抵抗0Ω），このICの交換まですることになりました．

　自動測定化プロジェクトを始めてから一ヶ月半かかりましたが，下図のような綺麗なデータが取れたので，めでたく一段落です．（下図はE80CC SRPPの測定例）

VP-7720A 改造自動測定化プロジェクト実動2

Wed, 26 Nov 2025 10:51:05 +0900

　VP-7720A自動測定化の続きです．自動測定を進めるにつれて，VP-7720Aの小さな問題点が浮上してきました．「実動開始」で見えていた「測定値のとび」問題です．「実動1」で述べたオフセット調整によって，目立たなくはなりましたが，気になるところです．

　下図はE80CCのSRPPの測定結果です．矢印AとBが問題の「とび」です．

　測定点を歪測定のレンジによって色分けしてあります．また，I/Pの測定レンジ，-10dBから40dB，はグラフ下部に矢印で示してあります．I/Pと歪のレンジ切替点が問題になっていることは明らかです．A点ではI/Pの測定レンジが10dBから20dBに，歪が-50dBから-40dBに切り替わりました．B点ではI/Pは切り替わっていませんが，歪測定のレンジが-30dBから-20dBに変わっています．B点の「とび」はかなり気になります．

　これらは，VP-7720A自体のレンジ切替に付随する問題です．これから回路図を見直して検討しますが，時間を要しそうです．

　追記：-60dBと-50dBのレンジの範囲に間違いがあったので，図を修正して張り替えました．ご了承ください．

VP-7720A 改造自動測定化プロジェクト実動1

Thu, 13 Nov 2025 18:11:42 +0900

　前回お見せした測定結果の段々は，主としてレンジ切替に付随するオフセットの問題でした．I/PとDISTのオフセットをソフト的に補正したところ，目立たなくなりました．前回と同じ12BH7Aの測定結果を示します．

現状，I/P測定の待ち時間は0．5秒，DISTの待ち時間は4秒ですが，これ以上短くすると指示値が落ち着かないうちに測ってしまうことがあり，測定結果に乱れが生じます．0.5秒，4秒でも少し短いらしく，たまに乱れが生じます（赤矢印）．あまり時間がかかるのも困りますから，この辺りが妥協点のようです．なお，オフセット，感度，待ち時間の設定は機器個別に調整・設定する必要があります．

　下図はE80CCのSRPPの実測例です．

　いずれにしろ，自動測定は便利です．待っていれば測定結果が出ますから．

補足（2025.11.22）

ソフト的なオフセット補正をする前にVP-7720Aのオフセット調整をしておくのが良いです．具体的にはANALYZER ASSY BのTP4（R44)，TP5（R112)，TP6（R124)です．それぞれのTPの波形の中心線（DCレベル）をオシロで見ながら0Vに調整すればOKです．

VP-7720A 改造自動測定化プロジェクト実動開始

Wed, 12 Nov 2025 09:38:47 +0900

　VP-7720Aの自動化の続きです．実働試験を始めました．下は12BH7AのSRPPの測定結果です．

約40V出力までの歪を測ってみました．自動化自体はうまくいっているようですが，VP-7720Aの問題点が表面化しました．測定結果に段々が見えていて，電圧か歪測定のレンジ切替，またはメータードライブ回路のオフセットに問題があるようです．こういった微妙な問題点は自動化するまで気付いていませんでした．オフセットであればソフト的に対処できますが，これから調査します．

　さて，Arduinoのスケッチについては何度か記述しましたが，Excel-VBAの話はしていませんでした．VBAにはAgilentのVISA COMライブラリーを用いました．今までもGP-IB通信に使っていたので，多少慣れがあったからです．他にもEASY COMという便利なものも公開されているようです．

また，対数グラフの描画にはhttps://qiita.com/mori_toma/items/8281596a2537fdc8cd56の@mori_tomaさんが公開されているものを使っています．これらの有益な情報を公開されている皆様に深く感謝します．

　なお，上図測定に使った歪率／電圧のVBAプログラムは以下の通りです．（グラフ描画部分は省略します．）　これも素人の作ですし，不使用の変数，定数，バグなど残っていると思いますが，ご容赦ください．

----------以下VBA ---------

Sub ボタン1_Click()
    Dim strVal As String
    Dim strArr() As String
    Dim MaxOutStr, MaxDistStr, StepStr, JMaxStr, VoutStr, DistStr As String
    Dim JMax, JJMax As Integer
    Dim InputdB, Vin, Vout, Coef, MaxOut, MinOut, MiniInput, MaxDist As Single
    Dim InputAP, InputAPMax, InputStart, Step, yMax, yMin As Single

    Dim dstSheet As Worksheet
    Set dstSheet = Worksheets("Sheet1")
    Dim RM As New VisaComLib.ResourceManager
    Dim TB As New VisaComLib.FormattedIO488 'TB : Target Board

    Set TB.IO = RM.Open("ASRL3::INSTR")
    Dim sfc As VisaComLib.ISerial            'RS232C通信設定
    Set sfc = TB.IO
    sfc.BaudRate = 9600
    sfc.DataBits = 8
    sfc.Parity = ASRL_PAR_NONE
    sfc.StopBits = ASRL_STOP_ONE
    sfc.FlowControl = ASRL_FLOW_NONE

    TB.IO.TerminationCharacter = 10
    TB.IO.Timeout = 10000 'タイムアウト10秒
    Sleep (200) '何故か185〜240いるようだ？

    ' Gain測定
    TB.WriteString "A" 'AMPTD/DISTによる測定の初期化実行
    Sleep (5000)   'Range切り替えに時間を要する
    Vout = Val(TB.ReadString) ' Arduinoから受信
    InputdB = Val(TB.ReadString) ' Arduinoから受信
    Vin = 2# * 10 ^ (InputdB / 20#)
    Coef = Vout / Vin
    Cells(8, 2) = Coef
    Cells(9, 2) = InputdB
    Cells(9, 3) = Vin

   ' 最大値など計算
    MiniOut = 0.2 '最小電圧
    MaxOut = Cells(1, 2)
    MaxOut = MaxOut * 1.1
    MaxDist = Cells(2, 2)
    If MaxOut > 100 Then MaxOut = 100
    MaxInput = MaxOut / Coef
    Cells(6, 3) = MaxInput
    InputAPMax = 20# * Log(MaxInput * 0.5) / Log(10#)
    Cells(6, 2) = InputAPMax
    JMax = Cells(3, 2) 'りかえしの最大回数
    Step = Round((InputAPMax - InputdB) / JMax, 1)
    Cells(7, 2) = Step
    yMax = Cells(4, 2)
    yMin = Cells(5, 2)

    ' 表から測定条件読み込んでArduinoに送る
    Sleep (200)
    MaxOutStr = Str(Cells(1, 2)) '最大電圧
    MaxDistStr = Str(Cells(2, 2)) '最大歪率
    StepStr = Str(Cells(7, 2))
    JMaxStr = Str(JMax)
    TB.WriteString Str(MaxOutStr)
    Sleep (20)
    TB.WriteString Str(MaxDistStr)
    Sleep (20)
    TB.WriteString Str(StepStr)
    Sleep (20)
    TB.WriteString Str(JMax)
    JJMax = 0
    For j = 1 To JMax
      TB.WriteString "D" ' 出力電圧, 歪率測定
      Cells(j + 10, 2) = InputdB + Step * j
      Sleep (600)   ' Arduino側のdelay+100
      VoutStr = TB.ReadString
      Vout = Val(VoutStr) '電圧読み込み
      Cells(j + 10, 3) = Vout
      If Vout >= MaxOut Then GoTo Label1
      Sleep (5100) ' Arduino側のdelay+100
      DistStr = TB.ReadString
      Dist = Val(DistStr)
      If Dist >= MaxDist Then GoTo Label1
      Cells(j + 10, 4) = Dist
      JJMax = JJMax + 1
      If StopFlag = True Then
          Cells(1, 4) = "Cancelled"
          GoTo Label1
      End If
    Next j
Label1:
    TB.WriteString "E"
    TB.IO.Close
    Set TB = Nothing
    Set RM = Nothing

' ###### グラフ表示開始 #######

Repair, Modify using Arduino and old cameras ...

SONY TC-K222ESAのトラブル：カセットが取り出せない

最強のGX-R60EXを作る：補足

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る 実動

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る5

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る4

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る3

最強のAKAI GX-R60EXを作る：Arduinoで赤外線リモコンを作る2

最強のAKAI GX-R60EXを作る：Arduinoで 赤外線リモコンを作る1

カセットデッキ AKAI GX-R60EX 修理

カセットデッキ A&D GX-R3500 修理 ワウフラッター 2

カセットデッキ A&D GX-R3500修理 ワウフラッター

VP-7720A 改造 自動測定化プロジェクト実動3

VP-7720A 改造 自動測定化プロジェクト実動2

VP-7720A 改造 自動測定化プロジェクト実動1

VP-7720A 改造 自動測定化プロジェクト実動開始