˹á
 úҹ
  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
  ͧ gotoxy ѧ...
2017-08-28 11:45:52
  ͧҧա u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  դԻ͹ ...
2017-08-27 10:50:02
  Ѻ ͹ 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
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
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
  Article comment
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  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]
ͺз
´

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
µͨ Ѻͧ 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