ผมปัญหากับการปิด Form ครับ โดยผมจะให้โปรแกรมของผมนั้นทำงานโดย เมื่อเปิดขึ้นมาจะขึ้น Form1 และ เมื่อกด Button1 Form2 จะแสดงขึ้น และเมื่อปิด Form2 แล้ว Form1 จะยังคงอยู่ครับ Autoit พอจะทำได้ไหมครับ
- Code:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("โปรแกรมคำนวน W", 290, 211, 625, 200)
$Button1 = GUICtrlCreateButton("อยากทำแอมป์กี่ วัตต์ กี่โอม", 72, 48, 145, 33, 0)
$Button2 = GUICtrlCreateButton("หม้อแปลงทำขยายได้กี่วัตต์", 72, 88, 145, 33, 0)
$Button3 = GUICtrlCreateButton("DC เป็น AC", 72, 128, 145, 33, 0)
$Button4 = GUICtrlCreateButton("ต้องการทำWจริงของคลาส AB", 72, 168, 145, 33, 0)
$Label1 = GUICtrlCreateLabel("สูตรคำนวนโดย tv_2007 แห่ง Un-sound.com", 40, 8, 213, 17)
$Label2 = GUICtrlCreateLabel("จัดทำโปรแกรมโดย เด็กรักเครื่องเสียง แห่ง Un-sound.com", 8, 24, 276, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
AMPWH()
Case $Button2
TW()
Case $Button3
DCTOAC()
Case $Button4
WYes()
EndSwitch
WEnd
Func AMPWH()
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("อยากทำแอมป์กี่ W กี่ โอห์ม", 291, 178, 289, 287)
$Button5 = GUICtrlCreateButton("คำนวน", 64, 136, 161, 33, 0)
$Label3 = GUICtrlCreateLabel("ต้องการทำแอมป์(W)", 64, 8, 97, 17)
$Input1 = GUICtrlCreateInput("1667", 64, 24, 161, 21)
$Label4 = GUICtrlCreateLabel("กี่โอห์ม", 64, 48, 36, 17)
$Input2 = GUICtrlCreateInput("8", 64, 64, 161, 21)
$Label5 = GUICtrlCreateLabel("กำลัง W ของ TR Out Put", 64, 88, 118, 17)
$Input3 = GUICtrlCreateInput("150", 64, 104, 161, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
$VDC1 = GUICtrlRead($Input1) * GUICtrlRead($Input2) *2
$VDC2 = $VDC1^0.5
MsgBox(4096, "Vdc=", "ต้องใช้ไฟ Vdc="&$VDC2)
$VAC1 = $VDC2 / 1.414
MsgBox(4096, "Vac=", "ต้องใช้ไฟ Vac="&$VAC1)
$A1 = GUICtrlRead($Input1) / GUICtrlRead($Input2)
$A2 = $A1 ^0.5
MsgBox(4096, "A=", "กระแส="&$A2)
$VA1 = $VAC1 + $VAC1
$VA2 = $VA1 * $A2
MsgBox(4096, "VA=", "VA="&$VA2)
$ASO1 = $A2 *2
MsgBox(4096, "ASO=", "ทำเป็นstereo ต้องใช้กระแส="&$ASO1)
$ATR1 = $A2 /2
MsgBox(4096, "ATR=", "จ่ายกระแสให้ TR out put ต่อ 1 ข้าง(+)="&$ATR1)
MsgBox(4096, "ATR=", "จ่ายกระแสให้ TR out put ต่อ 1 ข้าง(-)="&$ATR1)
$TROUT1 = $VDC2 *2
$TROUT2 = GUICtrlRead($Input3) / $TROUT1
MsgBox(4096, "TROUT=", "กระแสไหลผ่าน TR out put ต่อ 1 ตัว="&$TROUT2)
$NTR1 = $ATR1 / $TROUT2
MsgBox(4096, "NTR=", "ต้องใช้ TR out put (+) จำนวน="&$NTR1)
MsgBox(4096, "NTR=", "ต้องใช้ TR out put (-) จำนวน="&$NTR1)
$AB1 = GUICtrlRead($Input1) * 0.6
MsgBox(4096, "AB60%=", "ประสิทธิภาพคลาส AB ไม่เกิน 60% จะได้="&$AB1)
$SPH1 = GUICtrlRead($Input2)
$SPW1 = $AB1 + 50
MsgBox(4096, "SPH=", "ดอกลำโพงที่ต้องใช้(โอห์ม)="&$SPH1)
MsgBox(4096, "SPW=", "ดอกลำโพงที่ต้องใช้(W)="&$SPW1)
EndSwitch
WEnd
EndFunc
Func TW()
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("หม้อแปลงทำขยายได้กี่วัตต์", 291, 141, 623, 240)
$Label6 = GUICtrlCreateLabel("มีหม้อแปลง(Vac)", 40, 8, 84, 17)
$Input4 = GUICtrlCreateInput("115.5", 40, 24, 209, 21)
$Label7 = GUICtrlCreateLabel("โหลดที่(โอห์ม)", 40, 48, 67, 17)
$Input5 = GUICtrlCreateInput("8", 40, 64, 209, 21)
$Button6 = GUICtrlCreateButton("คำนวน", 80, 96, 137, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button6
$VDC3 = GUICtrlRead($Input4) * 1.414
$VDC4 = $VDC3 * $VDC3
$VDC5 = GUICtrlRead($Input5) * 2
$VDC6 = $VDC4 / $VDC5
MsgBox(4096, "ABW=", "ทำแอมป์ AB ได้(W)="&$VDC6)
$AT1 = $VDC6 / GUICtrlRead($Input5)
$AT2 = $AT1 ^ 0.5
MsgBox(4096, "AT=", "กระแสที่ต้องใช้(A)="&$AT2)
EndSwitch
WEnd
EndFunc
Func DCTOAC()
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("DC เป็น AC", 291, 115, 409, 221)
$Label7 = GUICtrlCreateLabel("ไฟ DC(VDC)", 32, 8, 66, 17)
$Input6 = GUICtrlCreateInput("163.3", 32, 24, 225, 21)
$Button7 = GUICtrlCreateButton("คำนวน", 72, 64, 145, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button7
$VAC3= GUICtrlRead($Input6) /1.414
MsgBox(4096, "Vac=", "ไฟ AC(VAC)="&$VAC3)
EndSwitch
WEnd
EndFunc
Func WYes()
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("ต้องการทำWจริงของคลาส AB", 291, 115, 409, 221)
$Label8 = GUICtrlCreateLabel("จะได้ กำลังวัตต์ที่ 100%", 32, 8, 200, 17)
$Input7 = GUICtrlCreateInput("1000", 32, 24, 225, 21)
$Button8 = GUICtrlCreateButton("คำนวน", 72, 64, 145, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button8
$WONE = GUICtrlRead($Input7) /0.6
MsgBox(4096, "Vac=", "จะได้ กำลังวัตต์ที่ 100%(W)="&$WONE)
EndSwitch
WEnd
EndFunc