frmdownload.frm

按摩椅软件开发示例,VB-PIC单片机通讯题,主要是串口通讯问题

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDownLoad 
   Caption         =   "DownLoad"
   ClientHeight    =   4860
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8280
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4860
   ScaleWidth      =   8280
   Begin VB.Timer Timer2 
      Left            =   4680
      Top             =   240
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   4365
      Width           =   8280
      _ExtentX        =   14605
      _ExtentY        =   873
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Timer Timer1 
      Left            =   3360
      Top             =   120
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   2400
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      InputMode       =   1
   End
   Begin VB.Label Label3 
      Height          =   735
      Left            =   2880
      TabIndex        =   2
      Top             =   2280
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   615
      Left            =   2280
      TabIndex        =   1
      Top             =   960
      Width           =   2415
   End
End
Attribute VB_Name = "frmDownLoad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cmd_Stop_Click()
Timer2.Enabled = False

End Sub

Private Sub Form_Load()


     If COM_var = "" Then
   '   MsgBox "Port not set ,use default value!"
       COM_var = "COM1"
        
    
      End If
Dim com_port As Integer
Select Case COM_var
        Case "COM1"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM1"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM2"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM3"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM4"
        
            com_port = CInt(Right(COM_var, 1))
            
          Case "COM5"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM6"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM7"
        
            com_port = CInt(Right(COM_var, 1))
         Case "COM8"
         
            com_port = CInt(Right(COM_var, 1))
         Case "COM9"
        
            com_port = CInt(Right(COM_var, 1))
            
          Case "COM10"
        
            com_port = CInt(Right(COM_var, 1))
          
          Case Else
End Select




         MSComm1.CommPort = com_port '4

 MSComm1.Settings = "115200,n,8,1"
 MSComm1.PortOpen = True
 

 



        
   '     Dim i As Integer
  '    Timer2.Enabled = True
  '     Timer2.Interval = 5
   '    For i = 0 To 12
   '        If convert_code(i) = 0 Then
            
   '             Timer2.Enabled = False
   '              MsgBox "资料未转档!"
    '         Exit For
   '          End If
            
            
   '     Next

        Left = 0
        Top = 0
        Width = 6000       '//窗体最大化
        Height = 3000



End Sub


Private Sub Form_Resize()




        Label1.Caption = "Data DownLoad !"
       Dim i As Integer
      Timer2.Enabled = True
       Timer2.Interval = 5
       For i = 0 To 13
           If convert_code(i) = 0 Then
            
                Timer2.Enabled = False
                 MsgBox "Data don't Complier!"
             Exit For
             End If
            
            
        Next


End Sub

Private Sub Timer2_Timer()
'Private Sub mnuStart_Click()

On Error GoTo DownLoadErr


















Dim index As Integer
Dim counter As Integer
Dim frm_yibei_str(8) As String '32byte*8=256byte
Dim frm_tunqian_str(8) As String '32byte*8=256byte
Dim frm_tunhou_str(8) As String '32byte*8=256byte
Dim frm_jiaoji_str(8) As String '32byte*8=256byte
Dim frm_zuodian_str(8) As String '32byte*8=256byte
Label1.Caption = "Data DownLoad !"


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
frm_yibei_str(0) = frm_1_totalstr(5) '椅背
frm_yibei_str(1) = frm_2_totalstr(5)
frm_yibei_str(2) = frm_3_totalstr(5)
frm_yibei_str(3) = frm_4_totalstr(5)
frm_yibei_str(4) = frm_5_totalstr(5)
frm_yibei_str(5) = frm_6_totalstr(5)
frm_yibei_str(6) = frm_7_totalstr(5)
frm_yibei_str(7) = frm_str


