@Blog{zip358.com}

本日を持ちましておやすみ｛突然の会見！｝・・・(継続)

2015.02.03

Logging

アクセス数がゼロになるまで更新を停止します。
なお、Twitterは非公開で続けますのでよろしくお願いします。
また、サイトのサンプルコードは密かに更新する可能性はあります。
その他の活動は本日で一旦停止します。
まぁ簡単にいえばネタが無いので充電期間です。

追記：
継続してますよ(´Д｀)。

タグ

Twitter, アクセス数, おやすみ, サイト, サンプルコード, ゼロ, その他, ネタ, 一旦, 会見, 充電期間, 可能性, 更新, 本日, 活動, 継続, 追記, 非公開,

歳相応にしないとなぁとか思ったことが一応あります( ´Д｀)=3

2015.01.16

Logging

 
歳相応にしないとなぁとか思ったことが一応ありますが、同世代並べてみても
いろいろいるですよね。
大人ぽっい人から大人ぶってる人から自分みたいにガキみたいな人まで
幅広くいるです。見た目、大人ぽっい人でも話していると、あんま話している
内容は二十歳そこそこと変わらないだろっていう人が多いです。
（言葉遣いが変わっただけで中身が無い会話だと( ´Д｀)=3）
この頃、思ったですけど、よく言われる年老いても心の中身は
あまり変わらない説＝精神年齢は二十歳そこそこだという事を
ヒシヒシと感じます。
そういう事で経験を積み重ねていろいろな対応が出来るようになっただけで
精神的な成長は二十歳そこそこで止まるだなと思います。
追記：
この頃の10代後半の人とかをみていると、みんなしっかりしているなと思います。
これも教育のちから何だと思いますね、いまは授業で発表したりする機会が
あるらしくモノが言える人が増えているらしいです。
ただ、親父いわく、モノは言えるが中身が伴っていない人が多いらしいです、
職人気質の人がいなくなったとボヤいてました。
どの分野の職種でもそうだと思いますが、その職種の仕事ができないと
上からボヤかれる対象になることは確かです。(^_^;)
 

タグ

あんま, ガキ, ちから何, 中身, 二十歳, 二十歳そこそこ, 体, 分野, 同世代, 大人ぽっい人, 対象, 授業, 教育, 歳相応, 精神年齢, 職人気質, 職種, 見た目, 親父いわく, 言葉遣い, 追記,

12月到来、、｛PGなどの話。｝

2014.12.03

Logging

12月到来して、数日経ちましたが来年（2015）までに何か一つ作ろうかなと思います。
あと、休んでいたブログを土曜日から適度な更新に変更します（たぶん）。
追記：
現在、ガソリン代節約のため試しに電車通勤をしています、今のところ、出発の時間帯があわないところもありますが、それほど不便とは思わなくなりました。来年からは、本格的に電車通勤でと言うことも考えています（ガソリン代が落ちれば車通勤に変えますが・・・今のところは電車通勤を継続するつもりでいます。）

タグ

12, 2015, PG, ガソリン, こと, ため, つもり, ところ, ブログ, 一つ, 不便, 今, 出発, 到来, 土曜日, 変更, 帯, 数日, 時間, 更新, 来年, 現在, 節約, 継続, 話, 車, 追記, 通勤, 適度, 電車,

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

2014.11.13

Logging

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

 
 

タグ

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

