@Blog

君、オレに似てる最後の言葉だった。

2015.04.11

Logging

東京、出張が決まる前に先輩のひとりが去っていた。最後に自分に声をかけられた一言が「君、オレに似てる。頑張れよ」だった。いま思うと先輩の中で一番できる人が辞めていったのだった。自分ができるかは別としてそう言われたことはすごく嬉しかった。辞めて数日後、その先輩が作ったコードをボロカスに言ってた他の先輩方が少し哀れだと思った。先輩は大阪のとある会社でがっぽり稼ぐようになったんだから・・・まさに僻みである。男の嫉妬って面倒くさいのだ。
 

タグ

オレ, コード, ひとり, ボロカス, 一言, 人, 会社, 先輩, 先輩方, 出張, 声, 大阪, 嫉妬, 少し, 数日後, 最後, 東京, 男, 自分,

呪文の効果はあまりなく。

2015.04.10

Logging

新人が新人にプログラムを教える異例の日々が始まり、半年間それが続いたが自分の教え方が悪いのか。飲み込みが悪いのかわからないが多少、コードが書けるようになったが、小さなアプリが一人で組めるような状態には至らないままだった。そんなある日に東京行きの長期出張事例が出された。それも東京へ行く一週間まえにだ・・・・。

タグ

アプリ, コード, プログラム, 一人, 一週間まえ, 効果, 半年間それ, 呪文, 多少, 教え方, 新人, 日々, 東京行き, 状態, 自動, 至らないまま, 長期出張事例, 飲み込み,

一週間が過ぎ会社にも慣れてきた頃。。

2015.04.07

Logging

 
一週間が過ぎ会社にも慣れてきた頃にあらたな課題を出された。それは電話番だ、朝から夜まで電話を取るという仕事だ。いま思うと、それぐらいしか新人に与える仕事がなかったんだと思う。それとは別に、もうひとつ仕事を与えられた自社のシステムを理解することだ。過去を振り返りおもうとイキナリ、コードから何しているか理解しろと言うのは無茶ぶりだったと思う。おそらくジョブフローがこの会社に存在しなかったからこういう事になったんだろう。そして思った、この会社、大丈夫かと・・・・。
 

タグ

コード, システム, ジョブフロー, それぐらい, もうひとつ仕事, 一週間, 会社, 夜, 新人, 朝, 無茶ぶり, 自動, 自社, 課題, 過去, 電話番,

Android4.0アプリを作ってみて自配布してみた。（　´・ω・｀）＜ ｼｮﾎﾞいな。

2015.04.04

Logging

 
Android4.0以降ならうごくアプリを作ってみました、かなりしょぼいものですが案外簡単に制作できることが分かって目からうろこです。ただしjavaがあまりわかっていないので、もっとコード短くて良いはずだけど、若干無駄なコードを書いてしまってすこし萎えた。このアプリは単なる勤務時間の計算しているだけなので然程、難しい処理をしていないけど、こうして配布できるのはAndroidの良さだ。審査いらずで自前、配布できるのは便利だ。このごろ、iosも正規ルート以外でも配布可能だと知ったんだけど若干面倒くさいので今のところ、iosのアプリは作るつもりはないけど・・・・。Androidはなんか、こんなしょぼい数行のコードでも実機で動くと楽しいとしったので、また、何か思いつけば配布します。
ちなみにダウンロードしたものをインストールすればAndroid4.0以降の端末なら動作します。
https://zip358.com/tool/kintai.apk?（なんか、計算あっての？古いのはあってないぽっいな。嘘！）
←エミュレータで動かした画像。（　´・ω・｀）＜ ｼｮﾎﾞいな

タグ

AM, Android4.0, Android4.0アプリ, Android4.0以降, iOS, java, いな, うろこ, エミュレータ, かなりしょぼいもの, コード, しょぼい数行, すこし, 実機, 審査, 正規ルート以外, 端末, 自前, 若干, 配布, 難しい処理,

さくらのVPSを使ってみた。標準OSインストールは初心者におすすめ。

2015.04.04

Logging

さくらVPSを使ってみた。さくらVPSをレンタルして標準OSインストールしてみました。インストール後、root権限でログインしてApacheをインストール（yum install httpd ）してみたら、そのままの状態でWEBが表示された・・・・。ポートの開放とかの設定はしなくても良かったです。標準OSのセキュリティの設定でゴニョゴニョされていて特にWEBで使う分にはiptablesを触らなくても良さそうでした。インストール後、phpをインストールしてhttpdのconfig設定を変更して再起動すればphpが実行できる環境になりますから、あとはMysqlをインストールしたい方は、インストールしてゴニョゴニョ設定するだけでWEB環境を整います。あとは、ftpを使用したい方はインストール（yum install vsftpd）すれば良いだけです。FTP経由かSSH経由でコードをアップロードすればサイトを構築できてしまいます。
 

タグ

Apache, config, FTP, httpd, install, iptables, MYSQL, OS, php, root, SSH, VPS, vsftpd, web, yum, アップロード, あと, いま, インストール, おすすめ, コード, ゴニョゴニョ, サイト, さくら, さくらの, セキュリティ, そのまま, ポート, レンタル, ログイン, 使用, 再起動, 分, 初心者, 変更, 実行, 方, 構築, 標準, 権限, 状態, 環境, 経由, 表示, 設定, 開放,

オープンソースを提供する人々ヽ(´ー｀)ノ

2015.01.08

Logging

オープンソースを提供する人々が世の中にはいます。
何故、ソース（プログラムコード）を彼は無償で提供するのだろうという事を
考えてみた結果、使ってほしいからと言う単純明快な答えと
彼らには一山当てたいからという想いがあるだろうと言うことです。
だから彼らは無償でソースを提供するだろうと思います。
もっと言うと無償で提供しているソースを見てコピペで使用する人が
大半で中に書かれているコードを理解しようとする人は半分以下だと思います。
また、コードを理解しても技術はコーピーできないとも言えます。
ここ重要！！コードを理解しても何故か自分で同じようなコードが
書けない人々（自分も含め）がいます。なんだか不思議な現象ですけど
これって基本的にPG熟知していないと言うことです。
要するに技術（コーディングの理解度）がそのレベルに到達していないので
コーディングできないと言う事象です。
トイウコトデ、上記のことがあるから、
オープンソースでコードを提供する人々がいるのだろうと思います。
ちなみに自分もGitHubのアカウント持ってます（使用してませんが）。
https://github.com/zip358 (共同開発はGitHubがオススメらしいです)
※自動投稿30分後には映画見ていると思います（明日、記事は映画ネタです）。
 

タグ

１, github, アカウント, オープンソース, コーディング, コード, コーピー, コピペ, トイウコトデ, プログラムコード, 一山, 世の中, 事象, 人々, 共同開発, 半分以下, 大半, 彼ら, 技術, 無償, 理解度,

インターネットをしない日｛原則｝

2014.09.03

Logging

月に一度、休日にインターネットをしない日を設けることにしました。これって結構面白いかなと自分で思ってます。自分の場合、暇があれば自宅ではテレビよりもネットをしていることが多いです、逆にネットをしなくなれば外出する機会が今よりも増えそうな気がします（朝から晩までネットっていうのは今までないのですが、朝から晩までコードを書いていたことは何度かあります）、もしくは溜まりたまった本を読む機会が増えそうな感じがします（´∀｀）。
今のテレビに足りないものは、ネットとの自動連動かなという気持ちがあります。別に双方向なテレビじゃないくていいです。いまのテレビにほしい機能はこれだけ、Twitterやニコニコのつぶやきを画面の下に自動で垂れながしてくれるだけで良いんです。現時点でも確かにそういう機能（手動操作）はあるのですけど、全然関係ないつぶやきも流れます、そこをうまくフォローする事でテレビの視聴率もあがると思うわけです。

タグ

１, Twitter, インターネット, コード, これだけ, テレビ, ほしい機能, 休日, 何度か, 原則, 双方向, 手動操作, 機会, 溜まり, 現時点, 画面, 自動連動, 自宅, 視聴率, 関係ないつぶやき, 面白いかな,

Accessを触り始めてつれづれと。

2014.08.30

Logging

Accessを勉強し始めて2週間｛まぁ本当は…｝たったぐらいです。会社でAccessの制作をしようと思って発案｛2ヶ月前｝したものの、結局丸投げするような感じになりそうです｛退きました｝、もしくは頓挫。Accessの方ですが、今ままでDBと言えばCUIの系統ばかり触っていたので自分にはふ?んっていう感じでした。CUIに比べて逆に面倒だなという第一印象です。第二印象はAccessには、元々いろいろな機能が付いていて、それを使えばもっと手が抜けるのだと印象を受けました。そこらへんゴリゴリとコードを書くか、もともと合ったAccessの機能を使用するかは人によると思います。
結論から言えば、もっとGUIの機能を使用してGUIで出来る所はGUIで、コード（クラスやメソッド）で出来る所はコードでと言う風に単純明快に分けることによって、かなり良いコードが書けると思います｛見やすいかどうかは人によります｝。
みんなが分かるコードを書く｛コードの統一｝。
みんなが分かるコードを書くというのは非常に難しいですね。プログラムを書くにあたって、人それぞれ考え方が違うのです、統一にはコードというよりも人というものが大事かも。
同じものを作ってもプログラムの場合、シンプルなコードもありますし、長いコードもあります。レベルの違いや考え方の違いです。最終的な問題は人なんですね、プログラムの基本は自分で覚えれるのですが、その後の技{技術}の吸収はどんなに教えても、その人が理解できなければ無理なんです。自分もAccessの機能を、全部覚えたわけではないのですが、ひと通りの事は理解しました｛まだDBまわりの機能は理解してないかな｝。
まとめ
プログラムは結果と答えが正しければ良いのですが…。

