Take it easy!

アンマネージDLL関数

by achi on Feb.17, 2009, under プログラム

 圧縮書庫を解凍する手順をコーディングしていて、外部関数の扱いに戸惑った。

 インストールしたのだが内部的に参照できない。

 フリーで配布されているDLLで参照できない関数が存在することも知らなかったが、その方法についても全く無知。

 これら「アンマネージ関数」の扱い方法を学んだ。

 しかしアンマネージかどうかという判断はどこですればよいのやら・・・

 「まずは参照してみなさい」ってかぁ。。。

1 Comment more...

資質

by achi on Feb.16, 2009, under Diary

 このところ色んなBLOGを読ませていただいて気づくことが多い。

 あるブログでSEを部品扱いしている企業と闘う、と言った内容の文章を目にした。
 解釈には人それぞれで差があると思うが、私自身が感じた事を書いてみる。

 果たして企業が部品扱いしているのだろうか。

 私自身もプログラムを作る機会がある。
 長男もSEである。
 彼と時々会話する中から感じられるのは、”SEとしての資質”だと思う。

 躾も礼儀もわきまえず、与えられたものだけの完成度向上を目指す。

 企業から見ればこれが当たり前で達成度が100%なら満足。

 しかし本人はどうだろうか。

 息子は「部品目標完成度よりも、全体最適にどれほど貢献できたか」を意識している。
 私も同じ意見だ。

 これは企業責任ではなく、資質の問題であり、環境の影響であるとも言えるのではないだろうか。

 エンジニア一人一人がそれぞれ大きな目標を持ってポジティブに生きていける世界を築くのは、企業や周りの責任よりも個人の意識が最も重要だと感じている。

 そういう指導教育、育成を行える環境が少ないのではないだろうか。

 エンジニアを育成しながら、躾や礼儀も教えることができるような教育機関の設立も、出来ることなら手がけたいと考えた。

Leave a Comment more...

チームワーク

by achi on Jan.14, 2009, under コーチング

 いくら「自己啓発」だの「P.D.C.A.を回せ」だの叫んでいても、そもそも人それぞれで意識が違う。生まれ育った環境も学んだ場所も。だから「個性を活かすこと」を大切にしていきたい。

回りには「俺の言うことが聞けないのか!」と軍隊ばりに怒号を飛ばす人もいる。

理由も目的も明らかにせず、それで納得してついていく部下は果しているのかと疑問だ。

丁寧に理由を考え、目的を共有し、オリジナリティを発揮して問題解決に挑む。

しかし個人では意識が偏ったりあるいは方向性を見失うこともあるかも知れない。

だから”チームワークだ”と唱えている。

大切な事だと思うし、人こそが財産であることを理解すれば、必然的に企業成長にも結び付くと考えているのだが。

チームが競争しそれぞれがお互いの成長を刺激する。この姿こそ特に中小企業には重要だと感じてならない。

Leave a Comment more...

P.D.C.A.自己啓発支援プログラム

by achi on Dec.15, 2008, under プログラム

 目的:ある事象について「P.D.C.A.」と「何故の繰り返し」を実践し根本原因へいち早くたどり着くことを支援する目的を持つ「自己啓発・自己分析支援アプリケーション」
仕様:Form1->エントリ及びベースフォーム
Form2->データファイル参照及び簡易印刷用フォーム
Form3->データファイル読み込み及び一覧参照
Form4->Form3での選択データビジュアル表示及び分析テンプレート
概要:保存されたデータを元にForm4にて最終分析・評価を行う。
作業進捗フェーズに応じたP.D.C.A.の実践を評価する。->第一段階
P.D.C.A.各項目の妥当性と問題点の把握分析->第二段階
何故項目の評価により解決策へのステップアップ->第三段階

※本プログラムの主目的は個人レベルでのスパイラルアップによる問題解決力向上のための意識改革支援です。
「カイゼン」を意識して積極的な行動を目指す”個人の方のため”に作成いたしました。

LZH形式で三つのファイルを書庫にしています。
My Documentsなどにフォルダを作成して配置してご利用ください。データファイルは本体と同じフォルダ内に作成されます。

動作確認はWindows2000,WindowsXP/SP3,WindowsXP64ED,WindowsVistaです。
VisualStudio.NET2003で作成しました。

ダウンロードはこちらから

Leave a Comment more...

MDB内に指定したテーブルが存在するか

by achi on Dec.15, 2008, under VB.NETテクニック

‘MDB内に指定したテーブルが存在するか
    ‘Table存在確認関数
    Private Function isExistsTable(ByVal strTableName As String)
        Dim objCat, objTable
        objCat = CreateObject(”ADOX.Catalog”)
        objCat.ActiveConnection = CONN
        isExistsTable = False
        For Each objTable In objCat.Tables
            If objTable.Type = “TABLE” Then
                If objTable.Name = strTableName Then
                    isExistsTable = True
                    Exit For
                End If
            End If
        Next
        objCat = Nothing
    End Function

1 Comment more...

開いているExcelBookとSheetをチェック

by achi on Dec.15, 2008, under VB.NETテクニック

‘開いているExcelBookとSheetをチェック
 ’とりあえずBook名を引数に開いているかどうか
Imports Excel = Microsoft.Office.Interop.Excel
    ‘ExcelOpen検知関数
    ‘Open: fExcelOpen(ExFileName) = True
    Private Function fExcelOpen(ByVal ExFileName As String) As Boolean
        Dim oExcel As Excel.Application
        Dim oBooks As Excel.Workbooks
        Dim oBook As Excel.Workbook
        Dim fsts As Boolean = “False”
        Dim oSheets As Excel.Sheets
        Dim oSheet As Excel.Worksheet
        Try
            ‘別プロセスのExcelを取得する
            ‘GetObjext第1引数のファイルパスは省略する
            oExcel = GetObject(, “Excel.Application”)
            ‘開いているブックを全て取得する
            oBooks = oExcel.Workbooks
            ‘ブック毎に確認
            For Each oBook In oBooks
                If oBook.Name = ExFileName Then
                    fsts = True
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            ‘COMコンポーネントの解放
            If Not oSheet Is Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)
                oSheet = Nothing
            End If
            If Not oSheets Is Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheets)
                oSheets = Nothing
            End If
            ‘COMコンポーネントの解放
            If Not oBook Is Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
                oBook = Nothing
            End If
            If Not oBooks Is Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
                oBooks = Nothing
            End If
            If Not oExcel Is Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
                oExcel = Nothing
            End If
        End Try
        Return fsts
    End Function

2 Comments more...

簡単エディタ

by achi on Nov.25, 2008, under プログラム

最近歳のせいか物忘れが激しくなってきた。ふとした事もしばらく他の事を考えると忘れてしまう。大切な用事でも、だ。
そこで簡単にメモに残せるものを作ってみた。
付箋やメモ帳など便利なツールもそれなりに存在するが、日付や時間、簡単にタイトルだけ、なんて言うわがままな保存方法にはなかなか対応できない。
この「簡単エディタ」は、何も書かずにボタンを押すだけでも日付と時間を記録する。もちろんそれだけでは何があったのかを思い出す事は難しいだろう。
そこで「タイトルだけ」というものも用意している。詳細に中身を残したければ自由に記述でき、印刷も可能。

ただし記録した内容は個別に消すことはできない。
記録するファイルは単純なテキストファイルであるため、後で中身を直接編集することや、不必要な項目だけ削除などが可能。

まあ、性格に合っていると感じた方のみお使い下さい。

LZHで圧縮しています。どこかフォルダを作成して保存し、直接起動させます。
記録用のファイルは本体と同じフォルダ内に作成されます。

動作確認はWindows2000,WindowsXP/SP3,WindowsVistaです。Framework1.1が必要です。
VisualStudio.NET2003で作成しました。

ダウンロードはこちらから

1 Comment more...

フォーム間連携

