今日のBASIC

PC-1270用テストプログラム。

10 "A":PAUSE ";0KYOUSINSHUUHASUU"
20 INPUT "L UH=";L:INPUT "C PF=";C
30 L=L/10^6:C=C/10^12
40 F=1/(2*PI*(L*C)^0.5):F=F/10^6
50 USING "####.###":PRINT F;" MHZ"
60 GOTO 20
70 "B":PAUSE ";0KOIRU WO MOTOMERU"
80 INPUT "F MHZ=";F:INPUT "C PF=";C
90 F=F*10^6:C=C/10^12
100 L=1/(4*PI*PI*F*F*C):L=L*10^6
110 USING "#####.#":PRINT L;" UH"
120 GOTO 80
130 "C":PAUSE ";0KONNDENNSA WO MOTOMERU"
140 INPUT "F MHZ=";F:INPUT "L UH=";L
150 F=F*10^6:L=L/10^6
160 C=1/((2*PI*F)^2*L):C=C*10^12
170 USING "#####.#":PRINT C;" PF"
180 GOTO 140
190 "D":PAUSE ";0RIAKUTANSU; L"
200 INPUT "F MHZ=";F:INPUT "L UH=";L
210 X=2*PI*F*L:L=L*10^6
220 USING "###.###^":PRINT X;" OHM"
230 GOTO 200
240 "J":PAUSE ";0RIAKUTANNSU; C"
250 INPUT "F MHZ=";F:INPUT "C PF=";C
260 F=F*10^6:C=C/10^12
270 X=1/(2*PI*F*C)
280 USING "###.###^":PRINT X;" OHM"
290 GOTO 250
300 "K":PAUSE ";0TOROIDARUKOA; L"
310 INPUT "AL=";A:INPUT "T=";T
320 L=A*T*T/1000
330 USING "#####.#####":PRINT L;"UH"
340 GOTO 310
350 "L":PAUSE ";0TOROIDARUKOA; T"
360 INPUT "AL=";A:INPUT "L UH=";L
370 T=(1000*L/A)^0.5
380 USING "######.##":PRINT ";0MAKISUU; ";T
390 GOTO 360
400 "M":PAUSE ";0MIRI;W;0KARA;DBM"
410 INPUT "MW=";W
420 D=10*LOG(W)
430 PRINT D;"DBM"
440 GOTO 410

今日のポケコン

CE-124の受信部だけ作成。モニター用に圧電ブザーをつける。PC-1270はBEEP命令を理解するようだけど、内蔵圧電ブザーがないので、モニターしとくと安心。

ボリュームMAXにしないと認識しない（ThinkPad X200sのヘッドフォン出力にて）。


先の記事で見つけた方法でBASICを書いて音声ファイルにして、毒電波受信中。


mWをdBmに変換するプログラムを実行。


http://kyoro205.blog.fc2.com/blog-entry-511.html
http://jp3tlc.no-ip.biz/pc12/index.shtml#LINKLCD

ココらへんを参考にした。

今日のポケコン

パソコンの音声出力を見てみた。
1Vぐらいと考えればいいかな？

今日のポケコン

カセットインターフェイス。

『シャープポケットコンピューター機械語マニュアル』（昭和61年ISBN4-87593-083-6 C3055 \2500E）より抜粋

今日のポケコン

PCの音声出力取り出し用ケーブル。
手持ちの部品が結構劣化していたので、適したものを探すのに時間かかった。