架构师◎的个人资料 - RAT

架构师◎ 代做诚信第一

关注数: 2 粉丝数: 13 发帖数: 338 关注贴吧数: 25

有没有单，赚个外快啊有没有单，赚个外快啊

国庆没事做，接接项目，有需要的加我国庆没事做，接接项目，有需要的加我

专升本对于这行来说用的上不专升本对于这行来说用的上不

这么说的话，在座的各位都没资格，哈哈哈哈这么说的话，在座的各位都没资格，哈哈哈哈

他们的家庭创伤虽然不是烈士弥补的，但至少有些许慰藉他们的家庭创伤虽然不是烈士弥补的，但至少有些许慰藉

等拉

单双排有没的，灵活也行单双排有没的，灵活也行

灵活等灵活等

灵活排等拉，等进灵活排等拉，等进

1=多。。 1=多。。

时刻半年，最近有空，有需要帮忙的同学私信我时刻半年，最近有空，有需要帮忙的同学私信我

还有优化的地步么。速度好慢 Private Sub WriteDateToTxT(ByRef DateBuffAll() As Byte, BlockNumber As Long) 'On Error Resume Next Dim i, j, k, x As Long Dim Timestamp As String '存时间戳 Dim MessageChannel As String '通道号 Dim MessageLength As String '数据长度 Dim MessageType As String '数据类型，用于判断是标准帧还是拓展帧 Dim MessageID As String '报文ID Dim MessageDate As String '报文数据段 Dim Message As String '汇总 Dim str0 As String '将数组转换成字符串，查询指定字符 Dim DateBuff(511) As Byte ' DoEvents '数据处理 For k = 0 To BlockNumber - 1 For x = 0 To 512 - 1 DateBuff(x) = DateBuffAll(x + (k * 512)) Next x DoEvents For i = 0 To (23 - 1) Step 1 '一个块23个报文,一个报文22个字节 '时间戳计算 Timestamp = Str(DateBuff(i * 22)) + Str(DateBuff(i * 22 + 1)) * Str(256 ^ 1) + Str(DateBuff(i * 22 + 2)) * Str(256 ^ 2) '时间戳整数位 If Val(Timestamp) = 0 Then Timestamp = "0" & (Str(DateBuff(i * 22 + 3)) + Str(DateBuff(i * 22 + 4)) * Str(256 ^ 1) _ + Str(DateBuff(i * 22 + 5)) * Str(256 ^ 2)) / 100000 '合并时间戳小数位 Else Timestamp = Timestamp + (Str(DateBuff(i * 22 + 3)) + Str(DateBuff(i * 22 + 4)) * Str(256 ^ 1) _ + Str(DateBuff(i * 22 + 5)) * Str(256 ^ 2)) / 100000 '合并时间戳小数位 End If '通道号 MessageChannel = Str(DateBuff(i * 22 + 6)) '判断错误帧 If Chr(DateBuff(i * 22 + 7)) = "E" And Chr(DateBuff(i * 22 + 8)) = "r" And Chr(DateBuff(i * 22 + 9)) = "r" And Chr(DateBuff(i * 22 + 10)) = "o" _ And Chr(DateBuff(i * 22 + 11)) = "r" And Chr(DateBuff(i * 22 + 12)) = "F" And Chr(DateBuff(i * 22 + 13)) = "r" And Chr(DateBuff(i * 22 + 14)) = "a" _ And Chr(DateBuff(i * 22 + 15)) = "m" And Chr(DateBuff(i * 22 + 16)) = "e" Then '有错误帧 Message = Message & Timestamp & " " & MessageChannel & " " & "ErrorFrame" & " " & Str(DateBuff(17)) Else '没有错误帧 '数据长度 MessageLength = Str(DateBuff(i * 22 + 7)) '数据类

Vb能不能对sd卡进行读写操作 Vb能不能对sd卡进行读写操作

电一，在线等电一，在线等

电一钻三，把后结，速来电一钻三，把后结，速来

电一钻四，能c的，把后结，现在上电一钻四，能c的，把后结，现在上

一区钻四，你来个白金二白金1也行，单双排，先打，辅助也行，打一区钻四，你来个白金二白金1也行，单双排，先打，辅助也行，打野也行，假肢千万别。。一下就能看出来

一区钻四排位有人么一区钻四排位有人么

1 下一页