vb源码.txt

VB6.0小程序控制单片机P1口8位LED.很好用的

Dim delaytime As Integer
Dim ASCII_SOH As String   '标题开始
Dim ASCII_ENQ As String   '询问
Dim ASCII_ACK As String   '承认
Dim ASCII_NAK As String   '否定
Dim ASCII_ETX As String   '本文结束
Dim ASCII_SYN As String   '空转同步
Dim stationNum As String  '站号
Dim OUTdataA As String
Dim OUTdataB As String
Dim OUTdataC As String
Dim OUTdataD As String
Dim outbuff(0 To 7) As String '发送缓冲区
Dim outdata(0 To 7) As String '发送区
Dim inbuff() As Byte
Dim indata As String
Dim i As Integer
Dim j As Integer
Dim linkerrorcount As Integer
Dim Textthingsave As String
Dim thingtime As String
Dim thing As String
Dim f As Single
Dim signmsg As Boolean
Dim startsign As Boolean
Dim offlinkSign As Boolean
Dim lablinkSign As Boolean
Dim LEDprocess As Byte
Dim b(8) As Integer
Dim yu(8) As Integer
Dim ledback1 As Integer
Dim ledback2 As Integer

Public Sub record()

  thingtime = Time()
  Textthing.Text = thing + ">>" + thingtime + "^" & vbCrLf + Textthingsave
  Textthingsave = Textthing.Text
  
End Sub
Public Sub linkerror()
  If linkerrorcount >= 2 Then
    Call linkerrormsg
    linkerrorcount = 0
  Else
    linkerrorcount = linkerrorcount + 1
    Call resendFirstbyte
  End If
  
End Sub
Public Sub linkerrormsg()

  lablink.ForeColor = QBColor(12)
  lablink.Caption = "通信出错！"

End Sub
Private Sub CmdAllbright_Click()

  Cmdpause.Value = True
  
  CmdL1bright.Enabled = False
  CmdL2bright.Enabled = False
  CmdL3bright.Enabled = False
  CmdL4bright.Enabled = False
  CmdL5bright.Enabled = False
  CmdL6bright.Enabled = False
  CmdL7bright.Enabled = False
  CmdL8bright.Enabled = False
  CmdL1die.Enabled = True
  CmdL2die.Enabled = True
  CmdL3die.Enabled = True
  CmdL4die.Enabled = True
  CmdL5die.Enabled = True
  CmdL6die.Enabled = True
  CmdL7die.Enabled = True
  CmdL8die.Enabled = True
  Call Clear_autoLED
  
  If MSComm1.PortOpen = True Then
  '发送目标参数
    OUTdataA = "W" '
    OUTdataB = Chr(&H0)    '点亮LED^全亮
    OUTdataC = Chr(&H0)    '高4位
    OUTdataD = Chr(&H0)    '低4位
    Call sendFirstbyte
  Else
    Exit Sub
  End If
End Sub
Private Sub CmdAlldie_Click()

  Cmdpause.Value = True

  CmdL1bright.Enabled = True
  CmdL2bright.Enabled = True
  CmdL3bright.Enabled = True
  CmdL4bright.Enabled = True
  CmdL5bright.Enabled = True
  CmdL6bright.Enabled = True
  CmdL7bright.Enabled = True
  CmdL8bright.Enabled = True
  CmdL1die.Enabled = False
  CmdL2die.Enabled = False
  CmdL3die.Enabled = False
  CmdL4die.Enabled = False
  CmdL5die.Enabled = False
  CmdL6die.Enabled = False
  CmdL7die.Enabled = False
  CmdL8die.Enabled = False
  Call Clear_autoLED
  
  If MSComm1.PortOpen = True Then
  '发送命令
    OUTdataA = "W" '
    OUTdataB = Chr(&H1)    '熄灭LED^全灭
    OUTdataC = Chr(&HF)    '高4位
    OUTdataD = Chr(&HF)    '低4位
    Call sendFirstbyte
  Else
    Exit Sub
  End If
End Sub


Private Sub CmdL1bright_Click()

  CmdL1bright.Enabled = False
  CmdL1die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)   'L1亮
  OUTdataC = Chr(&HF)   '高4位
  OUTdataD = Chr(&HE)   '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL1die_Click()

  CmdL1die.Enabled = False
  CmdL1bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)    'L1灭
  OUTdataC = Chr(&H0)    '高4位
  OUTdataD = Chr(&H1)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL2bright_Click()

  CmdL2bright.Enabled = False
  CmdL2die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)    'L2亮
  OUTdataC = Chr(&HF)    '高4位
  OUTdataD = Chr(&HD)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL2die_Click()

  CmdL2die.Enabled = False
  CmdL2bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)    'L2灭
  OUTdataC = Chr(&H0)    '高4位
  OUTdataD = Chr(&H2)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL3bright_Click()

  CmdL3bright.Enabled = False
  CmdL3die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)    'L3亮
  OUTdataC = Chr(&HF)    '高4位
  OUTdataD = Chr(&HB)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL3die_Click()

  CmdL3die.Enabled = False
  CmdL3bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)    'L3灭
  OUTdataC = Chr(&H0)    '高4位
  OUTdataD = Chr(&H4)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL4bright_Click()

  CmdL4bright.Enabled = False
  CmdL4die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)     'L4亮
  OUTdataC = Chr(&HF)     '高4位
  OUTdataD = Chr(&H7)     '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL4die_Click()

  CmdL4die.Enabled = False
  CmdL4bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)    'L4灭
  OUTdataC = Chr(&H0)    '高4位
  OUTdataD = Chr(&H8)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL5bright_Click()

  CmdL5bright.Enabled = False
  CmdL5die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)     'L5亮
  OUTdataC = Chr(&HE)     '高4位
  OUTdataD = Chr(&HF)     '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL5die_Click()

  CmdL5die.Enabled = False
  CmdL5bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)    'L5灭
  OUTdataC = Chr(&H1)    '高4位
  OUTdataD = Chr(&H0)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL6bright_Click()

  CmdL6bright.Enabled = False
  CmdL6die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)     'L6亮
  OUTdataC = Chr(&HD)    '高4位
  OUTdataD = Chr(&HF)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL6die_Click()

  CmdL6die.Enabled = False
  CmdL6bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)     'L6灭
  OUTdataC = Chr(&H2)     '高4位
  OUTdataD = Chr(&H0)     '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL7bright_Click()

  CmdL7bright.Enabled = False
  CmdL7die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)    'L7亮
  OUTdataC = Chr(&HB)    '高4位
  OUTdataD = Chr(&HF)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL7die_Click()

  CmdL7die.Enabled = False
  CmdL7bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H1)    'L7灭
  OUTdataC = Chr(&H4)    '高4位
  OUTdataD = Chr(&H0)    '低4位
  Call sendFirstbyte
  End If
End Sub

Private Sub CmdL8bright_Click()

  CmdL8bright.Enabled = False
  CmdL8die.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then
    Exit Sub
  Else
  '发送命令
  OUTdataA = "W" '
  OUTdataB = Chr(&H0)    'L8亮
  OUTdataC = Chr(&H7)    '高4位
  OUTdataD = Chr(&HF)    '低4位
  Call sendFirstbyte
  End If
  
End Sub

Private Sub CmdL8die_Click()

  CmdL8die.Enabled = False
  CmdL8bright.Enabled = True
  Call Clear_autoLED

  If MSComm1.PortOpen = False Then