sarts.bas

星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V2.0的核心结合而开发成的! 星子行V1.0是单反接正法,星子行V2.0是多反接法,星子行V3.0以上版本都是多反

Attribute VB_Name = "Sarts"

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