@Blog

映画、 あらうんど四万十?カールニカーラン?を観てきましたので #映画レビュー

2015.11.02

Logging

映画、 あらうんど四万十?カールニカーラン?を観てきましたので
感想なんかを残しときます。
一応、高知県民なので評価に甘さがあるかもしれませんが
全然、駄目って言う程でもないけど、演技や撮り方が
若干、素人ぽっさがあったのですが・・・・
段々と観ていくうちに噛めば噛むほど味が出てきて良さが
分かるそんな映画になっていました。
「おっさんの本気は、泣けるほどかっこわるい」って言う
キャッチコピーの通りあまりカッコイイ映画でもないだけど
でもソコが等身大でカッコイイと思えました。
心の暖かさが感じられる映画になっていると思います。
そして３０代や４０代の悩める人にもこの映画は
オススメです。観ていて自分も頑張ろうとか、前向きに
進もうとか思える内容です。
現実ぽっいオチでしたけど、それでも
やることに意味があり、やったことで少し変わりだすんだな
とも思えたので自分としてはソコが好きでした。
かっこわるい映画でしたけどカッコイイ映画でした(｡>?<｡)
ちなみに土佐弁も結構つかっていましたけど
あまり違和感なく観れました。
※B級？

タグ

30, ４０, gt, うち, おすすめ, オチ, おっさん, カールニカーラン, キャッチ, こと, コピー, ソコ, それ, らうんど, レビュー, 人, 内容, 前向き, 味, 四万十, 大, 少し, 心, 意味, 感想, 映画, 本気, 段々, 演技, 現実, 県民, 程, 素人, 自分, 若干, 評価, 身, 通り, 駄目, 高知,

基本情報技術者試験を受けることにしました。

2015.10.26

Logging

来年の春に基本情報技術者試験を受けることにしました。それと同時に今年度の基本情報技術者試験の問題を解説していこうと思います。丁寧な解説ではないですが自分の勉強のためにも毎日、2問ずつつ問いを問いていくつもりです。基本情報技術者試験のまずは今年度、秋期から解いていきます。尚、掲載開始日は11月1日からです。ちなみに自慢ですが？今の今までロクに基本情報技術者試験の勉強をしたことがありません、一応、ITパスポート持ってます。基本情報技術者はニアミスぐらいまでの点数は何度か経験しましたが勉強不足のため、試験は受かってません。
そして、ここ数年、試験会場に足を運んでいないのでブランクが有りますが、来年こそは受かりたいので今から頑張ります。合格率は20％?30％の狭き門ですが受かれば自分にとっては悲願の合格になります。基本的に来年の4月まで基本情報技術者試験ネタが多くなると思いますがご了承ください。尚、映画ネタや本ネタはいままで通り、掲載していくつもりでいます。
追記：問題を解いていくつもりでいましたがどうも試験問題掲載が著作権問題にひっかかるようなので掲載を控えます。引用でもNGポッいIPAの承諾なしでは掲載できないポッい。

基本情報技術者過去問道場
https://www.fe-siken.com/fekakomon.php
追記2021年：基本情報の午前の攻略法は過去問を解きまくるです。午後は攻略法は概念を理解せよ、そして解きながら文章を読めです。

タグ

１, 11, 2, 20, 30, 4, IT, いま, ここ, こと, ご了承, それ, ため, つもり, ニアミス, ネタ, パスポート, ブランク, 丁寧, 今, 今年度, 会場, 何度か, 勉強, 合格, 問題, 基本, 悲願, 情報, 技術者, 掲載, 数, 映画, 春, 本, 来年, 毎日, 点数, 狭き門, 秋期, 経験, 自分, 自慢, 解説, 試験, 足, 開始,

HDMI,D-SUB,DVI-Dで三画面とか無理！（パソコンの話）

2015.07.04

Logging

HDMI,D-SUB,DVI-Dで三画面とか無理！、半分本当で半分ウソ。ここ二年（2015年）ぐらいに出ている型のPCだと可能なケースがあるが、そうでない場合はビデオボードをひとつ購入しないと無理だということです。ちなみに自分は三画面です。なぜ、一つのビデオボードで三画面対応できないのかわかりません、恐らくHDMI,D-SUB,DVI-Dの中にアナログ信号だけしか受信できない端子があるからだと思います。それはD-SUBです。逆に他の2つの端子はデジタル信号だけを受信する端子なので逆も無理だということなのかな？
もしくは、そういう仕様なのかも！！
いままで、自分は2画面だったですが作業効率？が悪いため三画面にしました。３画面にするとかなり便利です、に２画面よりも便利です。この頃は普通の人でも二画面をしようしている人が増えてきて結構ふつうに成りつつあります。まだ、一画面の方、是非、画面増設お試しください、必要な技術は特に無しです。ディスプレイを一つ購入してパソコン側とディスプレイ側に端子のついたケーブルを取り付けるだけです！！尚、新規にディスプレイを購入するとDVI-D端子はついています。
※５年ぐらい前からDVI-DとHDMIがついているPCがあります。HDMI端子があるディスプレイとDVI-D端子のあるディスプレイを容易すれば二画面になります。ちなみにHDMI端子がついていないディスプレイもあるので要確認が必要になります！！
追記；こちらを参照
NVIDIA 600番台以上のグラフィックボードで、かつ、3画面以上のマルチディスプレイ対応のグラフィックボード。