frm_tunqian_str(0) = frm_1_totalstr(3) ' 臀前
frm_tunqian_str(1) = frm_2_totalstr(3) ' 臀前
frm_tunqian_str(2) = frm_3_totalstr(3) ' 臀前
frm_tunqian_str(3) = frm_4_totalstr(3) ' 臀前
frm_tunqian_str(4) = frm_5_totalstr(3) ' 臀前
frm_tunqian_str(5) = frm_6_totalstr(3) ' 臀前
frm_tunqian_str(6) = frm_7_totalstr(3) ' 臀前
frm_tunqian_str(7) = frm_str

frm_tunhou_str(0) = frm_1_totalstr(4) '臀后
frm_tunhou_str(1) = frm_2_totalstr(4) '臀后
frm_tunhou_str(2) = frm_3_totalstr(4) '臀后
frm_tunhou_str(3) = frm_4_totalstr(4) '臀后
frm_tunhou_str(4) = frm_5_totalstr(4) '臀后
frm_tunhou_str(5) = frm_6_totalstr(4) '臀后
frm_tunhou_str(6) = frm_7_totalstr(4) '臀后
frm_tunhou_str(7) = frm_str


frm_jiaoji_str(0) = frm_1_totalstr(6) ' 脚机
frm_jiaoji_str(1) = frm_2_totalstr(6) ' 脚机
frm_jiaoji_str(2) = frm_3_totalstr(6) ' 脚机
frm_jiaoji_str(3) = frm_4_totalstr(6) ' 脚机
frm_jiaoji_str(4) = frm_5_totalstr(6) ' 脚机
frm_jiaoji_str(5) = frm_6_totalstr(6) ' 脚机
frm_jiaoji_str(6) = frm_7_totalstr(6) ' 脚机
frm_jiaoji_str(7) = frm_str


frm_zuodian_str(0) = frm_1_totalstr(7) '坐垫
frm_zuodian_str(1) = frm_2_totalstr(7) '坐垫
frm_zuodian_str(2) = frm_3_totalstr(7) '坐垫
frm_zuodian_str(3) = frm_4_totalstr(7) '坐垫
frm_zuodian_str(4) = frm_5_totalstr(7) '坐垫
frm_zuodian_str(5) = frm_6_totalstr(7) '坐垫
frm_zuodian_str(6) = frm_7_totalstr(7) '坐垫
frm_zuodian_str(7) = frm_str

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                        
Dim frmB_TotalStr(7) As String '80byte*3+16=256byte'A1.A2.A3...A7
Dim frmB_1(8) As String 'total byte=32byte*8=256byte
Dim frmB_2(8) As String 'total byte=32byte*8=256byte
Dim frmB_3(8) As String 'total byte=32byte*8=256byte
Dim frmB_4(8) As String 'total byte=32byte*8=256byte
Dim frmB_5(8) As String 'total byte=32byte*8=256byte
Dim frmB_6(8) As String 'total byte=32byte*8=256byte
Dim frmB_7(8) As String 'total byte=32byte*8=256byte

Dim chk_sum(7) As Integer
Dim chksum(7) As String
Label1.Caption = "Data DownLoad !"
Dim s_string As String
Dim s_string1 As String
Dim s_string2 As String
Dim s_string3 As String

    s_string = ""
    s_string1 = ""
    s_string2 = ""
    s_string3 = ""
    
For index = 1 To 16 '16byye
    s_string = s_string + "AA"
    
Next                                '80byte*3+16byte=256byte

For index = 1 To 48  '32byte+48byte=80byte
    s_string1 = s_string1 + "AA"
    s_string2 = s_string2 + "AA"
    s_string3 = s_string3 + "AA"
Next


  '  Dim ss1
  '  Dim ss2

    Dim lng1
 '   Dim lng2
 '   Dim lng3
 '   Dim lng4

