˹á
 úҹ
  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]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
  vs2008 c# Ѻ ͺسѺ...
2016-06-17 14:39:30
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 Webboard

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

з #3321 [Vb]

vb6 úǹ鴷١ դ

ҡ鴹Ф ѹŢ٧ӤҡẺԹФ Թ100蹵10Թ͡ҡФ


Private Sub Form1_Load()
End Sub
Option Explicit
Dim simbol As Integer

Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox "س͡ ٧ ҧ ", vbInformation
End If
Randomize
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Do While Timer1.Enabled
DoEvents
Timer1_Timer
Loop
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Timer1.Interval = 1000
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1 = Int(Rnd() * 6) + 1
Label2 = Int(Rnd() * 6) + 1
Label3 = Int(Rnd() * 6) + 1
Text1.Text = Int(Label1) + Int(Label2) + Int(Label3)
Select Case True
Case Option1.Value = True
If Int(Text1.Text) > 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
Case Option2.Value = True
If Int(Text1.Text) = 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
Case Option3.Value = True
If Int(Text1.Text) < 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
End Select
End Sub
ҡس : aom / aom_hookang@hotmail.com [2012-07-09 19:24:22]  

101.108.25.138 Դ #28651 (ҡ IP: 101.108.25.138)
ѡ֡ͧա 餹¹ѹҹ ѹԴ

1.֡ҡкǹâͧ鴷 к÷Ѵ ӴѺ÷ӧҹҡ˹˹ зҧ
2.СȵԹ 1 (è èӹǹ)
3.ҵ˹觷ҧ 蹪Թ źԹ ԹҨ͹աҨШ
ҡس : ¹繷ѡжѹ [2012-07-10 00:47:21]

118.172.109.17 Դ #28652 (ҡ IP: 118.172.109.17)
ͧѹ ԧ
ҡس : aom / aom_hookang@hotmail.com [2012-07-10 03:34:56]

101.108.6.211 Դ #28653 (ҡ IP: 101.108.6.211)
鴴ҹس¹ͧԧ ÷зѹҡѺ
ҡس : ¹繷ѡжѹ [2012-07-10 21:34:01]

223.204.12.188 Դ #28654 (ҡ IP: 223.204.12.188)
ҧ Notepad кѹ֡
ʡ .FRM


VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 2745
ClientLeft = 45
ClientTop = 330
ClientWidth = 5970
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2745
ScaleWidth = 5970
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame3
Caption = "Frame3"
Height = 2535
Left = 3480
TabIndex = 19
Top = 120
Width = 2415
End
Begin VB.TextBox Text4
Height = 285
Left = 2520
TabIndex = 18
Text = "Text4"
Top = 2250
Width = 855
End
Begin VB.Frame Frame2
Caption = "Ţ"
Height = 1815
Left = 2520
TabIndex = 11
Top = 120
Width = 855
Begin VB.OptionButton Teng6
Caption = "6"
Height = 255
Left = 120
TabIndex = 17
Top = 1440
Width = 615
End
Begin VB.OptionButton Teng5
Caption = "5"
Height = 255
Left = 120
TabIndex = 16
Top = 1200
Width = 615
End
Begin VB.OptionButton Teng4
Caption = "4"
Height = 255
Left = 120
TabIndex = 15
Top = 960
Width = 615
End
Begin VB.OptionButton Teng3
Caption = "3"
Height = 255
Left = 120
TabIndex = 14
Top = 720
Width = 615
End
Begin VB.OptionButton Teng2
Caption = "2"
Height = 255
Left = 120
TabIndex = 13
Top = 480
Width = 615
End
Begin VB.OptionButton Teng1
Caption = "1"
Height = 255
Left = 120
TabIndex = 12
Top = 240
Width = 615
End
End
Begin VB.Frame Frame1
Caption = "ᷧ ٧/"
Height = 1095
Left = 120
TabIndex = 8
Top = 120
Width = 1335
Begin VB.OptionButton Option1
Caption = "٧"
Height = 375
Left = 120
TabIndex = 10
Top = 240
Width = 975
End
Begin VB.OptionButton Option2
Caption = ""
Height = 375
Left = 120
TabIndex = 9
Top = 600
Width = 975
End
End
Begin VB.TextBox Text3
Height = 285
Left = 2520
TabIndex = 4
Text = "Text3"
Top = 1920
Width = 855
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 222
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1560
TabIndex = 3
Text = "Text2"
Top = 240
Width = 855
End
Begin VB.TextBox Text1
Height = 375
Left = 1560
TabIndex = 2
Text = "Text1"
Top = 720
Width = 855
End
Begin VB.CommandButton Command2
Caption = "Դ"
BeginProperty Font
Name = "MS Sans Serif"
Size = 14.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 1
Top = 1920
Width = 975
End
Begin VB.CommandButton Command1
Caption = ""
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 0
Top = 1920
Width = 975
End
Begin VB.Timer Timer1
Left = 2040
Top = 2160
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 7
Top = 1320
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
TabIndex = 6
Top = 1320
Width = 615
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 5
Top = 1320
Width = 615
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form1_Load()
End Sub
Option Explicit
Dim simbol As Integer

Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False Then
MsgBox "س͡ ٧ ", vbInformation
End If
Randomize
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Do While Timer1.Enabled
DoEvents
Timer1_Timer
Loop
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Select Case True
Case Option1.Value = True
If Int(Text1.Text) >= 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
Case Option2.Value = True
If Int(Text1.Text) < 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
End Select
Select Case True
Case Teng1.Value = True
Text3.Text = IIf(Label1.Caption = 1, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 1, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 1, 1, 0)
Case Teng2.Value = True
Text3.Text = IIf(Label1.Caption = 2, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 2, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 2, 1, 0)
Case Teng3.Value = True
Text3.Text = IIf(Label1.Caption = 3, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 3, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 3, 1, 0)
Case Teng4.Value = True
Text3.Text = IIf(Label1.Caption = 4, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 4, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 4, 1, 0)
Case Teng5.Value = True
Text3.Text = IIf(Label1.Caption = 5, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 5, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 5, 1, 0)
Case Teng6.Value = True
Text3.Text = IIf(Label1.Caption = 6, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 6, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 6, 1, 0)
End Select
If Text3.Text = 0 Then
Text4.Text = Text4.Text - 10
If Text4.Text <= 0 Then MsgBox "Game Over": End
Else
Text4.Text = Text4.Text + (Text3.Text * 10)
MsgBox "秶١"
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Timer1.Interval = 1000
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Text3.Text = 0
Text4.Text = 100
Option1.Value = True
Teng1.Value = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd() * 6) + 1
Label2.Caption = Int(Rnd() * 6) + 1
Label3.Caption = Int(Rnd() * 6) + 1
Text1.Text = Int(Label1) + Int(Label2) + Int(Label3)
End Sub
ҡس : ᤷ / patomchet@hotmail.com [2012-07-13 13:16:03]

