ブログ｜茅ヶ崎湘南の不動産フォーシーズンズランド

カレンダー

< 2010年08月 >
日	月	火	水	木	金	土
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

バックナンバー

リンク

« 湘南・不動産【新築・茅ヶ崎市浜之郷】｜トップページ｜湘南・不動産【新築・茅ヶ崎市萩園】»

2010年08月28日

Sub Dosed()

夏の終わりりの心境を、プログラム的に表現してみたら、ちょっと面白いな～と思い
遊びごころいっぱいやってみたところ↓こんな感じになりました～ちょっとした言葉あそびです。

Private Sub Dosed_Click()
Dim Seahorse As String
If Seahorse <> "" Then
　　MsgBox "Yohanna Logan "& "?"
End If
MsgBox
"ガリガリ君梨味を買い逃してしまったり.．。o○
Beachで泡を飲みすぎたり.．。o○
Sweetsの誘惑に溺れたり.．。o○
Seahorse（タツノオトシゴ）と戯れたり.．。o○
そんな夏の休暇も終わって.．。o○
Dosed感いっぱいの８月後半….．。o○
RHCPの”Dosed”という曲がとてもしっくりきます.．。o○
通勤の車では何回も何回もリピートして聴いています.．。o○"
　'ジョーストラマーのMond Bongoも少し良いです。。。
Dim number As Integer
counter = 0
number = ActiveCell
Do Until number <= counter
counter = counter + 1
Loop
MsgBox counter & "回ループしました"
　'日本語盤の翻訳を担当している「●●ジンジャー」氏の訳は別として、、、
MsgBox
"”Dosed”はアンソニー・キーディスが彼女との恋の終わりを書いた曲.．。o○
最近では「デスノート」でSnowや「BECK」でAround The Worldが使われ.．。o○
売れ線街道まっしぐらのレッチリなので、ちょっと離れていましたが.．。o○
ミクスチャーの走りと言われた頃、かなりハマったものでした.．。o○
韻（rhyme）を踏むのが上手なアンソニー（Vo）.．。o○
この”Dosed”という曲でも、かなりの腕前を発揮していますね.．。o○
恋愛をDoseと置き換えて表現するところも流石です.．。o○"
If G = Jhon Then
Go to Next
　'ジョン・フルシアンテ(G)が脱退してしまって、レコーディングがどうなっているか気がかりです。
　'アンソニーとジョンが一緒にやるから音に「魔法」がかかる訳で、、、
　'ギタリストが変わると、まったく色気も魅力もなくなるRED HOT CHILI PEPPERS。。。あくまでも個人的な感想ですm(__)m
Else
　MsgBox "そうなると、まだフーファイターズあたりのほうが良いでしょうか"
End If
MsgBox
"休暇モードから、早く通常モードに戻そうと、サンキャッチャーで、部屋にいっぱい
「幸運の気」を呼び込んで、モチベーションを上げるようにしています♪"

MsgBox
"夏を惜しみつつ、音はそろそろスペイン系のジャズやフレンチポップスなどに変えようと思います.．。o○
いっそ来年の夏まで、夏休みってのはどーでしょうねぇ（笑）.．。o○
今年の夏はレゲエでもラテンでもボサノヴァでもブルースでもないTsuchiyaでした★"
'Eraseステートメントによる初期化
Erase Seahorse
End sub

P.S　取り急ぎ、好き放題の結果ひとまわり大きくなってしまったので、早くひとまわり小さくなりたいと思います!

投稿者:2010年08月28日 13:26

トラックバック

このエントリーのトラックバックURL:
http://www.etc-inc.jp/mt/mt-tb.cgi/3977

憧れの湘南・茅ヶ崎エリアの不動産はフォーシーズンズランドにお任せください。

カレンダー

カテゴリー

最新記事

バックナンバー

リンク

2010年08月28日

Sub Dosed()

トラックバック

コメント