プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• 時刻をしゃべる

2014年10月9日投稿 / 投稿者 : まげ / タグ : 投稿プログラム サブルーチン 時計 QRコード mkII専用

今日のアクセス：1　　トータルアクセス：1556

概要

時刻を、そこそこ流暢な日本語で発声させるプログラムです。

使い方

プログラムを起動すると、現時刻を24時間制で発声して、終わります。

応用

●4行目の「ＡＰ＝０」を「ＡＰ＝１」とすると、12時間制（午前・午後）の発声となります。（APが0なら24時間制、それ以外なら12時間制、です(^^)）
●11行目「’ＩＮＰＵＴ　”ナンシ゛”；Ｈ：ＩＮＰＵＴ　”ナンフン”；Ｍ」の「’」を消せば、好きな数字でテストできます。ただし、時刻の範囲外の数値の判定はしていないので悪しからず(^^)。

プログラムについて

他のプログラムに組み込む等、自由に二次使用していただいて構いませんし、著作表示も一切義務づけ致しません。使用報告も強くは求めません(^^;)。
ただし、使用したことで何らかの悪影響があったとしても、責任は負いません。ま、変数名やラベル名さえカブらなければ、いたって無害なプログラムだとは思いますけどね(^^)。

ちなみに、プログラム内で使用している「アイテム　トリタ゛シ　ル−チン」も、秘かに自慢です(^^;)。
文字変数ＩＴＥＭ＄に、コンマで区切った文字列（例えば「Ａ，ＢＣ，ＤＥＦ」）を代入し、
変数ＩＴＥＭに、何番目の文字を取り出すか、その数字（例えば「１」）を代入して、
「ＧＯＳＵＢ　＠ＩＴＥＭ」と呼び出せば、指定した文字をＩＴＥＭ＄に代入して返します（上記の例なら「ＢＣ」）。
ＭＩＤ＄と似ていますが、文字数がバラバラの要素をまとめられることが利点です。
また、ＤＩＭを使っていないので、ＣＬＥＡＲいらずです(^^;)。
（他の言語ではあった命令で、その言語では重宝していたので作りました。実は「プチコロボの戦い」でも使用していました）

よろしければ作者のHP・【プチコＲｏｏｍ】へもお越しください。

アンケート

選択肢	投票
ダウンロードした	1
二次使用した	1
支援(^^;)	1

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

プログラムリスト／61行

