[[Mobile Learning]]
-１０/７ オリエンテーション
-１０/14 課題1 p22 なぞなぞ（MsgBoxの使い方）
-１０/21 課題2 p31 ネコ的行動（タイムラグ） 課題3 p37 If Else End If文 と、Select Case文
-10/28 課題4 p45 間違い探し（MsgBoxの使い方２） 課題5
-11/４ 課題6 課題7 UserFormの作り方は、p12〜p16参照。特に手順3の��と�ぁ⊆蟒�5と６と７は必ず設定すること。
-11/11 課題8 課題9 columnって何？->指定したセル参照 (セル参照: ワークシートのセルの位置を表す座標。たとえば、列 B と行 3 が交わる位置のセル参照はB3です。)の列番号を返します。この課題では、次のセルをカウントしていくところで表示させるためだけに利用していますので、範囲は省略します。マイクロソフトのヘルプの図参照。
-11/18 課題10 課題11 (スタートへのリンクは、右クリックで｢ハイパーリンクの設定｣で、リンクを張ることができます。)
-11/25 〜復習＆自由課題制作期間〜
-12/９ （課題12 課題13 課題14 の説明）
-12/16 課題12 課題13 課題14 の説明
-12/17 12/24 自由課題の説明と質問受付 完成して合格した人は終了。USBメモリ持参
-1/20 質問タイム
-1/27 自由課題発表
-1/28 自由課題 12:30より、授業の教室にて、質問など受け付けます。
-2/4 自由課題の提出
-2/4に提出できなかった人は、2/9-2/14（１７時まで）の間に提出（合格）すること。 うまく動かないなどの質問は、なるべく2/10までにきてください。
-2/16 ９時〜最後の確認のみです。早めに終わります。2/14（１７時まで）に合格しておくこと。なるべくならば２月１４日は避けてください。２月１４日にきた人は、私が座っている席の前のパソコンで、すべての課題画面を表示させてください。14日に、確認したときに、動かないところのある人は、16日授業終了後に最後の確認をします。
14日のチェック手順
１ファイル名OKー＞２へ、×ー＞次の人と交代
２動作確認OKー＞提出、×ー＞次の人と交代
（見せに来る前に、作品を作成したパソコン以外、例えばyuuser等でログインし、一通り動くかどうか、必ず確認してから来てください。)
３自由課題は、コンパイル、あるいはインストーラーを利用して一つにまとめること。それが無理で複数にファイルに分散している場合は、
フォルダー内にindex.htmlファイルをつくり、迷路課題の要領で、プログラムファイルへリンクを張る。
そのやり方は、7058 shuting game.zip等を参考にしてください。
--授業の方法
プログラミングの基礎構文を身につけ,オリジナル作品を作成する。
--予定
（１）オリエンテーション。エクセルのマクロを用いた学生の作品や、iPodアプリやガジェットなどの作品の提示
（２）エクセルのマクロを用いた、基礎構文(1) メッセージを表示させる
（３）マクロの登録方法
（４）エクセルのマクロを用いた、基礎構文(２) 分木型構文１
（５）エクセルのマクロを用いた、基礎構文(３) 分木型構文２
（６）エクセルのマクロを用いた、基礎構文(４) タイムラグなど
（７）エクセルのマクロを用いたオリジナル作品の作成
（８）エクセルのマクロを用いたオリジナル作品の完成
（９）エクセルのマクロを用いたオリジナル作品の発表と相互評価
(10)〜(13)Java Script、ガジェット、iPodアプリ いずれかの自由プログラミング
(14)自由プログラミング作品の発表
(15)まとめ
→（&attachref(相互評価学籍番号名前.docx);）
*提出の仕方 [#da8bba3c]
１つのBookに15個の課題をまとめる。提出するのは、オリジナル課題のみでよい。初めのシートに、すべてのプログラムの登録ボタンを置く。
→（&attachref(提出の仕方.PNG);）
---ファイル名は、学籍番号下4桁とテーマ名 (例)1023ロシア語単語テスト
*columnの説明 [#g8053502]
→（&attachref(column.png);）
*課題12の補足説明 [#s54d5af6]
最後に、儲かったのか、損失を出したのか、勝敗を追記したい場合。
Cells(19, 4) = "日本円で比較"
の後に、下記を追記するとよい。
'勝敗追記
x = Cells(19, 3) - 100000
If x > 0 Then
MsgBox "増資おめでとう!"
ElseIf x < 0 Then
MsgBox "残念！もう一度トライしよう"
End If
別解
Cells(20, 3) = Cells(19, 3) - Cells(7, 3)
Cells(20, 4) = "元金との差額"
If Cells(20, 3) >= 0 Then
MsgBox Cells(20, 3) & "円の「黒字」でした。" + Chr(13) + "おめでとう〜〜〜〜。"
Else
MsgBox -Cells(20, 3) & "円の「赤字」でした。" + Chr(13) + "残念無念また来週〜。"
End If
* 課題14の補足説明 [#d9c886c6]
ウサギ は 白い
白い は 清潔
ウサギ は かわいい
等と入力する。
ウサギ は 白い？
？をつけて疑問文にする
*成績評価基準 [#u19a846f]
-エクセルのマクロを用いたオリジナル作品 50点
-自由プログラミング作品 30点
-平常点20点(10+10)
*テキスト [#ba9b128d]
『児童生徒が喜んで挑戦するコンピュータ課題集〜情報活用力の育成を目指す』明治図書