linkev1000.frm

艾默生EV系列变频器与PC通讯的程序

      Timer2.Enabled = True
   Else
      Timer2.Enabled = False
   End If
   
End Sub

Private Sub cm_s1_Click()
   com1.Output = "~010200030186" + Chr(13)
   Timer1.Enabled = True
End Sub

Private Sub cm_s2_Click()
   com1.Output = "~010200040187" + Chr(13)
   Timer1.Enabled = True
End Sub

Private Sub cm_s3_Click()
   com1.Output = "~01020007018A" + Chr(13)
   Timer1.Enabled = True
End Sub

Private Sub cm_s4_Click()
   com1.Output = "~0102000D0197" + Chr(13)
   Timer1.Enabled = True
End Sub

Private Sub Command1_Click()
    data_deal
    com1_sent
End Sub

Private Sub Form_Load()
   com1.PortOpen = True
   zt = 1
   uz = 0
   data_sent(0) = Chr(&H7E)
   data_sent(17) = Chr(&HD)
End Sub



Private Sub Option1_Click()
   zt = 1
   data_deal
End Sub

Private Sub Option2_Click()
   zt = 2
   data_deal
End Sub

Sub data_deal()
   Dim buf As Long
   Dim stt As String
   Dim st(3) As String
   Dim conn As Byte
   
   buf = Val(pt)
   stt = Hex(buf)
   If Len(stt) < 2 Then
      stt = "0" + stt
   End If
   data_sent(1) = Left(stt, 1)
   data_sent(2) = Right(stt, 1)
   
If zt = 1 Then
   buf = Val(cmd0)
   stt = Hex(buf)
   If Len(stt) < 2 Then
      stt = "0" + stt
   End If
   data_sent(3) = Left(stt, 1)
   data_sent(4) = Right(stt, 1)
   
   buf = Val("&H" + cmd1.Text + "&")
   stt = Hex(buf)
   If Len(stt) < 2 Then
      stt = "0" + stt
   End If
   data_sent(5) = Left(stt, 1)
   data_sent(6) = Right(stt, 1)
   
   buf = Val("&H" + cmd2.Text + "H")
   stt = Hex(buf)
   If Len(stt) < 2 Then
      stt = "0" + stt
   End If
   data_sent(7) = Left(stt, 1)
   data_sent(8) = Right(stt, 1)

   buf = Val(dat.Text)
   stt = Hex(buf)
   conn = Len(stt)
   If conn = 1 Then
      stt = "000" + stt
   ElseIf conn = 2 Then
      stt = "00" + stt
   ElseIf conn = 3 Then
      stt = "0" + stt
   End If
   For i = 1 To 4
      data_sent(8 + i) = Mid(stt, i, 1)
   Next i
   If dd01.Value = 1 Then
      uz = 0
   ElseIf dd01.Value = 0 Then
      uz = 1
   End If
ElseIf zt = 2 Then
   
   
   Select Case cd1.Text
      Case "0"
         data_sent(5) = "0"
         data_sent(6) = "0"
      Case "1"
         data_sent(5) = "0"
         data_sent(6) = "1"
      Case "2"
         data_sent(5) = "0"
         data_sent(6) = "2"
      Case "3"
         data_sent(5) = "0"
         data_sent(6) = "3"
      Case "4"
         data_sent(5) = "0"
         data_sent(6) = "4"
      Case "5"
         data_sent(5) = "0"
         data_sent(6) = "5"
      Case "6"
         data_sent(5) = "0"
         data_sent(6) = "6"
      Case "7"
         data_sent(5) = "0"
         data_sent(6) = "7"
      Case "8"
         data_sent(5) = "0"
         data_sent(6) = "8"
      Case "9"
         data_sent(5) = "0"
         data_sent(6) = "9"
      Case "A"
         data_sent(5) = "0"
         data_sent(6) = "A"
      Case "F"
         data_sent(5) = "0"
         data_sent(6) = "F"
      Case "H"
         data_sent(5) = "1"
         data_sent(6) = "0"
      Case "L"
         data_sent(5) = "1"
         data_sent(6) = "1"
      Case "n"
         data_sent(5) = "1"
         data_sent(6) = "2"
      Case "P"
         data_sent(5) = "1"
         data_sent(6) = "3"
   End Select
   
   buf = Val(cd2.Text)
   stt = Hex(buf)
   If Len(stt) < 2 Then
      stt = "0" + stt
   End If
   data_sent(7) = Left(stt, 1)
   data_sent(8) = Right(stt, 1)
   
   buf = Val(dat2.Text)
   stt = Hex(buf)
   conn = Len(stt)
   If conn = 1 Then
      stt = "000" + stt
   ElseIf conn = 2 Then
      stt = "00" + stt
   ElseIf conn = 3 Then
      stt = "0" + stt
   End If
   For i = 1 To 4
      data_sent(8 + i) = Mid(stt, i, 1)
   Next i
   
   If cd0.Text = "读参数" Then
      data_sent(3) = "0"
      data_sent(4) = "6"
      For i = 9 To 12
         data_sent(i) = "0"
      Next i
      uz = 1
   ElseIf cd0.Text = "写RAM" Then
      data_sent(3) = "0"
      data_sent(4) = "8"
      uz = 0
   ElseIf cd0.Text = "写EERAM" Then
      data_sent(3) = "0"
      data_sent(4) = "7"
      uz = 0
   End If
   
