紙パックの飲み物にストロー刺すとき、角を持ってたとしても「噴き出さんかな」ってドキドキしませんか？
あっという間に桜も散って、暑くなってきましたね。
今回は、なでしこでこんなものが作れるよというのを紹介します。
これまでのシリーズでは紹介していないものも出てきますので、こんなことも出来るんだー。と感じてもらったり、ご自身で調べてみたりしてみてください。
実際に作ったもの
こちらが今回作ってみた、自動販売機っぽいものです。
下側の金額ボタンを押すと…
金額がどんどん加算されます！
そして商品のボタンを押すと…
おつりと商品を教えてくれます！
ソースコードを見てみます
＃画面（フォーム）の設定
母艦のＷは５００。
母艦のＨは７００。
母艦のタイトルは「自動販売機」。
＃変数の宣言
商品配列とは配列。
投入金額とは整数。
投入金額に0を代入。
初期化する。
●初期化
商品配列￥０，０＝「はぎのみず」
商品配列￥０，１＝１００
商品配列￥１，０＝「や～ぃお茶」
商品配列￥１，１＝１５０
商品配列￥２，０＝「じゅーす」
商品配列￥２，１＝２００
商品配列￥３，０＝「こーひー」
商品配列￥３，１＝８０
商品配列￥４，０＝「こーら」
商品配列￥４，１＝３００
商品配列￥５，０＝「こうちゃ」
商品配列￥５，１＝１６０
商品配列￥６，０＝「ぜんざい」
商品配列￥６，１＝２００
商品配列￥７，０＝「こんぽた」
商品配列￥７，１＝２００
商品配列￥８，０＝「めんとすこーら」
商品配列￥８，１＝３２０
商品配列￥９，０＝「すぽどり」
商品配列￥９，１＝１６０
商品配列￥１０，０＝「らーめん」
商品配列￥１０，１＝５００
商品ボタン作成する。
投入金額ラベル作成する。
金額ボタン作成する。
●商品ボタン作成
商品番号は０。
配置Ｘは０。
配置Ｙは０。
商品配列を反復。
商品ボタン［商品番号］を画像ボタンとして作成。
商品ボタン［商品番号］→Ｗは１００。
商品ボタン［商品番号］→Ｈは１５０。
商品ボタン［商品番号］→Ｘは商品番号を４で割った余り×１００＋２０。
商品ボタン［商品番号］→ＹはＩＮＴ（商品番号÷４）×１５０＋１。
商品ボタン［商品番号］→テキストは「｛商品配列￥商品番号，０｝｛改行｝｛改行｝｛商品配列￥商品番号，１｝円」。
商品ボタン［商品番号］→押されたボタンは商品番号。
商品ボタン［商品番号］→クリックした時は～
自身→押されたボタンを購入する。
商品番号は、商品番号＋１。
●投入金額ラベル作成
投入金額ラベルをラベルとして作成。
投入金額ラベルのＸは３８０。
投入金額ラベルのＹは５３０。
0を投入する。
●金額ボタン作成
添え字は０。
「1000
500
100
50
10」を反復。
金額ボタン［添え字］をボタンとして作成。
金額ボタン［添え字］→Ｘは添え字×８０＋２０。
金額ボタン［添え字］→Ｙは５５０。
金額ボタン［添え字］→テキストは「｛対象｝円」。
金額ボタン［添え字］→押されたボタンは対象。
金額ボタン［添え字］→クリックした時は～
自身→押されたボタンを投入する。
添え字は、添え字＋１。
●投入（額面を）
投入金額は投入金額＋ＩＮＴ（額面）。
投入金額ラベルのテキストは「｛投入金額｝円」。
●購入（商品番号を）
購入金額とは整数。
購入金額に商品配列￥商品番号，１を代入。
購入商品とは文字列。
購入商品に商品配列￥商品番号，０を代入。
もし、投入金額が購入金額以上ならば、
「おつりは｛投入金額－購入金額｝円」と言う。
購入商品と言う。
終了。
では解説です。
コメント行を除いた最初の７行分は、プログラム起動時にのみ行う初期処理です。
その中で最後の行の
初期化する。ではその下にある関数「初期化」を実行し、そこからさらに
商品ボタン作成する。
投入金額ラベル作成する。
金額ボタン作成する。でラベルや各ボタンを作成する処理を呼び出しています。
そこで作成した「金額ボタン」「商品ボタン」には、押されたときの処理が定義されています。
商品ボタン［商品番号］→クリックした時は～
自身→押されたボタンを購入する。商品ボタンの処理がこちら。
金額ボタン［添え字］→クリックした時は～
自身→押されたボタンを投入する。金額ボタンの処理はこちらです。
それぞれ、関数「購入」「投入」 に引数を渡してこれらを実行します。
このプログラムのざっくりとした処理の流れはこのような感じです。
他にもアイデア次第でいろんなものが作れちゃうので、ぜひ皆さんも作りたいものを探して作ってみてください！