検索する

スクエニのDIVEINが結構すごいヽ(#ﾟДﾟ)ﾉ

2014.12.05

Logging

 
スクエニのDIVEINが結構すごいヽ(#ﾟДﾟ)ﾉです。
クラウド型に作られているため、PS３のゲームのまんま、FFが走ります。
これはすごいなと思います、ゲームがすごいというか、こういう時代になったことが自分の中では驚愕です。ソニーも同様のサービスを開始するようなので、スマホならどこでもPSのゲームが楽しめる時代が来るということです。
ちなみに電車帰りiPhone６でFFを走らせましたが、ほぼ問題はなかったです。通信回線が遅くなると若干、映像が劣化したり飛ぶ可能性はあります。
※スクエニのアカウントがなければ動作しません。
 

タグ

DIVEIN, FF, PS3, アカウント, クラウド型, ゲーム, サービス, スクエニ, スマホ, ソニー, まんま, 可能性, 問題, 映像, 昨日, 時代, 若干, 通信回線, 電車帰りiPhone6,

映画：イコライザーを観てきましたのでレビューします('A`)。

2014.11.13

Logging

イコライザーを観てきましたので感想を残しておきます。それほど期待はしていなかったので、見終わった時は意外によかった感がありました（感動するような映画ではないです）。若干、残酷なシーンがあるものの。全体を通して違和感無くストーリーを楽しめた感があります。ただ、一昔前の流行ったこういうアクション映画を結構観ている方がみると、ありきたりなストーリーと思う人もいると思います。ひとつ付け加えると映像もよく作りこまれていた映画かなと感じました。アクション映画というより暴力描写が苦手な方はおすすめ度は低いですが、好きな方は見れない映画ではないと思います。
この映画のキーワードは元CIA？です｛デンゼル・ワシントン｝。
追記：R15でもおかしくないかなと思いましたが・・・・。

 
 

タグ

A`, R15, アクション映画, イコライザー, おすすめ度, キーワード, デンゼル・ワシントン, ひとつ, 人, 元CIA, 全体, 始末, 感想, 映像, 暴力描写, 期待, 若干, 追記, 違和感無くストーリー,

M・ナイト・シャマランの作品などをすこし批評|ﾟДﾟ)))

2014.09.05

Logging

M・ナイト・シャマランの作品は好きです、特にシックスセンスやアンブレイカブルとかが好きですね、サインになり若干、アレっていう感じなり、ヴィレッジ、レディ・イン・ザ・ウォーターになりM・ナイト・シャマランらしさを取り戻した感があったのですけど、大衆には受けなかったのか、この頃は大衆向けのエンターテインメント作品が多い感じがします。最近メガホンをとった作品で言えば、アフター・アースなどになります。
最初、シックス・センスを観たとき正直、今までなかった感覚の映画だったので衝撃的でした。世の中にはこういう世界もあるのかも知れないなという気持ちになったのは確かです。次に観たアンブレイカブルもこれまた、衝撃的でなんだか凄かったです。
自分のおすすめはシックスセンスですね、地上波でも観ている人が結構いると思うのですけど、字幕で観るとまた、印象がガラリと変わるかもしれません。

タグ

M・ナイト・シャマラン, アフター・アース, アレ, アンブレイカブル, ヴィレッジ, エンターテインメント作品, サイン, シックスセンス, すこし批評, メガホン, レディ・イン・ザ・ウォーター, 世の中, 印象, 地上波, 大事, 大衆向け, 始末, 字幕, 感覚, 気持ち, 若干,

映画、イントゥ・ザ・ストームを観てきましたので感想なんか(´△｀)

2014.09.04

Logging

イントゥ・ザ・ストームを観てきましたので感想を書いときますね。この映画、あまり英語がわからない自分なのですけど、字幕と喋っている内容が明らかに違うところがチラホラとありました（画におさまりきらなかったんでしょうね）。そして映画の内容なんですけど、あまりパッとしなかった感じがします。もし、これが3D映画だったらなら全然違う印象を受けた感じです。たぶん、かなり臨場感のある映画になっていたのに、なんだか勿体無い感じがします。こういうパニック映画を初めて観る方はおすすめかも知れませんが、そうでない人は、それ程かなと思ってしまいます。ちなみに自分のおすすめのパニック映画は「ツイスター」や「パーフェクト・ストーム」がおすすめです。｛若干：パーフェクト・ストームはオチが…ですけど(´△｀)｝
ちなみに平日でしたけど結構お客さんが入っていてビックリしました（年配の方が多かった感じがします）…。
 

タグ

3D映画, B003GQSY62, B00ZI9BUHK, Blu-ray, イントゥ・ザ・ストーム, おさまり, おすすめ, オチ, お客さん, かなり臨場感, ツイスター, パーフェクト ストーム, パーフェクト・ストーム, パニック映画, 内容, 勿体無い感じ, 印象, 始末, 字幕, 平日, 年配, 感想, 若干, 英語,

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ。

2014.08.24

Logging

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ書きたいと思います。俗に言うエンターテイメントに仕上がっている映画になっています。特にお気に入りはオープニングの映像かなと思ったりしてます。アレで結構、映画の中に引き込まれそうな、そんな感じのオープニングです。ちなみにCG技術はアメリカには劣る感じがします。若干、CGは見劣りするもののストーリー事態がしっかりしているので見やすいです。あと、原作の漫画のキャラクターと実写の配役が結構うまいと思います。
2014/08/24：宇宙兄弟#0が映画館で上映中です、ちょっち観たいような気がしますが、今のところ保留にしています。宇宙兄弟#0も実写映画化して欲しいトコロですけど予算的に無理だったからアニメ映画になったか、もしくは実写映画効果でさらにファンが付いたからアニメ映画でGOサインが出たのかも。｛勝手な思い込み(^_^)です｝。

タグ

0, 08, 2014, 24, Cg, go, LIFT, off, アニメ, アメリカ, アレ, いま, エンターテイメント, オープニング, お気に入り, キャラクター, ごろ, サイン, ストーリー, ちょ, ところ, トコロ, ファン, もの, 上映, 中, 事態, 今, 保留, 兄弟, 効果, 勝手, 原作, 宇宙, 実写, 感じ, 感想, 技術, 映像, 映画, 映画館, 気, 漫画, 若干, 見劣り, 配役,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えば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

Logging

お土産が来た( ﾟдﾟ )なう！東京で働いている友から土産が来た。今年はアップル（赤）です！！そして若干、苦手なシナモンというオチですが、家族一同美味しくいただきました。ちなみに、スカイプログからアカウントを探しだして同じようなお礼を書いとりますので読んで置いてください｛電話帳から友消したのに自分に会いに来てくれた事に感謝(´Д⊂ｸﾞｽﾝ｝。土産くれるだけでも有難いのに文句いっちゃ駄目ですね。ありがとうです。ちなみに、今回は本屋に買い物に行っていって会えずじまいでした。
来年、またよろしくお願い致します(´Д｀)って、ちなみに土産、別にいいだよ・・・貰えるものはもらうけどね(｀・ω・´)、それよりかは話し聞く方が楽しいです。会ってこんな事、言えないので読んでいるか読んでいないか、わからないブログにメモ書き程度に残しときます。サンクス！！
 
 

タグ

nbsp, アカウント, アップル, オチ, お土産, お礼, お願い, ｸﾞｽﾝ, サンクス, シナモン, スカイ, ソレ, なう, ブログ, メモ書き, もの, 一同, 事, 今回, 今年, 友, 土産, 家族, 感謝, 文句, 方, 本屋, 来年, 東京, 自分, 若干, 苦手, 買い物, 赤, 電話帳, 駄目,