moduleblt.bas

这是一个实际的工程中所用的源程序

Attribute VB_Name = "Moduleblt"
Option Explicit

Public Const UIndex2 = 98
Public Const UIndex3 = 83
Public Const UIndex = 127


Public Const ColorBlue = &HFF0000   '&HFF00&
Public Const ColorYellow = &HFFFF& 'run
Public Const ColorRed = &HFF& 'wrong
Public Const ColorGreen = &H80FF80  'answer
Public Const ColorGray = &HC0C0C0       'answer


Public lcyg2(0 To 23) As String
Public lcyg3(0 To 13) As String

Public lc2(0 To 23) As String
Public lc3(0 To 13) As String

Public DspBt As Date '记录前时
Public IsDsp As Boolean '


Public Status2(0 To UIndex2) As Long
Public Status3(0 To UIndex3) As Long

Public NewStatus2(0 To UIndex) As Long
Public NewStatus3(0 To UIndex) As Long
Public DispStatus2(0 To UIndex) As Long '显示状态
Public DispStatus3(0 To UIndex) As Long

Public StartTime2(0 To UIndex) As Date
Public StartTime3(0 To UIndex) As Date



Public Sub MainFC()
   Dim i As Long
   For i = 0 To UIndex
      StartTime2(i) = SetReg.GetSettingStr(Sc_Runing, "StartTime2_" & CStr(i), Now)
      StartTime3(i) = SetReg.GetSettingStr(Sc_Runing, "StartTime3_" & CStr(i), Now)
   Next i
   
    lcyg2(0) = "*,2+,24,22,d2"
    lcyg2(1) = "*,3+,25,23,d1"
    lcyg2(2) = "*,3+,24,22,d2"
    lcyg2(3) = "*,4+,25,23,d1"
    lcyg2(4) = "*,2-,8,9,z1"
    lcyg2(5) = "*,3-,8,9,z1"
    lcyg2(6) = "*,4-,8,9,z1"
    lcyg2(7) = "*,2-,5,12,11,10,z2"
    lcyg2(8) = "*,2-,5,15,16,17,18"
    lcyg2(9) = "*,3-,6,15,19,20,21"

    lcyg2(10) = "22,14,12,11,10,d2,z2"
    lcyg2(11) = "23,13,7,8,9,d1,z1"
    lcyg2(12) = "22,d2,15,16,17,18"
    lcyg2(13) = "23,d1,15,19,20,21"
    lcyg2(14) = "4+,24,d2,22"
    lcyg2(15) = "2+,24,26,d5,28"
    lcyg2(16) = "3+,24,26,d5,28"
    lcyg2(17) = "4+,24,26,d5,28"
    lcyg2(18) = "28,29,14,12,11,10,z2"
    lcyg2(19) = "28,29,15,d5"

    lcyg2(20) = "2+,24"
    lcyg2(21) = "3+,25"
    lcyg2(22) = "3+,24"
    lcyg2(23) = "4+,25"

    lcyg3(0) = "*,1,2,3,4,d4"
    lcyg3(1) = "*,1,12,3,4,d4"
    lcyg3(2) = "*,11,2,3,4,d4"
    lcyg3(3) = "*,11,12,3,4,d4"
    lcyg3(4) = "*,1,2,6,5,d3"
    lcyg3(5) = "*,1,12,6,5,d3"
    lcyg3(6) = "*,11,2,6,5,d3"
    lcyg3(7) = "*,11,12,6,5,d3"
    lcyg3(8) = "4,8,9,z3"
    lcyg3(9) = "5,d3,7,8,9,z3"
    
    lcyg3(10) = "*,1,9,z3"

    lcyg3(11) = "10,5,d3"
    lcyg3(12) = "10,13,4,d4"
    lcyg3(13) = ""

    Call getLc


   Set fPG2 = New frmPG2 'FrmCtl2
   Set fPG3 = New frmPG3 'FrmCtl3
   Load fPG2
   Load fPG3
   #If dds = 2 Then
      Load fClient
   #Else
   
      Load fComm1
   '   fComm1.Show
      Load frmComm3
   
   #End If
End Sub
Private Sub getLc()
    lc2(0) = "94,95,96,97,98,55,80,78,88"
    lc2(1) = "94,95,96,97,98,57,81,79,86"
    lc2(2) = "94,95,96,97,98,57,80,78,88"
    lc2(3) = "94,95,96,97,98,59,81,79,86"
    lc2(4) = "94,95,96,97,98,56,64,65,92"
    lc2(5) = "94,95,96,97,98,58,64,65,92"
    lc2(6) = "94,95,96,97,98,60,64,65,92"
    lc2(7) = "94,95,96,97,98,56,61,68,67,66,93"
    lc2(8) = "94,95,96,97,98,56,61,71,72,73,74"
    lc2(9) = "94,95,96,97,98,58,62,71,75,76,77"

    lc2(10) = "78,70,68,67,66,88,93"
    lc2(11) = "79,69,63,64,65,86,92"
    lc2(12) = "78,88,71,72,73,74"
    lc2(13) = "79,86,71,75,76,77"
    lc2(14) = "59,80,88,78"
    lc2(15) = "55,80,82,90,84"
    lc2(16) = "57,80,82,90,84"
    lc2(17) = "59,80,82,90,84"
    lc2(18) = "84,85,70,68,67,66,93"
    lc2(19) = "84,85,71,90"

    lc2(20) = "55,80"
    lc2(21) = "57,81"
    lc2(22) = "57,80"
    lc2(23) = "59,81"

    lc3(0) = "65,66,67,68,69,42,43,44,45,60"
    lc3(1) = "65,66,67,68,69,42,53,44,45,60"
    lc3(2) = "65,66,67,68,69,52,43,44,45,60"
    lc3(3) = "65,66,67,68,69,52,53,44,45,60"
    lc3(4) = "65,66,67,68,69,42,43,47,46,56"
    lc3(5) = "65,66,67,68,69,42,53,47,46,56"
    lc3(6) = "65,66,67,68,69,52,43,47,46,56"
    lc3(7) = "65,66,67,68,69,52,53,47,46,56"
    lc3(8) = "45,49,50,62"
    lc3(9) = "46,56,48,49,50,62"
    
    lc3(10) = "65,66,67,68,69,42,50,62"

    lc3(11) = "51,46,56"
    lc3(12) = "51,54,45,60"
    lc3(13) = ""

End Sub