modhhfc.bas

一套35选7黄河风采（兰州福利彩票）完整版。有分析、选号、筛号功能

Attribute VB_Name = "modhhfc"
Option Explicit

Public givenumber As String
Public nfleft As Integer
Public nftop As Integer
Public hhfcform As Boolean
Public intform As Boolean
Public totalform As Boolean
Public inttestform As Boolean
Public classform As Boolean
Public seeallform As Boolean
Public givenumber1 As String
'快速赋值
Public qishu As String
Public yi As String
Public er As String
Public san As String
Public si As String
Public wu As String
Public liu As String
Public qi As String
Public te As String
Public jj As Integer
Public jjj As Integer
Public jjjj As Integer
'合计
Public jihe As Integer
Public ouhe As Integer
Public dahe As Integer
Public xiaohe As Integer
Public yihe As Integer
Public erhe As Integer
Public sanhe As Integer
Public sihe As Integer
Public yulinhe As Integer
Public yuyihe As Integer
Public yuerhe As Integer
Public lianhl As Integer
Public erlianhe As Integer
Public sanlianhe As Integer
Public silianhe As Integer
'复式投注
Public iffushi As Boolean
Public fushi(1 To 1, 1 To 20) As String

Public rsdupli As ADODB.Recordset
'分类分析
Public classanly(1 To 9, 1 To 5) As Integer
'选号
Public choseenum() As String

Public Sub zero()
If hhfcevn.rsnumberclass.State = adStateClosed Then
hhfcevn.rsnumberclass.Open
End If


hhfcevn.rsnumberclass.MoveFirst
hhfcevn.rsnumberclass.Find "电脑期数='" & Trim(Str(2000000 + jjj)) & "'", , adSearchForward, 1

  If Not hhfcevn.rsnumberclass.EOF Then
   If jjjj <> 41 And jjjj <> 81 And jjjj <> 121 And jjjj <> 161 And jjjj <> 201 And jjjj <> 241 Then
    class1.CurrentX = 200 + jj * 200
    class1.CurrentY = 6200
    class1.Print jjj
      
    class1.Line (250 + jj * 200, 6100)-(400 + jj * 200, 5300), , B
    class1.FillColor = RGB(191, 0, 0)
    class1.FillStyle = 0
    class1.Line (250 + jj * 200, 6100)-(400 + jj * 200, 6100 - hhfcevn.rsnumberclass.Fields(5).Value * 100), , B
    class1.FillStyle = 1
    
    class1.Line (250 + jj * 200, 5300)-(400 + jj * 200, 4500), , B
    class1.FillColor = RGB(191, 191, 0)
    class1.FillStyle = 0
    class1.Line (250 + jj * 200, 5300)-(400 + jj * 200, 5300 - hhfcevn.rsnumberclass.Fields(6).Value * 100), , B
    class1.FillStyle = 1
    
    class1.Line (250 + jj * 200, 4500)-(400 + jj * 200, 3700), , B
    class1.FillColor = RGB(0, 0, 191)
    class1.FillStyle = 0
    class1.Line (250 + jj * 200, 4500)-(400 + jj * 200, 4500 - hhfcevn.rsnumberclass.Fields(7).Value * 100), , B
    class1.FillStyle = 1
    
    class1.Line (250 + jj * 200, 3700)-(400 + jj * 200, 2900), , B
    class1.FillColor = RGB(0, 191, 0)
    class1.FillStyle = 0
    class1.Line (250 + jj * 200, 3700)-(400 + jj * 200, 3700 - hhfcevn.rsnumberclass.Fields(8).Value * 100), , B
    class1.FillStyle = 1
    jjj = jjj + 1
    jjjj = jjjj + 1
  Else
      class1.Timer1.interval = 0
      class1.CandyCommand4.Enabled = True
  End If
 Else
      class1.Timer1.interval = 0
      class1.CandyCommand4.Enabled = True
 End If
  
hhfcevn.rsnumberclass.Requery
jj = jj + 1

End Sub

