映画：イコライザーを観てきましたのでレビューします('A`)。
2014.11.13
イコライザーを観てきましたので感想を残しておきます。それほど期待はしていなかったので、見終わった時は意外によかった感がありました（感動するような映画ではないです）。若干、残酷なシーンがあるものの。全体を通して違和感無くストーリーを楽しめた感があります。ただ、一昔前の流行ったこういうアクション映画を結構観ている方がみると、ありきたりなストーリーと思う人もいると思います。ひとつ付け加えると映像もよく作りこまれていた映画かなと感じました。アクション映画というより暴力描写が苦手な方はおすすめ度は低いですが、好きな方は見れない映画ではないと思います。
この映画のキーワードは元CIA？です｛デンゼル・ワシントン｝。
追記：R15でもおかしくないかなと思いましたが・・・・。
タグ
A`, R15, アクション映画, イコライザー, おすすめ度, キーワード, デンゼル・ワシントン, ひとつ, 人, 元CIA, 全体, 始末, 感想, 映像, 暴力描写, 期待, 若干, 追記, 違和感無くストーリー,
M・ナイト・シャマランの作品などをすこし批評|ﾟДﾟ)))
2014.09.05
M・ナイト・シャマランの作品は好きです、特にシックスセンスやアンブレイカブルとかが好きですね、サインになり若干、アレっていう感じなり、ヴィレッジ、レディ・イン・ザ・ウォーターになりM・ナイト・シャマランらしさを取り戻した感があったのですけど、大衆には受けなかったのか、この頃は大衆向けのエンターテインメント作品が多い感じがします。最近メガホンをとった作品で言えば、アフター・アースなどになります。
最初、シックス・センスを観たとき正直、今までなかった感覚の映画だったので衝撃的でした。世の中にはこういう世界もあるのかも知れないなという気持ちになったのは確かです。次に観たアンブレイカブルもこれまた、衝撃的でなんだか凄かったです。
自分のおすすめはシックスセンスですね、地上波でも観ている人が結構いると思うのですけど、字幕で観るとまた、印象がガラリと変わるかもしれません。
タグ
M・ナイト・シャマラン, アフター・アース, アレ, アンブレイカブル, ヴィレッジ, エンターテインメント作品, サイン, シックスセンス, すこし批評, メガホン, レディ・イン・ザ・ウォーター, 世の中, 印象, 地上波, 大事, 大衆向け, 始末, 字幕, 感覚, 気持ち, 若干,
映画、イントゥ・ザ・ストームを観てきましたので感想なんか(´△｀)
2014.09.04
イントゥ・ザ・ストームを観てきましたので感想を書いときますね。この映画、あまり英語がわからない自分なのですけど、字幕と喋っている内容が明らかに違うところがチラホラとありました（画におさまりきらなかったんでしょうね）。そして映画の内容なんですけど、あまりパッとしなかった感じがします。もし、これが3D映画だったらなら全然違う印象を受けた感じです。たぶん、かなり臨場感のある映画になっていたのに、なんだか勿体無い感じがします。こういうパニック映画を初めて観る方はおすすめかも知れませんが、そうでない人は、それ程かなと思ってしまいます。ちなみに自分のおすすめのパニック映画は「ツイスター」や「パーフェクト・ストーム」がおすすめです。｛若干：パーフェクト・ストームはオチが…ですけど(´△｀)｝
ちなみに平日でしたけど結構お客さんが入っていてビックリしました（年配の方が多かった感じがします）…。
タグ
3D映画, B003GQSY62, B00ZI9BUHK, Blu-ray, イントゥ・ザ・ストーム, おさまり, おすすめ, オチ, お客さん, かなり臨場感, ツイスター, パーフェクト ストーム, パーフェクト・ストーム, パニック映画, 内容, 勿体無い感じ, 印象, 始末, 字幕, 平日, 年配, 感想, 若干, 英語,
宇宙兄弟LIFT OFF!の感想なんかをイマゴロ。
2014.08.24
宇宙兄弟LIFT OFF!の感想なんかをイマゴロ書きたいと思います。俗に言うエンターテイメントに仕上がっている映画になっています。特にお気に入りはオープニングの映像かなと思ったりしてます。アレで結構、映画の中に引き込まれそうな、そんな感じのオープニングです。ちなみにCG技術はアメリカには劣る感じがします。若干、CGは見劣りするもののストーリー事態がしっかりしているので見やすいです。あと、原作の漫画のキャラクターと実写の配役が結構うまいと思います。
2014/08/24：宇宙兄弟#0が映画館で上映中です、ちょっち観たいような気がしますが、今のところ保留にしています。宇宙兄弟#0も実写映画化して欲しいトコロですけど予算的に無理だったからアニメ映画になったか、もしくは実写映画効果でさらにファンが付いたからアニメ映画でGOサインが出たのかも。｛勝手な思い込み(^_^)です｝。
タグ
0, 08, 2014, 24, Cg, go, LIFT, off, アニメ, アメリカ, アレ, いま, エンターテイメント, オープニング, お気に入り, キャラクター, ごろ, サイン, ストーリー, ちょ, ところ, トコロ, ファン, もの, 上映, 中, 事態, 今, 保留, 兄弟, 効果, 勝手, 原作, 宇宙, 実写, 感じ, 感想, 技術, 映像, 映画, 映画館, 気, 漫画, 若干, 見劣り, 配役,
Accessのさんぷるコードができましたので(´Д｀)貼っときます。
2014.08.21
突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]
Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
Dim x As Long
Dim y As Long
Dim sql As String
Dim RS As DAO.Recordset
Dim db As DAO.Database
Dim hoge(999, 999) As Variant
Dim val_n As Variant
Dim val As Variant
Set db = CurrentDb
sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
MsgBox sql
Set RS = db.OpenRecordset(sql)
Do Until RS.EOF
For y = 0 To UBound(tal_valname)
hoge(x, y) = RS.Fields(tal_valname(y))
Next y
RS.MoveNext
x = x + 1
Loop
Set db = CurrentDb
sql = "SELECT MAX(ID) as maxs FROM " & tablename & ";"
MsgBox sql
Set RS = db.OpenRecordset(sql)
max = RS.Fields("maxs")
db_x = x - 1
Set db = Nothing
sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
Dim sql As String
Dim RS As DAO.Recordset
Dim db As DAO.Database
Dim hoge_valname As String
Dim hoge_val As String
Dim hoge As Variant
If chk = True Then
For i = 0 To UBound(tal_valname)
hoge_valname = hoge_valname & tal_valname(i) & ", "
Next i
hoge_val = sql_str(tal_val, "", "", True)
sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
Else
hoge_valn_val = sql_str("", tal_valname, tal_val, False)
sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
End If
MsgBox sql
Set db = CurrentDb
db.Execute (sql)
Set db = Nothing
up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
Dim sql As String
Dim RS As DAO.Recordset
Dim db As DAO.Database
Dim hoge As Variant
sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
MsgBox sql
Set db = CurrentDb
db.Execute (sql)
Set db = Nothing
del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
Dim i As Long
Dim hoge_str As Variant
If chk = True Then
For i = 0 To UBound(hoge)
If IsNumeric(hoge(i)) Then
hoge_str = hoge_str & hoge(i) & ", "
Else
hoge_str = hoge_str & "'" & hoge(i) & "', "
End If
Next i
Else
For i = 0 To UBound(tal_valname)
If IsNumeric(tal_val(i)) Then
hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
Else
hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
End If
Next i
End If
sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function
↑クラスdbソースコード
Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
Dim db As db_db
Dim val_name As Variant
Dim x As Long
Set db = New db_db
val_name = Array("ID", "表題", "数値", "文字")
val_val = db.sel_all("tableone", val_name)
max = db.max + 1
If cmb.ListCount > 0 Then
For x = 0 To cmb.ListCount - 1
cmb.RemoveItem 0
Next
End If
For x = 0 To db.db_x
cmb.AddItem val_val(x, 1)
Next
Set db = Nothing
End Sub
Private Sub cmb_Click()
If cmb.ListIndex >= 0 Then
Viw cmb.ListIndex
End If
End Sub
Private Sub del_btn_Click()
Dim db As db_db
Dim hoge As Variant
Set db = New db_db
val_name = Array("ID", "表題", "数値", "文字")
If ID > 0 And max > 1 Then
hoge = db.del("tableone", "ID", ID)
End If
Set db = Nothing
lod
End Sub
Private Sub in_btn_Click()
Dim db As db_db
Dim val_name As Variant
Dim val As Variant
Dim hoge As Variant
chkchk
val_name = Array("ID", "表題", "数値", "文字")
val = Array(max, cmb, suuzi, moji)
Set db = New db_db
hoge = db.up_in(True, "tableone", val_name, val, max)
Set db = Nothing
lod
End Sub
Private Sub upd_btn_Click()
Dim db As db_db
Dim val_name As Variant
Dim val As Variant
Dim hoge As Variant
chkchk
val_name = Array("表題", "数値", "文字")
val = Array(cmb, suuzi, moji)
Set db = New db_db
If ID > 0 And max > 1 Then
hoge = db.up_in(False, "tableone", val_name, val, ID)
End If
Set db = Nothing
lod
End Sub
Sub Viw(i As Long)
ID = val_val(i, 0)
suuzi = val_val(i, 2)
moji = val_val(i, 3)
End Sub
Sub chkchk()
If IsNumeric(suuzi) Then
If suuzi > 9999 Then
suuzi = 9999
End If
Else
suuzi = 0
End If
If IsNumeric(moji) Then
moji = "文字が不正＞" & moji
End If
If IsNumeric(cmb) Then
cmb = "文字が不正＞" & cmb
End If
End Sub
↑formソースコード
タグ
35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,
土産が来た( ﾟдﾟ )
2014.08.17
お土産が来た( ﾟдﾟ )なう！東京で働いている友から土産が来た。今年はアップル（赤）です！！そして若干、苦手なシナモンというオチですが、家族一同美味しくいただきました。ちなみに、スカイプログからアカウントを探しだして同じようなお礼を書いとりますので読んで置いてください｛電話帳から友消したのに自分に会いに来てくれた事に感謝(´Д⊂ｸﾞｽﾝ｝。土産くれるだけでも有難いのに文句いっちゃ駄目ですね。ありがとうです。ちなみに、今回は本屋に買い物に行っていって会えずじまいでした。
来年、またよろしくお願い致します(´Д｀)って、ちなみに土産、別にいいだよ・・・貰えるものはもらうけどね(｀・ω・´)、それよりかは話し聞く方が楽しいです。会ってこんな事、言えないので読んでいるか読んでいないか、わからないブログにメモ書き程度に残しときます。サンクス！！
タグ
nbsp, アカウント, アップル, オチ, お土産, お礼, お願い, ｸﾞｽﾝ, サンクス, シナモン, スカイ, ソレ, なう, ブログ, メモ書き, もの, 一同, 事, 今回, 今年, 友, 土産, 家族, 感謝, 文句, 方, 本屋, 来年, 東京, 自分, 若干, 苦手, 買い物, 赤, 電話帳, 駄目,