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


ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

Share

smileboy
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 13
ความนิยม : 0
เข้าร่วมเมื่อ : 08/02/2012

ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by smileboy on 12/02/12, 06:15 pm

Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1= GUICreate("โปรแกรมช่วยเล่น XXX-Online", 413, 197, 285, 153)
$Group1 = GUICtrlCreateGroup("XXX-Online", 16, 8, 377, 113)
$Button1 = GUICtrlCreateButton("เริ่มการทำงาน", 40, 32, 137, 33)
$Button2 = GUICtrlCreateButton("หยุดการทำงาน", 232, 32, 139, 33)
$Button3 = GUICtrlCreateButton("ออกจาโปรแกรม", 232, 72, 139, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Creat By. Mr.X", 328, 152, 65, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label3 = GUICtrlCreateLabel("V.007", 208, 128, 185, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

   EndSwitch
WEnd

ถ้าผมต้องการให้ เมื่อเรากดปุ่ม เริ่มการทำงาน ก็ให้ตัวโปรแกรมสั่ง คลิ๊กขวา 1ที ต้องทำยังไงครับ
แล้วพอกดปุ่ม หยุดการทำงาน ก็ให้ตัวโปรแกรมสั่ง หยุดคลิ๊กขวา ทันที
แล้วพอกดปุ่ม ออกจากโปรแกรม ก็ให้ปิดโปรแกรมทันทีครับ
ต่อจากโค๊ดที่ผมวางไว้ถ้าผมต้องการให้มันทำงานตามที่ผมต้องการ ต้องใส่คำสั่งอะไรลงไปบ้างครับ

ขอบคุณครับ
avatar
max30012540
PSsix Member High Class
PSsix Member High Class

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

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by max30012540 on 12/02/12, 07:16 pm

ถ้าคุณให้คลิกขวาตลอด แล้วจะคลิกซ้ายกดปุ่มยังไงละครับ em246

smileboy
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 13
ความนิยม : 0
เข้าร่วมเมื่อ : 08/02/2012

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by smileboy on 12/02/12, 07:26 pm

max30012540 พิมพ์ว่า:ถ้าคุณให้คลิกขวาตลอด แล้วจะคลิกซ้ายกดปุ่มยังไงละครับ em246
ครับ คลิ๊กขวาตลอดก็ จริง แต่ลืมบอกว่า Sleep 5000 ครับ ยังไง ใน 5วินาทีนี้ ก็น่าจะกดปุ่มอื่นๆทันแน่นอนครับ
avatar
max30012540
PSsix Member High Class
PSsix Member High Class

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

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by max30012540 on 12/02/12, 08:51 pm

em218
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1= GUICreate("โปรแกรมช่วยเล่น XXX-Online", 413, 197, 285, 153)
$Group1 = GUICtrlCreateGroup("XXX-Online", 16, 8, 377, 113)
$Button1 = GUICtrlCreateButton("เริ่มการทำงาน", 40, 32, 137, 33)
$Button2 = GUICtrlCreateButton("หยุดการทำงาน", 232, 32, 139, 33)
$Button3 = GUICtrlCreateButton("ออกจาโปรแกรม", 232, 72, 139, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Creat By. Mr.X", 328, 152, 65, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label3 = GUICtrlCreateLabel("V.007", 208, 128, 185, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
      Case $GUI_EVENT_CLOSE
        Exit
    Case $Button1
       $A = 0
       Do
          $FF = TimerInit()
          Do
             If GUIGetMsg() = $Button2 Then
                $A = 1
                ExitLoop
            EndIf
          Until Round(TimerDiff($FF)) > 5000
          $FF =TimerInit()
         MouseClick("right")
      Until $A = 1
   Case $Button3
      Exit
  EndSwitch
WEnd

smileboy
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 13
ความนิยม : 0
เข้าร่วมเมื่อ : 08/02/2012

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by smileboy on 12/02/12, 09:06 pm

max30012540 พิมพ์ว่า: em218
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1= GUICreate("โปรแกรมช่วยเล่น XXX-Online", 413, 197, 285, 153)
$Group1 = GUICtrlCreateGroup("XXX-Online", 16, 8, 377, 113)
$Button1 = GUICtrlCreateButton("เริ่มการทำงาน", 40, 32, 137, 33)
$Button2 = GUICtrlCreateButton("หยุดการทำงาน", 232, 32, 139, 33)
$Button3 = GUICtrlCreateButton("ออกจาโปรแกรม", 232, 72, 139, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Creat By. Mr.X", 328, 152, 65, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label3 = GUICtrlCreateLabel("V.007", 208, 128, 185, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
      Case $GUI_EVENT_CLOSE
        Exit
    Case $Button1
       $A = 0
       Do
          $FF = TimerInit()
          Do
             If GUIGetMsg() = $Button2 Then
                $A = 1
                ExitLoop
            EndIf
          Until Round(TimerDiff($FF)) > 5000
          $FF =TimerInit()
         MouseClick("right")
      Until $A = 1
   Case $Button3
      Exit
  EndSwitch
WEnd
ขอบคุณครับ em218
แต่ยังไง ถ้ามีเวลา ช่วยอธิบายทีครับ ว่าทำไมต้องใช้คำสั่งนี้กับเหตุการณ์แบบนี้เพราะอะไร ครับ
บอกตรงๆผมไม่ค่อยรู้เรื่อง เกี่ยว พวกนี้เลยสักนิดเดียว แต่ผมพอจะประยุกต์และเรียนรู้ได้อย่างรวดเร็ว
ก่อนหน้านี้ตอนที่ผมเข้าบอร์ดนี้ใหม่ๆ ผมนั่งอ่านอยู่ 2 ชม.ผมประยุกต์และทำความเข้าใจเขียน โปรแกรมช่วยเล่นเกม เกมหนึ่ง ได้แล้ว แต่ว่า มันมีหน้าตาโปรแกรมกว่าจะรู้ว่าต้องศึกษาเรื่อง GUI ก็ปาไป2วันแหนะครับ อิอิ
แต่ผมยังไม่ค่อยเข้าใจความหมายของแต่ละคำสั่ง แล้วก็การเชื่อมโยงแต่ละคำสั่ง ถ้าพอจะรู้แหล่งหาความรู้แนะนำผมทีนะครับ
จะขอบคุณอย่างมาก

smileboy
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 13
ความนิยม : 0
เข้าร่วมเมื่อ : 08/02/2012

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by smileboy on 12/02/12, 09:36 pm

คุณ max30012540 ครับ ผมขอเป็นแบบแยก ปุ่มได้มั้ยครับ เผื่อว่าผมจะเอามาประยุกต์อ่าครับ แบบนี้นั่งอ่านตั้งนานยังมึน อยู่ว่าจะถ้าจะแทรกเป็นคำสั่งอื่นๆจะแทรกตรงไหนดี
แต่ตอนนี้ก็พอจะแทรกคำสั่งอื่นๆได้แล้ว แต่ติดที่ว่า เวลากด หยุด มันไม่ยอมหยุดแล้ว แต่พอใช้คำสั่งเดิม มันก็หยุดนะ
avatar
max30012540
PSsix Member High Class
PSsix Member High Class

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

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by max30012540 on 12/02/12, 10:41 pm

em218
Code:
$A = 0;ตัวแปร A เป็น 0
Do;เริ่มวนลูปแบบมีเงือนไข
$FF = TimerInit();เริ่มจับเวลา
Do;เริ่มวนลูปแบบมีเงือนไข
If GUIGetMsg() = $Button2 Then;เปรียบเทียบ หากละหว่างวงลูปกด $Button2
$A = 1 ;ให้ตัวแปร A เป็น 1
ExitLoop;ออกจากการวนลูป
EndIf;จบการเปรียบเที่ยบ
Until Round(TimerDiff($FF)) > 5000;จบการวนลูปเมื่อเวลาผ่านไป 5 วินาที
$FF =TimerInit();ตั้งค่าจับเวลาใหม่
MouseClick("right");คลิกขวา
Until $A = 1;จบการวนลูปเมื่อตัวแปร A เป็น 1

smileboy
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 13
ความนิยม : 0
เข้าร่วมเมื่อ : 08/02/2012

Re: ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI

ตั้งหัวข้อ by smileboy on 13/02/12, 11:26 am

ขอถามเพิ่มเติมนิดนึงนะครับ พอดีไม่อยากตั้งกระทู้ใหม่
แบบว่า ผมจะเขียนสคริปให้เชื่อมโยงกับเครื่องปริ้นเตอร์จะทำได้มั้ยครับ
ประมาณว่า ผม จะทำปุ่มสำหรับกดปริ้นไว้1ปุ่ม แล้วพอกดก็ให้มันเด้งหน้าปริ้นเตอร์สามารถสั่งปริ้นได้คล้ายๆกับพวกโปรแกรมออฟฟอศทั่วไป

    เวลาขณะนี้ 24/08/17, 01:47 pm