by achi on Nov.25, 2008, under VB.NETテクニック

 データグリッドへ表示した列の内容を別のフォームへ渡す。

 渡す側のフォーム(データグリッド表示後)
    Public Form4 As New Form4
    Public MeArray As New ArrayList
    Public Sub New(ByVal fr As Form4)
        MyBase.New()
        Form4 = fr
        InitializeComponent()
    End Sub
    Private Sub myDataGrid_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        Const RowRule As Integer = 18 ‘RowCount固定している。実際にはTable.Rows.Count - 1 など
        Dim cm As CurrencyManager = CType(DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember), CurrencyManager)
        Dim dr As DataRow = CType(cm.Current, DataRowView).Row
        For i As Integer = 0 To RowRule
            MeArray.Add(dr.ItemArray(i))
        Next
        If Form4 Is Nothing = False Then
            Form4.OurArray = Me.MeArray
        End If
        Form4.Show()
        Me.Hide()

    End Sub

 受け取り側のフォーム
    ‘Form3の配列を取得
    Private Form3 As Form3
    Private mHensu As New ArrayList
    Public Property OurArray() As ArrayList
        Get
            Return mHensu
        End Get
        Set(ByVal Value As ArrayList)
            For i As Integer = 0 To 18 ‘行の項目数を固定しているため
                mHensu.Add(Value(i))
            Next
        End Set
    End Property

Leave a Comment more...

ファイルサーバー接続&ドライブ割り当て

by achi on Nov.25, 2008, under VB.NETテクニック

ファイルサーバーに接続してログインし、必要なフォルダをドライブ割り当てして作業するケースでの手法。作業後はドライブを切断する。

Imports System.Data.OleDB
    Public Declare Function WNetAddConnection2 Lib “mpr.dll” Alias “WNetAddConnection2A” (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
    Public Declare Function WNetCancelConnection Lib “mpr.dll” Alias “WNetCancelConnection2A” (ByVal lpName As String, ByVal lpPlof As Integer, Optional ByVal fForce As Boolean = False) As Boolean
    Public Structure NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As String
        Public lpRemoteName As String
        Public lpComment As String
        Public lpProvider As String
    End Structure
    Private Const RESOURCE_CONNECTED As Integer = &H1
    Private Const RESOURCETYPE_ANY As Integer = &H0
    Private Const RESOURCEDISPLAYTYPE_SHARE As Integer = &H3
    Private Const CONNECT_UPDATE_PROFILE As Integer = &H1
    Public Function ConnectSrv(ByVal pstrRemoteName As String, ByVal pstrUID As String, ByVal pstrPWD As String) As Long
        Dim typNetResource As NETRESOURCE
        Dim lngRet As Long
        With typNetResource
            .dwScope = RESOURCE_CONNECTED
            .dwType = RESOURCETYPE_ANY
            .dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
            .lpLocalName = “Z:” ‘実際には空きドライブを検索するのがベター
            .lpRemoteName = pstrRemoteName
        End With
        lngRet = WNetAddConnection2(typNetResource, pstrPWD, pstrUID, CONNECT_UPDATE_PROFILE)
        If lngRet = 0 Then
            TextBox1.Text = “Connected”
        Else
            TextBox1.Text = “Disconnect”
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cn As New OleDbConnection(”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\xxx\xxx.mdb”) ‘今回はmdbを操作
        Dim SQLCm As OleDbCommand = Cn.CreateCommand
        Dim Adapter As New OleDbDataAdapter(SQLCm)
        Dim Table As New DataTable
        SQLCm.CommandText = “SELECT * FROM xxx ORDER BY xxx.xxx”
        Adapter.Fill(Table)
        DataGrid1.DataSource = Table

        ‘実作業

        Table.Dispose()
        Adapter.Dispose()
        SQLCm.Dispose()
        Cn.Dispose()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim RmHost As String = “\\サーバーアドレス\フォルダ”
        Dim RmUID As String = “ユーザー名”
        Dim RmPWD As String = “パスワード”
        ConnectSrv(RmHost, RmUID, RmPWD)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim result As Boolean
        result = WNetCancelConnection(”Z:”, CONNECT_UPDATE_PROFILE, True)
        Debug.WriteLine(result.ToString())
        If result = “0″ Then
            TextBox1.Text = “Disconnect”
        Else
            TextBox1.Text = “Connected”
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WNetCancelConnection(”Z:”, CONNECT_UPDATE_PROFILE, True)
        Me.Close()
    End Sub

19 Comments more...

文字列切断関数

by achi on Nov.25, 2008, under VB.NETテクニック

 VB.NETを使用していて、標準のPrintDocumentコントロールを使用すると、用紙幅を検知できないため、自動で折り返しが利かない。逃げの手ではあるが強制的に改行させる関数を作ってみた。

    ‘文字列切断関数
    ‘ rsltStr = fStrCut(MyString,Keta)
    Private Function fStrCut(ByVal MyString As String, ByVal Keta As Integer) As String
        If Keta < 0 Or Keta > 70 Then
            fStrCut = MyString
            MsgBox(”正しい桁ではない”, vbOKOnly, “Column Error”)
            Exit Function
        End If
        If Len(MyString) < Keta Then
            fStrCut = MyString
            Exit Function
        End If
        ‘文字列の長さ
        Dim stringLen As Integer = Len(MyString)
        If stringLen = Keta Then
            fStrCut = MyString
            Exit Function
        End If
        ‘行数
        Dim rowCount As Integer = Fix(stringLen / Keta)
        ‘最後の行の長さ
        Dim lastRowLen As Integer = stringLen Mod Keta
        ‘出力用文字列を格納する動的配列
        Dim stringArray As New ArrayList
        ‘文字列切り出し
        For fi As Integer = 0 To rowCount - 1
            Dim fk As Integer = Keta * fi + 1
            Dim str As String = Microsoft.VisualBasic.Strings.Mid(MyString, fk, Keta) & vbCrLf
            stringArray.Add(str)
        Next fi
        If lastRowLen <> 0 Then
            Dim ostr As String = Microsoft.VisualBasic.Strings.Right(MyString, lastRowLen)
            If ostr <> “” And lastRowLen <> Keta Then
                stringArray.Add(ostr)
            End If
        End If
        Dim returnStr As String = “”
        For fj As Integer = 0 To stringArray.Count - 1
            returnStr = returnStr & stringArray(fj)
        Next fj
        Return returnStr
    End Function

Leave a Comment more...

シューティングスター(ゲーム)

by achi on Nov.05, 2008, under プログラム

 その昔、BASICで公開されていたゲームプログラムをVB6でアレンジしたもの。動作にはランタイムが必要です。

またこのゲームは弱視の方々を意識して作られています。音声が必要な場合、スピーチエンジンが別途必要です。スクリーンリーダーなどをお使いの方は音声が重複することがありますので、リーダーの音声を一時的に停止することをおすすめします。
MS Agentの”マーリン”も同時にインストールされます。
インストーラーで提供しています。

ダウンロードはこちらから

動作確認:WindowsXP/SP3,WindowsXP64ED,WindowsVista
Thanks for Sakura.

2 Comments more...

ASP(ActiveServerPages)スケジュール管理

by achi on Nov.05, 2008, under プログラム

ASPによる「スケジュール管理」です。簡易な機能に限定して提供します。Windows95/98及びWindowsNT4.0環境での動作を確認しています。

ダウンロードはこちらから

Leave a Comment more...

曜日計算(ゼラーの公式)

by achi on Nov.05, 2008, under プログラム

JavaScript曜日計算

西暦年月日を与えると曜日を数値で返すスクリプト。「ゼラーの公式」をそのままスクリプトにしています。
ただし日付の妥当性は評価していませんので、実際に利用する場合は工夫が必要。
以下のサイトで説明しております。

http://worldstep.net/files/youbi.html

Leave a Comment more...

このところ

by achi on Oct.09, 2008, under Diary

 とある人物と、とあるサイトでテクニカルな話題をやりとりしている。たった二人だけ。
妙なやりとりなんだが、実は結構ハイレベルなものが多い。
テーマは限定せず、その時々気になったことを掲載してやりとりするのだ。
まあ、簡易掲示板のやりとりみたいなもんだが(笑)

そもそもプログラム開発で疑問質問を掲載していこうと言うことから始まったのだが、仕事の愚痴もあり、これがなかなか面白い。
愚痴なんてものは、その時点で言いたいことが溜っているわけだ。かと言って放置すればモチベーションにも影響するとお互いに意識しているためアドバイスのやりとりが始まる。
これもコミュニケーションの手段だとは思うのだが、なんで二人だけなんだ・・・

ちょっとさみしいと感じているのは二人だけじゃないはず(笑)

特にどこかからリンクを張っているわけでは無いが、誰でも参加できる仕様にはなっている。
だが、PerlのCGI掲示板特性と言えば”脆いかも知れない”と言う部分だ。

いずれシークレットなSNSにしようと目論んでいるのではあるが。。。

Leave a Comment more...

宝探し

by achi on Oct.09, 2008, under Diary

行ってきました。「若狭路アドベンチャー~昔話の中に隠された宝を探せ!~」。
既に社会人の息子と二人、ほぼいいおぢさんたちが宝探しです(笑)
しかしこれは子供だけではとても不可能だと前回の「不思議探偵団~朝倉埋蔵金伝説に挑戦! 」では感じた。
埋蔵金伝説では二か所ほどしか参加しなかったが、今回は最初から参加。金沢からいきなり若狭路なので距離はあるが楽しめる内容だと信じて出かけてみる。
まずは宝地図のヒントを頼りに一番遠い場所へ向かう。途中何箇所か捜索できそうな場所もあって、寄りながら行こうという事に。
しかしいきなり失敗。地図のヒントをしっかり読んでいない上に初めて出かける場所だから余計に迷う。まあこういうのが楽しいのだろうけど。
失敗は二回繰り返される。二度目にようやく「もっとしっかり読まないと」と気づいて反省。これって喧嘩しながら探しまわるチームもあるんだろうな。
この二回目の失敗で既に昼をとっくに過ぎていた。金沢を出たのが9時頃なので三時間以上かかってここまで。
宝地図というといろんなイメージがあるが、確かに地元の人なら簡単に謎を解くかも知れない。しかし地理にも明るくなく歴史も伝統も行事も知らないと不利。ハンディキャップを感じながら進むことになるのだ。
しかし天候がよく、行きかう車も多かった。時期的にもいいのだろうが二輪車の多さには驚いた。
さて一番遠い場所は高浜町。福井県の西の端である。カーナビで検索して出てこないため、勝手な想像を元に場所を特定する。しかし最初に訪問した場所は間違い。そこにあった大きな地図で見つけた。ほとんど”京都府”まで進むことに。
その場所には比較的わかりやすい目標物もあったが、とても徒歩や自転車では出かけられない場所。やはり車が無いと無理だった。
次の目的地も絞り込みが出来て、今度はカーナビで経路を設定。指示された通りに車を進めると、「府道772号」って標識が・・・「おい、こりゃ舞鶴に入ってるぞ」・・・
次の目的地はおおい町。息子と私はそれぞれ予想している場所は異なったが、さほど離れていないと判断して到着。確かに二人の予想は「隣り合っている建物」だったが、実はどちらも不正解(爆)
ヒントを頼りにそれらしき場所を探して宝箱発見!
この時点で考えても、この二点間の距離は相当ある。結構大変だよなぁ。。。
さてこの日、宝箱の発見目標は全6個のうち三個。もう一つ見つければ目標はクリアだ。
三か所目は息子があらかじめWebである程度絞り込んでいた。まさに彼の予想はぴったり。
「きっと迷う人が多いだろうけど、ヒントをしっかり読んで理解出来れば場所は特定出来る」
その通りだった(笑)
ここでまだ日は高いことから、「ダメ元でもう一か所行ってみるか」という事に。次の目的地のヒントは比較的わかりやすいため、間違える確率は低い。
もちろん探し回る範囲がどれほどなのかはわからないが、きっとすぐに見つかるだろうと期待しながら向かう。
実はあと一時間遅かったらその場所へは入れなかった。
まあ余裕で見つけられたのだが(笑)
さあ、まだ空は明るい。どうする?って事で欲を出してもう一か所行ってみる事にした。
ただ次の目標物は県外の我々にはかなり難しいヒントだった。「そこでダメなら帰ろう」

ダメだった・・・
疲れた・・・総走行距離は500kmを超えた・・・

残り二か所。次回に持ち越しだが、今度は出来るだけ場所を絞り込んで、実際の地図でも確認して出向くことにしよう。
すべての箱を探し出して探検を終了させたい。

Leave a Comment more...

いきなり星空(笑)

by achi on Oct.09, 2008, under Diary

午後くらいから雲が少なくなって快晴に見えてきた。これはもう星を見に出かけるしか無いでしょう(爆)
というわけで仕事を早めに切り上げて出かけましたよ。
石川県は金沢市のとある場所。かなりなデートスポットらしい。
雲の流れがいささか速くて、シャッター速度によってはきれいに撮れないなどと初心者らしくないことを考えながら向かった。
なんと!
下界は18度くらいの気温だったのが、山の上は 14度 なのだっ!

結構寒かった。こんな時のためにちょいと上着を持っててよかったぞ。
さっそく三脚を出してまず一枚。ところがまるで写らない。
技術も知識もないんだから、当たり前だし何も悩まないんだけど、さすがに写らないとイライラしてきた。
シャッタースピードを30秒から60秒まで落とすとぼんやり写ってきた。
ところが雲の流れが速いので写りこんでくる。ま、最初のチャレンジだから仕方ないか。
欲を言えば流れ星なんかも、なんて思ってたけど、絶対”欲”だから。ええ、わかってます(笑)

まわりには若者グループやカップルが(アベックとか言わないのか)
そのうち「あ、流れ星!」って女の子の叫び声。どっちだよ、俺には見えなかったぞ。「あっち」くらい言えよ。って言っても間に合わないけどさ・・・
遠くから大勢の子どもの声。なんだろう?合宿でもやってんのかな?
「まだお風呂入っていない人は!」とか言ってる。
近くの会館らしいところからは読経の声も。お西かな。なんだか聞き覚えのあるお経だったな。
これを見ている人はどういう雰囲気か想像しにくいだろうなぁ。。。
何度か星に向けてシャッターを切ってみる。
何度か金沢の夜景に向けてシャッターを切ってみる。
う~ん・・・掲載できるような結果は出なかった。。。

Leave a Comment more...

やっぱり飛行機好き

by achi on Oct.09, 2008, under Diary

天候はあまり思わしくなかったけど、例年通りに実施されることを期待して出かけた。”ブルーインパルス”だっ!
高速に飛び回る物体をカメラで捉えられるか、という命題もあったのだ(笑)
目的地へ向かう途中で既に航空自衛隊の飛行が見えていた。期待しながら向かう。わくわくしてくる。
予定時間になって車の外へ出ると異様に寒い。こりゃ風邪でも引くんじゃねぇか、なんてことを考えながら飛び立つ姿に期待する。
高いエンジン音が聞こえてくる。「飛ぶぞ!」
次の瞬間、ブルーインパルスの数倍もある民間機が離陸する。おいおいこれじゃ飛べない・・・
旅客機が視界から消えて、またまた期待に胸が躍る。また大きなエンジン音。
またまた大きな民間機が離陸・・・どないやねん・・・
待つこと15分。急に視界を鳥よりも早いものが横切る。「今度こそキター!!!」

一生懸命追いかけてシャッターを切るが、なかなか思い通りには撮れない。そりゃそうだろ。素人なうえにまだカメラにも慣れていない。
三脚で固定することも考えたが、狙ったポイントに来るかどうかも予想出来ない。あ~素人・・・

それでもファインダー越しに何度もおいかけてチャンスを狙う。
今回は飛行を楽しむことはできなかったが、やはりブルーインパルスはいい!
小松以外でも飛んでいるのだから、近いなら出かけてもいいんだけどな。

さて、次は何を狙いましょう。
秋の足音も聞こえてきたし、寒い空なら”星”かな?

Leave a Comment more...

カメラ♪

by achi on Oct.09, 2008, under Diary

 少しずつ写真を残すことに興味を覚えて、撮ることも楽しみになってきたと感じていた。もちろん刺激してくれる人が周りにいるからだが。
使っているコンパクトデジカメはどうもわからないところがいくつかあって、取説見ながら試してみることもしばしば。しかし被写体が花や木などはまだまし だが、風景、花火などとなってくると写し方もわからない始末。絞り?シャッタースピード?どうすりゃええの?わしゃわからん!!!
コンパクトでも機能はちゃんと持っているのだが、いかんせん写してみると友人の撮ったものとは比較にならない。どうすべぇ~

ふと目についた一眼レフデジカメ。買った(爆)

今はまだ練習中だが、さすがに最新型はすごい。ファインダー覗きながら説明文が出てくる。超初心者向けかも(笑)
いろいろ撮りながらお勉強の繰り返し。まあこれが楽しいわけでもある。
どんどん写真は増やしたい。

今時のカメラは被写体が決まると追っかけるのねん。。。
今時のカメラは単なる”AUTO”じゃなくて、頭に”i”がつくのね。。。インテリジェントの頭文字らしい。。。

「カメラさん、何もかもあなたにお任せします。きれいな写真を残してね♪」って言いたくなる。。。

Leave a Comment more...

ど素人

by achi on Oct.09, 2008, under Diary

つい先ほどアップ(告白)したが、十年ぶりくらい(?)のプログラム開発なんぞをやらかした。目的は果たして実用モードに入ったのは良かったが、その時作った「日記風プログラム」では満足できない身体になってしまった(爆)

そもそも日記をつけようと考えたのは、会社で使っているグループウェアが”使いにくい”からである。このグループウェアを選んで会社に頼み込んで導入したのは私なんだが・・・
しかし記録できるようになってくると、今度は行動を管理したくなってきた。いわゆる”自己分析”である。
考えるとだんだんややこしくなってきて、自分自身で混乱してしまうのだが、とにかく”P.D.C.A.”を回して根本的な問題点に早く気づいて解決への近道を探り出し、次回に活かす記録を増やしたいということなのだ。

そこでまた作り出した。。。

今度は「自己啓発シート」。名称は格好いいが中身は・・・

最初は単純にファイルに格納する手順。次に読み出す手順。ここからが問題。先の「日記風プログラム」で初心者と同等であることを暴露したが、プログラム なんてのは、CobolとPerl以外はほとんど触っていない。VBなんてバージョンが2の頃に一つか二つ作ったっきりである(笑)
まあ、ややこしいのが欲しいと思ったら「お願い。作って。」って言えたからなのだが。。。岡山ねぃさん、当時はいろいろありがとう。。。

今回は息子以外には頼らずに手がける覚悟でまずは最初の難関”データグリッド”に取り組んだ。VB4の頃は実装していなかったと記憶しているが今はちゃ んとコントロールが存在する。「できるはずだい!」とあれこれ・・・しかしいかんせん初心者である。右も左も列も行もわからん。。。
息子に助けられながら何とかできた。

お次の壁は「フォーム間のデータ交換」。
これも実はややこしいのだが、「プロパティ使えばいいよん♪」なんてアドバイスをもらって四苦八苦。MSDNもあちこち散歩して調べまくった。
おかげでシャワー浴びながら閃いた。「あ!!!あ!!!あ~!!!」って(爆)

でもって第一目標までは完了。とりあえず使えるものができた。
初心者も頑張れば結構いいものできるんだ。もちろん最近の開発ツールは昔と比べて便利になったものだと感心しきりである。

Leave a Comment more...

日記風プログラム

by achi on Oct.09, 2008, under Diary

 勤務先には”グループウェア”なるものがある。ここへ今日の出来事などを日報入力しておくと、他の人たちと情報共有出来たり、自分でもあとからナレッジとして再利用したりできる。積極的に利用するべきなのだが、今日起きた事を後から思い出して記録する所謂”日記”というものが最近苦手になってきた(笑)

 以前は手書きでメモしておいてまとめたりしていたのだが、ペンを持つことにも億劫になってきて、最近は思い出せないまま悶々と一日が過ぎていくことも・・・
 そこで一念発起。簡単に記録するプログラムを自作してみることにした(と言っても使わなければ同じなのだ・・・orz

 しかぁ~し!デスクトップアプリケーションなどというものは、おそらく10年以上も作っていない。果たして作れるのか(爆)

 ずっとWeb系アプリケーションばかりで、スタンドアロンなんてオフコン以来(かなり古いぞ!!!)かも知れない。
 とりあえず概要を考えて(って全く初心者レベルで大したことは無いのだが)作り始めた。
 文字を入力して「書き込み」ってすると勝手に日付と時間をくっつけてファイルに記録してくれる。
 「書き込み」を押すごとにファイルには文字が追記されていって、最後に「読み出し」を押すと全部表示する。
 いかにも簡単。超ビギナープログラムだ(自爆)

 しかし使い始めると「あんなこともこんなことも」と欲が出てくる。
 ひとつずつ機能を追加していくと、いつしかそれなりに大きなものになってくる。

 これなら別にフリーウェアでも・・・

 これはきっと使われずに消え去る運命なのだと慰めてみた・・・

 もう一回考えてみよ~っと(笑)

Leave a Comment more...

Looking for something?

Use the form below to search the site:

Still not finding what you're looking for? Drop a comment on a post or contact us so we can take care of it!

Visit our friends!

A few highly recommended friends...

Archives

All entries, chronologically...