2011年12月9日金曜日

[Book's Review (Develop)]ASP.NET逆引き大全600の極意―ASP.NET2.0/3.5/4対応

（１）レビュー
今までありそうでなかった逆引きシリーズですが、
ASP.NETバージョン４にして初めて発売されました。（従来のASPはありましたが。。。）

よく使う機能から、.NETならではの新機能（メンバーシップ等）まで、
何気にカテゴリーを追いかけるだけでも面白いかもしれません。

ASP.NETをこれから始める人、更に理解を深めたい人にとっては、貴重な１冊だと思います。

（２）リンク
ASP.NET逆引き大全600の極意―ASP.NET2.0/3.5/4対応

ASP.NET逆引き大全600の極意―ASP.NET2.0/3.5/4対応

  • 作者: 山田 祥寛
  • 出版社/メーカー: 秀和システム
  • 発売日: 2011/09
  • メディア: 単行本
at 0 件のコメント:
Labels:

2011年8月21日日曜日

[Book's Review (Develop)].NETのクラスライブラリ設計 開発チーム直伝の設計原則、コーディング標準、パターン

（１）レビュー
.NETでシステム開発する際のガイドラインです。
ガイドラインだけならインターネットで検索すればでてきそうですが、
本書は、著者だけでなくたくさんの開発者からのコメントも寄稿されて、
実際の開発者の生の声や失敗談もまとめられています。

これから始める人、改善したい人にとっては、貴重な１冊だと思います。

（２）リンク
.NETのクラスライブラリ設計 開発チーム直伝の設計原則、コーディング標準、パターン (Microsoft.net Development Series)

.NETのクラスライブラリ設計 開発チーム直伝の設計原則、コーディング標準、パターン (Microsoft.net Development Series)

  • 作者: Krzysztof Cwalina
  • 出版社/メーカー: 日経BPソフトプレス
  • 発売日: 2009/12/24
  • メディア: 大型本
at 0 件のコメント:
Labels:

2011年6月9日木曜日

[VBA]罫線描画＆罫線消去

[はじめに]
・Excelマクロで罫線描画、罫線消去を実装することがよくあります。
　『マクロの記録』で簡単に作れますが、汎用性がないので関数化しました。
　機能は単純に、セル範囲に罫線（外枠、内側の境界線）を描画するだけです。
　とりあえず、備忘録として載せておきます。

[ソース]
Option Explicit

''' <summary>
''' 指定したセル範囲に罫線を描画する。（外枠、内側の境界線）
''' </summary>
''' <param name="targetRange">対象セル範囲</param>
''' <remarks></remarks>
Public Sub DrawLine(ByVal targetRange As Range)
    With targetRange
    
        '個々のセルの右上がり斜線
        .Borders(xlDiagonalUp).LineStyle = xlNone
        
        '個々のセルの右下がり斜線
        .Borders(xlDiagonalDown).LineStyle = xlNone
        
        'セル範囲の最上端
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        
        'セル範囲の最下端
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        
        'セル範囲の最左端
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        
        'セル範囲の最右端
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        
        If .Cells(1).Row < .Cells(.Count).Row Then
            'セル範囲の上下端以外の境界線
            '【注意（Excel2003以前のみ】
            ' セル範囲が複数行にわたる場合のみ処理します。
            ' 単数行の場合に処理するとエラーになることがあります。
            With .Borders(xlInsideHorizontal)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
        End If

        If .Cells(1).Column < .Cells(.Count).Column Then
            'セル範囲の左右端以外の境界線
            '【注意（Excel2003以前のみ】
            ' セル範囲が複数列にわたる場合のみ処理します。
            ' 単数列の場合に処理するとエラーになることがあります。
            With .Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
        End If

    End With

End Sub

''' <summary>
''' 指定したセル範囲の罫線を消去する。（外枠、内側の境界線）
''' </summary>
''' <param name="targetRange">対象セル範囲</param>
''' <remarks></remarks>
Public Sub EraseLine(ByVal targetRange As Range)
    
    With targetRange
        
        '個々のセルの右上がり斜線
        .Borders(xlDiagonalUp).LineStyle = xlNone
        
        '個々のセルの右下がり斜線
        .Borders(xlDiagonalDown).LineStyle = xlNone
        
        'セル範囲の最上端
        .Borders(xlEdgeTop).LineStyle = xlNone
        
        'セル範囲の最下端
        .Borders(xlEdgeBottom).LineStyle = xlNone
        
        'セル範囲の最左端
        .Borders(xlEdgeLeft).LineStyle = xlNone
        
        'セル範囲の最右端
        .Borders(xlEdgeRight).LineStyle = xlNone
        
        If .Cells(1).Row < .Cells(.Count).Row Then
            'セル範囲の上下端以外の境界線
            '【注意（Excel2003以前のみ）】
            ' セル範囲が複数行にわたる場合のみ処理します。
            ' 単数行の場合に処理するとエラーになります。
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End If
        
        If .Cells(1).Column < .Cells(.Count).Column Then
            'セル範囲の左右端以外の境界線
            '【注意（Excel2003以前のみ）】
            ' セル範囲が複数列にわたる場合のみ処理します。
            ' 単数列の場合に処理するとエラーになることがあります。
            .Borders(xlInsideVertical).LineStyle = xlNone
        End If
        
    End With

End Sub
[ExcelVBA]罫線の描画＆消去


Private Sub CommandButton1_Click()
    '罫線描画
    Call DrawLine(Selection)
End Sub

Private Sub CommandButton2_Click()
    '罫線消去
    Call EraseLine(Selection)
End Sub
[ExcelVBA]呼び出し例
at 0 件のコメント:
Labels:

2011年5月26日木曜日

[Algo]DQ1の復活の呪文解析

[はじめに]
　ドラゴンクエストIの復活の呪文を解析するツールを
　作ってみました。
　オブジェクト指向言語で開発していますが、
　なるべく構造化プログラミングを意識して実装している為、
　他言語への移植はさほど難しくないと思います。
開発ツールMicrosoft Visual Studio 2010
プログラム言語Microsoft Visual Basic 2010
.NETバージョン.NET Framework 2.0
形式Windows Forms アプリケーション
[機能]
　復活の呪文からゲーム進行状況のパラメータを解析する。
　ゲーム進行状況のパラメータから復活の呪文を生成する。
[制限事項]
　入力データは、下記を前提としています。
　・プレイヤーの名前：全角のひらがな（一部除く）、数字
　・復活の呪文：全角のひらがな（一部除く）
　・復活の呪文：全角５文字、７文字、５文字、３文字
　ブログに掲載できる容量に制限がある為、入力チェックを省いています。
　入力データが前提以外の場合、アベンドすることがあります。
[実行の方法（VisualStudio2010を想定）]
　①Windowsフォームアプリのプロジェクトを作成し、
　　下記ソースをプロジェクトに追加する。（プロジェクトの名称は何でもいい。）
ソース機能
FrmDq1.vbメイン画面のロジック
FrmDq1.Designer.vbメイン画面のデザイン（自動生成）
Dq1ConstData.vbアイテム、武器、鎧などのデータ
DataConverter.vb文字列と文字コードの相互変換
Dq1PasswordAnalizer.vb『復活の呪文』の解析／生成
Dq1Password.vb『復活の呪文』を表すクラス（文字列と文字コードを管理）
PlayerName.vbプレイヤーの名前を表すクラス（文字列と文字コードを管理）
PlayerInformation.vbプレイヤーの情報（所持金、経験値、イベントフラグ等）
　②『FrmDq1.vb』をスタートアップフォームに設定する。
　③Form1.vbを削除する。（新規プロジェクト作成時のデフォルトの画面）
　④ビルドする。
　（※開発ツールの利用詳細は割愛）
　また、VisualStudio2010で開発していますが、
　.NET2.0上で動作するので、2005／2008でも利用できると思います。
　（※2005／2008では動作未確認）
[実行画面] 　DQ1 - 復活の呪文解析ツール
[プログラムソース]
''' <summary>
''' データ変換クラス（文字列⇔数値配列）
''' </summary>
''' <remarks></remarks>
Public NotInheritable Class DataConverter

#Region "チェック処理"
    ''' <summary>
    ''' 変換可能かチェックする。（数値配列→文字列）
    ''' </summary>
    ''' <param name="targetData">データ</param>
    ''' <param name="convTable">変換テーブル</param>
    ''' <param name="errMessage">エラーメッセージ（OKの場合は空文字列）</param>
    ''' <returns>変換可否</returns>
    ''' <remarks></remarks>
    Public Shared Function CanConvertNumToString( _
        ByVal targetData() As Integer, _
        ByVal convTable() As String, _
        ByRef errMessage As String) As Boolean

        'エラーメッセージ初期化
        errMessage = ""

        Try
            If targetData Is Nothing Then
                errMessage = "引数不正[targetData]"
                Return False
            End If

            If convTable Is Nothing Then
                errMessage = "引数不正[convTable]"
                Return False
            End If

            If targetData.Length > 4 Then
                errMessage = "データが長すぎます。[targetData]"
                Return False
            End If

            For Each data As Integer In targetData
                If data < 0 OrElse data > convTable.Length - 1 Then
                    errMessage = "データ不正。[targetData]"
                    Return False
                End If
            Next

        Catch ex As Exception
            errMessage = _
                "予期せぬエラー" & _
                vbCrLf & ex.ToString()
            Return False
        End Try

        Return True
    End Function

    ''' <summary>
    ''' 変換可能かチェックする。（文字列→数値配列）
    ''' </summary>
    ''' <param name="targetData">データ</param>
    ''' <param name="convTable">変換テーブル</param>
    ''' <param name="errMessage">エラーメッセージ（OKの場合は空文字列）</param>
    ''' <returns>変換可否</returns>
    ''' <remarks></remarks>
    Public Shared Function CanStrToNum( _
        ByVal targetData As String, _
        ByVal convTable() As String, _
        ByRef errMessage As String) As Boolean

        'エラーメッセージ初期化
        errMessage = ""

        Try
            If targetData Is Nothing Then
                errMessage = "引数不正[targetData]"
                Return False
            End If

            If convTable Is Nothing Then
                errMessage = "引数不正[convTable]"
                Return False
            End If

            If targetData.Length > 20 Then
                errMessage = "データが長すぎます。[targetData]"
                Return False
            End If

            For Each data As Char In targetData
                If Array.IndexOf(convTable, data.ToString()) = -1 Then
                    errMessage = "指定できる文字は以下のみです。" & vbCrLf & String.Join("、", convTable)
                    Return False
                End If
            Next

        Catch ex As Exception
            errMessage = _
                "予期せぬエラー" & _
                vbCrLf & ex.ToString()
            Return False
        End Try

        Return True
    End Function

#End Region

#Region "変換処理"
    ''' <summary>
    ''' データを変換する。（数値配列→文字列）
    ''' </summary>
    ''' <param name="targetData">データ</param>
    ''' <param name="convTable">変換テーブル</param>
    ''' <returns>変換後データ（変換できない場合はNothing）</returns>
    ''' <remarks></remarks>
    Public Shared Function ConvertNumToString( _
        ByVal targetData() As Integer, _
        ByVal convTable() As String) As String

        Dim sb As New System.Text.StringBuilder()

        For i As Integer = 0 To targetData.Length - 1
            sb.Append(convTable(targetData(i)))
        Next

        Return sb.ToString()

    End Function


    ''' <summary>
    ''' データを変換する。（文字列→数値配列）
    ''' </summary>
    ''' <param name="targetData">データ</param>
    ''' <param name="convTable">変換テーブル</param>
    ''' <returns>変換後データ（変換できない場合はNothing）</returns>
    ''' <remarks></remarks>
    Public Shared Function ConvertStrToNum( _
        ByVal targetData As String, _
        ByVal convTable() As String) As Integer()

        Dim rtn As New List(Of Integer)()

        For i As Integer = 0 To targetData.Length - 1
            Dim idx As Integer = Array.IndexOf(convTable, targetData(i).ToString())

            If idx < 0 Then
                Return Nothing
            End If

            rtn.Add(idx)
        Next

        Return rtn.ToArray()

    End Function

#End Region

End Class
[VB.NET]DataConverter.vb


''' <summary>
''' 固定値データ
''' </summary>
''' <remarks></remarks>
Public NotInheritable Class Dq1ConstData

#Region "定数定義"
    ''' <summary>
    ''' 道具一覧
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly ITEM_LIST() As String = New String() { _
         "なし", "たいまつ", "せいすい", "キメラのつばさ", _
         "りゅうのうろこ", "ようせいのふえ", "せんしのゆびわ", "ロトのしるし", _
         "おうじょのあい", "のろいのベルト", "ぎんのたてごと", "しのくびかざり", _
         "たいようのいし", "あまぐものつえ", "にじのしずく", _
         "（不明）" _
    }

    ''' <summary>
    ''' 武器一覧
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly WEAPON_LIST() As String = New String() { _
        "なし", "たけざお", "こんぼう", "どうのつるぎ", _
        "てつのおの", "はがねのつるぎ", "ほのおのつるぎ", "ロトのつるぎ" _
    }

    ''' <summary>
    ''' 鎧一覧
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly ARMOR_LIST() As String = New String() { _
        "なし", "ぬののふく", "かわのふく", "くさりかたびら", _
        "てつのよろい", "はがねのよろい", "まほうのよろい", "ロトのよろい" _
    }

    ''' <summary>
    ''' 盾一覧
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly SHIELD_LIST() As String = New String() { _
        "なし", "かわのたて", "てつのたて", "みかがみのたて" _
    }


    ''' <summary>
    ''' レベル（経験値）一覧
    ''' Lv 1 の必要経験値 = LEVEL_LIST(0)
    ''' Lv n の必要経験値 = LEVEL_LIST(n-1)
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly LEVEL_LIST() As Integer = New Integer() { _
        0, 7, 23, 47, 110, 220, 450, 800, 1300, 2000, _
        2900, 4000, 5500, 7500, 10000, 13000, 17000, 21000, 25000, 29000, _
        33000, 37000, 41000, 45000, 49000, 53000, 57000, 61000, 65000, 65535 _
    }

#End Region

#Region "メソッド定義"
    ''' <summary>
    ''' 経験値からレベルを取得する。
    ''' </summary>
    ''' <param name="exp">経験値</param>
    ''' <returns>レベル</returns>
    ''' <remarks></remarks>
    Public Shared Function GetLevel(ByVal exp As Integer) As Integer

        If exp < 0 Then
            Throw New ArgumentOutOfRangeException("経験値の範囲が不正。")
        End If

        For i As Integer = LEVEL_LIST.Length - 1 To 0 Step -1
            If exp >= LEVEL_LIST(i) Then
                Return i + 1
            End If
        Next

        Return 0

    End Function

    ''' <summary>
    ''' 指定したレベルに達する為の経験値を取得する。
    ''' </summary>
    ''' <param name="level">レベル</param>
    ''' <returns>経験値</returns>
    ''' <remarks></remarks>
    Public Shared Function GetExp(ByVal level As Integer) As Integer

        If level < 1 OrElse level > LEVEL_LIST.Length + 1 Then
            Throw New ArgumentOutOfRangeException("レベルの範囲が不正。")
        End If

        Return LEVEL_LIST(level - 1)

    End Function

#End Region

End Class
[VB.NET]Dq1ConstData.vb


''' <summary>
''' 復活の呪文（DQ1）
''' </summary>
''' <remarks></remarks>
Public Class Dq1Password

#Region "変数定義"
    ''' <summary>
    ''' 復活の呪文（文字列）
    ''' </summary>
    ''' <remarks></remarks>
    Private _pass As String = Nothing

    ''' <summary>
    ''' 復活の呪文（数値配列）
    ''' </summary>
    ''' <remarks></remarks>
    Private _passCode() As Integer = Nothing

    ''' <summary>
    ''' 変換テーブル
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly CONVERT_TABLE() As String = _
        New String() { _
            "あ", "い", "う", "え", "お", _
            "か", "き", "く", "け", "こ", _
            "さ", "し", "す", "せ", "そ", _
            "た", "ち", "つ", "て", "と", _
            "な", "に", "ぬ", "ね", "の", _
            "は", "ひ", "ふ", "へ", "ほ", _
            "ま", "み", "む", "め", "も", _
            "や", "ゆ", "よ", _
            "ら", "り", "る", "れ", "ろ", _
            "わ", _
            "が", "ぎ", "ぐ", "げ", "ご", _
            "ざ", "じ", "ず", "ぜ", "ぞ", _
            "だ", "ぢ", "づ", "で", "ど", _
            "ば", "び", "ぶ", "べ", "ぼ", _
            "？" _
        }

#End Region

#Region "コンストラクタ"
    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    ''' <param name="pass">
    ''' 復活の呪文（文字列）
    ''' （例：「ふるいけや」「かわずとびこむ」「みずのおと」「ばしゃ」）
    ''' </param>
    ''' <remarks></remarks>
    Public Sub New(ByVal ParamArray pass() As String)
        MyClass.New(String.Join("", pass))
    End Sub

    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    ''' <param name="pass">
    ''' 復活の呪文（文字列）
    ''' （例：「ふるいけやかわずとびこむみずのおとばしゃ」）
    ''' </param>
    ''' <remarks></remarks>
    Public Sub New(ByVal pass As String)
        '復活の呪文（文字列）
        Me._pass = pass

        '復活の呪文（数値配列）
        Me._passCode = DataConverter.ConvertStrToNum(Me._pass, CONVERT_TABLE)

    End Sub

    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    ''' <param name="passCode">復活の呪文（数値配列）</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal passCode() As Integer)
        '名前（数値配列）
        Me._passCode = passCode

        '名前（文字列）
        Me._pass = DataConverter.ConvertNumToString(Me._passCode, CONVERT_TABLE)

    End Sub

#End Region

#Region "メソッド定義"
    ''' <summary>
    ''' 復活の呪文（文字列）
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overrides Function ToString() As String
        Return Me._pass
    End Function

#End Region

#Region "アクセッサ定義"
    ''' <summary>
    ''' 復活の呪文（数値配列）
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property PassCode() As Integer()
        Get
            Return Me._passCode
        End Get
    End Property

#End Region

End Class
[VB.NET]Dq1Password.vb


''' <summary>
''' 復活の呪文（DQ1）の解析クラス
''' </summary>
''' <remarks></remarks>
Public Class Dq1PasswordAnalizer

#Region "チェックコード"

    ''' <summary>
    ''' チェックコード
    ''' </summary>
    ''' <remarks></remarks>
    Private Shared ReadOnly CHECK_CODE() As Integer = New Integer() {
        &H88, &HC4, &H62, &H31, &H8, &H84, &H42, &H21, _
        &H98, &HCC, &HE6, &H73, &HA9, &HC4, &H62, &H31, _
        &H5A, &HAD, &HC6, &H63, &HA1, &HC0, &H60, &H30, _
        &H38, &H9C, &H4E, &HA7, &HC3, &HF1, &H68, &HB4, _
        &HD0, &H68, &HB4, &H5A, &H2D, &H6, &H83, &H51, _
        &H20, &H10, &H8, &H84, &H42, &HA1, &H40, &HA0, _
        &HF9, &HEC, &HF6, &H7B, &HAD, &HC6, &HE3, &H61, _
        &H81, &HD0, &H68, &HB4, &HDA, &H6D, &HA6, &HD3, _
        &HB2, &HD9, &HFC, &HFE, &HFF, &HEF, &H67, &H23, _
        &H34, &H1A, &HD, &H96, &H4B, &H35, &H8A, &H45, _
        &HAA, &HD5, &H7A, &H3D, &H8E, &H47, &HB3, &H49, _
        &HA1, &H40, &HA0, &H50, &HA8, &HD4, &HEA, &H75, _
        &HA0, &HD0, &H68, &HB4, &H5A, &HAD, &HC6, &H63, _
        &H7E, &HBF, &HCF, &HF7, &H6B, &HA5, &HC2, &H61 _
    }

#End Region

#Region "プレイヤー情報から復活の呪文を取得する。"
    ''' <summary>
    ''' プレイヤー情報から復活の呪文を取得する。
    ''' </summary>
    ''' <param name="pInfo">プレイヤー情報</param>
    ''' <returns>復活の呪文</returns>
    ''' <remarks></remarks>
    Public Function GetPasswordFromPlayerInfo(ByVal pInfo As PlayerInformation) As Dq1Password

        Dim data() As Integer = New Integer(19) {}
        Dim code() As Integer = New Integer(14) {}

        code(0) = _
                (pInfo.ItemList(1) << 4) Or _
                pInfo.ItemList(0)
        code(1) = _
                (pInfo.Flag1 << 7) Or _
                (pInfo.Name.NameCode(1) << 1) Or _
                (pInfo.Flag2)
        code(2) = (pInfo.Experience >> 8) And &HFF
        code(3) = _
                (pInfo.ItemList(5) << 4) Or _
                pInfo.ItemList(4)
        code(4) = _
                (pInfo.MagicKeyNum << 4) Or _
                pInfo.HerbNum
        code(5) = (pInfo.Gold >> 8) And &HFF
        code(6) = _
                (pInfo.Weapon << 5) Or _
                (pInfo.Armor << 2) Or _
                pInfo.Shild
        code(7) = _
                ((pInfo.CryptKey << 5) And &H80) Or _
                (pInfo.Flag3 << 6) Or _
                pInfo.Name.NameCode(3)
        code(8) = _
                (pInfo.ItemList(7) << 4) Or _
                pInfo.ItemList(6)
        code(9) = _
                (pInfo.Name.NameCode(0) << 2) Or _
                (pInfo.Flag4 << 1) Or _
                ((pInfo.CryptKey >> 1) And &H1)
        code(10) = pInfo.Gold And &HFF
        code(11) = _
                (pInfo.ItemList(3) << 4) Or _
                pInfo.ItemList(2)
        code(12) = _
                ((pInfo.CryptKey << 7) And &H80) Or _
                (pInfo.Flag5 << 6) Or _
                pInfo.Name.NameCode(2)
        code(13) = pInfo.Experience And &HFF
        code(14) = 0

        'チェックコードを計算する
        For i As Integer = 0 To 13
            For j As Integer = 0 To 7
                If (code(i) And (&H80 >> j)) <> 0 AndAlso CHECK_CODE(i * 8 + j) <> &H0 Then
                    code(14) = code(14) Xor CHECK_CODE(i * 8 + j)
                End If
            Next
        Next

        '8bit毎の code() を、 6bit毎の data() に変換
        Dim k As Integer = 0

        For i As Integer = 14 To 0 Step -3
            Dim w As Long = _
                (code(i - 2) << 16) Or _
                (code(i - 1) << 8) Or _
                (code(i))

            data(k) = w And &H3F : k += 1
            data(k) = (w >> 6) And &H3F : k += 1
            data(k) = (w >> 12) And &H3F : k += 1
            data(k) = (w >> 18) And &H3F : k += 1

        Next

        '4を加算し、data() を累計する
        Dim work As Integer = 0
        Dim passCode As New List(Of Integer)()

        For i As Integer = 0 To 19
            passCode.Add((data(i) + work + 4) And &H3F)
            work = passCode(i)
        Next

        '復活の呪文
        Dim pass As New Dq1Password(passCode.ToArray())

        Return pass

    End Function

#End Region

#Region "プレイヤー情報から復活の呪文を取得する。"

    ''' <summary>
    ''' プレイヤー情報から復活の呪文を取得する。
    ''' </summary>
    ''' <param name="pass">復活の呪文</param>
    ''' <returns>プレイヤー情報</returns>
    ''' <remarks></remarks>
    Public Function GetPlayerInfoFromPassword(ByVal pass As Dq1Password) As PlayerInformation
        Return Me.GetPlayerInfoFromPassword(pass.ToString())
    End Function


    ''' <summary>
    ''' プレイヤー情報から復活の呪文を取得する。
    ''' </summary>
    ''' <param name="pass">復活の呪文</param>
    ''' <returns>プレイヤー情報</returns>
    ''' <remarks></remarks>
    Public Function GetPlayerInfoFromPassword(ByVal pass As String) As PlayerInformation

        Dim data(19) As Integer
        Dim code(14) As Integer

        '復活の呪文の文字コード
        Dim passCode() As Integer = DataConverter.ConvertStrToNum( _
                pass, _
                Dq1Password.CONVERT_TABLE _
            )

        '4 を引き、前後の文字の差分を取る
        For i As Integer = 19 To 1 Step -1
            data(i) = (passCode(i) - passCode(i - 1) - 4) And &H3F
        Next

        data(0) = (passCode(0) - 4) And &H3F

        '6bit毎のdata() を、 8bit毎のcode()に変換
        Dim j As Integer = 0

        For i As Integer = 19 To 0 Step -4
            Dim w As Long = _
                (data(i) << 18) Or _
                (data(i - 1) << 12) Or _
                (data(i - 2) << 6) Or _
                 data(i - 3)
            code(j) = (w >> 16) And &HFF : j += 1
            code(j) = (w >> 8) And &HFF : j += 1
            code(j) = w And &HFF : j += 1
        Next

        'チェックコードを計算する
        For i As Integer = 0 To 13
            For jj As Integer = 0 To 7
                If (code(i) And (&H80 >> jj)) <> 0 AndAlso CHECK_CODE(i * 8 + jj) <> &H0 Then
                    code(14) = code(14) Xor CHECK_CODE(i * 8 + jj)
                End If
            Next
        Next

        Dim pInfo As New PlayerInformation()

        pInfo.CheckCode = code(14)

        pInfo.Name = New PlayerName( _
                New Integer() { _
                    (code(9) >> 2) And &H3F, _
                    (code(1) >> 1) And &H3F, _
                    (code(12)) And &H3F, _
                    (code(7)) And &H3F _
                }
            )

        pInfo.Weapon = (code(6) >> 5) And &H7
        pInfo.Armor = (code(6) >> 2) And &H7
        pInfo.Shild = code(6) And &H3

        pInfo.ItemList(0) = code(0) And &HF
        pInfo.ItemList(1) = (code(0) >> 4) And &HF
        pInfo.ItemList(2) = code(11) And &HF
        pInfo.ItemList(3) = (code(11) >> 4) And &HF
        pInfo.ItemList(4) = code(3) And &HF
        pInfo.ItemList(5) = (code(3) >> 4) And &HF
        pInfo.ItemList(6) = code(8) And &HF
        pInfo.ItemList(7) = (code(8) >> 4) And &HF

        pInfo.MagicKeyNum = (code(4) >> 4) And &HF
        pInfo.HerbNum = code(4) And &HF

        pInfo.Experience = code(2) * 256 + code(13)
        pInfo.Gold = code(5) * 256 + code(10)

        pInfo.Flag1 = (code(1) >> 7) And &H1
        pInfo.Flag2 = code(1) And &H1
        pInfo.Flag3 = (code(7) >> 6) And &H1
        pInfo.Flag4 = (code(9) >> 1) And &H1
        pInfo.Flag5 = (code(12) >> 6) And &H1

        pInfo.CryptKey = _
                ((code(7) >> 5) And &H4) Or _
                ((code(9) << 1) And &H2) Or _
                ((code(12) >> 7) And &H1)

        pInfo.Level = Dq1ConstData.GetLevel(pInfo.Experience)

        '呪文が正しいかどうかをチェック
        If pInfo.CheckCode <> 0 OrElse _
            pInfo.MagicKeyNum > 6 OrElse _
            pInfo.HerbNum > 6 Then
            Return Nothing
        End If

        For i As Integer = 0 To 7
            If pInfo.ItemList(i) >= 15 Then
                Return Nothing
            End If
        Next

        Return pInfo

    End Function

#End Region

End Class
[VB.NET]Dq1PasswordAnalizer.vb


[プログラムソース]
''' <summary>
''' プレーヤー情報
''' </summary>
''' <remarks></remarks>
Public Class PlayerInformation

#Region "変数定義"
    ''' <summary>
    ''' レベル：出力用
    ''' </summary>
    ''' <remarks></remarks>
    Public Level As Integer = 0

    ''' <summary>
    ''' プレイヤーの名前
    ''' </summary>
    ''' <remarks></remarks>
    Public Name As PlayerName = Nothing

    ''' <summary>
    ''' 武器（０～７）
    ''' </summary>
    ''' <remarks></remarks>
    Public Weapon As Integer = 0

    ''' <summary>
    ''' 鎧（０～７）
    ''' </summary>
    ''' <remarks></remarks>
    Public Armor As Integer = 0

    ''' <summary>
    ''' 盾（０～３）
    ''' </summary>
    ''' <remarks></remarks>
    Public Shild As Integer = 0

    ''' <summary>
    ''' 道具（８個）
    ''' 各々の要素（０～１４）
    ''' </summary>
    ''' <remarks></remarks>
    Public ItemList() As Integer = New Integer() {0, 0, 0, 0, 0, 0, 0, 0}

    ''' <summary>
    ''' 魔法の鍵の保持数（０～６）
    ''' </summary>
    ''' <remarks></remarks>
    Public MagicKeyNum As Integer = 0

    ''' <summary>
    ''' 薬草の保持数（０～６）
    ''' </summary>
    ''' <remarks></remarks>
    Public HerbNum As Integer = 0

    ''' <summary>
    ''' 経験値（０～６５５３５）
    ''' </summary>
    ''' <remarks></remarks>
    Public Experience As Integer = 0

    ''' <summary>
    ''' ゴールド（０～６５５３５）
    ''' </summary>
    ''' <remarks></remarks>
    Public Gold As Integer = 0

    ''' <summary>
    ''' フラグ１
    ''' （竜の鱗を装備したことがあるか？）
    ''' はい：１、いいえ：０
    ''' </summary>
    ''' <remarks></remarks>
    Public Flag1 As Integer = 0

    ''' <summary>
    ''' フラグ２
    ''' （戦士の指輪を装備しているか？）
    ''' はい：１、いいえ：０
    ''' </summary>
    ''' <remarks></remarks>
    Public Flag2 As Integer = 0

    ''' <summary>
    ''' フラグ３
    ''' （ドラゴンを倒したか？）
    ''' はい：１、いいえ：０
    ''' </summary>
    ''' <remarks></remarks>
    Public Flag3 As Integer = 0

    ''' <summary>
    ''' フラグ４
    ''' （ゴーレムを倒したか？）
    ''' はい：１、いいえ：０
    ''' </summary>
    ''' <remarks></remarks>
    Public Flag4 As Integer = 0

    ''' <summary>
    ''' フラグ５
    ''' （死の首飾りを入手したことがあるか？）
    ''' はい：１、いいえ：０
    ''' </summary>
    ''' <remarks></remarks>
    Public Flag5 As Integer = 0

    ''' <summary>
    ''' 暗号化のキー
    ''' </summary>
    ''' <remarks></remarks>
    Public CryptKey As Integer = 0

    ''' <summary>
    ''' チェックコード：出力用
    ''' </summary>
    ''' <remarks></remarks>
    Public CheckCode As Integer = 0

#End Region

End Class
[VB.NET]PlayerInformation.vb


''' <summary>
''' プレイヤーの名前
''' </summary>
''' <remarks></remarks>
Public Class PlayerName

#Region "変数定義"
    ''' <summary>
    ''' 名前（文字列）
    ''' </summary>
    ''' <remarks></remarks>
    Private _name As String = Nothing

    ''' <summary>
    ''' 名前（数値配列）
    ''' </summary>
    ''' <remarks></remarks>
    Private _nameCode() As Integer = Nothing

    ''' <summary>
    ''' 変換テーブル
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared CONVERT_TABLE() As String = _
        New String() { _
            "０", "１", "２", "３", "４", _
            "５", "６", "７", "８", "９", _
            "あ", "い", "う", "え", "お", _
            "か", "き", "く", "け", "こ", _
            "さ", "し", "す", "せ", "そ", _
            "た", "ち", "つ", "て", "と", _
            "な", "に", "ぬ", "ね", "の", _
            "は", "ひ", "ふ", "へ", "ほ", _
            "ま", "み", "む", "め", "も", _
            "や", "ゆ", "よ", _
            "ら", "り", "る", "れ", "ろ", _
            "わ", "を", "ん", _
            "っ", "ゃ", "ゅ", "ょ", _
            "゛", "゜", "－", "　" _
        }

#End Region

#Region "コンストラクタ"
    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    ''' <param name="name">名前（文字列）</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal name As String)
        '名前（文字列）
        Me._name = name.PadRight(4, "　")

        '名前（数値配列）
        Me._nameCode = DataConverter.ConvertStrToNum(Me._name, CONVERT_TABLE)

    End Sub

    ''' <summary>
    ''' コンストラクタ
    ''' </summary>
    ''' <param name="nameCode">名前（数値配列）</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal nameCode() As Integer)
        '名前（数値配列）
        Me._nameCode = nameCode

        '名前（文字列）
        Me._name = DataConverter.ConvertNumToString(Me._nameCode, CONVERT_TABLE)

    End Sub

#End Region

#Region "メソッド定義"
    ''' <summary>
    ''' 名前（文字列）
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overrides Function ToString() As String
        Return Me._name
    End Function

#End Region


#Region "アクセッサ定義"
    ''' <summary>
    ''' 名前（数値配列）
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property NameCode() As Integer()
        Get
            Return Me._nameCode
        End Get
    End Property

#End Region

End Class
[VB.NET]PlayerName.vb


''' <summary>
''' 「DQ1 - 復活の呪文解析ツール」
''' </summary>
''' <remarks></remarks>
Public Class FrmDq1

    ''' <summary>
    '''道具コンボボックスの配列
    ''' </summary>
    ''' <remarks></remarks>
    Private _cmbItemList() As ComboBox = Nothing

    ''' <summary>
    ''' 画面起動時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub FrmDq1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '武器
        Me.cmbWeapon.DataSource = Dq1ConstData.WEAPON_LIST
        '鎧
        Me.cmbArmor.DataSource = Dq1ConstData.ARMOR_LIST
        '盾
        Me.cmbShield.DataSource = Dq1ConstData.SHIELD_LIST

        '道具
        Me.cmbItem1.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem2.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem3.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem4.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem5.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem6.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem7.DataSource = Dq1ConstData.ITEM_LIST.Clone()
        Me.cmbItem8.DataSource = Dq1ConstData.ITEM_LIST.Clone()

        '道具
        Me._cmbItemList = New ComboBox() {
            Me.cmbItem1, Me.cmbItem2, Me.cmbItem3, Me.cmbItem4, _
            Me.cmbItem5, Me.cmbItem6, Me.cmbItem7, Me.cmbItem8
        }

    End Sub


    ''' <summary>
    ''' 「解析」ボタン
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnGetParam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetParam.Click

        'パスワードを変換（文字列→数値）
        Dim passAnlz As New Dq1PasswordAnalizer()

        Dim passInfo As New Dq1Password( _
            Me.txtPass1.Text.Trim(), _
            Me.txtPass2.Text.Trim(), _
            Me.txtPass3.Text.Trim(), _
            Me.txtPass4.Text.Trim())

        If passInfo Is Nothing Then
            MessageBox.Show("復活の呪文が違います。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        Dim plInfo As PlayerInformation = passAnlz.GetPlayerInfoFromPassword(passInfo)

        If plInfo Is Nothing Then
            MessageBox.Show("復活の呪文が違います。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        Me.txtLevel.Text = plInfo.Level.ToString()

        Me.txtPlayerName.Text = plInfo.Name.ToString()
        Me.numGold.Value = plInfo.Gold
        Me.numExp.Value = plInfo.Experience
        Me.numHerb.Value = plInfo.HerbNum
        Me.numKey.Value = plInfo.MagicKeyNum

        Me.cmbWeapon.SelectedIndex = plInfo.Weapon
        Me.cmbArmor.SelectedIndex = plInfo.Armor
        Me.cmbShield.SelectedIndex = plInfo.Shild

        For i As Integer = 0 To Me._cmbItemList.Length - 1
            Me._cmbItemList(i).SelectedIndex = plInfo.ItemList(i)
        Next

        Me.chkFlag1.Checked = plInfo.Flag1 = 1
        Me.chkFlag2.Checked = plInfo.Flag2 = 1
        Me.chkFlag3.Checked = plInfo.Flag3 = 1
        Me.chkFlag4.Checked = plInfo.Flag4 = 1
        Me.chkFlag5.Checked = plInfo.Flag5 = 1

        Me.numCrypt.Value = plInfo.CryptKey
        Me.txtResult.Text = plInfo.CheckCode.ToString()

        If plInfo.CheckCode <> 0 Then
            '基本的にはありえないですが。。。
            MessageBox.Show("復活の呪文が違います。（一部だけ）", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

    End Sub

    ''' <summary>
    ''' 「生成」ボタン
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnGetPass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetPass.Click

        Dim plInfo As New PlayerInformation()

        plInfo.Name = New PlayerName(Me.txtPlayerName.Text)

        If plInfo.Name.NameCode Is Nothing Then
            MessageBox.Show("名前が不正です。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        plInfo.Gold = Me.numGold.Value
        plInfo.Experience = Me.numExp.Value
        plInfo.HerbNum = Me.numHerb.Value
        plInfo.MagicKeyNum = Me.numKey.Value

        plInfo.Weapon = Me.cmbWeapon.SelectedIndex
        plInfo.Armor = Me.cmbArmor.SelectedIndex
        plInfo.Shild = Me.cmbShield.SelectedIndex

        For i As Integer = 0 To Me._cmbItemList.Length - 1
            plInfo.ItemList(i) = Me._cmbItemList(i).SelectedIndex
        Next

        plInfo.Flag1 = IIf(Me.chkFlag1.Checked, 1, 0)
        plInfo.Flag2 = IIf(Me.chkFlag2.Checked, 1, 0)
        plInfo.Flag3 = IIf(Me.chkFlag3.Checked, 1, 0)
        plInfo.Flag4 = IIf(Me.chkFlag4.Checked, 1, 0)
        plInfo.Flag5 = IIf(Me.chkFlag5.Checked, 1, 0)

        plInfo.CryptKey = Me.numCrypt.Value

        Dim passAnlz As New Dq1PasswordAnalizer()

        Dim dqPass As String = _
            passAnlz.GetPasswordFromPlayerInfo(plInfo).ToString().PadRight(20, "　")

        Me.txtPass1.Text = dqPass.PadRight(20, "　").Substring(0, 5)
        Me.txtPass2.Text = dqPass.PadRight(20, "　").Substring(5, 7)
        Me.txtPass3.Text = dqPass.PadRight(20, "　").Substring(12, 5)
        Me.txtPass4.Text = dqPass.PadRight(20, "　").Substring(17, 3)

    End Sub

    ''' <summary>
    ''' 「経験値」変更
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub numExp_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numExp.ValueChanged
        Me.txtLevel.Text = Dq1ConstData.GetLevel(Me.numExp.Value).ToString()
    End Sub

    ''' <summary>
    ''' テキストボックスのフォーカス取得時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub txtCommon_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
        txtPass1.Enter, txtPass2.Enter, txtPass3.Enter, txtPass4.Enter, _
        txtLevel.Enter, txtPlayerName.Enter, txtResult.Enter

        CType(sender, TextBox).SelectAll()
    End Sub


End Class
[VB.NET]FrmDq1.vb


<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmDq1
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.lblPass = New System.Windows.Forms.Label()
        Me.txtPlayerName = New System.Windows.Forms.TextBox()
        Me.numHerb = New System.Windows.Forms.NumericUpDown()
        Me.numKey = New System.Windows.Forms.NumericUpDown()
        Me.cmbShield = New System.Windows.Forms.ComboBox()
        Me.cmbWeapon = New System.Windows.Forms.ComboBox()
        Me.cmbArmor = New System.Windows.Forms.ComboBox()
        Me.cmbItem1 = New System.Windows.Forms.ComboBox()
        Me.cmbItem2 = New System.Windows.Forms.ComboBox()
        Me.cmbItem3 = New System.Windows.Forms.ComboBox()
        Me.cmbItem6 = New System.Windows.Forms.ComboBox()
        Me.cmbItem5 = New System.Windows.Forms.ComboBox()
        Me.cmbItem4 = New System.Windows.Forms.ComboBox()
        Me.cmbItem8 = New System.Windows.Forms.ComboBox()
        Me.cmbItem7 = New System.Windows.Forms.ComboBox()
        Me.chkFlag1 = New System.Windows.Forms.CheckBox()
        Me.chkFlag5 = New System.Windows.Forms.CheckBox()
        Me.chkFlag4 = New System.Windows.Forms.CheckBox()
        Me.chkFlag3 = New System.Windows.Forms.CheckBox()
        Me.chkFlag2 = New System.Windows.Forms.CheckBox()
        Me.numCrypt = New System.Windows.Forms.NumericUpDown()
        Me.txtResult = New System.Windows.Forms.TextBox()
        Me.btnGetParam = New System.Windows.Forms.Button()
        Me.btnGetPass = New System.Windows.Forms.Button()
        Me.lblName = New System.Windows.Forms.Label()
        Me.lblGold = New System.Windows.Forms.Label()
        Me.lblExp = New System.Windows.Forms.Label()
        Me.lblHerb = New System.Windows.Forms.Label()
        Me.lblKey = New System.Windows.Forms.Label()
        Me.lblWeapon = New System.Windows.Forms.Label()
        Me.lblShield = New System.Windows.Forms.Label()
        Me.lblArmor = New System.Windows.Forms.Label()
        Me.grpItem = New System.Windows.Forms.GroupBox()
        Me.grpFlag = New System.Windows.Forms.GroupBox()
        Me.lblResult = New System.Windows.Forms.Label()
        Me.lblCrypt = New System.Windows.Forms.Label()
        Me.txtLevel = New System.Windows.Forms.TextBox()
        Me.lblLevel = New System.Windows.Forms.Label()
        Me.numGold = New System.Windows.Forms.NumericUpDown()
        Me.numExp = New System.Windows.Forms.NumericUpDown()
        Me.txtPass1 = New System.Windows.Forms.TextBox()
        Me.txtPass2 = New System.Windows.Forms.TextBox()
        Me.txtPass3 = New System.Windows.Forms.TextBox()
        Me.txtPass4 = New System.Windows.Forms.TextBox()
        CType(Me.numHerb, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.numKey, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.numCrypt, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.grpItem.SuspendLayout()
        Me.grpFlag.SuspendLayout()
        CType(Me.numGold, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.numExp, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'lblPass
        '
        Me.lblPass.AutoSize = True
        Me.lblPass.Location = New System.Drawing.Point(14, 18)
        Me.lblPass.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblPass.Name = "lblPass"
        Me.lblPass.Size = New System.Drawing.Size(109, 19)
        Me.lblPass.TabIndex = 0
        Me.lblPass.Text = "復活の呪文"
        '
        'txtPlayerName
        '
        Me.txtPlayerName.ImeMode = System.Windows.Forms.ImeMode.Hiragana
        Me.txtPlayerName.Location = New System.Drawing.Point(111, 141)
        Me.txtPlayerName.MaxLength = 4
        Me.txtPlayerName.Name = "txtPlayerName"
        Me.txtPlayerName.Size = New System.Drawing.Size(164, 26)
        Me.txtPlayerName.TabIndex = 10
        '
        'numHerb
        '
        Me.numHerb.Location = New System.Drawing.Point(112, 234)
        Me.numHerb.Maximum = New Decimal(New Integer() {6, 0, 0, 0})
        Me.numHerb.Name = "numHerb"
        Me.numHerb.Size = New System.Drawing.Size(163, 26)
        Me.numHerb.TabIndex = 16
        '
        'numKey
        '
        Me.numKey.Location = New System.Drawing.Point(112, 263)
        Me.numKey.Maximum = New Decimal(New Integer() {6, 0, 0, 0})
        Me.numKey.Name = "numKey"
        Me.numKey.Size = New System.Drawing.Size(163, 26)
        Me.numKey.TabIndex = 18
        '
        'cmbShield
        '
        Me.cmbShield.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbShield.FormattingEnabled = True
        Me.cmbShield.Location = New System.Drawing.Point(112, 371)
        Me.cmbShield.Name = "cmbShield"
        Me.cmbShield.Size = New System.Drawing.Size(163, 27)
        Me.cmbShield.TabIndex = 24
        '
        'cmbWeapon
        '
        Me.cmbWeapon.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbWeapon.FormattingEnabled = True
        Me.cmbWeapon.Location = New System.Drawing.Point(111, 300)
        Me.cmbWeapon.Name = "cmbWeapon"
        Me.cmbWeapon.Size = New System.Drawing.Size(164, 27)
        Me.cmbWeapon.TabIndex = 20
        '
        'cmbArmor
        '
        Me.cmbArmor.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbArmor.FormattingEnabled = True
        Me.cmbArmor.Location = New System.Drawing.Point(112, 338)
        Me.cmbArmor.Name = "cmbArmor"
        Me.cmbArmor.Size = New System.Drawing.Size(163, 27)
        Me.cmbArmor.TabIndex = 22
        '
        'cmbItem1
        '
        Me.cmbItem1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem1.FormattingEnabled = True
        Me.cmbItem1.Location = New System.Drawing.Point(25, 25)
        Me.cmbItem1.Name = "cmbItem1"
        Me.cmbItem1.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem1.TabIndex = 0
        '
        'cmbItem2
        '
        Me.cmbItem2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem2.FormattingEnabled = True
        Me.cmbItem2.Location = New System.Drawing.Point(25, 58)
        Me.cmbItem2.Name = "cmbItem2"
        Me.cmbItem2.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem2.TabIndex = 1
        '
        'cmbItem3
        '
        Me.cmbItem3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem3.FormattingEnabled = True
        Me.cmbItem3.Location = New System.Drawing.Point(26, 91)
        Me.cmbItem3.Name = "cmbItem3"
        Me.cmbItem3.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem3.TabIndex = 2
        '
        'cmbItem6
        '
        Me.cmbItem6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem6.FormattingEnabled = True
        Me.cmbItem6.Location = New System.Drawing.Point(27, 190)
        Me.cmbItem6.Name = "cmbItem6"
        Me.cmbItem6.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem6.TabIndex = 5
        '
        'cmbItem5
        '
        Me.cmbItem5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem5.FormattingEnabled = True
        Me.cmbItem5.Location = New System.Drawing.Point(26, 157)
        Me.cmbItem5.Name = "cmbItem5"
        Me.cmbItem5.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem5.TabIndex = 4
        '
        'cmbItem4
        '
        Me.cmbItem4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem4.FormattingEnabled = True
        Me.cmbItem4.Location = New System.Drawing.Point(26, 124)
        Me.cmbItem4.Name = "cmbItem4"
        Me.cmbItem4.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem4.TabIndex = 3
        '
        'cmbItem8
        '
        Me.cmbItem8.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem8.FormattingEnabled = True
        Me.cmbItem8.Location = New System.Drawing.Point(28, 256)
        Me.cmbItem8.Name = "cmbItem8"
        Me.cmbItem8.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem8.TabIndex = 7
        '
        'cmbItem7
        '
        Me.cmbItem7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbItem7.FormattingEnabled = True
        Me.cmbItem7.Location = New System.Drawing.Point(27, 223)
        Me.cmbItem7.Name = "cmbItem7"
        Me.cmbItem7.Size = New System.Drawing.Size(169, 27)
        Me.cmbItem7.TabIndex = 6
        '
        'chkFlag1
        '
        Me.chkFlag1.AutoSize = True
        Me.chkFlag1.Location = New System.Drawing.Point(23, 25)
        Me.chkFlag1.Name = "chkFlag1"
        Me.chkFlag1.Size = New System.Drawing.Size(91, 16)
        Me.chkFlag1.TabIndex = 0
        Me.chkFlag1.Text = "竜の鱗を装備"
        Me.chkFlag1.UseVisualStyleBackColor = True
        '
        'chkFlag5
        '
        Me.chkFlag5.AutoSize = True
        Me.chkFlag5.Location = New System.Drawing.Point(23, 153)
        Me.chkFlag5.Name = "chkFlag5"
        Me.chkFlag5.Size = New System.Drawing.Size(111, 16)
        Me.chkFlag5.TabIndex = 4
        Me.chkFlag5.Text = "死の首飾りを入手"
        Me.chkFlag5.UseVisualStyleBackColor = True
        '
        'chkFlag4
        '
        Me.chkFlag4.AutoSize = True
        Me.chkFlag4.Location = New System.Drawing.Point(23, 121)
        Me.chkFlag4.Name = "chkFlag4"
        Me.chkFlag4.Size = New System.Drawing.Size(101, 16)
        Me.chkFlag4.TabIndex = 3
        Me.chkFlag4.Text = "ゴーレムを倒した"
        Me.chkFlag4.UseVisualStyleBackColor = True
        '
        'chkFlag3
        '
        Me.chkFlag3.AutoSize = True
        Me.chkFlag3.Location = New System.Drawing.Point(23, 89)
        Me.chkFlag3.Name = "chkFlag3"
        Me.chkFlag3.Size = New System.Drawing.Size(98, 16)
        Me.chkFlag3.TabIndex = 2
        Me.chkFlag3.Text = "ドラゴンを倒した"
        Me.chkFlag3.UseVisualStyleBackColor = True
        '
        'chkFlag2
        '
        Me.chkFlag2.AutoSize = True
        Me.chkFlag2.Location = New System.Drawing.Point(23, 57)
        Me.chkFlag2.Name = "chkFlag2"
        Me.chkFlag2.Size = New System.Drawing.Size(115, 16)
        Me.chkFlag2.TabIndex = 1
        Me.chkFlag2.Text = "戦士の腕輪を装備"
        Me.chkFlag2.UseVisualStyleBackColor = True
        '
        'numCrypt
        '
        Me.numCrypt.Location = New System.Drawing.Point(636, 324)
        Me.numCrypt.Maximum = New Decimal(New Integer() {7, 0, 0, 0})
        Me.numCrypt.Name = "numCrypt"
        Me.numCrypt.Size = New System.Drawing.Size(120, 26)
        Me.numCrypt.TabIndex = 28
        '
        'txtResult
        '
        Me.txtResult.Location = New System.Drawing.Point(636, 361)
        Me.txtResult.Name = "txtResult"
        Me.txtResult.ReadOnly = True
        Me.txtResult.Size = New System.Drawing.Size(120, 26)
        Me.txtResult.TabIndex = 30
        '
        'btnGetParam
        '
        Me.btnGetParam.Location = New System.Drawing.Point(131, 47)
        Me.btnGetParam.Name = "btnGetParam"
        Me.btnGetParam.Size = New System.Drawing.Size(144, 37)
        Me.btnGetParam.TabIndex = 5
        Me.btnGetParam.Text = "↓解析"
        Me.btnGetParam.UseVisualStyleBackColor = True
        '
        'btnGetPass
        '
        Me.btnGetPass.Location = New System.Drawing.Point(281, 47)
        Me.btnGetPass.Name = "btnGetPass"
        Me.btnGetPass.Size = New System.Drawing.Size(144, 39)
        Me.btnGetPass.TabIndex = 6
        Me.btnGetPass.Text = "↑生成"
        Me.btnGetPass.UseVisualStyleBackColor = True
        '
        'lblName
        '
        Me.lblName.AutoSize = True
        Me.lblName.Location = New System.Drawing.Point(14, 140)
        Me.lblName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblName.Name = "lblName"
        Me.lblName.Size = New System.Drawing.Size(49, 19)
        Me.lblName.TabIndex = 9
        Me.lblName.Text = "名前"
        '
        'lblGold
        '
        Me.lblGold.AutoSize = True
        Me.lblGold.Location = New System.Drawing.Point(14, 169)
        Me.lblGold.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblGold.Name = "lblGold"
        Me.lblGold.Size = New System.Drawing.Size(69, 19)
        Me.lblGold.TabIndex = 11
        Me.lblGold.Text = "所持金"
        '
        'lblExp
        '
        Me.lblExp.AutoSize = True
        Me.lblExp.Location = New System.Drawing.Point(14, 199)
        Me.lblExp.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblExp.Name = "lblExp"
        Me.lblExp.Size = New System.Drawing.Size(69, 19)
        Me.lblExp.TabIndex = 13
        Me.lblExp.Text = "経験値"
        '
        'lblHerb
        '
        Me.lblHerb.AutoSize = True
        Me.lblHerb.Location = New System.Drawing.Point(14, 235)
        Me.lblHerb.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblHerb.Name = "lblHerb"
        Me.lblHerb.Size = New System.Drawing.Size(49, 19)
        Me.lblHerb.TabIndex = 15
        Me.lblHerb.Text = "薬草"
        '
        'lblKey
        '
        Me.lblKey.AutoSize = True
        Me.lblKey.Location = New System.Drawing.Point(14, 265)
        Me.lblKey.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblKey.Name = "lblKey"
        Me.lblKey.Size = New System.Drawing.Size(89, 19)
        Me.lblKey.TabIndex = 17
        Me.lblKey.Text = "魔法の鍵"
        '
        'lblWeapon
        '
        Me.lblWeapon.AutoSize = True
        Me.lblWeapon.Location = New System.Drawing.Point(14, 300)
        Me.lblWeapon.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblWeapon.Name = "lblWeapon"
        Me.lblWeapon.Size = New System.Drawing.Size(49, 19)
        Me.lblWeapon.TabIndex = 19
        Me.lblWeapon.Text = "武器"
        '
        'lblShield
        '
        Me.lblShield.AutoSize = True
        Me.lblShield.Location = New System.Drawing.Point(14, 374)
        Me.lblShield.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblShield.Name = "lblShield"
        Me.lblShield.Size = New System.Drawing.Size(29, 19)
        Me.lblShield.TabIndex = 23
        Me.lblShield.Text = "盾"
        '
        'lblArmor
        '
        Me.lblArmor.AutoSize = True
        Me.lblArmor.Location = New System.Drawing.Point(14, 338)
        Me.lblArmor.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblArmor.Name = "lblArmor"
        Me.lblArmor.Size = New System.Drawing.Size(29, 19)
        Me.lblArmor.TabIndex = 21
        Me.lblArmor.Text = "鎧"
        '
        'grpItem
        '
        Me.grpItem.Controls.Add(Me.cmbItem1)
        Me.grpItem.Controls.Add(Me.cmbItem2)
        Me.grpItem.Controls.Add(Me.cmbItem3)
        Me.grpItem.Controls.Add(Me.cmbItem4)
        Me.grpItem.Controls.Add(Me.cmbItem5)
        Me.grpItem.Controls.Add(Me.cmbItem6)
        Me.grpItem.Controls.Add(Me.cmbItem7)
        Me.grpItem.Controls.Add(Me.cmbItem8)
        Me.grpItem.Location = New System.Drawing.Point(298, 100)
        Me.grpItem.Name = "grpItem"
        Me.grpItem.Size = New System.Drawing.Size(217, 298)
        Me.grpItem.TabIndex = 25
        Me.grpItem.TabStop = False
        Me.grpItem.Text = "道具"
        '
        'grpFlag
        '
        Me.grpFlag.Controls.Add(Me.chkFlag1)
        Me.grpFlag.Controls.Add(Me.chkFlag5)
        Me.grpFlag.Controls.Add(Me.chkFlag4)
        Me.grpFlag.Controls.Add(Me.chkFlag3)
        Me.grpFlag.Controls.Add(Me.chkFlag2)
        Me.grpFlag.Location = New System.Drawing.Point(527, 102)
        Me.grpFlag.Name = "grpFlag"
        Me.grpFlag.Size = New System.Drawing.Size(251, 199)
        Me.grpFlag.TabIndex = 26
        Me.grpFlag.TabStop = False
        Me.grpFlag.Text = "フラグ"
        '
        'lblResult
        '
        Me.lblResult.AutoSize = True
        Me.lblResult.Location = New System.Drawing.Point(531, 364)
        Me.lblResult.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblResult.Name = "lblResult"
        Me.lblResult.Size = New System.Drawing.Size(89, 19)
        Me.lblResult.TabIndex = 29
        Me.lblResult.Text = "チェック"
        '
        'lblCrypt
        '
        Me.lblCrypt.AutoSize = True
        Me.lblCrypt.Location = New System.Drawing.Point(531, 322)
        Me.lblCrypt.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblCrypt.Name = "lblCrypt"
        Me.lblCrypt.Size = New System.Drawing.Size(69, 19)
        Me.lblCrypt.TabIndex = 27
        Me.lblCrypt.Text = "暗号化"
        '
        'txtLevel
        '
        Me.txtLevel.Location = New System.Drawing.Point(112, 109)
        Me.txtLevel.Name = "txtLevel"
        Me.txtLevel.ReadOnly = True
        Me.txtLevel.Size = New System.Drawing.Size(163, 26)
        Me.txtLevel.TabIndex = 8
        Me.txtLevel.Text = "1"
        '
        'lblLevel
        '
        Me.lblLevel.AutoSize = True
        Me.lblLevel.Location = New System.Drawing.Point(14, 112)
        Me.lblLevel.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
        Me.lblLevel.Name = "lblLevel"
        Me.lblLevel.Size = New System.Drawing.Size(69, 19)
        Me.lblLevel.TabIndex = 7
        Me.lblLevel.Text = "レベル"
        '
        'numGold
        '
        Me.numGold.Location = New System.Drawing.Point(111, 173)
        Me.numGold.Maximum = New Decimal(New Integer() {65535, 0, 0, 0})
        Me.numGold.Name = "numGold"
        Me.numGold.Size = New System.Drawing.Size(164, 26)
        Me.numGold.TabIndex = 12
        '
        'numExp
        '
        Me.numExp.Location = New System.Drawing.Point(111, 205)
        Me.numExp.Maximum = New Decimal(New Integer() {65535, 0, 0, 0})
        Me.numExp.Name = "numExp"
        Me.numExp.Size = New System.Drawing.Size(164, 26)
        Me.numExp.TabIndex = 14
        '
        'txtPass1
        '
        Me.txtPass1.ImeMode = System.Windows.Forms.ImeMode.Hiragana
        Me.txtPass1.Location = New System.Drawing.Point(131, 11)
        Me.txtPass1.MaxLength = 5
        Me.txtPass1.Name = "txtPass1"
        Me.txtPass1.Size = New System.Drawing.Size(110, 26)
        Me.txtPass1.TabIndex = 1
        Me.txtPass1.Text = "ふるいけや"
        '
        'txtPass2
        '
        Me.txtPass2.ImeMode = System.Windows.Forms.ImeMode.Hiragana
        Me.txtPass2.Location = New System.Drawing.Point(247, 11)
        Me.txtPass2.MaxLength = 7
        Me.txtPass2.Name = "txtPass2"
        Me.txtPass2.Size = New System.Drawing.Size(157, 26)
        Me.txtPass2.TabIndex = 2
        Me.txtPass2.Text = "かわずとびこむ"
        '
        'txtPass3
        '
        Me.txtPass3.ImeMode = System.Windows.Forms.ImeMode.Hiragana
        Me.txtPass3.Location = New System.Drawing.Point(410, 11)
        Me.txtPass3.MaxLength = 5
        Me.txtPass3.Name = "txtPass3"
        Me.txtPass3.Size = New System.Drawing.Size(110, 26)
        Me.txtPass3.TabIndex = 3
        Me.txtPass3.Text = "みずのおと"
        '
        'txtPass4
        '
        Me.txtPass4.ImeMode = System.Windows.Forms.ImeMode.Hiragana
        Me.txtPass4.Location = New System.Drawing.Point(525, 11)
        Me.txtPass4.MaxLength = 3
        Me.txtPass4.Name = "txtPass4"
        Me.txtPass4.Size = New System.Drawing.Size(70, 26)
        Me.txtPass4.TabIndex = 4
        Me.txtPass4.Text = "ばしや"
        '
        'FrmDq1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 19.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.ClientSize = New System.Drawing.Size(800, 417)
        Me.Controls.Add(Me.txtPass4)
        Me.Controls.Add(Me.txtPass3)
        Me.Controls.Add(Me.txtPass2)
        Me.Controls.Add(Me.txtPass1)
        Me.Controls.Add(Me.numExp)
        Me.Controls.Add(Me.numGold)
        Me.Controls.Add(Me.lblLevel)
        Me.Controls.Add(Me.lblResult)
        Me.Controls.Add(Me.lblCrypt)
        Me.Controls.Add(Me.grpFlag)
        Me.Controls.Add(Me.grpItem)
        Me.Controls.Add(Me.lblArmor)
        Me.Controls.Add(Me.lblShield)
        Me.Controls.Add(Me.lblWeapon)
        Me.Controls.Add(Me.lblKey)
        Me.Controls.Add(Me.lblHerb)
        Me.Controls.Add(Me.lblExp)
        Me.Controls.Add(Me.lblGold)
        Me.Controls.Add(Me.lblName)
        Me.Controls.Add(Me.btnGetPass)
        Me.Controls.Add(Me.btnGetParam)
        Me.Controls.Add(Me.cmbArmor)
        Me.Controls.Add(Me.cmbWeapon)
        Me.Controls.Add(Me.cmbShield)
        Me.Controls.Add(Me.numKey)
        Me.Controls.Add(Me.numCrypt)
        Me.Controls.Add(Me.numHerb)
        Me.Controls.Add(Me.txtLevel)
        Me.Controls.Add(Me.txtResult)
        Me.Controls.Add(Me.txtPlayerName)
        Me.Controls.Add(Me.lblPass)
        Me.Font = New System.Drawing.Font("ＭＳ ゴシック", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Margin = New System.Windows.Forms.Padding(5)
        Me.MaximizeBox = False
        Me.Name = "FrmDq1"
        Me.Text = "DQ1 - 復活の呪文解析ツール"
        CType(Me.numHerb, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.numKey, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.numCrypt, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grpItem.ResumeLayout(False)
        Me.grpFlag.ResumeLayout(False)
        Me.grpFlag.PerformLayout()
        CType(Me.numGold, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.numExp, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents lblPass As System.Windows.Forms.Label
    Friend WithEvents txtPlayerName As System.Windows.Forms.TextBox
    Friend WithEvents numHerb As System.Windows.Forms.NumericUpDown
    Friend WithEvents numKey As System.Windows.Forms.NumericUpDown
    Friend WithEvents cmbShield As System.Windows.Forms.ComboBox
    Friend WithEvents cmbWeapon As System.Windows.Forms.ComboBox
    Friend WithEvents cmbArmor As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem1 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem2 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem3 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem6 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem5 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem4 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem8 As System.Windows.Forms.ComboBox
    Friend WithEvents cmbItem7 As System.Windows.Forms.ComboBox
    Friend WithEvents chkFlag1 As System.Windows.Forms.CheckBox
    Friend WithEvents chkFlag5 As System.Windows.Forms.CheckBox
    Friend WithEvents chkFlag4 As System.Windows.Forms.CheckBox
    Friend WithEvents chkFlag3 As System.Windows.Forms.CheckBox
    Friend WithEvents chkFlag2 As System.Windows.Forms.CheckBox
    Friend WithEvents numCrypt As System.Windows.Forms.NumericUpDown
    Friend WithEvents txtResult As System.Windows.Forms.TextBox
    Friend WithEvents btnGetParam As System.Windows.Forms.Button
    Friend WithEvents btnGetPass As System.Windows.Forms.Button
    Friend WithEvents lblName As System.Windows.Forms.Label
    Friend WithEvents lblGold As System.Windows.Forms.Label
    Friend WithEvents lblExp As System.Windows.Forms.Label
    Friend WithEvents lblHerb As System.Windows.Forms.Label
    Friend WithEvents lblKey As System.Windows.Forms.Label
    Friend WithEvents lblWeapon As System.Windows.Forms.Label
    Friend WithEvents lblShield As System.Windows.Forms.Label
    Friend WithEvents lblArmor As System.Windows.Forms.Label
    Friend WithEvents grpItem As System.Windows.Forms.GroupBox
    Friend WithEvents grpFlag As System.Windows.Forms.GroupBox
    Friend WithEvents lblResult As System.Windows.Forms.Label
    Friend WithEvents lblCrypt As System.Windows.Forms.Label
    Friend WithEvents txtLevel As System.Windows.Forms.TextBox
    Friend WithEvents lblLevel As System.Windows.Forms.Label
    Friend WithEvents numGold As System.Windows.Forms.NumericUpDown
    Friend WithEvents numExp As System.Windows.Forms.NumericUpDown
    Friend WithEvents txtPass1 As System.Windows.Forms.TextBox
    Friend WithEvents txtPass2 As System.Windows.Forms.TextBox
    Friend WithEvents txtPass3 As System.Windows.Forms.TextBox
    Friend WithEvents txtPass4 As System.Windows.Forms.TextBox

End Class
[VB.NET]FrmDq1.Designer.vb


at 0 件のコメント:
Labels:
登録: 投稿 (Atom)

[雑記]ドローン（DJI Mini 3）

（１）雑記 もともと多趣味の友人 masakazu Drone 氏が、 最近、 ドローン にハマり始めて、 更に、新たな趣味が増えたとのこと。 ドローン を始めてから、 まだ1年も経っていないとのことですが、 旅行先で山や川の景色を 空撮 して、 Youtube ...

  • [雑記]ドローン（DJI Mini 3）
    （１）雑記 もともと多趣味の友人 masakazu Drone 氏が、 最近、 ドローン にハマり始めて、 更に、新たな趣味が増えたとのこと。 ドローン を始めてから、 まだ1年も経っていないとのことですが、 旅行先で山や川の景色を 空撮 して、 Youtube ...
  • [Book's Review (Develop)]Java言語で学ぶデザインパターン入門第３版
    （１）レビュー 　10年以上前からある書籍ですが、昨今のJavaのバージョンに合わせて、 　リニューアルされましたので、改めて紹介いたします。 　GOFが提唱したデザインパターンについて、とてもわかりやすくまとめた１冊です。 　各パターンを章毎にまとめてあり、クラス図・...
  • [SQLServer]sqlcmdコマンドの表示桁数の指定
    （１）はじめに 　 sqlcmd コマンドで、 　SELECTステートメントを実行した時、 　行の折り返しで、結果が見づらくなることがあります。 　 Oracle の LINESIZE に相当する設定が、 　 SQLServer にもないか調べてみました。 　普段...
  • [Hardware's Review]SEIKO CLOCK (セイコークロック) デジタル ウィークリーアラーム
    （１）レビュー 　目覚まし時計の調子が悪くなったので、新たに購入しました。 　指定した時刻にアラームが鳴ってくれさえすればよいので、 　特別な機能は求めていなかったのですが、 　価格の割に便利な機能が搭載されていたので、購入に至りました。 　最近は、スマホにもアラーム...
  • [Algo]和と積から元の２数の算出
    [はじめに] （１） ある２数の和と積から、元の２数を求めるアルゴリズム です。 　　　例えば、『 足して５ 』、『 掛けて６ 』になる２つの数は、 　　　 ２ と ３ になります。 　　　これを解くアルゴリズムとして、 　　　 ２次方程式の解の解法 を利用することがで...
  • [Book's Review (Develop)]ASP.NET MVC 5実践プログラミング
    （１）レビュー 　 ASP.NET は、以下の2種類に大別されます。 　 （１）ASP.NET Web Form 　　　.NET Framework1.0リリース時の頃から導入 　 （２）ASP.NET MVC 　　　.NET Framework4以降に導入 　...
  • [VBA]Excelのシートを並べ替え
    [はじめに] Excelでシートを昇順に並べ替える機会があったので、 備忘録としてサンプルソースを掲載します。 サンプルは昇順ソートですが、引数を変更すると降順にも対応できるようにしています。 [ソース] コードのコピー Optio...
  • [Book's Review (Develop)]独習JavaScript 新版
    （１）レビュー 　JavaScriptは古くからあり、時代と共に進化してきています。 　JavaScriptの独習シリーズは過去にもありましたが、 　最近（2021年）、独習シリーズでJavaScriptの新版が登場しました。 　 クラス 、 反復処理 、 非同期処理 ...
  • [.NET][Edge対応版]プログラムコードの変換（C#、VB.NET→HTML）
    [はじめに] 　・プログラムソース（C#、VB.NET）を 　　ブログ公開用のHTMLに変換するツールです。 　　（コード量が膨大の為、変換処理のみ掲載しています。） [機能] 　　プログラムソースの文字列を、HTMLに変換する。 　　変換後のHTMLは、<ta...
  • [Tool's Review]ステンレスものほし台 ブロー台付き BD-50S 【ブロー台付きで安定性抜群・U型の竿受けで竿の取り外し楽々! 】
    （１）レビュー 　最近、引越しをしました。 　ベランダの物干し竿を固定する位置が転居前よりも高く、 　身長が低い妻にとって家事がしづらいので、 　 物干し台 を購入しました。 　 　組み立て式の為、多少のぐらつきはありますが、 　実際使ってみても全く不便さを感じませ...