223.204.12.188 Դ #28655 (ҡ IP: 223.204.12.188)
...ͧͧ...ͺ͡...¹
Ẻҵ......蹵Ƕǧ
觡˹ҹ...ͧӧҹ
Ẻҧ... Loop Timer
ա...ѹͧ.........

Ѵ͡ŧ Notepad кѹ֡㹹ʡ .FRM


VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 2745
ClientLeft = 45
ClientTop = 330
ClientWidth = 5970
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2745
ScaleWidth = 5970
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame3
Caption = "Frame3"
Height = 2535
Left = 3480
TabIndex = 19
Top = 120
Width = 2415
End
Begin VB.TextBox Text4
Height = 285
Left = 2520
TabIndex = 18
Text = "Text4"
Top = 2250
Width = 855
End
Begin VB.Frame Frame2
Caption = "Ţ"
Height = 1815
Left = 2520
TabIndex = 11
Top = 120
Width = 855
Begin VB.OptionButton Teng6
Caption = "6"
Height = 255
Left = 120
TabIndex = 17
Top = 1440
Width = 615
End
Begin VB.OptionButton Teng5
Caption = "5"
Height = 255
Left = 120
TabIndex = 16
Top = 1200
Width = 615
End
Begin VB.OptionButton Teng4
Caption = "4"
Height = 255
Left = 120
TabIndex = 15
Top = 960
Width = 615
End
Begin VB.OptionButton Teng3
Caption = "3"
Height = 255
Left = 120
TabIndex = 14
Top = 720
Width = 615
End
Begin VB.OptionButton Teng2
Caption = "2"
Height = 255
Left = 120
TabIndex = 13
Top = 480
Width = 615
End
Begin VB.OptionButton Teng1
Caption = "1"
Height = 255
Left = 120
TabIndex = 12
Top = 240
Width = 615
End
End
Begin VB.Frame Frame1
Caption = "ᷧ ٧/"
Height = 1095
Left = 120
TabIndex = 8
Top = 120
Width = 1335
Begin VB.OptionButton Option1
Caption = "٧"
Height = 375
Left = 120
TabIndex = 10
Top = 240
Width = 975
End
Begin VB.OptionButton Option2
Caption = ""
Height = 375
Left = 120
TabIndex = 9
Top = 600
Width = 975
End
End
Begin VB.TextBox Text3
Height = 285
Left = 2520
TabIndex = 4
Text = "Text3"
Top = 1920
Width = 855
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 222
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1560
TabIndex = 3
Text = "Text2"
Top = 240
Width = 855
End
Begin VB.TextBox Text1
Height = 375
Left = 1560
TabIndex = 2
Text = "Text1"
Top = 720
Width = 855
End
Begin VB.CommandButton Command2
Caption = "Դ"
BeginProperty Font
Name = "MS Sans Serif"
Size = 14.25
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 1
Top = 1920
Width = 975
End
Begin VB.CommandButton Command1
Caption = ""
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 0
Top = 1920
Width = 975
End
Begin VB.Timer Timer1
Interval = 10
Left = 2040
Top = 2040
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 7
Top = 1320
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
TabIndex = 6
Top = 1320
Width = 615
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 222
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 5
Top = 1320
Width = 615
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form1_Load()
End Sub
Option Explicit
Dim simbol As Integer

Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False Then
MsgBox "س͡ ٧ ", vbInformation
End If
Randomize
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Text3.Text = 0
Select Case True
Case Teng1.Value = True
Text3.Text = IIf(Label1.Caption = 1, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 1, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 1, 1, 0)
Case Teng2.Value = True
Text3.Text = IIf(Label1.Caption = 2, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 2, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 2, 1, 0)
Case Teng3.Value = True
Text3.Text = IIf(Label1.Caption = 3, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 3, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 3, 1, 0)
Case Teng4.Value = True
Text3.Text = IIf(Label1.Caption = 4, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 4, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 4, 1, 0)
Case Teng5.Value = True
Text3.Text = IIf(Label1.Caption = 5, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 5, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 5, 1, 0)
Case Teng6.Value = True
Text3.Text = IIf(Label1.Caption = 6, 1, 0)
Text3.Text = Text3.Text + IIf(Label2.Caption = 6, 1, 0)
Text3.Text = Text3.Text + IIf(Label3.Caption = 6, 1, 0)
End Select
If Text3.Text = 0 Then
Text4.Text = Text4.Text - 10
If Text4.Text <= 0 Then MsgBox "Game Over": End
Else
Text4.Text = Text4.Text + (Text3.Text * 10)
MsgBox "秶١"
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Text4.Text = 100
Option1.Value = True
Teng1.Value = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Trim(Str(Int(Rnd() * 6) + 1))
Label2.Caption = Trim(Str(Int(Rnd() * 6) + 1))
Label3.Caption = Trim(Str(Int(Rnd() * 6) + 1))
Text1.Text = Int(Label1) + Int(Label2) + Int(Label3)
Select Case True
Case Option1.Value = True
If Int(Text1.Text) >= 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
Case Option2.Value = True
If Int(Text1.Text) < 11 Then
Text2.Text = "١"
Else
Text2.Text = "Դ"
End If
End Select

