?? frmdownload.frm
字號(hào):
For counter = 1 To 512 Step 64
frmB_6(index) = Mid(frmB_TotalStr(5), counter, 64) '32byte
index = index + 1
Next
For index = 0 To 7
chk_sum(index) = Hex_Doc("AA")
Next
For index = 0 To 7
For counter = 1 To 64 Step 2 '32byte=64'
chk_sum(index) = chk_sum(index) + Hex_Doc(Mid(frmB_6(index), counter, 2))
Next
chksum(index) = Doc_Hex(chk_sum(index))
chksum(index) = Right(chksum(index), 2)
frmB_6(index) = "AA" + frmB_6(index) + chksum(index) 'frmB1_2(0-7)=34byte
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
index = 0
For counter = 1 To 512 Step 64
frmB_7(index) = Mid(frmB_TotalStr(6), counter, 64) '32byte
index = index + 1
Next
For index = 0 To 7
chk_sum(index) = Hex_Doc("AA")
Next
For index = 0 To 7
For counter = 1 To 64 Step 2 '32byte=64'
chk_sum(index) = chk_sum(index) + Hex_Doc(Mid(frmB_7(index), counter, 2))
Next
chksum(index) = Doc_Hex(chk_sum(index))
chksum(index) = Right(chksum(index), 2)
frmB_7(index) = "AA" + frmB_7(index) + chksum(index) 'frmB1_2(0-7)=34byte
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim count As Integer
Dim buffer As String
Dim wait As String
Dim Transport_Buffer
Dim Receive_Buffer As String
Dim delay_time As Double
Dim delay_start As Double
Dim delay_chk As Double
Dim arrDownLoad(34) As Integer
Dim Data(33) As Byte
Dim length As Integer
Dim number As Integer
' ProgressBar1.Value = ProgressBar1.Value = 2
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Dim TotalStr(19 * 8) As String
Dim TotalStr(28 * 8) As String
count = 0
For number = 0 To 7
TotalStr(number) = TotalString1(count)
count = count + 1
Next
count = 0
For number = 8 To 15
TotalStr(number) = TotalString2(count)
count = count + 1
Next
count = 0
For number = 16 To 23
TotalStr(number) = TotalString3(count)
count = count + 1
Next
count = 0
For number = 24 To 31
TotalStr(number) = TotalString4(count)
count = count + 1
Next
count = 0
For number = 32 To 39
TotalStr(number) = TotalString5(count)
count = count + 1
Next
count = 0
For number = 40 To 47
TotalStr(number) = TotalString6(count)
count = count + 1
Next
count = 0
For number = 48 To 55
TotalStr(number) = TotalString7(count)
count = count + 1
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
count = 0 '9 vicety 256 byte
For number = 56 To 63
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0
For number = 64 To 71
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0 '9 vicety 256 byte
For number = 72 To 79
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0
For number = 80 To 87
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0 '9 vicety 256 byte
For number = 88 To 95
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0
For number = 96 To 103
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0 '9 vicety 256 byte
For number = 104 To 111
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0
For number = 112 To 119
TotalStr(number) = TotalString7(count)
count = count + 1
Next
count = 0
For number = 120 To 127
TotalStr(number) = TotalString7(count)
count = count + 1
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''????
count = 0
For number = 128 To 135
TotalStr(number) = frm_yibei_str(count)
count = count + 1
Next
count = 0
For number = 136 To 143
TotalStr(number) = frm_tunqian_str(count)
count = count + 1
Next
count = 0
For number = 144 To 151
TotalStr(number) = frm_tunhou_str(count)
count = count + 1
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''????
count = 0
For number = 152 To 159
TotalStr(number) = frmB_1(count)
count = count + 1
Next
count = 0
For number = 160 To 167
TotalStr(number) = frmB_2(count)
count = count + 1
Next
count = 0
For number = 168 To 175
TotalStr(number) = frmB_3(count)
count = count + 1
Next
count = 0
For number = 176 To 183
TotalStr(number) = frmB_4(count)
count = count + 1
Next
count = 0
For number = 184 To 191
TotalStr(number) = frmB_5(count)
count = count + 1
Next
count = 0
For number = 192 To 199
TotalStr(number) = frmB_6(count)
count = count + 1
Next
count = 0
For number = 200 To 207
TotalStr(number) = frmB_7(count)
count = count + 1
Next
count = 0
For number = 208 To 215
TotalStr(number) = frm_jiaoji_str(count)
count = count + 1
Next
count = 0
For number = 216 To 223
TotalStr(number) = frm_zuodian_str(count)
count = count + 1
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ProgressBar1.Value = 3 'ProgressBar1.Value + 1 'value=3
ProgressBar1.Min = 0
ProgressBar1.Max = 223 '151 '135
ProgressBar1.Align = 2
ProgressBar1.Visible = True
For index = 0 To 27 '18 'P_number - 1 'block numbers =256 byte=17 block
For number = index * 8 To index * 8 + 7 '32byte
wait = ""
ProgressBar1.Value = number
buffer = TotalStr(number)
length = Len(buffer)
count = 1
''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 1 To 34
Data(i - 1) = Hex_Doc(Mid(buffer, count, 2))
count = count + 2
Next
Transport_Buffer = Data 'down load digial
MSComm1.Output = Transport_Buffer
Timer1.Enabled = True
ProgressBar1.Value = number
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If (number = index * 8 + 7) Then
delay_time = 0.09 '秒delay time
delay_start = Timer
Do
delay_chk = delay_start + delay_time
Loop Until Timer > delay_chk
Receive_Buffer = read_mscomm1input() 'read input buffer
wait = Mid(Receive_Buffer, 3, 2)
ProgressBar1.Value = number
If wait = "34" Then '0x34 receive 256 byte sucess
' Label3.Caption = "receive sucess"
ElseIf wait = "31" Then 'redo'0X31 ERR
number = number - 1
Else
Timer2.Enabled = False
MsgBox "Data DownLoad Error!" '" 資料下載出錯(cuò)1！"
Exit Sub
' frmDownLoad.Hide
End If
If index < 16 Then '重新等待接受下一個(gè)256byte
ProgressBar1.Value = number
delay_time = 0.09 '秒delay time
delay_start = Timer
Do
delay_chk = delay_start + delay_time
Loop Until Timer > delay_chk '上一個(gè)BUFFER receive 0x 38sucess
' Receive_Buffer = read_mscomm1input()
wait = Mid(Receive_Buffer, 15, 2)
If wait = "38" Then
' Label3.Caption = "receive sucess"
Else
' Label3.Caption = "receive sucess"
Timer2.Enabled = False
MsgBox "Data DownLoad Error!" '"資料下載出錯(cuò)2！"
Exit Sub
' frmDownLoad.Hide
End If
End If
Else
ProgressBar1.Value = number
delay_time = 0.05 '秒delay time
delay_start = Timer
Do
delay_chk = delay_start + delay_time
Loop Until Timer > delay_chk
Receive_Buffer = read_mscomm1input()
wait = Mid(Receive_Buffer, 3, 2)
If wait = "32" Then ' 0x32 receive 32byte sucess
'Label3.Caption = "receive sucess"
ElseIf wait = "31" Then 'redo 0X31
number = number - 1
Else
' Timer2.Enabled = False
' MsgBox "Data DownLoad Error/Com Port not Setting!" '"資料下載出錯(cuò)！"
MsgBox "Data Communication Error!"
Timer2.Enabled = False
' Unload frmDownLoad
Exit Sub
End If
ProgressBar1.Value = number
End If
Timer1.Enabled = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next
Next
MsgBox "DownLoad Sucess!"
ProgressBar1.Visible = False
Timer2.Enabled = False
frmDownLoad.Hide
Timer2.Enabled = False
For index = 0 To 12
convert_code(index) = 1
Next
Exit Sub
DownLoadErr:
Timer2.Enabled = False
MsgBox Err.Description
End Sub
'Private Sub mnuStart_Click()
' Timer2.Interval = 500
' Timer2.Enabled = True
'End Sub
'End Sub
Public Function read_mscomm1input() As String
Dim out() As Byte
Dim qq As Integer
Dim read_data() As Integer
Dim inbuf_counter As Integer
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeBinary
inbuf_counter = MSComm1.InBufferCount
'ReDim out(12) As Byte
ReDim read_data(inbuf_counter) As Integer
out() = MSComm1.Input 'Receive ditiagl data not Hex data
For qq = 0 To inbuf_counter - 1
read_data(qq) = out(qq)
Next
For qq = 0 To inbuf_counter - 1
read_mscomm1input = read_mscomm1input + Doc_Hex(read_data(qq))
Next
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -