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

DSC01003

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ書きたいと思います。俗に言うエンターテイメントに仕上がっている映画になっています。特にお気に入りはオープニングの映像かなと思ったりしてます。アレで結構、映画の中に引き込まれそうな、そんな感じのオープニングです。ちなみにCG技術はアメリカには劣る感じがします。若干、CGは見劣りするもののストーリー事態がしっかりしているので見やすいです。あと、原作の漫画のキャラクターと実写の配役が結構うまいと思います。

2014/08/24:宇宙兄弟#0が映画館で上映中です、ちょっち観たいような気がしますが、今のところ保留にしています。宇宙兄弟#0も実写映画化して欲しいトコロですけど予算的に無理だったからアニメ映画になったか、もしくは実写映画効果でさらにファンが付いたからアニメ映画でGOサインが出たのかも。{勝手な思い込み(^_^)です}。

悪人のススメを走り読み(´Д`)悪人になれ!!

DSC01002
悪人のススメを走り読みしましたので感想なんかを!!善人より悪人のほうが得をするとか言う話です、それなりに説得力はあります。読んでいて悪人というより、どちらかと言えば、真面目と不真面目の話を書いているような気がするのです…真面目にコツコツやっている人は、たまに羽目をはずすと周囲から驚かれる、批判される、逆に遊び人が真面目なことをすると評価が良いという話です。そんな内容の話がいろいろな例を取り上げて力説している本です。

こんな人にはおすすめ、真面目で堅物な人。

 

覚悟の磨き方 超訳 吉田松陰を少しほど読んでみて(´Д`)感想などを。

DSC01001-2
覚悟の磨き方という本を本屋(TSUTAYA)で見かけて衝動買い{この時、合わせて100の基本も購入}しました、衝動買いというよりポイント購入と言った方が良いのですけど…(ポイントもお金ですからね)。そんな事はどうでもよくて本の中身ですけども、いま54ページぐらいまで読みを終えまして少し感想です。吉田松陰という人物を自分はあまり知らない自分ですけど、この本{覚悟の磨き方}は読みやすいです、現代風に置き換えて書かれているためか読みやすく、頭に入ってきます。そして恩着せがましくなく書かれているので拒絶反応も少ないです。自己啓発書というよりは道理とかそういうものが書かれている本だと思います。

覚悟の磨き方のおすすめ度と言われるとクエションですが{人それぞれ考え方が違うので書店で一度中身をパラパラめくると良いかも}、自分は好きです。

おすすめ度の高いフリーのエディタです{Notepad++}。

