カレンダー
カレンダーを表示します。
「ネン？」で表示したい年、
「ツキ？」で月を入力するだけです。
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,31IchigoJam 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 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 経由で取得できます。
他のバージョン
- プログラム - POKE COM - ポケットコンピュータ PC-E200・G シリーズ版
イチゴジャム レシピ では jig.jp・B Inc.・na-s.jp (株式会社ナチュラルスタイル)
の確認・了承を得て商標・公式ロゴを使用しています。
IchigoLatte is a registered trademark in Japan
of the Natural Style Co,Ltd. (na-s.jp)
IchigoJam Recipe (イチゴジャム レシピ) has confirmation and approval
for the use of trademarks and official logos of jig.jp, B Inc. and na-s.jp.
SkyBerryJAM は 栃木県立栃木工業高等学校 が管理する登録商標であり、
SkyBerryJAM は 栃木県立栃木工業高等学校 の商標です。
managed by Tochigi Technical High School (Tochiko)
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.
イチゴジャム レシピ は jig.jp・B Inc.・na-s.jp・
IchigoJam Recipe (イチゴジャム レシピ) is NOT an official website
by jig.jp, B Inc., na-s.jp and PCN (Program Club Network).
クリエイティブ・コモンズ 表示 4.0 国際 ライセンス
(シェアボタン、PanCake 公式ロゴ、MSX フォント、
(Share button, PanCake Offical Logo, MSX font, Nyan Cat,
Denshi Kousaku Magazine & Micom BASIC Magazine Images,
Petit Computer Images, KDDI / Jimdo footer and
objects with the license specification are excluded)