Program post site for everyone
銀行やフードコートなどで、順番が来たら番号をモニターに表示する「順番待ち表示機」を作ってみました。
番号を入力するところはINPUT命令の1行でもよかったのですが、QRコードでリーダーに読ませるためにあえて、プログラムを書いています。
１．キーボードから3桁までの任意番号を入力すると、「順番待ちリスト」に追加して画面に表示します。
２．画面にある同じ番号を入力すると、「順番待ちリスト」から削除します。
10 '順番待ち案内表示 20 CLV:VIDEO5 30 CLS 60 GSB@DISPLAY_[ALL] 70 GSB@INPUT_N:IF N<1||N>999 CONT 80 GSB@UPDATE_[N] 90 GOTO30 100 ' 110 @DISPLAY_[ALL] 120 IF !P ?:?" JUNBAN":RTN 130 FOR I=0 TO P-1 140 ?DEC$([I]+1000,3);" "; 150 NEXT 160 RTN 170 ' 180 @INPUT_N 190 N=0 200 @INKEY 210 K=INKEY():IF (K<48||K>57)&&(K!=10) CONT 220 IF K=10 IF N RTN ELSE GOTO@INKEY 230 N=N*10+K-48 240 GOTO@INKEY 250 ' 260 @UPDATE_[N] 270 IF !N RTN 280 FOR I=0 TO P 290 IF [I]=N FOR J=I TO P:[J]=[J+1]:NEXT:I=P:P=P-1 300 NEXT 310 IF I=P [P]=N:P=P+1 320 RTN