ＣＬＳ ’ショキセッテイ＜−−−−−−−−−−−−−−−−−− ＡＰ＝０ Ｈ＄＝”レ’−，イチ’，ニ’，サ’ン％，ヨ’，コ゛’，ロク’，シチ’，ハチ’，ク’” ＭＨ＄＝”，，ニ’，サ’ン％，ヨ’ン％，コ゛” Ｍ＄＝”，イ’ッフ゜ン，ニ’フン，サ’ン％フ゜ン，ヨ’ン％フン，コ゛’フン，ロ’ッフ゜ン，ナナ’フン，ハ’ッフ゜ン，キュ’−フン” ’シ゛カン　トリタ゛シ＜−−−−−−−−−−−−−−− ＴＭＲＥＡＤ（ＴＩＭＥ＄），Ｈ，Ｍ，Ｓ ’ＩＮＰＵＴ　”ナンシ゛”；Ｈ：ＩＮＰＵＴ　”ナンフン”；Ｍ ’１２ｈ／２４ｈ？＜−−−−−−−−−−−−−−−−− ＡＰ＄＝”” ＩＦ　ＡＰ＝＝０　ＴＨＥＮ　＠ＡＰＳＫＩＰ ＩＦ　Ｈ＜１２　ＴＨＥＮ　ＡＳ＝０：ＡＰ＄＝”コ゛’セ゛ン　”　ＥＬＳＥ　ＡＳ＝１：Ｈ＝Ｈ−１２：ＡＰ＄＝”コ゛’コ゛　” ？ＭＩＤ＄（”ＡＰ”，ＡＳ，１）；”Ｍ”；　 ’シ゛コク　ヒョウシ゛＜−−−−−−−−−−−−−−− ＠ＡＰＳＫＩＰ ？Ｈ；”：”； ＩＦ　Ｍ＜１０　ＴＨＥＮ　？０； ？Ｍ：？ ’シ゛　ケイサン＜−−−−−−−−−−−−−−−−−− ＨＰ＄＝””：ＨＣ＝０ ＩＦ　Ｈ＞＝２０　ＴＨＥＮ　ＨＰ＄＝”ニ’｜”：ＨＣ＝１０ ＩＦ　Ｈ＞＝１０　ＴＨＥＮ　ＨＰ＄＝ＨＰ＄＋”シ゛ュ’−｜”：ＨＣ＝ＨＣ＋１０ Ｈ＝Ｈ−ＨＣ ＩＴＥＭ＝Ｈ：ＩＴＥＭ＄＝Ｈ＄：ＧＯＳＵＢ　＠ＩＴＥＭ ＩＦ　ＨＣ＞０　ＡＮＤ　Ｈ＝＝０　ＴＨＥＮ　ＩＴＥＭ＄＝”” ＨＰ＄＝ＨＰ＄＋ＩＴＥＭ＄＋”シ゛” ’フン　ケイサン＜−−−−−−−−−−−−−−−−−− ＭＰ＄＝”” ＩＦ　Ｍ＜１０　ＴＨＥＮ　＠ＭＳＫＩＰ ＩＴＥＭ＝ＦＬＯＯＲ（Ｍ／１０）：ＩＴＥＭ＄＝ＭＨ＄：ＧＯＳＵＢ　＠ＩＴＥＭ ＭＰ＄＝ＩＴＥＭ＄＋”シ゛ュ−” ＩＦ　Ｍ％１０＝＝０　ＴＨＥＮ　ＭＰ＄＝ＩＴＥＭ＄＋”シ゛ュ’ッフ゜ン” ＭＰ＄＝ＭＰ＄＋”｜” Ｍ＝Ｍ−ＦＬＯＯＲ（Ｍ／１０）＊１０ ＠ＭＳＫＩＰ ＩＴＥＭ＝Ｍ：ＩＴＥＭ＄＝Ｍ＄：ＧＯＳＵＢ　＠ＩＴＥＭ ＭＰ＄＝ＭＰ＄＋ＩＴＥＭ＄ ＩＦ　ＭＰ＄＝＝””　ＴＨＥＮ　ＭＰ＄＝”チョ−ト゛” ’ハッセイ＜−−−−−−−−−−−−−−−−−−−−− ＴＡＬＫ　ＡＰ＄＋ＨＰ＄＋”　”＋ＭＰ＄ ＥＮＤ ’アイテム　トリタ゛シ　ル−チン＜−−−−−−−−−− ＠ＩＴＥＭ ＿ＩＴＰ＝０：＿ＩＴＥＭ＄＝”” ＦＯＲ　＿ＩＴＸ＝０　ＴＯ　ＬＥＮ（ＩＴＥＭ＄） ＿ＩＴＣ＄＝ＭＩＤ＄（ＩＴＥＭ＄，＿ＩＴＸ，１） ＿ＩＴＰ＝＿ＩＴＰ＋（＿ＩＴＣ＄＝＝”，”） ＿ＩＴＥＭ＄＝＿ＩＴＥＭ＄＋ＭＩＤ＄（＿ＩＴＣ＄，（＿ＩＴＰ！＝ＩＴＥＭ）＋（＿ＩＴＣ＄＝＝”，”），１） ＮＥＸＴ　＿ＩＴＸ ＩＴＥＭ＄＝＿ＩＴＥＭ＄ ＲＥＴＵＲＮ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• キャラクター製作所 : 結構前に作ったデジアナ時計に組み込んでみようかな〜 (2014/10/09 (木) 21:37:02)
• 投稿者 : ＞キャラクター製作所さん；おおっ♪　さっそくありがとうございます！ (2014/10/10 (金) 20:52:21)
• キャラクター製作所 : できましたぁ♪QR読み込んでみてください！ http://wiki.hosiken.jp/petc/?Toukou%2F%A1%D6Doors%A1%D7%A4%A2%A4%CA%A4%BF%A4%CE%A5%D7%A5%C1%A5%B3%A5%F3%A4%F2%CA%D8%CD%F8%A4%CB%A4%B9%A4%EBOS (2014/10/13 (月) 19:38:30)
• 投稿者 : ＞キャラクター製作所さん：拝見しました！　しっかりプログラム内に私の名を記していただけて、うれしいです♪　何でしたら、プログラム改造してもいいですよ。 (2014/10/13 (月) 21:06:22)

お名前: