ฟอรั่มของบล็อก http://pssix.blogspot.com


เข้ามาดูที่ครับ เกี่ยวกับ Checkbox และ Botton

Share
avatar
Hiewsound
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 91
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012

เข้ามาดูที่ครับ เกี่ยวกับ Checkbox และ Botton

ตั้งหัวข้อ by Hiewsound on 08/01/12, 06:06 pm

เงื่อนไข
1.เมื่อกดที่ Checkbox(ลูกศรในช่องโชว์) และกดปุ่ม Start สั่งให้ เงื่อนไข Func a() ทำงาน และ กดปุ่ม Stop เพื่อหยุดการทำงานของFunc a()
2.หากกดที่ Checkboxอีกที (ลูกศรในช่องไม่โชว์ละ) และกดปุ่ม Start จะไม่สั่งให้ Func a() ทำงาน

***ผมใช้โปรแกรมแกรม FD.exe ในการสร้าง Formครับ***

#include
#include
#include

GUICreate("TEST", 218, 87, 481, 227)
$Checkbox1 = GUICtrlCreateCheckbox("Send key 1", 16, 16, 97, 17)
$Button1 = GUICtrlCreateButton("Start", 128, 8, 75, 25)
$Button2 = GUICtrlCreateButton("Stop", 128, 40, 75, 25)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd


avatar
max30012540
PSsix Member High Class
PSsix Member High Class

PSsix Program Coder
จำนวนข้อความ : 98
ความนิยม : 10
เข้าร่วมเมื่อ : 10/10/2011
อายุ : 19

Re: เข้ามาดูที่ครับ เกี่ยวกับ Checkbox และ Botton

ตั้งหัวข้อ by max30012540 on 08/01/12, 06:31 pm

เมื่อกด Checkbox(ลูกศรในช่องโชว์) จะส่งค่ากลับเป็น 1 แล้วถ้ากด Checkbox(ลูกศรไม่ช่องโชว์) จะส่งค่ากลับเป็น 4 (ใช้ if เปรียบเที่ยบ)
avatar
Hiewsound
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 91
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012

Re: เข้ามาดูที่ครับ เกี่ยวกับ Checkbox และ Botton

ตั้งหัวข้อ by Hiewsound on 08/01/12, 09:15 pm

ขอไปลองแปปนะครับ
avatar
Hiewsound
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 91
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012

Re: เข้ามาดูที่ครับ เกี่ยวกับ Checkbox และ Botton

ตั้งหัวข้อ by Hiewsound on 08/01/12, 10:43 pm

ตอนนี้ผมทำได้แค่นี้ครับ

#include
#include
#include

$Form1_1 = GUICreate("TEST", 218, 87, 481, 227)
$Checkbox1 = GUICtrlCreateCheckbox("Send key 1", 16, 16, 97, 17)
$Button1 = GUICtrlCreateButton("Start", 128, 8, 75, 25)
$Button2 = GUICtrlCreateButton("Stop", 128, 40, 75, 25)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
While Sleep(100)
If GUICtrlRead($Checkbox1) = 1 Then
send("{1}")
sleep(2000)
EndIf
WEnd
EndSwitch
WEnd

แต่ยังทำปุ่มกด เพื่อ หยุด send ไม่ได้อ่ะครับยังงงอยู่

    เวลาขณะนี้ 27/06/17, 10:32 pm