STM32 ISP串口烧录 VB源码（二）关键代码

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll"() As Long

在程序最开始。

一、主要参数

Dim i As Long
Dim bin() As Byte
Dim BINLEN As Long
Dim Slen As Long
Dim str As String
Dim BAnk As Long          '总共有多少块
Dim ConStstus As Boolean  '连接状态
Dim Sendbuff() As Byte    '发送缓存
Dim Recvbuff(256) As Byte '接收缓存
Dim Binfile() As Byte     '文件缓存

二、一般操作代码

Private Sub CmdClear_Click() '清空操作
    Textdata = ""
End Sub

Private Sub Command2_Click()   '刷新端口
Dim G As Integer
Dim Index As Integer
if Index = 0 Then
   On Error Resume Next    '出现错误
   For G=1 To 9            '添加通讯选择
      MSComm1.CommPort = G
      MSComm1.PortOpen = true
      If MSComm1.PortOpe