人気ブログランキング |

不器用な猪の新生活:ギター・古民家改修・猫・講師・実家往復

<   2015年 11月 ( 30 )   > この月の画像一覧

インベーダーゲーム

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'INVの初期位置
PicINV.Left = 0
PicINV.Top = 20
'SHIPの初期位置
PicSHIP.Left = (Me.ClientSize.Width - PicSHIP.Width) / 2
PicSHIP.Top = Me.ClientSize.Height - PicSHIP.Height - 20
'BOMBとMISILE、UFOを非表示に設定する
PicBOMB.Visible = False
PicMISILE.Visible = False
'PicUFO.visible = False
PicMISILE.SendToBack()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim tokuten As String
PicINV.Left = PicINV.Left + PicINV.Width / 3 'インベーダの移動
'右端に到達した時の処理
If PicINV.Left > Me.ClientSize.Width Then
PicINV.Left = 0 '左端へ移動
PicINV.Top = PicINV.Top + PicINV.Height '下方向へ移動
Timer1.Interval = Timer1.Interval - 10
End If
'MISILE移動
If PicMISILE.Visible = True Then
PicMISILE.Top = PicMISILE.Top - PicMISILE.Height '上方向へ移動
If PicMISILE.Top < 0 Then '上端到達
PicMISILE.Visible = False '非表示設定
End If
End If
'当たり判定
If PicINV.Top <= PicMISILE.Top And PicMISILE.Top <= PicINV.Top + PicINV.Height And
PicINV.Left <= PicMISILE.Left + PicMISILE.Width / 2 And PicMISILE.Left + PicMISILE.Width / 2 <=
PicINV.Left + PicINV.Width Then
PicINV.Visible = False 'INV非表示
PicMISILE.Visible = False 'MISILE非表示
PicBOMB.Top = PicINV.Top 'BOMB座標y設定
PicBOMB.Left = PicINV.Left 'BOMB座標x設定
PicBOMB.Visible = True 'BOMB表示
Application.DoEvents() 'イベント処理
Threading.Thread.Sleep(1000) '時間待ち(1秒)
PicMISILE.Top = 0 'MISILE座標y設定
PicMISILE.Left = 0 'MISILE座標x設定
PicINV.Top = 20 'INV座標y設定
PicINV.Left = 0 'INV座標x設定
PicINV.Visible = True 'INV表示
PicBOMB.Visible = False 'BOMB非表示
tokuten = Str(Val(Label1.Text) + 10) '得点加算
Label1.Text = tokuten '得点表示
End If
End Sub



Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Right Then '右矢印キー
If PicSHIP.Left + PicSHIP.Width / 2 > Me.ClientSize.Width - PicSHIP.Width Then
PicSHIP.Left = Me.ClientSize.Width - PicSHIP.Width '上矢印右枠到達
PicSHIP.Left = Me.ClientSize.Width - PicSHIP.Width
Else
PicSHIP.Left = PicSHIP.Left + PicSHIP.Width / 2 '上矢印戻す
End If
ElseIf e.KeyCode = Keys.Left Then '左矢印キー
If PicSHIP.Left + PicSHIP.Width / 2 > 0 Then '左枠到達
PicSHIP.Left = 0 '戻す
Else
PicSHIP.Left = PicSHIP.Left - PicSHIP.Width / 2 '左移動
End If
ElseIf e.KeyCode = Keys.Space Then 'Spaceキー
If PicMISILE.Visible = False Then 'MISILE非表示か
PicMISILE.Visible = True 'MISILEを表示
'初期座標設定
PicMISILE.Left = PicSHIP.Left + PicSHIP.Width / 2 - PicMISILE.Width / 2
PicMISILE.Top = PicSHIP.Top

End If
End If
End Sub

End Class
by tetumiworld | 2015-11-30 20:22 | Comments(0)

古民家2階の活用

7時過ぎに起床した。早速1階和室の長卓台の上を片付け玄関に移動さ
せた。2階和室押入れの丸ちゃぶ台を1階和室へ降ろした。古民家で
グループの会議や宴会等を出来るようにするためである。
作業を一通り終えてから、血圧の薬を服用した。
母起床後母に手伝って貰って1階の長卓台を古民家2階へ引き上げた。
母とモーニングを食べていたら、永久幹事がケーキを切りに来てくれた。
先ず、先日の同窓会の写真を、お見せした。
そしてケーキ切りの作業に入った。切り分けたケーキは、一旦冷凍が出来
たら、約5時間後、取り出して一つ一つラップで包んで、水分の抜けるのを
防止をするのが良いとの事により、カフェの営業が終わってから、帰り間
際に12個一つ一つをラップに包み、再び冷凍室に入れた。
これより先、1時半頃に、親子が入店してくれた。近隣の沢井町に長年住ん
でいるとの事である。私が猫を可愛がっているのを知っていたのには少し
驚いた。近隣の方々が利用してくれるのが一番有難い。ほんの少しづつだが
徐々に近隣の方々が来てくれているのは、好ましい事である。
近隣に住む大人の娘とその母親という二人連れが、かなり多い。





by tetumiworld | 2015-11-29 07:38