' ProgressBar1.Min = 0
' ProgressBar1.Max = 4627
' ProgressBar1.Value = 1
    'For index = 0 To 6              '"AAAAAA..AA"=16byte fill 256byte
    
            ''''资料库_1
        frmB_TotalStr(0) = frm_1_totalstr(0) + s_string1 + frm_1_totalstr(1) + s_string2 + frm_1_totalstr(2) + s_string3 + s_string

lng1 = Len(frmB_TotalStr(0))


            ''''资料库_2
        frmB_TotalStr(1) = frm_2_totalstr(0) + s_string1 + frm_2_totalstr(1) + s_string2 + frm_2_totalstr(2) + s_string3 + s_string
        
            ''''资料库_3
        frmB_TotalStr(2) = frm_3_totalstr(0) + s_string1 + frm_3_totalstr(1) + s_string2 + frm_3_totalstr(2) + s_string3 + s_string
        
            ''''资料库_4
        frmB_TotalStr(3) = frm_4_totalstr(0) + s_string1 + frm_4_totalstr(1) + s_string2 + frm_4_totalstr(2) + s_string3 + s_string
        
            ''''资料库_5
        frmB_TotalStr(4) = frm_5_totalstr(0) + s_string1 + frm_5_totalstr(1) + s_string2 + frm_5_totalstr(2) + s_string3 + s_string
    
            ''''资料库_6
        frmB_TotalStr(5) = frm_6_totalstr(0) + s_string1 + frm_6_totalstr(1) + s_string2 + frm_6_totalstr(2) + s_string3 + s_string
    
           ''''资料库_7
        frmB_TotalStr(6) = frm_7_totalstr(0) + s_string1 + frm_7_totalstr(1) + s_string2 + frm_7_totalstr(2) + s_string3 + s_string
    
    
   ' Next
 '   lng1 = Len(frmB_TotalStr(0))
 '   lng2 = Len(frmB_TotalStr(6))
    
    
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        index = 0
        For counter = 1 To 512 Step 64
           
            frmB_1(index) = Mid(frmB_TotalStr(0), counter, 64) '32byte
            index = index + 1
 
        
        Next
    
  '  ss3 = frmB_1(0)
  '  lng3 = Len(ss3)
  '  ss4 = frmB_1(7)
  '  lng4 = Len(ss4)
    
    
    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_1(index), counter, 2))
                
                
        Next
             chksum(index) = Doc_Hex(chk_sum(index))
             chksum(index) = Right(chksum(index), 2)
             frmB_1(index) = "AA" + frmB_1(index) + chksum(index) 'frmB1_1(0-7)=34byte
     Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        index = 0
        For counter = 1 To 512 Step 64
        
        frmB_2(index) = Mid(frmB_TotalStr(1), 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_2(index), counter, 2))
                
                
        Next
             chksum(index) = Doc_Hex(chk_sum(index))
             chksum(index) = Right(chksum(index), 2)
             frmB_2(index) = "AA" + frmB_2(index) + chksum(index) 'frmB1_2(0-7)=34byte
     Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        index = 0
        For counter = 1 To 512 Step 64
        
        frmB_3(index) = Mid(frmB_TotalStr(2), 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_3(index), counter, 2))
                
                
        Next
             chksum(index) = Doc_Hex(chk_sum(index))
             chksum(index) = Right(chksum(index), 2)
             frmB_3(index) = "AA" + frmB_3(index) + chksum(index) 'frmB1_2(0-7)=34byte
     Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         index = 0
        For counter = 1 To 512 Step 64
        
        frmB_4(index) = Mid(frmB_TotalStr(3), 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_4(index), counter, 2))
                
                
        Next
             chksum(index) = Doc_Hex(chk_sum(index))
             chksum(index) = Right(chksum(index), 2)
             frmB_4(index) = "AA" + frmB_4(index) + chksum(index) 'frmB1_2(0-7)=34byte
     Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        index = 0
        For counter = 1 To 512 Step 64
        
        frmB_5(index) = Mid(frmB_TotalStr(4), 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_5(index), counter, 2))
                
                
        Next
             chksum(index) = Doc_Hex(chk_sum(index))
             chksum(index) = Right(chksum(index), 2)
             frmB_5(index) = "AA" + frmB_5(index) + chksum(index) 'frmB1_2(0-7)=34byte
     Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    index = 0