sm2.bas

星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网,管理速度快,连接简单方便.注意:星子行连接可用 于带路由主机与带路由主机之间连接,非路由与非路由之间连接.带

Attribute VB_Name = "Sm2"

Option Explicit

'对两副连续位图比较的还原算法
'还原算法//////////////////////////////////////////////////////
'_____________________________________________________________
Dim image() As Byte
Public boo As Boolean

Public Sub three()


If (boo = False) Then

image = date1
boo = True

Call m16xb(date1())

Else



Const a As Byte = 215 '标志常数
Dim su() As Byte '还原后的数组
Dim e As Long    '还原后的索引
Dim X As Long    '读出的指针
Dim f As Long    '记录重复数

ReDim su(UBound(image()))


Do While X <= date2

   If (date1(X) <> a) Then
        su(e) = date1(X)
        e = e + 1
   Else
   
        Do While f < date1(X + 1)
      
           su(e) = image(e)
           f = f + 1
           e = e + 1
      
           Loop
           X = X + 1
           f = 0
           
    End If
    
  X = X + 1
  
Loop
Dim xxx As Long
xxx = 0

Call m16xb(su())

image = su

End If

End Sub