ポケコンでリレー制御 Pocket computer & relay скачать в хорошем качестве

ポケコンでリレー制御 Pocket computer & relay

８個のリレーを、シャープのポケットコンピュータ PC-G850VS で制御しました。 ポケットコンピュータ PC-G850 は現在は生産終了になってしまいました。 中古市場で比較的入手しやすく、取扱説明書付きで数千円から１万円前後といったあたりが相場のようです。 取扱説明書付無しだと安くはなりますが、その情報無しでプログラミングするのは難があります。    • PART 2：シャープのポケコンPC-G850VSでリレーを制御：Controlli...   ハード、ソフトとも今回の動画と殆ど同じですが、映像的な効果を目指して大きいリレーにしたものです。 下にあるように半角の”＜”と”＞”を考慮し、これを使わないようにプログラムに手を加えました。 以下は動画中にあったプログラム・リストです。 プログラム中の半角の"＜"と"＞"はこの説明欄で使用できませんので、全角の"＜"と"＞"に置き換えてあります。 Below is the program list that was in the video. Half-width(1 byte charcter) "＜" and "＞" in the program cannot be used in this description, so they have been replaced with full-width(2 byte charcter) "＜" and "＞". *************************************************** 'INCREMENT AND DECREMENT ' PIOSET 0 OPEN "PIO:" ' 'SET DEFAULT VALUE W9=15 'SPEED A=255 CN=1 ' *LP1 PIOPUT 0 CLS PRINT "ENTER:START E:END" PRINT "Cn:COUNT Wn:WAIT" PRINT "Mn:MAX n:1,2,3.." PRINT PRINT "C:";CN;" W:";W9;" M:";A S$="" INPUT S$ IF S$="" THEN GOTO *JP1 ' C$=LEFT$(S$,1):V1$=RIGHT$(S$,LEN(S$)-1) V=VAL(V1$) IF C$="M" THEN A=V:GOTO *LP1 IF C$="W" THEN W9=V:GOTO *LP1 IF C$="C" THEN CN=V:GOTO *LP1 IF C$="E" THEN PRINT:CLOSE:END GOTO *LP1 ' *JP1 FOR CC=1 TO CN LOCATE 0,5:PRINT CC; FOR N=0 TO A GOSUB *OT NEXT N FOR N=A-1 TO 1 STEP -1 GOSUB *OT NEXT N NEXT CC GOTO *LP1 ' *OT LOCATE 6,5 PRINT "HEX:"; IF N＜16 THEN PRINT "0"; PRINT HEX$(N);" DEC:";N;" " PIOPUT N AND &HFF GOSUB *WA RETURN ' *WA FOR WW=1 TO W9 :NEXT WW RETURN ****************************************************** '8 BIT RIGHT & LEFT SHIT ' W9=50:T=4:P=8 'SET DEFAULT ' PIOSET 0 OPEN "PIO:" DIM H1(8) H1(1)=1:H1(2)=3:H1(3)=7:H1(4)=&HF:H1(5)=&H1F H1(6)=&H3F:H1(7)=&H7F:H1(8)=&HFF DIM S1(16) ' X=0 GOSUB *SETP ' *LP1 PIOPUT H1(0) IF X=0 THEN *IHEAD CLS PRINT "ENTER:START E:END" PRINT "Cn:COUNT Wn:WAIT" PRINT "Pn:PATTERN(n=1..8)" PRINT PRINT "C:";T;" W:";W9;" P:";P ' S$="" INPUT S$ IF S$="" THEN GOTO *JP1 C$=LEFT$(S$,1):V1$=RIGHT$(S$,LEN(S$)-1) V=VAL(V1$) IF C$="P" THEN P=V:GOSUB *SETP:GOTO *IHEAD IF C$="W" THEN W9=V:GOTO *IHEAD IF C$="C" THEN T=V:GOTO *IHEAD IF C$="E" THEN PRINT:CLOSE:END GOTO *IHEAD *JP1 LOCATE 0,5:PRINT "***" X=T ENDIF X=X-1 ' LOCATE 4,5:PRINT T-X GOSUB *SL GOSUB *SR GOTO *LP1 ' *SETP K=H1(P) FOR N=8 TO 0 STEP -1 S1(N)=K K=K\2 NEXT N K=H1(P) FOR N=9 TO 16 K=(K+K) AND &HFF S1(N)=K NEXT N RETURN ' *SL 'SHIFT LEFT FOR I=8-P TO 16 R=S1(I) GOSUB *OPACK NEXT I RETURN ' *SR 'SHIFT RIGHT FOR I=15 TO 9-P STEP -1 R=S1(I) GOSUB *OPACK NEXT I RETURN ' *OPACK PIOPUT R GOSUB *WA RETURN ' *WA FOR WW=1 TO W9 :NEXT WW RETURN ********************************************* '8 BIT RANDOM OUT ' W9=20 'TIME COUNT LC=100 'LOOP COUNT ' PIOSET 0 OPEN "PIO:" ' *LP1 CLS PRINT "ENTER:START E:END" PRINT "Cn:COUNT Wn:WAIT" PRINT PRINT "C:";LC;" W:";W9;" S$="" INPUT S$ IF S$="" THEN GOTO *JP1 ' C$=LEFT$(S$,1):V1$=RIGHT$(S$,LEN(S$)-1) V=VAL(V1$) IF C$="W" THEN W9=V:GOTO *LP1 IF C$="C" THEN LC=V:GOTO *LP1 IF C$="E" THEN PRINT:CLOSE:END GOTO *LP1 ' *JP1 LOCATE 0,4:PRINT "***" ' FOR N=1 TO LC A= RND 255 PIOPUT A LOCATE 4,4:PRINT N; GOSUB *WA NEXT N ' PIOPUT 0 GOTO *LP1 ' *WA FOR WW=1 TO W9 NEXT WW RETURN