หน้าแรก
 การบ้าน
  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
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  รับ สอน matlab เขียน matlab...
2017-06-03 16:27:23
  เฉพาะทางขนาดนี้ คงต้องดูหาข...
2017-05-25 16:18:08
  โห เครื่องรุ่นไหนครับ os รุ...
2017-05-25 16:12:47
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  ทดสอบการตอบ...
2017-02-22 13:10:24
  ลองอีกวิธีเขียน recursive f...
2017-02-14 13:11:03
  อยากได้ โค้ดระบบห้องสมุดมาก...
2017-01-30 11:45:28
  ทำ for-loop ซ้อนกัน
โดย...

2017-01-28 16:00:12
  Homework comment
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
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
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  ขอแผนผังของโปรแกรมนับตัวอักษรภ...
2016-04-21 19:24:55
  Article comment
  น่าจะได้ครับ ไม่เคยลอง
กล่...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไหม...
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
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

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

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

กระทู้ #3401 [Vb]

ช่วยแก้โค้โปรแกรมให้หน่อยค่ะมันรันไม่ได้TOT

Dim b1, b2, b3, b4, b5, b6, b7, b8, b9 As Integer

Dim result As String



Sub checkO()

If Command1.Caption = "O" And Command2.Caption = "O" And Command3.Caption = "O" Then

Label1.Caption = " ¼ÙéàÅè¹·Õè 2 "

Option1.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

ElseIf Command4.Caption = "O" And Command5.Caption = "O" And Command6.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

ElseIf Command7.Caption = "O" And Command8.Caption = "O" And Command9.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

ElseIf Command1.Caption = "O" And Command4.Caption = "O" And Command7.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

ElseIf Command2.Caption = "O" And Command5.Caption = "O" And Command8.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command1.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command9.Enabled = False

ElseIf Command3.Caption = "O" And Command6.Caption = "O" And Command9.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

ElseIf Command1.Caption = "O" And Command5.Caption = "O" And Command9.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

ElseIf Command3.Caption = "O" And Command5.Caption = "O" And Command7.Caption = "O" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 2 ª¹Ð"

Option1.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

End If

End Sub



Sub checkX()

If Command1.Caption = "X" And Command2.Caption = "X" And Command3.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

ElseIf Command4.Caption = "X" And Command5.Caption = "X" And Command6.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

ElseIf Command7.Caption = "X" And Command8.Caption = "X" And Command9.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

ElseIf Command1.Caption = "X" And Command4.Caption = "X" And Command7.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

ElseIf Command2.Caption = "X" And Command5.Caption = "X" And Command8.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command1.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command9.Enabled = False

ElseIf Command3.Caption = "X" And Command6.Caption = "X" And Command9.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

ElseIf Command1.Caption = "X" And Command5.Caption = "X" And Command9.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

ElseIf Command3.Caption = "X" And Command5.Caption = "X" And Command7.Caption = "X" Then

Label1.Caption = "¼ÙéàÅè¹·Õè 1 ª¹Ð"

Option2.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

End If

End Sub



Sub checkdraw()

If Command1.Caption <> "" And Command2.Caption <> "" And Command3.Caption <> "" And Command4.Caption <> "" And Command5.Caption <> "" And Command6.Caption <> "" And Command7.Caption <> "" And Command8.Caption <> "" And Command9.Caption <> "" And Label1.Caption = "" Then

Label1.Caption = "àÊÁ͡ѹ"

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command9.Enabled = False

result = Label1.Caption

End If

End Sub



Private Sub Command1_Click()

If b1 = 0 Then

If Option1 = True Then

Command1.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command1.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b1 = b1 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub





Private Sub Command2_Click()

If b2 = 0 Then

If Option1 = True Then

Command2.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command2.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b2 = b2 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command3_Click()

If b3 = 0 Then

If Option1 = True Then

Command3.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command3.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b3 = b3 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command4_Click()

If b4 = 0 Then

If Option1 = True Then

Command4.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command4.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b4 = b4 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command5_Click()

If b5 = 0 Then

If Option1 = True Then

Command5.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command5.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b5 = b5 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command6_Click()

If b6 = 0 Then

If Option1 = True Then

Command6.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command6.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b6 = b6 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command7_Click()

If b7 = 0 Then

If Option1 = True Then

Command7.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command7.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b7 = b7 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command8_Click()

If b8 = 0 Then

If Option1 = True Then

Command8.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command8.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b8 = b8 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Command9_Click()

If b9 = 0 Then

If Option1 = True Then

Command9.Caption = "X"

Option2 = True

Option1.Enabled = False

Option2.Enabled = True

Else

Command9.Caption = "O"

Option1 = True

Option2.Enabled = False

Option1.Enabled = True

End If

checkO

checkX

checkdraw

b9 = b9 + 1

result = Label1.Caption

Else

MsgBox "ªè͹Õéä´éÁÕ¡ÒáÒä»àÃÕºÃéÍÂáÅéÇ", vbCritical, "¼Ô´¾ÅÒ´"

End If

End Sub



Private Sub Form_Load()

Option1 = True

Option2.Enabled = False



End Sub



Private Sub mmabout_Click(Index As Integer)

MsgBox " à¡Á XO ", vbInformation, "à¡ÕèÂǡѺ"

End Sub



Private Sub mmexit_Click(Index As Integer)

Dim answer As Integer

answer = MsgBox("¤Ø³á¹èã¨ËÃ×ÍÇèÒ¨ÐÍÍ¡¨Ò¡â»Ãá¡ÃÁ", vbQuestion + vbOKCancel, "ÍÍ¡¨Ò¡â»Ãá¡ÃÁ")

If answer = 1 Then

End

End If

End Sub



Private Sub mmlastscore_Click(Index As Integer)

If result <> "" Then

MsgBox "¼Åã¹Ãͺ·Õè¼èÒ¹ÁÒ" + " " + result + " " + "¤èÐ/¤ÃѺ", vbInformation, "¼Åã¹Ãͺ·Õè¼èÒ¹ÁÒ"

Else

MsgBox "ÂÑäÁèÁÕ¡ÒÃàÃÔèÁàÅè¹à¡Á", vbInformation, "¼Åã¹Ãͺ·Õè¼èÒ¹ÁÒ"

End If

End Sub



Private Sub mmnew_Click(Index As Integer)

Command1.Caption = ""

Command2.Caption = ""

Command3.Caption = ""

Command4.Caption = ""

Command5.Caption = ""

Command6.Caption = ""

Command7.Caption = ""

Command8.Caption = ""

Command9.Caption = ""

Label1.Caption = ""

Option1.Enabled = True

Option2.Enabled = False

Option1 = True

b1 = 0

b2 = 0

b3 = 0

b4 = 0

b5 = 0

b6 = 0

b7 = 0

b8 = 0

b9 = 0

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Command6.Enabled = True

Command7.Enabled = True

Command8.Enabled = True

Command9.Enabled = True

End Sub
จากคุณ : วันใหม่ / sun_chocola@hotmail.com [2013-03-06 21:48:24]  

101.108.214.232 ความคิดเห็น #28788 (จาก IP: 101.108.214.232)
มัน error ว่าอะไรหละครับ error บรรทัดไหนของโค้ด น่าจะช่วยเดาสาเหตุให้ได้
จากคุณ : maddog [2013-03-06 23:40:47]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ 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