@Blog

検索する

関数型プログラミングに目覚めた！IQ145の女子高校生の…

2015.08.20

Logging

関数型プログラミングに目覚めた！IQ145の女子高校生の先輩から受けた特訓5日間という本を買ったのですが、プログラミングの作法はあまり書かれていなく、どちらかと言えば解説が多い本です。ただ、自己流でいままで作ってきた人にはそれなりに知識の得られる本になっていると思います。自分はいままで誰かに習った経験がないので結構ためになった本です。習える環境がある人達を見ていた経験（派遣）から言うと羨ましい限りです。習えない環境の下で働いている人達の方が貪欲であることは確かだと思います。これって良い例かわからないですが、日本と昔のアフリカの教育みたいなものでアフリカの生徒たちは日本の生徒たちに比べて貪欲に学習します。教わることが当たり前の環境の下とそうでない違いは明らかに違ったりするのです。この「関数型プログラミングに目覚めた！」という本はそんな貪欲にプログラミングを学びたい方には結構ハードルが高いですが、勉強になることは確かだと思います。Amazonの評価は若干、低いものの、そう書いていることは悪く無いと感じました。

タグ

145, 5, IQ, アフリカ, こと, これ, それなり, ため, どちらか, ハードル, プログラミング, もの, 下, 人, 作法, 例, 先輩, 勉強, 女子, 学習, 当たり前, 教育, 方, 日本, 昔, 本, 派遣, 特訓, 環境, 生徒, 知識, 経験, 自分, 自己流, 解説, 誰か, 貪欲, 違い, 関数, 限り, 高校生,

見知らぬ誰かとチャットを楽しめるWebサービス。chatpad

2015.03.04

Logging

chatpadは見知らぬ誰かとチャットを楽しめるWebサービスです。一昔前ならヤフーチャットっていう大きなサービスがあったんですけどね。いまの若い人達はチャットというWEBサービスなんてものを知らないで生きている人もいるかと思います。サービスの作りはLINEとさほど変わらないですね。LINEと違いチャットはリアルタイムに不特定多数やり取りするサービスです。テキスト系のメッセンジャーやスカイプと近いサービスと思ったら理解しやすいと思います。情報の交流のWEBサービスは結構出来たけど、逆にサービスが多くなりユーザーの分散化が進んでいるそうです。これから必要とされるサービスは一つのアプリでいろいろなWebサービスへ投稿できたり、情報を収集することのできるサービスが必要になっているのだとか。LINEというサービスが流行すると他者も同じようなサービスを提供しだしますが、結局、生き残るは2，3社ぐらいで後は消えていきます。いま、Webサービスは飽和状態なで、これからは淘汰される時期に来ているのかと思ってます。

タグ

2，3, chatpad, line, web, アプリ, いま, いろいろ, こと, これ, サ, サービス, スカイプ, チャット, テキスト, メッセンジャー, もの, ヤフー, やり取り, ユーザー, リアルタイム, 一, 一つ, 不特定, 交流, 人, 他者, 分散, 収集, 多数, 後, 必要, 情報, 投稿, 提供, 昔, 流行, 理解, 誰, 逆,

パスワードのチョメチョメ（***）が見えるソフト（Windows）はこれ(ﾉ´∀｀*)

2015.01.13

Logging

パスワードのチョメチョメ（***）が見えるソフト（Windows）はこれです。
PasswordEyeというソフトです、結構、役に立ちます。ちなみにブラウザ上の
パスワードはIE以外は対応してないだとか。あくまでもWindowsソフトのチョメチョメ（***）が
見えるソフトです。ちなみにFirefoxの場合はブラウザ上のパスワード部分が
覗ける拡張アプリが存在したことを覚えています。
余談ですが、よく巷でパスワードが流出したとか言う記事を見かけると思いますが
絶対にDB上からパスワード流出しない会社があります。その中の一つに
グーグル社がはいってるとか・・・・。
パスワードに暗号化をかけるのはどの会社も行っている
事だと思いますが、暗号化したものは基本的に復号化する事が可能だと
思います。そうではないモノのもありますが・・・。どうもグーグル社の場合は
グーグル社のサーバー上でしか復号化できないような仕様になっているらしく
社外にパスワード情報が流出しても復号化は不可能らしいのです。
ちなみに世界的に有名なポータルサイトを列挙しときます。
日本ではYahooのシェア率が高いみたいですが、世界的にはグーグルが
トップです。

• google.com
• Yahoo.co.jp ,yahoo.com (米国）
• Yandex.com
• Baidu.com
• Naver.com

追記
たまには日本以外のポータルサイトを覗いてみるのも結構たのしいですよ。
ちなみにこれが国別Yahooのポータルサイトのアドレスです。
https://everything.yahoo.com//world/

タグ

db, Firefox, IE, PasswordEye, Windows, アプリ, グーグル, こと, これ, サーバー, ソフト, チョメチョメ, パスワード, ブラウザ, もの, 一つ, 上, 中, 事, 仕様, 以外, 会社, 余談, 可能, 場合, 存在, 対応, 巷, 役, 復号, 拡張, 暗号化, 流出, 社, 記事, 部分,

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

2014.10.01

Logging

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

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

追記日：2022/09/30

タグ

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

本日ＷＯＷＯＷでPM7：30から清洲会議を放送。

2014.09.07

Logging

本日（9/7）ＷＯＷＯＷで三谷幸喜作品特集を行うらしいですよね。三谷幸喜監督の作品ってなんだか、日常のあるある的な要素を可笑しく面白く描いている（オヤジギャグ的）ので自分は好きです。バカ笑いというより失笑（こらえ切れず吹き出して笑う）の要素を含んでいると思います。
映画、清洲会議ですけど織田信長の死後、織田家の継嗣問題の人間模様を可笑しく面白く描いていて自分は好きです。これを現代に置き換えてみても通用するから文明が進んでも人がやっている事って、昔も今もさほど変わらないだなぁと思います。結局、人の心ってあまり全体的に進化（成長）しないだということですね。
まとめ、三谷幸喜監督（脚本家）の作品は人間模様に焦点を当てた映画を撮り続けている監督さんです。

タグ

30, 7, ９, PM, ＷＯＷＯＷ, おやじ, ギャグ, こと, これ, バカ笑い, まとめ, 三谷幸喜, 事, 人, 人間, 今, 会議, 作品, 問題, 失笑, 心, 成長, 放送, 文明, 日常, 昔, 映画, 本日, 模様, 死後, 清洲, 焦点, 特集, 現代, 的, 監督, 継嗣, 織田信長, 織田家, 脚本家, 自分, 要素, 通用, 進化,

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