form1.frm

自己做的双色球手选,机选,功能程序.在windows xp 上测试通过可以正常使用

      Height          =   255
      Left            =   2400
      TabIndex        =   6
      Top             =   0
      Width           =   255
   End
   Begin VB.Label l6 
      Alignment       =   2  'Center
      Caption         =   "06"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1800
      TabIndex        =   5
      Top             =   0
      Width           =   255
   End
   Begin VB.Label l5 
      Alignment       =   2  'Center
      Caption         =   "05"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   0
      Width           =   255
   End
   Begin VB.Label l4 
      Alignment       =   2  'Center
      Caption         =   "04"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1080
      TabIndex        =   3
      Top             =   0
      Width           =   255
   End
   Begin VB.Label l3 
      Alignment       =   2  'Center
      Caption         =   "03"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   0
      Width           =   255
   End
   Begin VB.Label l2 
      Alignment       =   2  'Center
      Caption         =   "02"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   0
      Width           =   255
   End
   Begin VB.Label l1 
      Alignment       =   2  'Center
      Caption         =   "01"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   255
   End
   Begin VB.Image c3 
      Height          =   255
      Left            =   4035
      Picture         =   "Form1.frx":0008
      Top             =   2520
      Width           =   660
   End
   Begin VB.Image c2 
      Height          =   255
      Left            =   3330
      Picture         =   "Form1.frx":090E
      Top             =   2520
      Width           =   660
   End
   Begin VB.Image c1 
      Height          =   255
      Left            =   2625
      Picture         =   "Form1.frx":1214
      Tag             =   "B"
      Top             =   2520
      Width           =   660
   End
   Begin VB.Image i7 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":1B1A
      Top             =   2520
      Width           =   2295
   End
   Begin VB.Image i6 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":39E8
      Top             =   2160
      Width           =   4455
   End
   Begin VB.Image i5 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":7566
      Top             =   1800
      Width           =   4455
   End
   Begin VB.Image i4 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":B0E4
      Top             =   1440
      Width           =   4455
   End
   Begin VB.Image i3 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":EC62
      Top             =   1080
      Width           =   4455
   End
   Begin VB.Image i2 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":127E0
      Top             =   720
      Width           =   4455
   End
   Begin VB.Image i1 
      Enabled         =   0   'False
      Height          =   255
      Left            =   240
      Picture         =   "Form1.frx":1635E
      Top             =   360
      Width           =   4455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s1
Dim s2
Dim s3
Dim s4
Dim s5
Dim s6
Dim s7


Private Sub c1_Click()
If c1.Tag <> "A" Then
 s1 = 1
 s2 = 2
 s3 = 3
 s4 = 4
 s5 = 5
 s6 = 6
 s7 = 1
End If
Timer1.Interval = 40
End Sub

Private Sub c2_Click()
Timer1.Interval = 0
c1.Tag = "A"
End Sub

Private Sub c3_Click()
End
End Sub



Private Sub Timer1_Timer()
s1 = s1 + 1
If s1 > 33 Then s1 = 1: s2 = s2 + 1
If s2 > 33 Then s2 = 1: s3 = s3 + 1
If s3 > 33 Then s3 = 1: s4 = s4 + 1
If s4 > 33 Then s4 = 1: s5 = s5 + 1
If s5 > 33 Then s5 = 1: s6 = s6 + 1
If s6 > 33 Then s6 = 1: s7 = s7 + 1
If s7 > 17 Then Timer1.Interval = 0
ss1:
If s1 = s2 Then s1 = s1 + 1
If s1 = s3 Then s1 = s1 + 1
If s1 = s4 Then s1 = s1 + 1
If s1 = s5 Then s1 = s1 + 1
If s1 = s6 Then s1 = s1 + 1

If s2 = s3 Then s2 = s2 + 1
If s2 = s4 Then s2 = s2 + 1
If s2 = s5 Then s2 = s2 + 1
If s2 = s6 Then s2 = s2 + 1

If s3 = s4 Then s3 = s3 + 1
If s3 = s5 Then s3 = s3 + 1
If s3 = s6 Then s3 = s3 + 1

If s4 = s5 Then s4 = s4 + 1
If s4 = s6 Then s4 = s4 + 1

If s5 = s6 Then s5 = s5 + 1

If s1 = s2 Or s1 = s3 Or s1 = s4 Or s1 = s5 Or s1 = s6 Or s2 = s3 Or s2 = s4 Or s2 = s5 Or s2 = s6 Or s3 = s4 Or s3 = s5 Or s3 = s6 Or s4 = s5 Or s4 = s5 Or s5 = s6 Then GoTo ss1

l1.Caption = s1
l2.Caption = s2
l3.Caption = s3
l4.Caption = s4
l5.Caption = s5
l6.Caption = s6
l7.Caption = s7
i1.Width = s1 * 135
i2.Width = s2 * 135
i3.Width = s3 * 135
i4.Width = s4 * 135
i5.Width = s5 * 135
i6.Width = s6 * 135
i7.Width = s7 * 135

End Sub