End Sub
ҡس : ᤷ / patomchet@hotmail.com [2012-07-13 13:56:38]

223.204.12.188 Դ #28656 (ҡ IP: 223.204.12.188)
555 ֡......繷 Timer ....
ѹҧԴ ....͹䢡
¹ command2 ǹ...
šԷ....ҡҷԴ ....


Private Sub Command2_Click()
Dim Teng As Integer
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Select Case True
Case Teng1.Value = True
Teng = 1
Case Teng2.Value = True
Teng = 2
Case Teng3.Value = True
Teng = 3
Case Teng4.Value = True
Teng = 4
Case Teng5.Value = True
Teng = 5
Case Teng6.Value = True
Teng = 6
End Select

If Label1.Caption = Teng And Label1.Caption = Label2.Caption And _
Label2.Caption = Label3.Caption Then
Text3.Text = 3
ElseIf Label1.Caption = Teng And Label2.Caption = Teng Or _
Label1.Caption = Teng And Label3.Caption = Teng Or _
Label2.Caption = Teng And Label3.Caption = Teng Then
Text3.Text = 2
ElseIf Label1.Caption = Teng Or Label2.Caption = Teng Or Label3.Caption = Teng Then
Text3.Text = 1
Else
Text3.Text = 0
End If

If Text3.Text = 0 Then
Text4.Text = Text4.Text - 10
If Text4.Text <= 0 Then MsgBox "Game Over": End
Else
Text4.Text = Text4.Text + (Text3.Text * 10)
MsgBox "àµçÙ¡"
End If
End Sub
ҡس : ᤷ / patomchet@hotmail.com [2012-07-13 14:23:59]

118.172.98.89 Դ #28657 (ҡ IP: 118.172.98.89)
ͺسءзҵͺҡ¤
ҡس : aom / aom_hookang@hotmail.com [2012-07-13 17:19:40]
ͺз
´

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

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