End If
If uz = 0 Then
   buf = 0
   For i = 1 To 12
      buf = buf + Asc(data_sent(i))
   Next i
   stt = Hex(buf)
   conn = Len(stt)
   If conn = 1 Then
      stt = "000" + stt
   ElseIf conn = 2 Then
      stt = "00" + stt
   ElseIf conn = 3 Then
      stt = "0" + stt
   End If
   For i = 1 To 4
      data_sent(12 + i) = Mid(stt, i, 1)
   Next i
   
   Label7.Caption = ""
   com_sent = ""
   For i = 0 To 17
      Label7.Caption = Label7.Caption + data_sent(i)
      com_sent = com_sent + data_sent(i)
   Next i
   
ElseIf uz = 1 Then
   buf = 0
   For i = 1 To 8
      buf = buf + Asc(data_sent(i))
   Next i
   stt = Hex(buf)
   conn = Len(stt)
   If conn = 1 Then
      stt = "000" + stt
   ElseIf conn = 2 Then
      stt = "00" + stt
   ElseIf conn = 3 Then
      stt = "0" + stt
   End If
   For i = 1 To 4
      data_sent(8 + i) = Mid(stt, i, 1)
   Next i
   data_sent(13) = Chr(13)
   Label7.Caption = ""
   com_sent = ""
   For i = 0 To 13
      Label7.Caption = Label7.Caption + data_sent(i)
      com_sent = com_sent + data_sent(i)
   Next i

End If
End Sub


Sub com1_sent()
   com1.Output = com_sent
   Timer1.Enabled = True
End Sub

Private Sub Option3_Click()
   cmd0 = 2
   cmd1 = 0
   cmd2 = 1
   dd01.Value = 1
End Sub

Private Sub Option4_Click()
   cmd0 = 2
   cmd1 = 0
   cmd2 = 2
   dd01.Value = 1
End Sub

Private Sub Option5_Click()
   cmd0 = 1
   cmd1 = 0
   cmd2 = 4
   dd01.Value = 0
End Sub

Private Sub Option6_Click()
   cmd0 = 1
   cmd1 = 0
   cmd2 = 0
   dd01.Value = 0
End Sub

Private Sub Option7_Click()
   cmd0 = 8
   cmd1 = 5
   cmd2 = 6
   dd01.Value = 1
End Sub

Private Sub Timer1_Timer()
   Dim strx As String
   Dim sdata As String
   Dim srxx
   Dim lt As Integer
   Dim da As Long
   Dim ln As Long
   Dim ls As Long
   Dim le As Long
   If com1.InBufferCount > 0 Then
      strx = com1.Input
      ln = Len(strx)
      lt = 0
      For i = 1 To ln
         stxx = Mid(strx, i, 1)
         If stxx = "~" Then
            ls = i
            lt = 1
         ElseIf stxx = Chr(13) Then
            le = i
         End If
      Next i
      If lt = 1 Then
         strx = Mid(strx, ls, le - ls)
         sdata = Mid(strx, 10, 4)
         da = Val("&H" + sdata + "&")
         Trev.Text = strx
         valu = da
      End If
   End If
   Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
   Command1_Click
End Sub