タグ

2, 2015, ３, D-SUB, DVI-D, HDMI, PC, アナログ, ウソ, お試し, かなり, ケース, ここ, こと, それ, ため, デジタル, パソコン, ビデオ, ひとつ, ボード, 一つ, 一画面, 三, 中, 二, 人, 仕様, 他, 作業, 便利, 信号, 効率, 半分, 受信, 可能, 型, 場合, 増設, 対応, 必要, 技術, 方, 普通, 本当, 無, 無理, 画面, 端子, 自分, 話, 購入, 逆, 頃,

BOT辞めました｛BOTやめるとアクセス減ることは無い？。｝

2015.06.22

Logging

BOT辞めました｛BOTやめるとアクセス減ることは無い？。｝。BOT辞めるとアクセス数は多少減りますが、今後のSEO対策のためにも辞めることにしました。検索会社（googleやyahooなどなど）は、人工知能を検索へ投入する段階へ進んでいます。明らかにボットはSEOからはじかれる存在になります。来年辺りには確実に投入しているじゃないのかな・・・なので辞めます。地道に記事を毎日更新してグーグルに記事を拾われるのを待つことにしました。確かにSNSで発信してボットをつくり、過去記事を再度、SNSへ配信すると人に目にとまる機会は増えますが、やはり何度も同じ記事を目にするということは飽きもきますし、それを見てストレスを感じる人も中に入ると思います。
理由は結構ありますが、ニュース記事でもないので、ボット配信は辞めることに。
追記、撤回、BOTの出現率を調整する事にします(￣^￣)ゞ。 

タグ

BOT, Google, nbsp, SEO, SNS, Yahoo, アクセス, グーグル, こと, ストレス, それ, ため, ニュース, ボット, 中, 事, 人, 人工, 今後, 何度, 再度, 出現, 地道, 存在, 対策, 投入, 撤回, 更新, 来年, 検索, 機会, 段階, 毎日, 理由, 発信, 目, 知能, 記事, 調整, 追記, 過去, 配信,

なぜ僕は「炎上」を恐れないかを読んでみて。著者：イケダハヤト

2015.05.08

Logging

なぜ僕は「炎上」を恐れないかを読んでみて｛著者：イケダハヤト｝思ったことは、結果は必ず返ってくるということだと言う事。人並みぐらいの努力なら人並みの結果ぐらいしか返ってこないということを本を読んでいて思いました。人並み以上に間違っていない努力をしたら結果はちゃんと返ってくるのだということです。ちなみにイケダハヤトさんは、早稲田大学を卒業されています。それも学生の時に努力した結果です。全然、勉強もせずにいたら言い方が悪いですが、自分も含め、それなりの結果しか返ってこないのが世の常です。日本は民主主義国家ですので勉?とコミニケーションを磨けば貧困な家庭でも中間層になる事は可能です。そして社会に出てからは、スキルが大切になります、スキルを磨くには否応なく勉強というものが必要になってきます。磨かなくてもそれなりに出来る仕事もありますが、そこで手を抜かずスキルを磨いていれば次に繋ぐことはやはり可能だと思います。自分のように手を抜いていたら手を抜いた結果が返ってくることになります。そういう面でもこの本にもっと早く出会ってたらよかったなと思いました。炎上の対処法を書かれているというよりはイケダハヤトさん自身の体験談と自身の思想を書かれている本だと思います。
イケダハヤトさんは高知県で活動されている県外のブロガーさん（もう高知県人ですね）です、そういう観点からも高知県人は一度読んでいても面白いかもしれません。
関連リンク
まだ東京で消耗してるの？
 

タグ

イケダハヤト, こと, コミニケーション, スキル, それ, それなり, もの, 世の常, 中間層, 事, 人並み, 仕事, 僕, 努力, 勉, 勉強, 卒業, 可能, 国家, 大切, 学生, 家庭, 必要, 手, 日本, 早稲田大学, 時, 本, 民主主義, 炎上, 社会, 結果, 自分, 著者, 言い方, 貧困,

