e-Gadget の壁

CBsitumonn様

管理人の やす です。

以下のような表示にしたいということでしょうか？
1　　 55555
22　　666666
333　 7777777
4444　88888888

これを前提にして話を進めます。

先ず最初に、左詰で数字を表示するためには、Locate を使うしかありません。
数値をそのまま出力する場合は、Casio Basic では右詰になる仕様です。

一桁の数 C を C個だけ並べて表示する場合は、
C × 111...11 (C桁) の計算をして、その結果を Locate で表示するのが簡単でしょう。
この C 桁並んだ 111...111 を計算して変数 N に入れておきます。
そして、Locate で N×C の結果を出力します。
※ あとで述べる理由で NCではなくて N(C+1) とします。C を１から始めるのではなくて、0 から始める方が都合が良いからです。

次に考えるのは、Locate で表示する際の表示位置の座標 X と Y をどうやって決めるのか？

X は、4行目までは 1桁目に固定，5行目から8行目は横にずらして 6桁目に固定。
Y は、1～4行目までは1～4行目、5～8行目は、また1～4行に戻す必要があります。

1から4行目までは、X = 1、Y = 行数 で Locate X,Y,NC (最終的には N(C+1) です)
5から8行目までは、X = 6、(行数-1)を4で割った余りに1を加えた値 Mod(行数-1, 4) + 1

さて、Yを求めるとき、余りの数 Mod を求めたいのですが、fx-5800P にはこの関数がありません。そこで Mod(C, 4) の代わりに C-4Int(C÷4) で計算できます。
https://egadget.blog.fc2.com/blog-entry-209.html

この計算を行う際、Cは 0 から始まる数で無いとうまくゆきません。
そこで、Cを0から始めるためにチョット変更が必要です。

コードは以下のようにすると、とりあえず動きました。

1: 0→C
2:
3: Do
4:
5: 1→N
6: For 1→I To C
7: 10N+1→N
8: Next
9:
10: 1→X:C>3⇒6→X
11: C-4Int(C÷4)+1→Y
12:
13: Locate X,Y,N(C+1)
14: Inz C
15:
16: LpWhile C≦7

とりあえずのサンプルプログラムです。
コードを見やすくするために、敢えて空行 (改行だけの行) が沢山あります。実際は不要です。

Cを0から始めるので、その関係がチョットややこしくなっているのですが、基本的な考え方は上記の通りです。実は私も最初は C を 1 から始めるコードを書きました。

最後の行の C≦7 を C≦ 4 に変えてみると、最初の1列目の動作が判りやすいと思います。

チョット頭の体操ができて、楽しかったです。

3～16 行が do / Lpwhile のループです。

その中に、111..111 を計算して 変数 N に格納する 3行だけの単純な For ループがあります。この For ループの直前で N を必ず 1 にしておく必要があります。

10行目と11行目は、Locate の X と Y を決めるところです。
1→X:C>3⇒6→X は、とりあえず X を 1 にしておき、C が3を超えるときは、X を 6 にします。
C-4Int(C÷4)+1→Y は、C を４で割ったときの余りを求めて、それに１を足し算しています。この計算のために、Cを0から初めて、１つづつ増やしています。
なので、Locate で出力する数値は NC ではなくて N(C+1) としています。

ここまで準備して、Locate X,Y,N(C+1) で出力します。

なお、Cを１つ増やすために、Inz C を使っています。C+1→C でも同じです。

Cは０から始まるので、LpWhile C≦ 7 として、全部で８行分の出力をしたら、Do ループを抜けてプログラムを終了します。

最後に、Locate コマンドは比較的時間がかかる処理です。従って Locate を使う回数を少なくしないと、出力にとても時間がかかります。今回はループ１回あたり Locate を１回使うコードにしています。そのため、出力する数を予め計算しておいてから出力するような方針にしています。

一気にコードまで紹介してしまいましたが、私も実際に動かしてみないと不安なので．．．