映画「繕い裁つ人」公式サイトを(# ﾟДﾟ)

2014.11.08

Logging

映画「繕い裁つ人」公式サイトよると上映されたみたい、いまのところブルーレイが発売されていません(;ﾟДﾟ)ｶﾞ｜ｸ！！。そのうち発売されたら買うつもりでいます・・・・。ちなみにウチの県では上映されていなかったみたいですって・・・・。（（繕い裁つ人っていう映画予告を見たのですが、結構良い感じです。まぁあまり受けない人もいるかもしれませんが・・・））
追記：ちなみにこの頃、観た映画の追記編がないものは、更新はない可能性があります。あしからず。
※紛らわしい、2015年1月31日に上映されたみたいです。

タグ

2015年1月31日, うち, ウチ, ガ, ク, ところブルーレイ, 人, 公式サイト, 可能性, 大事, 始末, 映画予告, 更新, 県, 良い感じ, 追記, 追記編,

映画：本日、柘榴坂の仇討を観に行きます。(追記レビューしますヽ(*´∀｀)ノ

2014.10.04

Logging

柘榴坂の仇討を観に行きます。渋そうな映画ですけど、観たら泣けそう気がします。明日、映画館でボロボロ泣いていたら自分です、きっと（´∀｀）。
映画鑑賞後レビューを追記します↓
映画を観てきました、何かわからないけど最後にぼろっと泣いてました。今どきの時代劇という感じではないけど、最後まで観ていたら自分も日本人なんだなというと感じられる映画です。古典的な映像で好き嫌い別れると思いますが、自分は嫌いではない映画でした。そして若者向けの映画とは言えないけれど、自分は見てよかったかなと思いました。
人の道という言葉が印象的でした。

タグ

仇討, 今どき, 大事, 好き嫌い, 始末, 感じ, 日本人, 映像, 映画鑑賞後レビュー, 映画館, 時代劇, 最後, 本日, 柘榴坂, 気, 若者向け, 言葉, 追記, 道,

映画『42 世界を変えた男』が何だか泣けそう(´；ω；｀)

2014.10.01

Logging

42 世界を変えた男が何だか泣けそうです。映画予告を観て即購入したので、休みの日に鑑賞するつもりでいます（本日、頼んでいたブルーレイが届きましたo(^▽^)o、またもやポストに投函されていたのですけど、今回は郵便扱いになっていたので何とも言えない。）。なお、レビューは追記して書きます…。
 
映画予告を貼っときます。

レビュー書いていなかったのを忘れて、数年・・・経ちました。一言で言えば良かったです、何処が良いのかというのは差別に立ち向かう姿ですね。これは胸熱くなる物語です、是非、観てみてください。

追記日：2022/09/30

タグ

09, 2022, 30, 42, これ, つもり, ブルーレイ, ポスト, レビュー, 一言, 世界, 予告, 今回, 休み, 何, 何処, 姿, 差別, 投函, 数, 日, 映画, 本日, 物語, 男, 胸, 購入, 追記, 郵便, 鑑賞,

映画：エンターテイメント作の王道的な作品：パイレーツオブカリビアンシリーズ

2014.09.22

Logging

エンターテイメントの王道的な作品といえば、パイレーツオブカリビアンかなと思っています。このパイレーツオブカリビアンのシリーズは、ほぼ外れなしかなと思います。映画館でみると迫力があって一番楽しめるのですが、テレビで見ても迫力などは欠けるものの内容がしっかりしているので楽しめる映画だと思います。
ちなみに漫画、ワンピース好きなら確実にパイレーツオブカリビンアみるとハマること間違いなしかなと思います（海賊映画なので）。まだ、パイレーツオブカリビアン見たことない方は是非！！
※尚、この映画はエンターテイメントな作品なので感動などはあまりしませんご注意を。
追記：パイレーツオブカリビアン５は2017年7月7日に公開予定らしいです→全米公開予定（日本公開日未定）。

タグ

2017年7月7日, エンターテイメント, エンターテイメント作, ご注意, テレビ, パイレーツオブカリビアン, パイレーツオブカリビアン5, パイレーツオブカリビンア, ワンピース好き, 作品, 全米公開予定, 内容, 始末, 感動, 日本公開日未定, 映画館, 海賊映画, 漫画, 王道的, 迫力, 追記,

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.20

Logging

水曜日のカンパネラのコムアイさんが飛んでる、何処らへんが飛んでるかと言えば歌詞です。リズム（テンポ）の良い曲と飛んでる歌詞が面白いです、すべての曲が好きだとはいえないものの、モノポリーとか聞いているだけで駅名が覚えれてしまうとか、マリー・アントワネットとか歌詞が独特で面白かったりとか、この人水曜日のカンパネラの作る楽曲や歌詞は他の人とは違っていて異才さを感じます。売れるか売れないかとはわかりませんが、こういう人ユニットとはコアなファンが付きそうな感じがします。
好きなことをやって飯が食えるか食えないかって一般人に受け入れられるかどうかだと思うのです、その辺、水曜日のカンパネラのコムアイさんは良い線じゃないかと思いますとか言ってますが、この人、YOUTUBEの再生回数から見てそれなりに認知度ある人ユニットなんだと思います｛自分が知らなかっただけで｝。
※追記：コムアイさんが楽曲や歌詞を担当していたのではないみたいです｛ボーカル担当｝。

タグ

youtube, アントワネット, カンパネラ, コア, こと, コムアイ, すべて, テンポ, ファン, べん, ボーカル, マリー, モノポリー, ユニット, リズム, 一般人, 人, 他, 何処ら, 再生, 回数, 担当, 曲, 楽曲, 歌詞, 水曜日, 独特, 異才, 線, 自分, 認知, 辺, 追記, 飯, 駅名,

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

2014.08.18

Logging

祝Facebookのいいねが1Kになりましたが、とんとアクセスはあまり変わりないですね、誰かさんが広告でも出しているのかなぁ。その誰かさんありがとう御座います。ここまで宣伝してくれて幸せものです。ちなみにFacebookの取り決めが改正されてサイトやFacebook個人への誘導宣伝などは駄目になるらしいです。でも広告とか簡単に出せちゃうから、やはりFacebookって事件にならない限り動かいないですね。ちなみに今のところ、自分のサイトはITmediaとかいうサイトよりいいねの数が多いです(´Д｀)、これはすごいや、追いつかれないように頑張らないと。
こんな人権侵害みたいな行為、訴えてやる！！って警察に申し入れしても、事件ですか、今は放送事故です・・ってな感じにしか言えないので、取り合ってくれそうもないですね。俺が何したっていうだい・・・・。でも、ありがとうです、感謝、感謝。
 
追記：Facebookのいいねが1Kから1に戻りました。Facebookのいいねの増やし方でわたしのサイトにいいねを付けた人物がいるのでしょう。その人が問題に気づき元に戻したのでしょう。ネットいじめは、おそらく、一番最低のイジメだと思います。こういう事はやってはならないと感じます。やる方は自分がそういう事をされたことがないので理解できないのです。理解できない想像できない人は、自分がどう思われるかも分かってはいない人だとも言えます。ある意味、幸せものです。分っていないのだから。

タグ

１, Faceboo, Facebook, ITmedia, nbsp, アクセス, いいね, ココ, コレ, サイト, だい, ところ, 事件, 事故, 人権, 今, 侵害, 俺, 個人, 動, 宣伝, 幸せ, 広告, 感じ, 感謝, 改正, 放送, 数, 祝, 簡単, 自分, 行為, 誘導, 誰か, 警察, 追記, 限り, 駄目,