คือว่า อาจารย์ให้ไปลองทำโปรแกรมอะไรก็ได้มาอย่างนึง ผมเลยทำโปรแกรมเกี่ยวกับคำนวณเลข
ผมเลยลองทำโดยที่
เริ่มเปิดขึ้นมา มีให้ใส่เลข 1 2 3 เพื่อเลือกว่าจะให้คำนวณอะไร
ปัญหาที่ผมพบคือ
1.ผมลองใส่เลข1เพื่อทดสอบ(หาพ.ท4เหลี่ยม) ก็คำนวณสี่เหลี่ยมอะไรออกมาได้ตามปกติ
แต่พอผมลองใส่เลข2(หาพ.ท3เหลี่ยม)และ3(หาพ.ทวงกลม) มันเปิดขึ้นมาแล้วปิดเลยอ่าครับ เป็นเพราะอะไรหรอครับ
2.ท่าผมเปิดมาแล้วปิดเลยมันจะขึ้นข้อความ "คุณไม่ได้ใส่เลขนะใส่ใหม่" ผมไม่อยากให้มันมีตรงส่วนนี้อ่าครับ
ใครใจดีช่วยแก้โค้ดให้ผมที ผมมือใหม่มากๆTAT
นี่โค้ดครับ
ผมเลยลองทำโดยที่
เริ่มเปิดขึ้นมา มีให้ใส่เลข 1 2 3 เพื่อเลือกว่าจะให้คำนวณอะไร
ปัญหาที่ผมพบคือ
1.ผมลองใส่เลข1เพื่อทดสอบ(หาพ.ท4เหลี่ยม) ก็คำนวณสี่เหลี่ยมอะไรออกมาได้ตามปกติ
แต่พอผมลองใส่เลข2(หาพ.ท3เหลี่ยม)และ3(หาพ.ทวงกลม) มันเปิดขึ้นมาแล้วปิดเลยอ่าครับ เป็นเพราะอะไรหรอครับ
2.ท่าผมเปิดมาแล้วปิดเลยมันจะขึ้นข้อความ "คุณไม่ได้ใส่เลขนะใส่ใหม่" ผมไม่อยากให้มันมีตรงส่วนนี้อ่าครับ
ใครใจดีช่วยแก้โค้ดให้ผมที ผมมือใหม่มากๆTAT
นี่โค้ดครับ
- Code:
$option = InputBox("แจ้งให้ทราบ","กรุณาใส่เลขตามสูตรพื้นที่ที่คุณต้องการหานะจ๊ะ"&@CRLF&@CRLF&"1 คือ หาพื้นที่สีเหลี่ยม"&@CRLF&"2 คือ หาพื้นที่สามเหลี่ยมจ๊ะ"&@CRLF&"3 คือ หาพื้นที่วงกลม","1 or 2 or 3")
If $option = "" Then
MsgBox(0,"Error","คุณไม่ได้ใส่เลขนะใส่ใหม่")
ElseIf $option < 0 Then
MsgBox(0,"Error","ใส่เลขน้อยกว่า0ไม่ได้นะครับ")
ElseIf $option =1 Then
#include <GUIConstantsEx.au3>
$Form1 = GUICreate("โปรแกรมหาพื้นที่สี่เหลี่ยมจ้า", 267, 195, 348, 199)
$Label1 = GUICtrlCreateLabel("ใส่ความยาว", 16, 56, 59, 17)
$Input1 = GUICtrlCreateInput("ใส่ค่าความสูง", 80, 56, 161, 21)
$Label2 = GUICtrlCreateLabel("ใส่ความกว้าง", 16, 88, 64, 17)
$Input2 = GUICtrlCreateInput("ใส่ค่าความกว้าง", 80, 88, 161, 21)
$Input3 = GUICtrlCreateInput("", 80, 120, 161, 21)
$Button1 = GUICtrlCreateButton("คำนวณ", 120, 152, 49, 25)
$Label3 = GUICtrlCreateLabel("ผลที่ได้", 24, 120, 37, 17)
$Label4 = GUICtrlCreateLabel("หาพื้นที่สี่เหลี่ยมจ้า", 72, 16, 134, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Input3,GUICtrlRead($Input1)*GUICtrlRead($Input2))
EndSwitch
WEnd
ElseIf $option = 2 Then
#include <GUIConstantsEx.au3>
$Form5= GUICreate("โปรแกรมหาพื้นที่สามเหลี่ยมจ้า", 267, 195, 348, 199)
$Label5 = GUICtrlCreateLabel("ความสูง", 16, 56, 59, 17)
$Input5 = GUICtrlCreateInput("ใส่ค่าความสูง", 80, 56, 161, 21)
$Label6 = GUICtrlCreateLabel("ความยาวฐาน", 16, 88, 64, 17)
$Input6 = GUICtrlCreateInput("ใส่ค่าความยาวฐาน", 80, 88, 161, 21)
$Input7 = GUICtrlCreateInput("", 80, 120, 161, 21)
$Button2 = GUICtrlCreateButton("คำนวณ", 120, 152, 49, 25)
$Label7 = GUICtrlCreateLabel("ผลที่ได้", 24, 120, 37, 17)
$Label8 = GUICtrlCreateLabel("หาพื้นที่สามเหลี่ยมจ้า", 72, 16, 134, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
GUICtrlSetData($Input7,(0.5)*GUICtrlRead($Input5)*GUICtrlRead($Input6))
EndSwitch
WEnd
ElseIf $option = 3 Then
#include <GUIConstantsEx.au3>
$Form1 = GUICreate("หาพื่นที่วงกลมจ้า", 346, 126, 577, 305)
$Label10 = GUICtrlCreateLabel("ใส่รัศมีของวงกลม", 16, 16, 85, 17)
$Input10 = GUICtrlCreateInput("กรอกค่ารัศมีทรงกลม", 128, 16, 161, 21)
$Input11 = GUICtrlCreateInput("", 128, 48, 161, 21)
$Label11 = GUICtrlCreateLabel("ผลที่ได้", 16, 56, 37, 17)
$Button15 = GUICtrlCreateButton("คำนวณ", 8, 80, 321, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button15
GUICtrlSetData($Input11,(22/7)*GUICtrlRead($Input10)^2)
EndSwitch
WEnd
EndIf