หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถา...
2015-07-29 13:35:58
  ถ้าผมต้องกา...
2015-01-18 15:33:54
  ถ้าผมต้องกา...
2015-01-18 15:32:51
  ติดต่อสอบถา...
2014-01-06 12:47:38
  ถ้ายังหาคนส...
2013-07-06 01:04:37
  สนใจส่งขอบเ...
2013-03-24 18:54:20
  ถ้ายังไม่มี...
2012-12-16 19:18:14
  สนใจคะ ติดต่...
2012-11-12 11:07:46
  รับทำโปรเจ็...
2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ระบบจองตั...
2017-11-18 15:42:48
  โปรแกรมจอ...
2017-11-18 15:40:29
  ผมลอง gotoxy แ...
2017-08-28 11:45:52
  ลองสร้างต...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  ผมมีคลิปส...
2017-08-27 10:50:02
  รับ สอน matlab ...
2017-06-03 16:27:23
  เฉพาะทางข...
2017-05-25 16:18:08
  โห เครื่อ...
2017-05-25 16:12:47
  ถ้าเขียน ph...
2017-04-20 01:04:20
  Homework comment
  โค้ดตัวอย่...
2017-11-26 14:50:05
  คำนวณค่าน้...
2017-11-20 23:15:26
  ขอบคุณมากค...
2017-08-16 18:27:25
  ทำเอง งง เอ...
2017-04-18 18:40:46
  ทำเอง งง เอ...
2017-04-18 18:37:54
  ประเด็นแรก...
2017-04-18 17:43:33
  อยากได้ flowchar...
2017-04-18 16:25:29
  kungking คำถามคื...
2017-03-18 23:28:36
  จงเขียนโปร...
2017-03-06 10:56:25
  ก็โค้ดทำงา...
2016-09-06 01:00:12
  Article comment
  มีcode ของ VB ไห...
2017-09-28 16:50:02
  น่าจะได้คร...
2017-07-11 09:59:35
  สามารถใช้ต...
2017-07-05 10:12:35
  ครับ คุณ "ติ...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำ...
2016-06-17 14:37:44
  ต้องวิเครา...
2016-03-12 23:36:05
  ผมส่งข้อคว...
2016-03-12 18:25:42
  โปรแกรม Terminal...
2016-02-16 11:02:01
  โปรแกรม Terminal...
2016-02-16 05:58:21
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

กระทู้ #3327 [Vb]

ขอโค๊ดเกมส์ OX (VB 2008) หน่อยได้มั้ยค่ะ

ขอโค๊ดเกมส์ OX (VB 2008) หน่อยได้มั้ยค่ะ คือจะทำโปรเจคส่งอาจารอ่ะคะ..แต่งง ... ขอบคุณล่วงหน้า มากๆๆๆ..นะคะ
จากคุณ : MarinE / padrock_bm23@hotmail.com [2012-07-22 23:25:15]  

223.206.235.236 ความคิดเห็น #28661 (จาก IP: 223.206.235.236)
1. สร้าง Button ขึ้นมา 9 ตัว
2. ก็อปโค้ดไปวาง
3. แอดไฟล์ Module1 เข้ามา
และก็อปโค้ดสุดท้ายไปวาง


Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "" Then Button1.Text = Module1.WhoIs
If Button1.Text <> "" And Button1.Text = Button2.Text And Button2.Text = Button3.Text Then
MsgBox(Button1.Text & " WIN")
ElseIf Button1.Text <> "" And Button1.Text = Button5.Text And Button5.Text = Button9.Text Then
MsgBox(Button1.Text & " WIN")
ElseIf Button1.Text <> "" And Button1.Text = Button4.Text And Button4.Text = Button7.Text Then
MsgBox(Button1.Text & " WIN")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "" Then Button2.Text = Module1.WhoIs
If Button2.Text <> "" And Button2.Text = Button3.Text And Button3.Text = Button1.Text Then
MsgBox(Button2.Text & " WIN")
ElseIf Button2.Text <> "" And Button2.Text = Button5.Text And Button5.Text = Button8.Text Then
MsgBox(Button2.Text & " WIN")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "" Then Button3.Text = Module1.WhoIs
If Button3.Text <> "" And Button3.Text = Button2.Text And Button2.Text = Button1.Text Then
MsgBox(Button3.Text & " WIN")
ElseIf Button3.Text <> "" And Button3.Text = Button5.Text And Button5.Text = Button7.Text Then
MsgBox(Button3.Text & " WIN")
ElseIf Button3.Text <> "" And Button3.Text = Button6.Text And Button6.Text = Button9.Text Then
MsgBox(Button3.Text & " WIN")
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "" Then Button4.Text = Module1.WhoIs
If Button4.Text <> "" And Button4.Text = Button5.Text And Button5.Text = Button6.Text Then
MsgBox(Button4.Text & " WIN")
ElseIf Button4.Text <> "" And Button1.Text = Button4.Text And Button4.Text = Button7.Text Then
MsgBox(Button4.Text & " WIN")
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "" Then Button5.Text = Module1.WhoIs
If Button5.Text <> "" And Button2.Text = Button5.Text And Button5.Text = Button8.Text Then
MsgBox(Button5.Text & " WIN")
ElseIf Button5.Text <> "" And Button4.Text = Button5.Text And Button5.Text = Button6.Text Then
MsgBox(Button5.Text & " WIN")
ElseIf Button5.Text <> "" And Button1.Text = Button5.Text And Button5.Text = Button9.Text Then
MsgBox(Button5.Text & " WIN")
ElseIf Button5.Text <> "" And Button3.Text = Button5.Text And Button5.Text = Button7.Text Then
MsgBox(Button5.Text & " WIN")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button6.Text = "" Then Button6.Text = Module1.WhoIs
If Button6.Text <> "" And Button3.Text = Button6.Text And Button6.Text = Button9.Text Then
MsgBox(Button6.Text & " WIN")
ElseIf Button6.Text <> "" And Button4.Text = Button5.Text And Button5.Text = Button6.Text Then
MsgBox(Button6.Text & " WIN")
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button7.Text = "" Then Button7.Text = Module1.WhoIs
If Button7.Text <> "" And Button7.Text = Button8.Text And Button8.Text = Button9.Text Then
MsgBox(Button7.Text & " WIN")
ElseIf Button7.Text <> "" And Button3.Text = Button5.Text And Button5.Text = Button7.Text Then
MsgBox(Button7.Text & " WIN")
ElseIf Button7.Text <> "" And Button1.Text = Button4.Text And Button4.Text = Button7.Text Then
MsgBox(Button7.Text & " WIN")
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button8.Text = "" Then Button8.Text = Module1.WhoIs
If Button8.Text <> "" And Button7.Text = Button8.Text And Button8.Text = Button9.Text Then
MsgBox(Button8.Text & " WIN")
ElseIf Button8.Text <> "" And Button2.Text = Button5.Text And Button5.Text = Button8.Text Then
MsgBox(Button8.Text & " WIN")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button9.Text = "" Then Button9.Text = Module1.WhoIs
If Button9.Text <> "" And Button7.Text = Button8.Text And Button8.Text = Button9.Text Then
MsgBox(Button9.Text & " WIN")
ElseIf Button9.Text <> "" And Button1.Text = Button5.Text And Button5.Text = Button9.Text Then
MsgBox(Button9.Text & " WIN")
ElseIf Button9.Text <> "" And Button3.Text = Button6.Text And Button6.Text = Button9.Text Then
MsgBox(Button9.Text & " WIN")
End If
End Sub
End Class


ส่วนของไฟล์โมดูล
Module Module1
Dim Busy As Boolean
Function WhoIs() As String
Busy = Not Busy
WhoIs = IIf(Busy, "O", "X")
End Function
End Module
จากคุณ : แคทอาย / patomchet@hotmail.com [2012-07-27 15:19:56]

125.25.200.211 ความคิดเห็น #28662 (จาก IP: 125.25.200.211)
ขอบคุณมากๆๆ ค่าาาาา...^^
จากคุณ : MarinE / padrock_bm23@hotmail.com [2012-07-27 22:39:53]

202.29.21.52 ความคิดเห็น #28674 (จาก IP: 202.29.21.52)
ทำแล้วมันไม่ได้อะคับ ปุ่มมันขึ้น button แล้วจะเป็น o x ยังไงคับ งง
จากคุณ : แบ้ง / systemjek@hotmail.com [2012-09-02 15:47:48]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th