カレンダー


カレンダーを表示します。

「ネン?」で表示したい年、

「ツキ?」で月を入力するだけです。

 

Facebook グループ IchigoJam-FAN で

すでにカレンダーが公開されていたのですが、

作る人によってプログラムが変化するので、

見比べるために公開しても良いだろうと

考えが変わって、公開に至りました。

 

シャープのポケコン PC-E200・G シリーズからの

移植です。

 

プログラム | POKE COM

 

ポケコン版とレイアウトは同じですが、
パソコンなので 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 15JM.LI/K/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

IchigoJam BIG・IchigoJam BASIC 1.2.2~ 版

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 15JM.LI/K/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 経由で取得できます。


他のバージョン