タグ

access, CUI, DBまわり, GUI, かなり良いコード, コード, そこら, ひと通り, プログラム, みんな, メソッド, 人それぞれ考え方, 吸収, 機能, 発案, 系統, 結論, 統一, 長いコード, 頓挫,

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

2014.08.22

Logging

おすすめ度の高いフリーのエディタです、エディタ名がNotepad++（DL日本語対応）という奴なんですけど(δ´ω｀)ｶﾕｲところに手が届く優れものです。昔は秀丸やサクラエディタを使用してたんですけど、このNotepad++に出会ってからずっとNotepad++を使用しています。何がそんなに良いのかといえば、動作が軽いこと、そしてバイナリもみえちゃうし、プラグインも充実してます。なんで、このNotepad++がおすすめです｛言語自動補完機能あり、文字コード変換あり等など｝。サクラエディタのようにgrep機能（ファイル内検索）もあります、あと正規表現の検索や置き換えなどもありますので自分としてはおすすめ度高いです。昔、務めていた会社では何故か、MIFES（マイフェス）とかいうテキストエディタを使用してました。
ちなみにファイルの差分を見たい場合は、WinMerge 日本語版など、バイナリを見たい場合は、StirlingやBZが有名ドコロです。
追記：
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

追記2 ：今では古い話なのでVisual Studio Codeを推奨します（2021年に追記）！！

タグ

BZ, DL, grep, MIFES, Notepad, Stirling, WinMerge, エディタ, おすすめ, ｶﾕｲ, コード, こと, さくら, テキスト, ところ, バイナリ, ファイル, フェス, プラグイン, フリー, マイ, 会社, 何, 使用, 充実, 動作, 場合, 変換, 奴, 対応, 差分, 手, 文字, 日本語, 日本語版, 昔, 有名, 検索, 機能, 正規, 秀丸, 自分, 自動, 表現, 補完, 言語,

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

Access2013届きましたよ(;´Д｀)ﾊｧﾊｧ

2014.08.17

Logging

Access2013が手元に届きました。それは良かったのですけどポストに投函されてました。実際、これってメール便ではないので投函ってあり得ないのですが…。1万2千円の品物を投函って！！まぁ田舎だから取っていく人もいないだろうけど・・・と愚痴りながら、中身を開封してたらアレ！？（　´・ω・｀）＜ ｼｮﾎﾞいぞ！！、プロダクトキーの赤いカードとインストールの手続き書の薄っぺらい紙だけ入ってました｛店頭で聞いたとおりだ(´・ω・`)｝。さっそくマイクロソフトのアカウントでログインし指定したURLからダウンロード＆インストールしました。ちなみに2013の印象ですけど、UI（ユーザーインターフェース）はほぼAccess2010と変わってません、なので2010から移行される方は戸惑うことはないと思います。
今月か来月にはサンプルコードをUPします｛忘れているかも(´Д｀)、そのうちUPと思ってください｝。

 

タグ

１, 2, 2010, 2013, access, nbsp, UI, UP, url, アカウント, アレ, インストール, インターフェース, うち, カード, キー, コード, こと, コレ, サンプル, ｼｮﾎﾞ, ソレ, ダウンロード, とおり, ﾊｧﾊｧ, プロダクト, ポスト, マイクロソフト, メール便, ユーザー, ログイン, 万, 中身, 人, 今月, 千, 印象, 品物, 実際, 店頭, 手元, 手続き, 投函, 指定, 方, 来月, 田舎, 移行, 開封,

accessを購入します｛本日、購入｝。

2014.08.16

Logging

Access2013を購入します、旧のアクセスは持っているのだけどセキュリティ上使用できなくなったので購入します。ちなみにアクセスは、いまいち使い勝手良くなかったので今まで牽制していましたが、この頃、使用してみて基本的にエクセルVBAとそんなに変わらないなという事がわかりました。エクセルVBAにDB機能とシステム要素が付与したものと考えると良い感じですね。ただ、Formの呼び出しなどが、もっとソフト開発（VisualStudio）よりな呼び出しになっている感じです｛最初はわからなったです｝。よくよく考えるとVisualStudioなんてものを使用せずとも結構これだけで、ひと通りの事が出来そうです｛前にも同じこと言っていた気がします｝。
購入して何を作るかっていう所ですけどサンプルコードをひとつ作って見ようかなと、あとは、ちょっとしたデータ入力のために簡易てきな入力システムみたいなものを作ってみようと思いますが、こちらは公開しません。

タグ

2013, access, db, Form, VBA, VisualStudio, アクセス, あと, いまいち, エクセル, コード, コチラ, こと, これだけ, サンプル, システム, セキュリティ, ソフト, ため, データ, ひとつ, ひと通り, もの, 事, 付与, 何, 使い勝手, 使用, 入力, 公開, 前, 感じ, 所, 旧, 最初, 本日, 機能, 気, 牽制, 簡易, 要素, 購入, 開発, 頃,