スクリーンショット-2014-08-22-16.09 おすすめ度の高いフリーのエディタです、エディタ名がNotepad++(DL日本語対応)という奴なんですけど(δ´ω`)カユイところに手が届く優れものです。昔は秀丸サクラエディタを使用してたんですけど、このNotepad++に出会ってからずっとNotepad++を使用しています。何がそんなに良いのかといえば、動作が軽いこと、そしてバイナリもみえちゃうし、プラグインも充実してます。なんで、このNotepad++がおすすめです{言語自動補完機能あり、文字コード変換あり等など}。サクラエディタのようにgrep機能(ファイル内検索)もあります、あと正規表現の検索や置き換えなどもありますので自分としてはおすすめ度高いです。昔、務めていた会社では何故か、MIFES(マイフェス)とかいうテキストエディタを使用してました。

ちなみにファイルの差分を見たい場合は、WinMerge 日本語版など、バイナリを見たい場合は、StirlingBZが有名ドコロです。

追記:

IDEで良い物を見つけました。
NetBaseです、これは職場でも使っています。言語自動補完機能ありますが若干遅いのが難ですね。
有料でよければ、PhpStormが良い感じですね。2万円とちょっとします。他にもatomやマイクロソフト
提供のVisual Studio Codeなどがあります。
https://netbeans.org/features/ide/

https://www.jetbrains.com/phpstorm/

https://atom.io/

https://www.visualstudio.com/ja-jp/products/code-vs.aspx

 

NO LIMIT[ノーリミット]栗城史多さんの場合:自分を超える方法。

栗城史多オフィシャルWEBサイト
依然、登山家、栗城史多さんが書かれたノーリミットと言う本を読みました。その後、アルプス?の登山時に凍傷で指を切断しないといけないという事になりました。しかし彼、栗城史多さんは切断しないという選択枠を模索していろいろと試した方です。結局、指を切断するという事に至ったのですが、その模索する過程で、もがき苦しみ、いろいろと学んだことがあると思います。自分が思うに指が無くなってからの方が、何だか真の登山家に見えてしまうのは自分だけなのかな?今は指を失った彼ですが、再生医療によりこの指が再生できるようになるのは、本当にあともう少しの話だと思います。ちなみに紛失した指や手を再生する技術は出来ています。あとは国の認可が降りるのを待つだけなのです{細胞外マトリックス:まとめ参照}。

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

Access

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします{挙動不審ぎみ嘘!?}。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記:暇な時に改良していきますので( ゚д゚)ノ ヨロシクとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(`・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・(直しました。)。 samplezip358.zip [https://warera-web.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ソースコード

水曜日のカンパネラのコムアイさんが飛んでる。

Profile of 水曜日のカンパネラ
水曜日のカンパネラのコムアイさんが飛んでる、何処らへんが飛んでるかと言えば歌詞です。リズム(テンポ)の良い曲と飛んでる歌詞が面白いです、すべての曲が好きだとはいえないものの、モノポリーとか聞いているだけで駅名が覚えれてしまうとか、マリー・アントワネットとか歌詞が独特で面白かったりとか、この人水曜日のカンパネラの作る楽曲や歌詞は他の人とは違っていて異才さを感じます。売れるか売れないかとはわかりませんが、こういうユニットとはコアなファンが付きそうな感じがします。

好きなことをやって飯が食えるか食えないかって一般人に受け入れられるかどうかだと思うのです、その辺、水曜日のカンパネラのコムアイさんは良い線じゃないかと思いますとか言ってますが、この人、YOUTUBEの再生回数から見てそれなりに認知度あるユニットなんだと思います{自分が知らなかっただけで}。

※追記:コムアイさんが楽曲や歌詞を担当していたのではないみたいです{ボーカル担当}。

映画:時をかける少女:タイム・ウェイツ・フォー・ノー・ワン

タイム・ウェイツ・フォー・ノー・ワン{time waits for no one}=過ぎ去った時間は戻らないとかいう意味らしいです。この時をかける少女というアニメ映画はよく出来ているなと思います。内容の方は記載しませんが、結構おすすめ度の高いアニメ映画です。過ぎ去った時間は戻らないけど、未来は自分で切り開けます。この映画は過去に何度もタイムスリップして過去を書き換えていますが、実際、この世界は多次元{たぶん}なので、タイムスリップして過去を変えたとしてもそこから、次元が分岐するというオチ{突っ込みどころ(´Д`)}。過去に何度もタイムスリップするということは多次元世界(パラレルワールド)を複数つくる事になるのではないかと自分は思っています。そんな身も蓋もない事を考えて観なければ良いだけですね{※この映画、時をかける少女、青春アニメ映画は面白かったです}。

ちなみに、多次元世界の話でうまく説明している映画があります、ミッション: 8ミニッツ(ソースコード)と言う映画で何度も過去に戻って爆弾処理(何度も失敗する)をするというストーリーです、コレを観ると多次元世界と時間との関係をうまく説明しているように思えます。

時をかける少女もおすすめですが、映画、ミッション: 8ミニッツもおすすめ度の高い映画です。

映画リメイク版:トータル・リコールですがよく出来ています。

DSC00999
映画リメイク版:トータル・リコールですがよく出来ています。前作より自分はこちらのほうが好きです、小さいテレビではそれほど迫力がないかもしれませんが、自分の部屋のテレビは55インチなので、そこそこ見応えがある感じです。話変わって液晶テレビとかの話ですが、4Kになり次は8Kです、8Kが投入される頃には有機EL、TVの大型版が市販化されるのではないかと思っています。そうなれば、買い替えかなとも思っています。

話し戻しましてリメイク版トータル・リコールの何処が良いのかと聞かれると難しいのですが、前作と全然ストーリーが違うのに良い出来になっている事とSFの世界観がよく出来ている所だと思います。ちなみに自分は3回ほどトータル・リコールを観ました。一番、観ているのは、トロン:レガシー3D版です、夜中に部屋を暗くして観ると最高です、どっぷりSFの世界に浸れます。

 

祝Facebookのいいねが1Kになりました(´Д`)

1k

祝Facebookのいいねが1Kになりましたが、とんとアクセスはあまり変わりないですね、誰かさんが広告でも出しているのかなぁ。その誰かさんありがとう御座います。ここまで宣伝してくれて幸せものです。ちなみにFacebookの取り決めが改正されてサイトやFacebook個人への誘導宣伝などは駄目になるらしいです。でも広告とか簡単に出せちゃうから、やはりFacebookって事件にならない限り動かいないですね。ちなみに今のところ、自分のサイトはITmediaとかいうサイトよりいいねの数が多いです(´Д`)、これはすごいや、追いつかれないように頑張らないと。

こんな人権侵害みたいな行為、訴えてやる!!って警察に申し入れしても、事件ですか、今は放送事故です・・ってな感じにしか言えないので、取り合ってくれそうもないですね。俺が何したっていうだい・・・・。でも、ありがとうです、感謝、感謝。

 

追記:Facebookのいいねが1Kから1に戻りました。Facebookのいいねの増やし方でわたしのサイトにいいねを付けた人物がいるのでしょう。その人が問題に気づき元に戻したのでしょう。ネットいじめは、おそらく、一番最低のイジメだと思います。こういう事はやってはならないと感じます。やる方は自分がそういう事をされたことがないので理解できないのです。理解できない想像できない人は、自分がどう思われるかも分かってはいない人だとも言えます。ある意味、幸せものです。分っていないのだから。