📖 T3_1_手計算方法.vb

1. [メインメニュー] T3_Uty0メニュー.vb
   ↓
   手計算方法Bt_Click イベント発火

2. [フォーム生成] T3_1_手計算方法F
   ↓
   Dim F As New T3_1_手計算方法F

3. [表示] モーダルダイアログとして表示
   ↓
   F.ShowDialog(Me)

4. [ユーザー操作] 説明文を読む
   ↓
   RichTextBox1 に表示されたテキストを閲覧

5. [終了] 閉じるボタンクリック
   ↓
   閉じるBt_Click → Me.Close()

6. [リソース解放]
   ↓
   F.Dispose()

7. [メニューに戻る]
					

Public Class T3_1_手計算方法F
	Private Sub 閉じるBt_Click(sender As Object, e As EventArgs) Handles 閉じるBt.Click
		Me.Close()
	End Sub
End Class

【ユーザー操作】
1. ユーザーが「閉じる(メニュー画面に戻る)」ボタンをクリック
   ↓

【イベント発火】
2. 閉じるBt の Click イベントが発火
   ↓

【イベントハンドラ実行】
3. 閉じるBt_Click メソッドが呼び出される
   - sender: 閉じるBt オブジェクト
   - e: EventArgs オブジェクト（標準イベント引数）
   ↓

【フォームクローズ】
4. Me.Close() が実行される
   - Me = T3_1_手計算方法F インスタンス
   - Close() メソッドがフォームを閉じる処理を開始
   ↓

【イベント連鎖】
5. フォームのクローズイベントが発生
   - FormClosing イベント（定義されていないため処理なし）
   - FormClosed イベント（定義されていないため処理なし）
   ↓

【呼び出し元に制御が戻る】
6. ShowDialog() から制御が戻る
   - メニュー画面の手計算方法Bt_Click に戻る
   ↓

【リソース解放】
7. F.Dispose() が実行される（メニュー側のコード）
   - フォームとそのコントロールのリソースを解放
   ↓

【完了】
8. メニュー画面が操作可能な状態に戻る
					

Tera計算3は、Tera計算1（各設備の要求保管量）を前提条件として、

物流機器設備の面積を自分の手で計算するツール集です。


レイアウト設計（配送センターの規模）は、単に面積合計だけでは決まりません。

実際に建屋の縦横有効寸法内に収まるか、柱や防火壁に干渉しないかなど検討し、

建築法や消防法などの関係法案に合致しているか、安全が確保されているか、

作業運用から見て移動距離や荷役方法が適切か、設備投資と投資コストがバランスが良いか。

レイアウト設計は、いろいろな設計要素はあるが、


ここでは

  1.配送センターの規模規模を小さくまとめる。

  2.前工程と後工程を近づける。

この2点に着目してください。


上記2点を行うために、物流機器設備の縦・横・高さの寸法が必要となります。

Tera計算2の計算方法と手順を参考に、Tera計算3で個々の面積計算方法を学習してください。

' PictureBox を追加して図解を表示
Friend WithEvents 図解Pb As PictureBox

' Load イベントで画像を読み込む
Private Sub T3_1_手計算方法F_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	図解Pb.ImageLocation = MyPath & "\レイアウト設計概念図.jpg"
	図解Pb.SizeMode = PictureBoxSizeMode.Zoom
End Sub

' 印刷ボタンを追加
Friend WithEvents 印刷Bt As Button

' 印刷処理
Private Sub 印刷Bt_Click(sender As Object, e As EventArgs) Handles 印刷Bt.Click
	Dim pd As New PrintDocument()
	AddHandler pd.PrintPage, AddressOf PrintDocument_PrintPage
	pd.Print()
End Sub

Private Sub PrintDocument_PrintPage(sender As Object, e As PrintPageEventArgs)
	' RichTextBox の内容を印刷
	e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, 50, 50)
End Sub

' PDF出力ボタンを追加（iTextSharp などのライブラリ使用）
Private Sub PDF出力Bt_Click(sender As Object, e As EventArgs) Handles PDF出力Bt.Click
	Dim saveDialog As New SaveFileDialog()
	saveDialog.Filter = "PDF ファイル|*.pdf"

	If saveDialog.ShowDialog() = DialogResult.OK Then
		' PDF生成処理（ライブラリ依存）
		ExportToPDF(RichTextBox1.Text, saveDialog.FileName)
	End If
End Sub

' RichTextBox にハイパーリンクを追加
Private Sub T3_1_手計算方法F_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	RichTextBox1.DetectUrls = True
	AddHandler RichTextBox1.LinkClicked, AddressOf RichTextBox1_LinkClicked
End Sub

Private Sub RichTextBox1_LinkClicked(sender As Object, e As LinkClickedEventArgs)
	Process.Start(e.LinkText)
End Sub

' バージョン情報をコメントで記録
' Version 1.0.0 - 2025/01/XX - 初版作成
' Version 1.0.1 - 2025/XX/XX - テキスト内容更新
' Version 1.1.0 - 2025/XX/XX - 印刷機能追加

Public Class T3_1_手計算方法F
	Private Const VERSION As String = "1.0.0"

	' ... コード ...
End Class