📖 T3_1_Manual_Calculation_Method.vb

1. [Main Menu] T3_Uty0メニュー.vb
   ↓
   手計算方法Bt_Click Event Fires

2. [Form Generation] T3_1_手計算方法F
   ↓
   Dim F As New T3_1_手計算方法F

3. [Display] Render as Modal Dialog
   ↓
   F.ShowDialog(Me)

4. [User Operation] User reads the help text
   ↓
   Reads text loaded into RichTextBox1

5. [Exit] User clicks Close Button
   ↓
   閉じるBt_Click → Me.Close()

6. [Resource Release]
   ↓
   F.Dispose()

7. [Return to Menu]
          

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

[User Action]
1. User clicks the "Close (Return to Menu)" button.
   ↓

[Event Trigger]
2. Click event of 閉じるBt fires.
   ↓

[Handler Execution]
3. 閉じるBt_Click method is invoked.
   - sender: 閉じるBt Object
   - e: EventArgs Object
   ↓

[Form Closure]
4. Me.Close() is executed.
   - Me = Current instance of T3_1_手計算方法F
   - Close() sequence begins.
   ↓

[Event Chain]
5. Form closing events fire sequentially.
   - FormClosing
   - FormClosed
   ↓

[Return Control]
6. Modal ShowDialog() unblocks.
   - Control shifts back to Main Menu (T3_Uty0メニュー.vb).
   ↓

[Memory Release]
7. F.Dispose() is executed in the menu code.
   - Releases UI handles and memory.
   ↓

[End]
8. Main Menu resumes normal interactive state.
          

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

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


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

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

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

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

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


ここでは

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

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

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


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

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

' Add a PictureBox to render diagrams
Friend WithEvents 図解Pb As PictureBox

' Load image on Form Load
Private Sub T3_1_手計算方法F_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	図解Pb.ImageLocation = MyPath & "\LayoutConcept.jpg"
	図解Pb.SizeMode = PictureBoxSizeMode.Zoom
End Sub

' Add a Print button
Friend WithEvents 印刷Bt As Button

' Print sequence
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)
	' Spool RichTextBox text to printer graphics
	e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, 50, 50)
End Sub

' Add a PDF export button via iTextSharp or similar
Private Sub PDF出力Bt_Click(sender As Object, e As EventArgs) Handles PDF出力Bt.Click
	Dim saveDialog As New SaveFileDialog()
	saveDialog.Filter = "PDF Files|*.pdf"

	If saveDialog.ShowDialog() = DialogResult.OK Then
		' Call external PDF library function
		ExportToPDF(RichTextBox1.Text, saveDialog.FileName)
	End If
End Sub

' Enable URL clicking in the text box
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

' Document versions in class headers
' Version 1.0.0 - 2025/01/XX - Initial Release
' Version 1.0.1 - 2025/XX/XX - Copy update
' Version 1.1.0 - 2025/XX/XX - Added PDF Export

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

	' ... Class Logic ...
End Class