ではでは、

さっそくのお返事ありがとうございます。プログラム例と解説を、時間をかけて理解しようとおもいます。

ChangRing様

早速遊んでみました。
昔懐かしいゲームですね！
結構ハマります。

面白いプログラムの投稿、ありがとうございます。

起動した段階で、モンスターの近くにパックマンが居ると、めっちゃ難易度が高くなりますね。瞬間的な認識力が要求され、CRASHとなると、もう一回、とついついエンドレスになってしまいます。

でも。止められません。面白いです。

ChangRing様は、どのくらいのスコアになりますか？

ChangRing 様

このようなパターンになったとき、クリアすることは可能でしょうか？

遊んでくださって有り難うございます。＞やす様
横についてくるので、このパターンはクリアは難しいですね。
もっと画面が広いと縦についてくる敵をもう一匹用意するのですが、
なにぶん画面が狭いので、、、
各面は自動生成していますが、本当はあらかじめ1面から用意して
だんだん難しくしていくといいと思うのですが、そこは手抜きです（笑）
簡単に改造できると思うので好きにいじってください。
パブリックドメインソフトウェア扱いでお願いします。

面が自動作成なので、「運」が多分に影響しますが、
私の記録は48です。
プログラム作成者のスコアが大したことないのは普通のこと、、、
でも、やす様の遊び方は私の意図した通りなので嬉しいです。

112行あたりにある

'%Wait 128

とコメントアウトしている部分で、

%Wait w

と変更し、

wの値を変えれば、難易度を変更できるみたいですね。

w=4 とすると、時差をかなり有効に使えてクリア率が高くなりますね。

なので、

・w=4 で easy mode
・w=2 で normal mode
・w=0 で hard mode

といった感じで遊べそうです。

ところで、この作品について、ブログの記事で紹介したいと思っておりますが、よろしいでしょうか？

何か条件やご希望があれば、お聞かせください。

なるほど、%Wait 4で随分操作しやすくなりますね。
紹介していただいて大丈夫です。とくに希望はないです。
ゲーム名とか決めてないですが、そのままPMでしょうか、、、

記事化にご了承頂き、ありがとうございます。

プログラム名は、PM としてみました。
記事は後ほど書く予定ですが、とりあえず ChangRing様のソースの冒頭にコメントを入れました。
⇒ https://egadget2.web.fc2.com/archives/fx-CG50/PM/PM.html

そして、難易度を選択できる改造版を PM2 としました。
⇒ https://egadget2.web.fc2.com/archives/fx-CG50/PM/PM2.html

いい感じの画面キャプチャがとれてますね。これを機会に
他の人も　もっとゲームを作って公開してくれないかなあ、
と思います。

一応、g3mファイルとC.Basicで生成したソースのテキストファイルを圧縮したzipファイルをダウンロードできるようにしています。

CHangRing様はパブリックドメインと書かれていたのにオープンソースと間違ってダウンロード用 html に書いていたのに気づき、慌てて修正しました。

ところで、中学生の時にポケコンを使っていらっしゃったとのこと。私はポケコンは使ったことも所有したこともありませんが、高校の時の何人かの友人がポケコンを持っていました。

そのうちの一人が、SHARPの 確かPC-1500だったかと思いますが、それを定規代わりに使って直線を引いているのをみて、カッコいいなぁ、などと妙な感心の仕方をしたものです。

それくらい、プログラミングには興味がなく、電卓にも興味がありませんでした。

私が最初に使っていたポケコンはPC-1251＋CE-125でした。
http://kyoro205.g.dgdg.jp/cgi/calcdb.cgi?pl=peri.csv&k=CE%2D125
ちょうど↑この写真の感じです。
記録用のマイクロカセットレコーダと感熱式プリンタのオールインワン！
ポケコン本体部分だけ取り外して持ち歩けるんですよ。
今でも格好いいよなあ、と思います。

