カレンダーを表示します。
「ネン?」で表示したい年、
「ツキ?」で月を入力するだけです。
Facebook グループ IchigoJam-FAN で
すでにカレンダーが公開されていたのですが、
作る人によってプログラムが変化するので、
見比べるために公開しても良いだろうと
考えが変わって、公開に至りました。
シャープのポケコン PC-E200・G シリーズからの
移植です。
ポケコン版とレイアウトは同じですが、
パソコンなので CLS なしで表示、
出力レイアウトの PRINT USING はないので、
空白で揃えてるところがポイントでしょうか。
Kidspod; ではカナに問題があるため、「Year ?」「Month?」にしてあります。
10 LET [1],31:LET [2],28:LET [3],31
20 LET [4],30:LET [5],31:LET [6],30
30 LET [7],31:LET [8],31:LET [9],30
40 LET [10],31:LET [11],30:LET [12],31
50 INPUT "ネン?",Y:INPUT "ツキ?",M
60 IF(Y%4==0)*((Y%100<>0)+(Y%400==0)) LET [2],[2]+1
70 IF M<3 LET Y,Y-1:LET M,M+12
80 LET O,(13*M+8)/5:LET O,(Y+Y/4-Y/100+Y/400+O+1)%7
90 IF M>12 LET M,M-12
100 LET I,O:LET J,1
110 ?:? "SunMonTueWedThuFriSat"
120 IF O<>0 ? " ";:LET O,O-1:GOTO 120
130 ? " ";:IF J<10 ? " ";
140 ? J;:LET I,I+1:IF I=7 ?:LET I,0
150 LET J,J+1:IF J<=[M] GOTO 120
160 ?:IF I<>0 ?
IchigoJam web でプログラムを実行します。
このQRコードはアクセス解析のためにCookieを使用しています。
アクセス解析は匿名で収集されており、個人を特定するものではありません。
この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。
MixJuice ダウンロード ?"MJ GET kidspod.club/mj/632
MicJack ダウンロード ?"MJ GKP 632
IchigoJam BASIC 0.9.4 から 10〜40 を下記にする事ができるようになりました。
10 LET [1],31,28,31,30,31,30
30 LET [7],31,31,30,31,30,31
10 'カレンダー
15 IF VER()>12233 VIDEO 3
20 LET [1],31,28,31,30,31,30,31,31,30,31,30,31
30 INPUT "ネン?",Y:INPUT "ツキ?",M
40 IF(Y%4==0)*((Y%100<>0)+(Y%400==0)) [2]=[2]+1
50 IF M<3 Y=Y-1:M=M+12
60 O=(13*M+8)/5:O=(Y+Y/4-Y/100+Y/400+O+1)%7
70 IF M>12 M=M-12
80 I=O:J=1:? "SuMoTuWeThFrSa"
90 IF O ? " ";:O=O-1:GOTO 90
100 IF J<10 ? " ";
110 ? J;:I=I+1:IF I=7 ?:I=0
120 J=J+1:IF J<=[M] GOTO 100
130 IF I ?
IchigoJam web でプログラムを実行します。
このQRコードはアクセス解析のためにCookieを使用しています。
アクセス解析は匿名で収集されており、個人を特定するものではありません。
この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。
MixJuice ダウンロード ?"MJ GET kidspod.club/mj/633
MicJack ダウンロード ?"MJ GKP 633
カレンダーは他の方も公開しています。
カレンダープログラミング for IchigoJam | GitHub Gist machuoka/calendar.bas
Facebook グループ IchigoJam-FAN 内の投稿
2015年プロ生ちゃん卓上カレンダー に掲載されています。
ここに掲載しているプログラムよりも古いバージョンの IchigoJam で動作するでしょう。
IchigoJam + MixJuice用 カレンダー | IchigoJamを楽しもう
古籏一浩さんの生成・サーバ公開。仕組みは異なり、MixJuice で受信する前提のテキストが公開されています。
1900年1月〜2099年12月のカレンダーを MixJuice 経由で取得できます。
SkyBerryJAM は 栃木県立栃木工業高等学校 が管理する登録商標であり、
SkyBerryJAM は 栃木県立栃木工業高等学校 の商標です。
Raspberry Pi は
Raspberry Pi 財団 の登録商標です。
Raspberry Pi is a registered trademark or
trademark of
the Raspberry Pi Foundation.
"RISC-V" の商品名は RISC-Vインターナショナル が管理する登録商標です。
The “RISC-V” trade name is a registered trade mark of
RISC-V International.