[[誕生日を覚えさせる]]
ユーザの誕生日を覚えさせよう。~
他の日付でも基本はいっしょ。~
時刻を覚えさせる場合にも応用できるかも。
----
#contents
----
~
*入力ボックスで覚えさせる [#p5388d4f]
※関数の[[is_empty>関数一覧#is_empty]]、[[is_digit>関数一覧#is_digit]]、[[substr>関数一覧#substr]]、[[nswitch>関数一覧#nswitch]]、[[calc>関数一覧#calc]]を使っています。~
動かない場合は[[SAORIの設定>SAORI]]を見直してみてください。
＃「OnUserInput」が他に既にある場合は書き足すか書き換えます。
＊OnUserInput
＞（Ｒ０）を空打ちされた【タブ】（is_empty,（Ｒ１））
＄（Ｒ０）【タブ】（Ｒ１）
＞（Ｒ０）を教えてもらった
＊誕生日入力開始
：\![open,inputbox,ユーザ誕生月日]誕生日と月を３桁以上で入力してね
＊ユーザ誕生月日を空打ちされた
：教えてくれないんだ……。
// ↓三桁だと動かないので修正しました
// もっとスマートな方法があれば書き直してください・・・
// ＊ユーザ誕生月日を教えてもらった
// ＄仮ユーザ誕生月＝（substr（バイト値、１）（ユーザ誕生月日）（バイト値、１）－４（バイト値、１）２）
// ＄仮ユーザ誕生日＝（substr（バイト値、１）（ユーザ誕生月日）（バイト値、１）－２（バイト値、１）２）
// ＄ユーザ誕生月日【タブ】
// ＞ユーザ誕生月日がおかしい【タブ】!（不正誕生月日チェック）
// ＞誕生日入力確認
＊ユーザ誕生月日を教えてもらった
＄仮ユーザ誕生月＝（iflist、（length,（ユーザ誕生月日））、==4、（substr,（ユーザ誕生月日）,０,２）、==2、（substr,（ユーザ誕生月日）,０,１）、（if、（compare_head,（ユーザ誕生月日）,０）==１、（substr,（ユーザ誕生月日）,１,１）、（substr,（ユーザ誕生月日）,０,１）））
＄仮ユーザ誕生日＝（if、（length,（ユーザ誕生月日））==４、（substr,（ユーザ誕生月日）,２,２）、（substr,（ユーザ誕生月日）,１,２））
＄ユーザ誕生月日【タブ】
＞ユーザ誕生月日がおかしい【タブ】!（不正誕生月日チェック）
＞誕生日入力確認
＊ユーザ誕生月日がおかしい
：（仮ユーザ誕生月）月（仮ユーザ誕生日）日ってなに？
ちゃんとした日付を教えてよ！
＄仮ユーザ誕生月【タブ】
＄仮ユーザ誕生日【タブ】
＠不正誕生月日チェック
（when,（is_digit（バイト値、１）（仮ユーザ誕生月））&&（is_digit（バイト値、１）（仮ユーザ誕生日））
,（when,（仮ユーザ誕生月）＞＝１&&（仮ユーザ誕生月）＜＝１２&&（仮ユーザ誕生日）＞＝１
,（calc,（仮ユーザ誕生日）＜＝（nswitch,（仮ユーザ誕生月）,３１,２９,３１,３０,３１,３０,３１,３１,３０,３１,３０,３１））
,０
）
）
＊誕生日入力確認
＄ユーザ誕生月【タブ】（仮ユーザ誕生月）
＄ユーザ誕生日【タブ】（仮ユーザ誕生日）
＄仮ユーザ誕生月【タブ】
＄仮ユーザ誕生日【タブ】
：（ユーザ誕生月）月（ユーザ誕生日）日だね！ おぼえたよ！
''長所''
-選択肢と違って月日の一括入力が可能で慣れるとユーザさんにとっても早い。
-ちょっと書き足せば誕生年まで入力してもらうこともできる。
''短所''
-不正な入力のチェックのせいで大掛かりになる。
-処理があっちこっちいくので読みにくい。
*選択肢で覚えさせる [#d467140f]
※関数の[[nswitch>関数一覧#nswitch]]を使っています。~
動かない場合は[[SAORIの設定>SAORI]]を見直してみてください。
＊誕生日の月を選ぶ
：生まれた月を選んでね！\_q
\q[１,誕生日の日を選ぶ] \q[２,誕生日の日を選ぶ] \q[３,誕生日の日を選ぶ]
\q[４,誕生日の日を選ぶ] \q[５,誕生日の日を選ぶ] \q[６,誕生日の日を選ぶ]
\q[７,誕生日の日を選ぶ] \q[８,誕生日の日を選ぶ] \q[９,誕生日の日を選ぶ]
\q[１０,誕生日の日を選ぶ] \q[１１,誕生日の日を選ぶ] \q[１２,誕生日の日を選ぶ]
＊誕生日の日を選ぶ
＄ユーザ誕生月＝（選択ラベル）
：今度は生まれた日を選んでね\_q
\q[１,誕生日確認] \q[２,誕生日確認] \q[３,誕生日確認] \q[４,誕生日確認]
\q[５,誕生日確認] \q[６,誕生日確認] \q[７,誕生日確認] \q[８,誕生日確認]
\q[９,誕生日確認] \q[１０,誕生日確認] \q[１１,誕生日確認] \q[１２,誕生日確認]
\q[１３,誕生日確認] \q[１４,誕生日確認] \q[１５,誕生日確認] \q[１６,誕生日確認]
\q[１７,誕生日確認] \q[１８,誕生日確認] \q[１９,誕生日確認] \q[２０,誕生日確認]
\q[２１,誕生日確認] \q[２２,誕生日確認] \q[２３,誕生日確認] \q[２４,誕生日確認]
\q[２５,誕生日確認] \q[２６,誕生日確認] \q[２７,誕生日確認] \q[２８,誕生日確認]
\q[２９,誕生日確認]（誕生日の日を選ぶ＿末日）
＠誕生日の日を選ぶ＿末日
（nswitch、（誕生月）
、\q[３０,誕生日確認] \q[３１,誕生日確認]
、
、\q[３０,誕生日確認] \q[３１,誕生日確認]
、\q[３０,誕生日確認]
、\q[３０,誕生日確認] \q[３１,誕生日確認]
、\q[３０,誕生日確認]
、\q[３０,誕生日確認] \q[３１,誕生日確認]
、\q[３０,誕生日確認] \q[３１,誕生日確認]
、\q[３０,誕生日確認]
、\q[３０,誕生日確認] \q[３１,誕生日確認]
、\q[３０,誕生日確認]
、\q[３０,誕生日確認] \q[３１,誕生日確認]
）
＊誕生日確認
＄ユーザ誕生日＝（選択ラベル）
：（ユーザ誕生月）月（ユーザ誕生日）日生まれなんだー。
''長所''
-入力ボックス方式と違って不正入力をまったく気にしなくていい。
''短所''
-誕生年まで入力してもらうのは選択肢だとほぼ無理。
-辞書がちょっと混み合って見辛い。
-慣れてくると入力ボックスの方が早い。
*ＳＳＰ限定の新しくて簡単な方法 [#a41d0c8e]
#ref(848596638.png)
※関数の[[split>関数一覧#split]]を使っています。~
動かない場合は[[SAORIの設定>SAORI]]を見直してみてください。
＃「OnUserInput」が他に既にある場合は書き換えるなどします。
＊OnUserInput
＄（Ｒ０）【タブ】（Ｒ１）
＞（Ｒ０）を教えてもらった
＊誕生日入力開始
：\![open,dateinput,ユーザ誕生月日]誕生日を教えてね。
＊ユーザ誕生月日を教えてもらった
＄ダミー行【タブ】（nop,（split（バイト値、１）（ユーザ誕生月日）（バイト値、１）,））
＄ユーザ誕生月【タブ】（Ｓ１）
＄ユーザ誕生日【タブ】（Ｓ２）
＄ユーザ誕生月日【タブ】
：（ユーザ誕生月）月（ユーザ誕生日）日だね！ おぼえたよ！
''長所''
-不正な入力はまったく気にしなくてよい。
--辞書もコンパクトになる。
-年月日を一発で入力してもらえる（年は使わなくてもいい）。
-ユーザさんにとっても分かり安い。
''短所''
-ＳＳＰでしか使えません。
*ＳＳＰの設定を覚えさせる [#x5454d18]
ＳＳＰ本体設定で入力されている情報を取得することも可能です。~
下記のページを参照してください。~
[[SSPに入力されたユーザ情報を使う]]
''長所''
-ユーザへの負担が少ない。
--多くのゴースト全てに名前と誕生日を記入するのは大変。
-ついでにユーザ名や性別も取得できる
''短所''
-ＳＳＰでしか使えない。
-前もって本体設定に情報が入力されていないといけない。
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