Public Sub zero1()
class2.Adodc2.Recordset.MoveFirst
class2.Adodc2.Recordset.Find "电脑期数='" & Trim(Str(2000000 + jjj)) & "'", , adSearchForward, 1

  If Not class2.Adodc2.Recordset.EOF Then
    If jjjj <> 41 And jjjj <> 81 And jjjj <> 121 And jjjj <> 161 And jjjj <> 201 And jjjj <> 241 Then
      class2.CurrentX = 200 + jj * 200
      class2.CurrentY = 6200
      class2.Print jjj
        
      class2.Line (250 + jj * 200, 6100)-(400 + jj * 200, 5100), , B
      class2.FillColor = RGB(191, 0, 0)
      class2.FillStyle = 0
      class2.Line (250 + jj * 200, 6100)-(400 + jj * 200, 6100 - class2.Adodc2.Recordset.Fields(9).Value * 100), , B
      class2.FillStyle = 1
      
      class2.Line (250 + jj * 200, 5100)-(400 + jj * 200, 4000), , B
      class2.FillColor = RGB(191, 191, 0)
      class2.FillStyle = 0
      class2.Line (250 + jj * 200, 5100)-(400 + jj * 200, 5100 - class2.Adodc2.Recordset.Fields(10).Value * 100), , B
      class2.FillStyle = 1
      
      class2.Line (250 + jj * 200, 4000)-(400 + jj * 200, 2900), , B
      class2.FillColor = RGB(0, 0, 191)
      class2.FillStyle = 0
      class2.Line (250 + jj * 200, 4000)-(400 + jj * 200, 4000 - class2.Adodc2.Recordset.Fields(11).Value * 100), , B
      class2.FillStyle = 1
      jjj = jjj + 1
      jjjj = jjjj + 1
  Else
      class2.Timer1.interval = 0
      class2.CandyCommand4.Enabled = True
  End If
Else
      class2.Timer1.interval = 0
      class2.CandyCommand4.Enabled = True
End If

jj = jj + 1

End Sub

Public Sub zero3()
class3.Adodc2.Recordset.MoveFirst
class3.Adodc2.Recordset.Find "电脑期数='" & Trim(Str(2000000 + jjj)) & "'", , adSearchForward, 1


If Not class3.Adodc2.Recordset.EOF Then
If jjjj <> 41 And jjjj <> 81 And jjjj <> 121 And jjjj <> 161 And jjjj <> 201 And jjjj <> 241 Then
  class3.CurrentX = 400 + jj * 200
  class3.CurrentY = 6200
  class3.Print jjj
  
  class3.Line (600 + jj * 200, 6100)-(600 + jj * 200, 6100 - class3.Adodc2.Recordset.Fields(4).Value * 180), QBColor(1)
    class3.Circle (600 + jj * 200, 6100 - class3.Adodc2.Recordset.Fields(4).Value * 180), 50, QBColor(12)
    class3.Line (600 + jj * 200, 4610)-(600 + jj * 200, 4610 + class3.Adodc2.Recordset.Fields(3).Value * 180), QBColor(6)
    class3.Line (600 + jj * 200, 4500)-(600 + jj * 200, 4500 - class3.Adodc2.Recordset.Fields(2).Value * 180), QBColor(1)
    class3.Circle (600 + jj * 200, 4500 - class3.Adodc2.Recordset.Fields(2).Value * 180), 50, QBColor(12)
    class3.Line (600 + jj * 200, 3010)-(600 + jj * 200, 3010 + class3.Adodc2.Recordset.Fields(1).Value * 180), QBColor(6)
     jjj = jjj + 1
    jjjj = jjjj + 1
    Else
        class3.Timer1.interval = 0
        class3.CandyCommand4.Enabled = True
    End If
  
    Else
        class3.Timer1.interval = 0
        class3.CandyCommand4.Enabled = True
End If
jj = jj + 1
End Sub

Public Sub main()
frmSplashhand.Show
Screen.MousePointer = 11
DoEvents

Load hhfc

Unload frmSplashhand

hhfc.Show
Screen.MousePointer = 0
End Sub

