シャープのポケコンをシフト・レジスタに繋げてパラレル出力：Connecting a pocket computer to a shift register for parallel output скачать в хорошем качестве

シャープのポケコンをシフト・レジスタに繋げてパラレル出力：Connecting a pocket computer to a shift register for parallel output

字幕ONにしてください。前に6足ロボット・フォロにシフト・レジスタ74HC595を使ったLEDディスプレイの付加をアップロードしましたが、そのシフト・レジスタとLED部分をモジュールとして取り外して、シャープのポケコンPC-G850VSに接続しました。 これで3本の信号線で8ビットの出力が制御でき、さらにシフト・レジスタをさらに繋げることもできます。 8と15ビットで動作させる実験を行い、プログラム言語はBASICを用いました（16ビットでなくて15ビットなのはこのBASICの事情によります）。    • プロポRC化フォロ：ロボットのスピードで変化するLEDディスプレイの製作：RC FO...   前にアップロードしたフォロへのLEDディスプレイ搭載です。    • シャープポケコンPC-G850VSの11ピンI/0使用例集：Sharp Pocket...   以前アップロードしたポケコンの11ピンI/0の使用例集です。 00:00 経緯と概要 01:02 フォロのLED回路 01:12 抜き出したモジュール 01:35 シフトレジスタ連結の回路 01:47 メニュー画面 02:11 8ビット入力動画 03:38 8ビットのインクリメント動画 04:21 16ビット入力動画 05:05 16ビットのインクリメント動画 05:17 プログラム・リスト 05:51 LEDの明るさの調整 全プログラム・リストです。 '******* SHIFT REGISTER 74HC595 PARALLEL OUT ***** W=8 ' CLS OPEN "PIO:" PIOSET &HF8 'BIT0..2 OUTPUT ' *LP POF=0 'PARALLEL OUT MODE FLAG CLS LOCATE 15,0:PRINT "EMPTY:END" PRINT "1:INPUT MODE 1" PRINT "2:INPUT MODE 2" PRINT "3:INCREMENT" PRINT "4:SWITCH 8/15 : ";W PRINT "SELECT 1..4 "; GOSUB *ISUB IF EFLG=1 THEN END IF V=4 THEN IF W=8 THEN W=15 ELSE W=8 GOTO *LP ENDIF IF V=3 THEN GOSUB *INC: GOTO *LP IF V=2 THEN POF=1 PRINT '1 OR 2 GOSUB *IND GOTO *LP ' 'INPUT SUB:SET EFLG,V *ISUB M$="" INPUT M$ IF M$="" THEN EFLG=1 ELSE EFLG=0:V=VAL M$ RETURN ' 'INPUT AND SEND D DATA *IND PRINT "DATA : "; GOSUB *ISUB IF EFLG=1 THEN RETURN D=V GOSUB *SENDD GOTO *IND ' 'INCREMENT *INC PRINT PRINT "START "; GOSUB *ISUB IF EFLG=1 THEN RETURN ST=V PRINT "LAST ";:INPUT LA FOR D=ST TO LA GOSUB *SENDD NEXT D GOTO *INC ' 'SEND W BIT D DATA TO SHIFT REGISTER *SENDD IF W=8 THEN B=&H80 ELSE B=&H4000 'SET LSB ' FOR C=1 TO W IF (D AND B)=0 THEN X=0 ELSE X=1 PIOPUT X X=X OR 2 PIOPUT X IF POF=1 THEN PIOPUT 4 B=B/2 NEXT C ' PIOPUT 4 'PARALLEL OUTPUT RETURN