2015年：砂浜Tシャツアート展/高知県幡多郡黒潮町の入野海岸

2015.05.05

Logging

砂浜Tシャツアート展/高知県幡多郡黒潮町の入野海岸へ行ってきました。
行きは車で一般道路を通って黒潮町まで行ったのですが、到着するのに三時間ぐらい費やしました。
高知市内だと二時間半ぐらいはかかると思います。帰りは高速道路を使ったので一時間ほど短縮出来ました。
砂浜Tシャツアート展ですが、行って良かったものの少しばかり遠いなと感じます。
今度、行く時には電車で行こうかなと考えています。
電車だと片道4850円ぐらい費用が発生する（高知駅から土佐入野駅まで）ものの車酔いは発生しませんし、運転手だと疲労困憊になる事はないです。
主催している砂浜美術館には申し訳ないのですが、桂浜で同じようなイベントを行って欲しいと若干感じました。
ちなみに応募した皆さんが描かれたTシャツですが、風が吹いているとTシャツに描かれた作品があまり見えないのが若干難…。
しかし、風に無数のTシャツがなびいているのは圧巻でした。それを見るだけでも見に行く価値ありかと思います。

2016年の動画に差し替え。
 

タグ

2015, 4850, アート, ありか, イベント, いま, シャツ, それ, もの, 一, 一般, 三, 主催, 事, 二, 今度, 作品, 価値, 入野, 到着, 半, 土佐, 圧巻, 少し, 市内, 幡多郡, 応募, 思, 時, 桂浜, 海岸, 無数, 片道, 疲労困憊, 発生, 皆さん, 短縮, 砂浜, 美術館, 若干, 費用, 車, 車酔い, 運転手, 道路, 難, 電車, 風, 高知, 高知県, 高速道路, 黒潮町,

【 #映画 】マエストロ観てきましたのでレビュー書いときますけど(´・ω・｀)

2015.02.19

Logging

朝、仕事行く前にマエストロを観てきましたのでレビューなんかを書いときますけど、おすすめ度はあまり高くないです。全体的に低予算で撮られている感じがします。ごく普通の映像なんですけど徐々に、それが違和感なく感じてきます（そういう映画だという感じ）。そして、この映画は下ネタが多いです。西田敏行さんが演じるマエストロが下ネタ連呼します・・・・。

映画の内容は良くも悪くもない感じです。いまひとつスパイスの足りなかった感が自分には残りました。ちなみに映画のテンポは結構良い方だと思います。長いという印象は受けなかったです。トイウコトデ、そんな感じの映画でした。
?

タグ

-eohDY, 2, 4, ch, com, https, watch, www, youtube, おすすめ, スパイス, それ, テンポ, トイウコトデ, マエストロ, レビュー, 下ネタ, 予算, 仕事, 内容, 前, 印象, 感, 感じ, 方, 映像, 映画, 普通, 朝, 自分, 西田敏行, 連呼, 違和感,

99％ありがとうをパラ読みして(｀・ω・´)

2014.08.28

Logging

藤田正裕さんは正直ものだと99％ありがとうをパラ読みして思った。

交換しよっか？
おまえとおまえのつまんねー生活への愚痴や言い訳、もう散々・・・・正直、クソくらえ。
 

この文面を読んだ時、この人は強いわ。もう十分、ALSという病に勝っている、あとは根治させる薬を待つだけです。たぶん、この人はALSという病に勝つと思います。病に勝つという気持ちを持っている人はその時点でもう勝っているだと自分は思います。毎日、生と死の戦いをしている、それだけでも並外れた精神力です。そして生きるを自分で選択している。
普通の人は病に侵されると精神がまいります｛なんで自分は、こうなるのだと思うんです普通は｝、そこから這いがってくる人は少ない、それに打ち勝つ人が中にはいます。そういう人は精神力が強い。何クソかという生へ執着心＝精神力が強い人だと思います。ALSに勝ってほしいと自分は心から思います。
こういう人こそカッコイイっていうだなと心底おもいます。

タグ

99, ALS, nbsp, あと, おまえ, クソ, そこ, それ, それだけ, もの, 中, 交換, 人, 何, 執着心, 心底, 愚痴, 戦い, 散々, 文面, 時, 時点, 普通, 根治, 正直, 正裕, 死, 毎日, 気持ち, 生, 生活, 病, 精神, 精神力, 自分, 薬, 藤田, 言い訳, 選択,

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, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,