Home Webboard ArticlesKnowledges  

ผู้เขียน หัวข้อ: เกร็ดความรู้:สร้างเกมส์ด้วย Autoit  (อ่าน 7917 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 674
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
ทำเกมส์ แข่งม้า ด้วย Autoit ..แต่ไม่ได้สนับสนุนให้นำไปเล่นการพนันกันนะครับ
เพราะรู้ๆกันอยู่ว่า..การพนันเป็นสิ่งไม่ดี ไม่ควรเข้าไปเกี่ยวข้อง อาจทำให้เสียคนได้
ดั่งโบราณว่า..'ไฟใหม้บ้านยังเหลือที่ดิน ..แต่ถ้าเล่นการพนัน จะไม่เหลืออะไรเลย'
...........................................
คุณสมบัติของคนที่ไม่ควรเล่นการพนัน
1.โกงไม่เป็น ไม่รู้จักวิธีโกง หรือ รู้ไม่เท่าทัน กลโกงของผู้อื่น
2.มีภรรยา-บุตร หรือ พ่อแม่ ที่ต้องรับภาระเลี้ยงดู
3.มีฐานะยากจน หาเช้ากินค่ำ มีหนี้สิน เงินเดือนชักหน้าไม่ถึงหลัง

ใครที่คิดว่ามีความสุขกับการเล่นพนัน.. คิดผิดแล้วครับ
เพราะการพนัน ไม่เคยทำให้ใครร่ำรวยหรือได้ดีแม้แต่คนเดียว

---------------------------------------------------------

โค๊ด: [Select]

#NoTrayIcon
#include <GUIConstants.au3>

  Example()

Func Example()

   Local $a, $b, $c

GUICreate("Race horse game", 330, 220, -1, 300)
$Button1 = GUICtrlCreateButton("Start", 135, 140, 70, 28)
GUICtrlCreateLabel("", 333, 0, 1, 120, 5)
GUICtrlCreateLabel("[ห้ามเล่นพนัน]", 135, 180, 70, 50)
GUICtrlCreateLabel("การเล่นพนัน เป็นสิ่งที่ผิดกฏหมาย โปรดเตือนบุตรหลานของท่าน", 15, 200, 350, 50)
GUICtrlCreateLabel("1", 1, 5, 20, 20)
GUICtrlCreateLabel("2", 1, 50, 20, 20)
GUICtrlCreateLabel("3", 1, 100, 20, 20)
$n1 = GUICtrlCreateIcon([แอท]WindowsDir & "\cursors\horse.ani", -1, 0, 0, 32, 32)
$n2 = GUICtrlCreateIcon([แอท]WindowsDir & "\cursors\horse.ani", -1, 0, 40, 32, 32)
    $n3 = GUICtrlCreateIcon([แอท]WindowsDir & "\cursors\horse.ani", -1, 0, 80, 32, 32)

GUISetState([แอท]SW_SHOW)

While 1
 $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Button1, $GUI_DISABLE)
While $a < 300 and $b < 300 and  $c < 300
          $a = $a + Int(Random(0, 1) + 0.5)
 $b = $b + Int(Random(0, 1) + 0.5)
 $c = $c + Int(Random(0, 1) + 0.5)
          GUICtrlSetPos($n1, $a, 5)
 GUICtrlSetPos($n2, $b, 45)
 GUICtrlSetPos($n3, $c, 90)
Sleep(20)
    WEnd

   If ($a > $b) And ($a > $c) Then
 MsgBox(4096, "", "horse1..WIN")
 GUICtrlSetState($Button1, $GUI_ENABLE)
 $a = 0
 $b = 0
 $c = 0

   ElseIf ($b > $a) And ($b > $c) Then
     MsgBox(4096, "", "horse2..WIN")
     GUICtrlSetState($Button1, $GUI_ENABLE)
          $b = 0
          $c = 0
          $a = 0
   ElseIf ($c > $a) And ($c > $b) Then
          MsgBox(4096, "", "horse3..WIN")
     GUICtrlSetState($Button1, $GUI_ENABLE)
          $c = 0
          $a = 0
          $b = 0
   EndIf
EndSwitch
WEnd
EndFunc







------------------------------------------------------------

Download:



คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 
Back to top