ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

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


2 posters

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

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


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty
    จำนวนข้อความ : 13
    ความนิยม : 0
    เข้าร่วมเมื่อ : 08/02/2012

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

    ตั้งหัวข้อ by smileboy 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ที ต้องทำยังไงครับ
    แล้วพอกดปุ่ม หยุดการทำงาน ก็ให้ตัวโปรแกรมสั่ง หยุดคลิ๊กขวา ทันที
    แล้วพอกดปุ่ม ออกจากโปรแกรม ก็ให้ปิดโปรแกรมทันทีครับ
    ต่อจากโค๊ดที่ผมวางไว้ถ้าผมต้องการให้มันทำงานตามที่ผมต้องการ ต้องใส่คำสั่งอะไรลงไปบ้างครับ

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


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty PSsix Program Coder
    จำนวนข้อความ : 98
    ความนิยม : 10
    เข้าร่วมเมื่อ : 10/10/2011
    อายุ : 26

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

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

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


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty
    จำนวนข้อความ : 13
    ความนิยม : 0
    เข้าร่วมเมื่อ : 08/02/2012

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

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

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


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty PSsix Program Coder
    จำนวนข้อความ : 98
    ความนิยม : 10
    เข้าร่วมเมื่อ : 10/10/2011
    อายุ : 26

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

    ตั้งหัวข้อ by max30012540 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
    avatar
    smileboy
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty
    จำนวนข้อความ : 13
    ความนิยม : 0
    เข้าร่วมเมื่อ : 08/02/2012

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

    ตั้งหัวข้อ by smileboy 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วันแหนะครับ อิอิ
    แต่ผมยังไม่ค่อยเข้าใจความหมายของแต่ละคำสั่ง แล้วก็การเชื่อมโยงแต่ละคำสั่ง ถ้าพอจะรู้แหล่งหาความรู้แนะนำผมทีนะครับ
    จะขอบคุณอย่างมาก
    avatar
    smileboy
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty
    จำนวนข้อความ : 13
    ความนิยม : 0
    เข้าร่วมเมื่อ : 08/02/2012

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

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

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


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty PSsix Program Coder
    จำนวนข้อความ : 98
    ความนิยม : 10
    เข้าร่วมเมื่อ : 10/10/2011
    อายุ : 26

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

    ตั้งหัวข้อ by max30012540 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
    avatar
    smileboy
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty ขอถามหน่อยครับ ตอนนี้ หัดทำ GUI Empty
    จำนวนข้อความ : 13
    ความนิยม : 0
    เข้าร่วมเมื่อ : 08/02/2012

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

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

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

      เวลาขณะนี้ 27/04/24, 03:42 am