T3_1_PL_Ass計算.vb 詳細説明書

目的

パレット型自動倉庫（PL_Ass型）の設計計算を行うメインフォームクラス。 各種入力パラメータを受け取り、倉庫の必要寸法・面積・段構成などを自動計算します。

主要なプロパティ

このクラスはSystem.Windows.Forms.Formを継承しており、多数のテキストボックス(Tb)、 ラベル(L)、ボタン(Bt)、パネル(Panel)などのUIコントロールを保持しています。 主な変数は以下の通りです:

• PL寸法関連: PL幅, PL奥行, PL全高, PL厚み, 荷高
• 倉庫構成: 基数, 連数, 段数, 列数, PL格納数
• スペース関連: 隣接C, 棚C, 支柱幅
• 計算結果: 棚全幅, 棚全長, 棚全高, 必要幅, 必要長, 必要高
• 段構成: 最上段, 補強材有段, 補強材無段, 最低高
• 面積関連: 床面積計, 仮想床面積計, レイアウト面積, 防火壁数

主要なメソッド/関数

• PL_Ass計算_Load - フォーム初期化とメイン処理の起動
• Tb読込 - テキストボックスからデータを読み込む
• PL_Ass計算 - メインの計算ロジック
• 計算開始Bt_Click - 計算ボタンクリック時の処理
• 表紙Pb_Click / スタートBt_Click - タブ切り替え処理
• 閉じるBt_Click - フォームクローズ処理

機能説明

フォームのロード時に実行されるイベントハンドラです。著作権表示・有効期限表示の設定、 有効期限チェック、初期データ読み込み、初期計算を実行します。

引数

戻り値

型: なし (Sub)
説明: イベントハンドラのため戻り値なし

処理フロー

1. 著作権ラベルと有効期限ラベルにテキストを設定
2. 現在日付を取得し、試用版有効期限と比較
3. 有効期限切れの場合はメッセージボックスを表示してフォームを閉じる
4. 有効期限内の場合はTb読込()を呼び出してデータを読み込む
5. PL_Ass計算()を呼び出して初期計算を実行

機能説明

各テキストボックスに入力された値を読み込み、変数に格納します。 同時に一部の計算（荷高の算出など）も行います。

引数

なし

戻り値

型: なし (Sub)
説明: 内部変数に値を設定するのみ

処理フロー

1. PL幅、PL奥行、PL全高、PL厚みをテキストボックスから読み込む
2. 荷高 = PL全高 - PL厚み を計算し、テキストボックスに表示
3. 基数、連数、段数を読み込む
4. 隣接Cを読み込む

機能説明

パレット型自動倉庫の各種寸法・面積を計算するメイン処理です。 格納数、棚寸法、連ピッチ、段構成、必要スペース、床面積、仮想床面積、防火壁数、レイアウト面積などを順次計算します。

引数

なし（クラス内の変数を使用）

戻り値

型: なし (Sub)
説明: 計算結果は各テキストボックスに表示される

処理フロー

1. 格納数計算:
   • 列数 = 基数 × 2
   • PL格納数 = 列数 × 連数 × 段数
2. 棚全幅計算:
   • 棚走行路幅 = PL幅 + 200
   • 棚全幅 = (PL幅 + 100) × 2 + 棚走行路幅
   • 必要幅 = 棚全幅 + 隣接C × 2
3. 連ピッチ計算:
   • 連ピッチ = 支柱幅 + PL奥行 + 棚C × 2
4. 棚長計算:
   • 棚全長 = 連ピッチ × 連数 + 棚C
5. 必要長計算:
   • 必要長 = 棚全長 + 棚後部長 + メンテ通路 + 入出庫CV長 + 荷役通路
6. 段構成計算:
   • 最上段 = PL全高 + 昇降C + 補強材厚 + 220（最小値1600）
   • 補強材有段 = PL全高 + 昇降C + 補強材厚 + 昇降C + カンチレバー厚
   • 補強材有段_段数 = Int(段数 / 3)
   • 補強材無段 = PL全高 + 昇降C + カンチレバー厚
   • 補強材無段_段数 = 段数 - 補強材有段_段数 - 1
7. 棚全高・必要高計算:
   • 棚全高 = 最低高 + (補強材有段 × 補強材有段_段数) + (補強材無段 × 補強材無段_段数) + 最上段
   • 必要高 = 棚全高 + 天井C
8. 基当たり必要面積計算:
   • 基当たり必要面積 = Int(必要幅 × 必要長 / 1000²)
9. 仮想床計算:
   • 最上段カンチレバー上面高 = 棚全高 - 最上段
   • 仮想床数 = Int(最上段カンチレバー上面高 / 5000)
   • 仮想床数面積 = 仮想床数 × (棚全幅 × 棚全長)
   • 基当たり仮想床面積 = Int(仮想床数面積 / 1000²)
10. レイアウト面積計算:
    • レイアウト幅 = (棚全幅 + 隣接C) × 基数 + 隣接C
    • 床面積計 = ((レイアウト幅 × 必要長) × 基数) / 1000²
    • 仮想床面積計 = 基当たり仮想床面積 × 基数
11. 防火壁計算:
    • 防火壁判断用面積 = 床面積計 + 仮想床面積計
    • 防火壁数 = Int(防火壁判断用面積 / 1500)
    • 防火壁厚 = 150
    • レイアウト面積 = ((レイアウト幅 + 防火壁数 × (防火壁厚 + 200)) × 必要長) / 1000²

機能説明

「計算開始」ボタンがクリックされた時に実行されるイベントハンドラです。 データを再読み込みして再計算を実行し、結果表示エリアの背景色を切り替えて視覚的なフィードバックを提供します。

引数

戻り値

型: なし (Sub)
説明: イベントハンドラのため戻り値なし

処理フロー

1. Tb読込()でデータを再読み込み
2. PL_Ass計算()で再計算を実行
3. 計算開始_Chkフラグに応じて、主要結果テキストボックスの背景色を切り替え（Yellow ⇔ Aquamarine）
4. 計算開始_Chk2フラグに応じて、Panel1の背景色を切り替え（LightYellow ⇔ PowderBlue）

機能説明

表紙画像（Pb）またはスタートボタンがクリックされた時に、 タブコントロールを「PL自動倉庫Tp」タブに切り替えます。

引数

戻り値

型: なし (Sub)
説明: イベントハンドラのため戻り値なし

処理フロー

1. TabControl1のSelectedTabプロパティをPL自動倉庫Tpに設定

機能説明

「閉じる」ボタンがクリックされた時にフォームを閉じます。

引数

戻り値

型: なし (Sub)
説明: イベントハンドラのため戻り値なし

処理フロー

1. Me.Close()でフォームを閉じる