PM の記事をアップしましたので、お知らせします。
https://egadget.blog.fc2.com/blog-entry-779.html

何かご希望があれば、追記・編集しますので、お聞かせください。

ところで、最初にお使いのポケコンの画像を拝見しました。
このような感じで、マイクロカセットのストレージと小型プリンタを備えたEPSONの似たようなものを以前会社で見たことがあります。

当時、私はプログラミングを殆ど知らず、FX-502P でチョコッとコードを書いて面白がっていたくらいです。このEPSONのオールインワンを使いこなして実験や解析をする先輩をみて格好いいなぁ、と思ったものです。

1980年代のポケコン全盛時代のカシオのカタログを記事で取り上げています。
https://egadget.blog.fc2.com/blog-entry-690.html

FX-502P を親に買って貰った当時のカタログが、幸運にも残っていました。

記事みました。まとめ方、上手ですね。
丁寧に紹介してもらって、ありがとうございます。

EPSONのはHC-20でしょうか。大学生くらいのときに
知り合いから譲り受けたのですが、あまり活用できないまま手放してしまいました。

FX-602PとFX-702Pは中学生の時に、よく友だちから借りてました。
FX-501Pは私の連れ合いが持っていましたが、キーが効かなくなってしまったので、
今はFX-603Pを使っています。

お褒めに預かり、恐縮です。

この記事で一番言いたいことは、最後の ChangRing様のコメントに尽きます。

"これを機会に
他の人も　もっとゲームを作って公開してくれないかなあ、
と思います。"

是非とも、また楽しいプログラムを思いついたら、お知らせください。

そうそう、まさに、そこをクローズアップしていただいて
ありがとうございます。
スタートレックとか、誰か移植してくれないかなあ。
PB-100用のスタートレックとか、画面では表現できないから、
自分で方眼紙に書き込んで遊んでいましたね。
でも↓ここにあるように
http://feynmanino.watson.jp/7938_star-trek.html
作っているときが一番たのしい！　というのに私は共感します。
昔、FX-603P用に作ったゲーム(今度はアクションではないです)を
移植してみようと思います。それまで、しばらくお待ちください、、、

ChangRing様

次作を楽しみにお待ちしております。

ところでPMは、シンプルなゲームだからこそハマるという典型例のような気がしています。

そういえば、昔 "イスカンダルのトーフ屋"というゲームがあったのを思い出します。検索してみると、こんなページが見つかりました。
http://vivi.dyndns.org/tofu/tofu.html

最近は、各種プラットフォームへの移植版が出ているようです。多分ご存じかとは思いますが、昔の事に思いをはせると、少しづつ思い出すものですね！

iron2 様

管理人のやすです。

書き込みをすっかり見落としていました。すみません。

計算精度については、電卓ごとに癖があったものですが、最近はいずれも大きな差がなくなってきたように思います。

カシオには以前からの桁落ちの癖が残っているようですね。
例えば、123456789123456 - 123456789123411 を計算すると、本来 45 になるばきところ 0 になってしまいます。
こちらを参照： http://verifiedby.me/adiary/097

ちなみに、fx-CG50 などの Python モードのシェルでこの計算をすれば、正しく 45 となります。演算そのものも micro Python で実行している利点が現れた良い例だと思います。

iron2様、こんにちは！

＞hp prime g2 かいました。アマゾンで3万ちょいです。

Amazonではずっと6万とかとんでもない高価格だったのですが、やっと少し落ち着いてきたようですね。


＞ｆｘ－ｃｇ５０の３ｄグラフと解像度の次元が違います。
＞大変美しいです。