Public Sub score1(con As PictureBox, evn As Recordset)
con.Cls
con.Font.Bold = False
con.ForeColor = QBColor(0)
con.CurrentX = 50
con.CurrentY = 50
con.Print "序列" + Space(2) + "区间" + Space(3) + "区间" + Space(3) + "区间" + Space(3) + "区间"
con.CurrentY = 300
con.Print Space(7) + "一" + Space(5) + "二" + Space(5) + "三" + Space(5) + "四"
con.CurrentX = 0
con.CurrentY = 400
con.Print "______________________________________"
con.Font.Bold = True
con.ForeColor = QBColor(12)

If evn.State = adStateClosed Then
evn.Open
End If

If evn.RecordCount = 0 Then
    MsgBox "库中无数据，请按<数据生成>按钮！", vbOKOnly, "提示"
    Exit Sub
  Else
evn.MoveFirst
Do While Not evn.EOF
Dim i As Integer
For i = 0 To 3
classanly(CInt(Val(evn.Fields(i).Value)) + 1, i + 2) = classanly(CInt(Val(evn.Fields(i).Value)) + 1, i + 2) + evn.Fields(4).Value
Next i
evn.MoveNext
Loop

 For i = 1 To 9
      con.CurrentX = 50
      con.CurrentY = (i * 250) + 400
      con.Print classanly(i, 1) & Space(6 - Len(Trim(Str(classanly(i, 1))))) & classanly(i, 2) _
      & Space(6 - Len(Trim(Str(classanly(i, 2))))) & classanly(i, 3) & Space(6 - Len(Trim(Str(classanly(i, 3))))) & classanly(i, 4) & Space(6 - Len(Trim(Str(classanly(i, 4))))) & classanly(i, 5)
 Next i
End If
End Sub

Public Sub score2(con As PictureBox, evn As Recordset)
con.Cls
con.Font.Bold = False
con.ForeColor = QBColor(0)
con.CurrentX = 50
con.CurrentY = 50
con.Print "序列" + Space(2) + "区间" + Space(3) + "区间" + Space(3) + "区间"
con.CurrentY = 300
con.Print Space(7) + "一" + Space(5) + "二" + Space(5) + "三"
con.CurrentX = 0
con.CurrentY = 400
con.Print "______________________________________"
con.Font.Bold = True
con.ForeColor = QBColor(12)

If evn.State = adStateClosed Then
evn.Open
End If

If evn.RecordCount = 0 Then
    MsgBox "库中无数据，请按<数据生成>按钮！", vbOKOnly, "提示"
    Exit Sub
  Else
evn.MoveFirst
Do While Not evn.EOF
Dim i As Integer
For i = 0 To 2
classanly(CInt(Val(evn.Fields(i).Value)) + 1, i + 2) = classanly(CInt(Val(evn.Fields(i).Value)) + 1, i + 2) + evn.Fields(3).Value
Next i
evn.MoveNext
Loop

 For i = 1 To 9
      con.CurrentX = 50
      con.CurrentY = (i * 250) + 400
      con.Print classanly(i, 1) & Space(6 - Len(Trim(Str(classanly(i, 1))))) & classanly(i, 2) _
      & Space(6 - Len(Trim(Str(classanly(i, 2))))) & classanly(i, 3) & Space(6 - Len(Trim(Str(classanly(i, 3))))) & classanly(i, 4)
 Next i
End If
End Sub

Public Sub zuhe(roww As String, start As Integer, leave As Integer)
Dim zhbiao As Recordset
'Set zhbiao = New Recordset
Dim zhcol As Integer
Select Case leave
  Case 2
  Set zhbiao = hhfcevn.rszuhebiao2
  zhcol = 2
  Case 3
  Set zhbiao = hhfcevn.rszuhebiao3
  zhcol = 3
  Case 4
  Set zhbiao = hhfcevn.rszuhebiao4
  zhcol = 4
  Case 5
  Set zhbiao = hhfcevn.rszuhebiao5
  zhcol = 5
  Case 6
  Set zhbiao = hhfcevn.rszuhebiao6
  zhcol = 6
  Case 7
  Set zhbiao = hhfcevn.rszuhebiao7
  zhcol = 7
End Select