初めて佐藤君に店主代行を頼み上手くいく

朝9時に開店後直ぐに1人の男性が入ってくれた。他の場所へ行くの
だが、10時の開店まで入れないのでここで時間待ちをするとの事。
その後はお客さんの入店はなかった。
12時半に佐藤君に代わってもらい、私は月に一度の文化講座に出か
けた。
栄での講座終了後直ぐに店へ引き返した。
幸いに近隣のご老人が2人入ってくれていた。母が応対してくれていた。
独り暮らしの母には、近隣の方々と会話する機会が増えて、社交が活発
化し好ましい事である。



by tetumiworld | 2015-11-28 18:38

折り畳み戸と引戸の鴨居の改良化工事

朝7時に建具屋さん来たる。急いで起きて古民家の錠を開けた。
今日は折り畳み戸と引戸の鴨居の改良化工事と引戸の鴨居の改良化
工事をする。
客席とケーキ工房を区切る折り畳み戸を取り付けたら、凄く見栄え
が良くなった。
建具屋さんが帰る時、母と一緒に乗せて貰い、中央郵便局で書き留め
(マイナンバー)受け取り。次に、西役所で簡保の専用ハガキに母の
生存証明をして貰い、すぐに投函した。
ケーキ作りに来ていた敏さん、今日は有難う。母の年金生存証明を
取りに行っている間に枝切りの大仕事をして頂いて感動しています。
8時過ぎに土曜分のケーキをカットする自信無いので、この間親しく
なった愛商の永久幹事に助けを求めたら、近くのマンションから気
良く直ぐに来てくれカットしてくれました。
気を悪くしないで欲しいが幹事は、片方のホールケーキの中心が陥没
しており、焼きが足りないと言ってました。明日必要な6個だけ切り
出し、残りは冷蔵して寝かせ、日曜の朝にまた切りに来てくれる事に
なりました。
今日初めて喫茶経験がある幹事のケーキの切るところを観察し大変
参考になりました。


by tetumiworld | 2015-11-27 22:43

退職会卓球あと古民家に向かう

午前中、ゴミ出し、署名簿作り、体育館申込み、郵便局で書き留め証書
受け取り、歴史資料コピーと、昨日予定表に書いておいたルーティンを
こなし、昼食を昨日の残りのおかずで食べ、12時25分にマイコンドを
出た。
途中、兵庫で下車して1時から3時まで退職卓球会に参加した。
石さんと5ゲームしたが、1つも勝てなかった。フォアへ返したのを全て
打たれてしまった。ゲームの中で直ぐに修正するという事が出来ていない。
以前左利きとした時もそうだった。1本打たれただけで、直ぐに修正する
ようにしなければならない。
鶴を4時18分の急行に乗り、一路古民家へ向かった。
到着した名駅のハンズで今晩する第9作業に必要な木ネジを買った。又、
明日の工事代金を出金しておいた。
実家で出前定食を取って貰って食べた。食後第三へ行き母ののリメインダ
を確認しておいた。
古民家で階段の踏み板下に風防を取り付けるための桟を取り付けた。
ウッドデッキ上の透明屋根について良いアイディアが浮かんだ。


by tetumiworld | 2015-11-26 16:30

ピンプル練習会と忘年会

午前中、生田の森でピンプルの練習会に参加、全員ある程度のレベルが
あるので良い。
引き続き1時からは、場所をみつみやへ移して少し早目の忘年会をした。
平さんは私より1つ年下だという事が分かった。
夜、ジュリちゃんをVETへ連れて行った。

by tetumiworld | 2015-11-25 17:03 | Comments(0)

週初めは定例エクササイズと夜仕事

午前は定例教室へ出かけた。最近、木から日まで古民家にいるので、
久しぶりのエクササイズであった。今日は初心者との顔合わせは無く
効率良く練習出来た。
帰路、先ず王将へ行きギョーザライスを食べ満足した。次にサンチカ
の豆店へ行き、500グラム購入した。
2時前にマイコンドに帰りしばしば寛いだ。
今週は、水にぴんぷる、木に退職会の卓球があり楽しみである。木は
早目に早退して、古民家へ向かうつもりでいる。
階段に風防を取り付けるための桟の取り付けや温水器の日照を邪魔し
ている枝の剪定などをしなければならない。
28日の午後は、いよいよ佐藤君に代行してもらうので、気合いを入れ
て臨まなければならない。
夜の仕事は、通常授業はいよいよあと1週を残すだけとなった。年末が
非常に早くやって来た。小事業が順調にスタートして、充実した生活
と言える。




by tetumiworld | 2015-11-24 19:56

月曜祝日、団体客臨時営業

