下面是一段数据采集的函数,我看的不太明白　　是一个12位AD转换　　out_byte输出一个字节,最后得出的da是采集的结果　　Function ad5101(cha el As Integer) As Integer　　    Dim h, m, l, da As Integer　　    　　    out_byte &;H378, cha el　　    delay (100)　　    out_byte &;H378, &;H20   cha el　　    delay (500)　　    out_byte &;H378, &;H40　　    delay (50)　　    h = Int(in_byte(&;H379) / 16)　　    out_byte &;H378, &;H60　　    delay (50)　　    m = Int(in_byte(&;H379) / 16)　　    out_byte &;H378, &;H80　　    delay (50)　　    l = Int(in_byte(&;H379) / 16)　　    da = h * 256   m * 16   l　　    ad5101 = da　　End Function　　那位高手给我说一下他的具体算法