画面の解像度自体はさほど差がないのですが、CPUパワーの恩恵で描画の細かさが段違いですよね。
とはいえ、グリグリと動かすときにそれなりに重さを感じるので、美しさと引き換えにかなり重いアプリになってますね。(^^;


＞パイソンはどうやってつかうのか、まだ分かりません。たぶんプログラム
＞新規作成でpythonとpplを選択できるような気がします。

akatuki様の「高機能電卓の情報」にPythonサンプルがあります。(^^)
https://akatuki-724.blogspot.com/2019/03/hp-primepython.html

Primeには標準モードとCASモードがあるのですが、そのCASモードでのプログラムがPython書式で使えるということですね。
プログラム冒頭に
#cas
を入れるのがCASモードへの切り替えです。

iron2 様

> 外人サポータ様

最近、香港の学生さんが C.Basic の伝道師を買って出て、主に海外のサイトでサポートされていますが、ついに e-Gadgetに来られました。香港の方なので、英語だけでなく中国語でのサポートも可能なので、C.basic は益々国際的になりそうです。

プログラム電卓は、海外では結構なファンがいるので、C.Basic はユーザーは海外の方が多いかも知れません。そして海外のユーザーによるバグ報告や機能提案が C.Basic の進歩の原動力になっていると思います。

fx-CG50 に搭載されているPythonは、現状では計算マクロに限定した使い方くらいしか出来ないのですが、Casio Basic のように コンソール入出力機能が充実すれば、Casio Basic のように遊べるでしょうね！

もしそうなったら、Python プログラミングネタを始めようかな？　などと思っています。

管理人様、iron2、皆様、こんにちは！

CG50のPythonは数値計算には普通に使えますね。
グラフィックスライブラリは次のOSアップデートで搭載される模様ですが、
グラフ電卓としての実装なので、使い勝手の面では？です。(^^；

フランス発の電卓であるNumWorksは搭載言語がmicroPythonだけなので描画機能が一番早くに備わりました。
使えるメモリが少ないのでそこが微妙に惜しいところですが一番遊べるPythonなのは間違いないです。

グラフィックス含めた全体のスピードという面では従来比3倍速になったPrime G2が有利ですが、
PrimeにもPythonが実装されそうな気配なので、そうなると名実ともに最強電卓になりそうですね。

iron2様

1111111のキリ番踏まれたのは、iron2様でしたか！
おめでとうございます。
そして、お帰りなさいませ！

最近、実行速度のベンチマークを行っていないので速度低下に気づきませんでした。
確かに機能が増えれば、遅くなるのは道理ですね。

最近の C.Basicの進化で、不連続的な大きな変化としては、プログラムの表示に日本語(もどき)が使えるようになったことかな？と思っています。
https://egadget.blog.fc2.com/blog-entry-681.html

(修正)
iron2様は fx-CG20 をお持ちだったと思いますので、お試しください。


fx-9860Gシリーズですと、細かな改善とバグ取りで C.Basicは使いやすく安定してきていると思います。

実は、現在のところ 9860Gシリーズで、fx-9860G Slim という機種にハマっています。
これは、既に生産中止になったもので、国内販売されなかった機種ですが、
・2つ折れタイプ ⇒ 小型なので持ち運びに良い、キーと液晶を保護してくれる
・液晶画面が大きいくバックライト付き ⇒ 老眼にとても優しい
・C.Basic が走る ⇒ 遊べます
https://egadget.blog.fc2.com/blog-entry-708.html

管理人様、iron2様、皆様、こんにちは！

壁への書き込みに気付くのが思いっきり遅れました。(^^；

＞本題はｃ.basicのバージョンが上がるとバグが取れて便利になりますが
＞グラフィクス描画速度遅くなっていませんか。

はい。確実に遅くなっていると思います。(^^；

機能が増えてもできるだけ速度低下が無いようにと思っているのですが、そこはインタプリタの宿命でしょうか。徐々に落ちていってしまいます。
そこのあたりは数式またはサブプログラム単位でコンパイルすることで一気に挽回する予定なのでそれまで少しお待ちくださいませ。

現状でも修正できる点があれば直したいと思いますので、
遅くなっている具体的なプログラムを示していただければ幸いです。(^^)