今日は1時半から20人以上の団体客がある日。
9時半に20人分の食器什器に足りない分を買い集める為自転車で
先ずセリアに向かった。ナイフとフォークが其々3本づつで100円が
あったので即購入した。ケーキ工房流し用にステンレスボールも1つ
買った。
次に、城北のホームセンターへ向かった。週末カフェの看板にする
ためのSPF材を購入し、カットして貰った。帰路は堀川沿いを通った。
12時10分前に古民家へ帰り、直ぐにCOCO壱番で安カレーを食べた。
1時に森さんが娘さんと応援に来てくれた。非常に助かる。
予定通り1時半前に20人以上の団体客が来られた。最初は狭い古民家
に入りにくそうだった。全員入店して落ち着くまでに、10分位かかっ
た。普段は使用しない大きい方のサーバーを用いてコーヒー作りに取
組んだ。
喫茶経験がある幹事がコーヒー作りとケーキカットをしてくれたので
大変に助かった。
森さんの娘さんも皿洗いを積極的に行い良く働いてくれた。感謝にた
えない。



by tetumiworld | 2015-11-23 19:25 | Comments(0)

開業6日目、客3人のみ

10時過ぎに新さんが来てくれた。新さんには特別にモーニングの準備
をしてお待ちしていたので、来て頂いて良かった。途中から母が加わっ
てくれたので話が弾んだ。さすが働いておられるだけあって、82歳に
して6枚切りの食パンを3枚食べられた。
12時10分前に近くに住む歴史講座講師の水先生が奥さんと来て下さっ
た。1時から岐阜駅前である信長学の講演会・シンポジウムに参加する
との事。綺麗な花を持って来て下さり有難い。
その後は客足が途絶えたので待機しながら古民家改修の小工作と明日の
20人の団体客を迎える準備をした。
開業6日目、客3人のみで、最少を記録した。4時過ぎの来客を期待した
が、今日はダメだった。
5時に営業終了後、千秋楽の相撲を最後まで見てから、工作材を買うため
に名駅からホームセンターのある城北を目指した。1815に到着し、素早
く買い物し、1847の名駅行きで帰った。




by tetumiworld | 2015-11-22 17:44 | Comments(0)

開業5日目、客5人のみ

正午頃近くに住む夫婦が未だ3ヶ月くらいの赤ちゃんを連れて来て
くれた。
佐藤君は12時40分に来た。
1時過ぎに、前にも来て、自分も喫茶店をやりたいと言っていた喫茶
女子が来て下さった。
その後3時頃に清須出身の親子が来られた。
その後は客足が途絶えた。


by tetumiworld | 2015-11-21 17:44 | Comments(0)



自分のやりたいことをするには、先ず仕事からと、57歳で事務員から教師に転職し、3年かけて軌道に乗せ、今度はギター弾き願望の実現に向けて取組み始めた。
あなたは〇〇人目の訪問者です。
お気に入りブログ
外部リンク
以前の記事
2019年 08月
2019年 07月
2019年 06月
2019年 05月
2019年 04月
2019年 03月
2019年 02月
2019年 01月
2018年 12月
2018年 11月
2018年 10月
2018年 09月
2018年 08月
2018年 07月
2018年 06月
2018年 05月
2018年 04月
2018年 03月
2018年 02月
2018年 01月
2017年 12月
2017年 11月
2017年 10月
2017年 09月
2017年 08月
2017年 07月
2017年 06月
2017年 05月
2017年 04月
2017年 03月
2017年 02月
2017年 01月
2016年 12月
2016年 11月
2016年 10月
2016年 09月
2016年 08月
2016年 07月
2016年 06月
2016年 05月
2016年 04月
2016年 03月
2016年 02月
2016年 01月
2015年 12月
2015年 11月
2015年 10月
2015年 09月
2015年 08月
2015年 07月
2015年 06月
2015年 05月
2015年 04月
2015年 03月
2015年 02月
2015年 01月
2014年 12月
2014年 11月
2014年 10月
2014年 09月
2014年 08月
2014年 07月
2014年 06月
2014年 05月
2014年 04月
2014年 03月
2014年 02月
2014年 01月
2013年 12月
2013年 11月
2013年 10月
2013年 09月
2013年 08月
2013年 07月
2013年 06月
2013年 05月
2013年 04月
2013年 03月
2013年 02月
2013年 01月
2012年 12月
2012年 11月
2012年 10月
2012年 09月
2012年 08月
2012年 07月
2012年 06月
2012年 05月
2012年 04月
2012年 03月
2012年 02月
2012年 01月
2011年 12月
2011年 11月
2011年 10月
2011年 09月
2011年 08月
2011年 07月
2011年 06月
2011年 05月
2011年 04月
2011年 03月
2011年 02月
2011年 01月
2010年 12月
2010年 11月
2010年 10月
2010年 09月
2010年 08月
2010年 07月
2010年 06月
2010年 05月
2010年 04月
2010年 03月
2010年 02月
2010年 01月
2009年 12月
2009年 11月
2009年 10月
2009年 09月
2009年 08月
2009年 07月
2009年 06月
2009年 05月
2009年 04月
2009年 03月
2009年 02月
2009年 01月
2008年 12月
2008年 11月
2008年 10月
2008年 07月
2004年 02月
2002年 05月
2001年 12月
2001年 10月
2001年 09月
2001年 03月
最新の記事
カテゴリ
ブログパーツ
ブログジャンル
検索
記事ランキング
最新のコメント
タイトル変更!(書き間違..
by tetumiworld at 01:08
最新のトラックバック
その他のジャンル
画像一覧