高知県朝倉の金高堂書店が良い感じです。ただ遠いのが難。

2016.02.12

Logging

高知県朝倉の金高堂書店が良い感じです。
ただ遠いのが難ですね。
それ以外は全然、OKな感じです。
本のジャンルも結構有ったりして良い感じです。
昔、宮脇書店は2Fに専門書コーナーがあったので結構、お世話になりましたが数年前から
ゲオが間借りするようになり専門書を探すのが難になっていたのですが・・・・。
金高堂朝倉店は良い感じですね。
専門書探す時の目安として役立ちそうです。
場所はこちらになります。
〒780-8085 高知県高知市大谷公園町20−15

タグ

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

デザインってなんだとかオリジナルってなんだとか。

2014.08.24

Logging

デザインってなんだとかオリジナルってなんだとか思った時、この現代にオリジナルっていうものは、もう存在しないにすぎないと自分は思っている。芸術分野でオリジナルっていうものはもうないに等しい。このパターンやこの配置どっかで見たことあるなとか、聴いたことあるなとか、そう思うものばかりだと自分は思っている。芸術品が保管や記録されだしてから昔描かれた絵や音楽を現代でも見たり聴いたり出来る。どんなにオリジナルって言っても潜在意識の中でその絵や音楽は過去のアーティストに影響を受けたものだと思う。
なんで、異才って言える人物は、存在しないのではないかと思います。

タグ

アーティスト, オリジナル, こと, デザイン, パターン, もの, , 人物, 保管, 分野, 存在, 影響, 意識, , , 潜在, 現代, 異才, , 自分, 芸術, 記録, 過去, 配置, 音楽,

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

2014.08.23

Logging


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

タグ

100, 54, TSUTAYA, いま, おすすめ, お金, クエ, ジョン, それぞれ, ため, ポイント, もの, 一度, 中身, , , 人物, 反応, 吉田松陰, 啓発書, 基本, 少し, 感想, 拒絶, , , 書店, , 本屋, 現代, 考え方, 自分, 自己, 衝動買い, 覚悟, 購入, 超訳, 道理, ,

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

Logging

時をかける少女(劇場予告)


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

タグ

com, For, ge-CeHgimHU, https, no, one, time, waits, watch, www, youtube, アニメ, ウェイツ, おすすめ, オチ, こと, スリップ, そこ, タイム, ノー, パラレルワールド, フォー, ワン, 世界, , 何度, 内容, 分岐, 多次元, 実際, 少女, 意味, , , 映画, , 時間, 未来, 次元, 自分, , 複数, 記載, , 過去, 青春,

プロフェッショナルの言葉[NHK]。

2014.08.18

Logging

プロフェッショナルの言葉っていう本があるのですけど、かなりお経みたいな表紙で気にいって購入しました。中身は暇な時にパラパラめくって読んでいるというスタンスです、ちなみに右側のページにプロフェッショナルの言葉が書いてあり、左側のページに言葉の意味するところを箇条書きでかかれています。右側のページだけ読むでも良いし、左側のページを読んでもっとその言葉の意味する処を理解するのも良いですね。あと、プロフェッショナルの言葉は結構ありますので自分の気に入った言葉が見つかるかもしれません。
このプロフェッショナルの言葉の元ネタはNHKの「プロフェッショナル仕事の流儀」という番組です、各業種でお仕事をされているプロフェッショナルの方々に焦点をあてた番組です。それがプロフェッショナルの言葉の元ネタです、著名人の言葉のまとめみたいな本です。

タグ

4478300593, asin, jp, NHK, お仕事, お経, かなり, スタンス, ソレ, ところ, ネタ, プロフェッショナル, ページ, まとめ, 中身, 仕事, , 右側, 左側, 意味, 方々, , , , 業種, , 流儀, 焦点, 理解, 番組, 箇条書き, 自分, 著名人, 表紙, 言葉, 購入,

STAND BY ME ドラえもんが大ヒット上映中。

2014.08.17

Logging

STAND BY ME ドラえもんが大ヒット上映中です、自分が子供なら絶対に観に行く映画ですと言うのも子供の時、ドラえもんの映画とアニメ、漫画は欠かさずに見ていたぐらい好きでした。今でも好きです、夢があって良いアニメだと思います。ただ、未来を書き換えるのは犯罪行為だとも思いますが・・・・(´Д`)。子供の時はそんな事を考えてませんでしたので、素直なのび太君と優しいドラえもんのコンビが好きでした。そして映画では、何故か大活躍ののび太君、銃を持たせば的中率100%、マヌケなのび太君ですけど何故か憎めないキャラです{何か似てるなと思う節あり}、そんなトコロが大好きでしたね。
このドラえもんを通して原作:藤子・F・不二雄さんが言いたかったことは何だろう?、人生は勉強だけが全てではないとかそういうこと何だろうと思います。
映画は観ていないけど、このドラえもんはおすすめ度は高いです。泣けそうな気がします・・・。ちなみにブルーレイでスタンド・バイ・ミー、ドラえもんが発売したら、もしかしたら買うかもしれない(^_^)。
http://youtu.be/IVuXGgOGR7Q [STAND BY ME ドラえもん映画予告]
※現在TOHOシネマズ、ランキング1位です。

タグ

100, BY, ME, STAND, アニメ, おすすめ, キャラ, こと, コンビ, スタンド, トコロ, ドラえもん, のび太, ヒット, ブルーレイ, マヌケ, 上映, 不二雄, , 人生, , , 全て, 勉強, 原作, , 大活躍, 子供, 映画, , 未来, , 漫画, 犯罪, 的中, , 素直, 自分, 藤子, 行為, , ,