一段读十六进制的图形文件,并将其还原为图形的代码,请高手给看看。
有一个图形文件,用十六进制保存,X轴表示能量级,Y轴表示计数,Y会根据时间的变化而增加,我有一个程序来分析这个曲线图。我用编辑器分析了一下该文件,该文件共256*16+16个字节,每个数据为4个字节,前两个字节没用,第三个字节为你位字节,第四个字节为高们字节,从第三个数据开始和X轴相对应,X轴共分为1024段,但我按下面的代码得到的数据总为0,不知为什么。
Open App.Path & "\004.dat" For Binary As #200
j = 2
f = 0
For i = 0 To 1028
Seek #200, j
getD = Input(1, #200)
Dataa(f) = CLng(Val(getD))
j = j + 1
Seek #200, j
getD = Input(1, #200)
Datab(f) = CLng(Val(getD))
j = j + 3
f = f + 1
Next i
For i = 0 To 1029
Data(i) = CLng(Datab(i)) * 256 + CLng(Dataa(i))
Next i
For i = 0 To 1023
MSChart1.Row = 1
MSChart1.Data = Data(i + 2)
Next i