Форум РадиоКот

Код: Выделить всё

Dim b1, b2, b3, b4, b5, b6, b7, b8, sum, Ud As Single
Private Sub Form_Load()

MSComm1.DTREnable = True 
  Timer1.Interval = 100 
    MSComm1.Settings = "1200,N,8,1" 
  MSComm1.CommPort = 2 
  MSComm1.PortOpen = True 
  
End Sub

Private Sub Timer1_Timer()

  MSComm1.DTREnable = False 
  Label2.Caption = "" 

  MSComm1.RTSEnable = True 
    If MSComm1.CDHolding = True Then b1 = 1 Else b1 = 0   MSComm1.RTSEnable = False 


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b2 = 1 Else b2 = 0
  MSComm1.RTSEnable = False


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b3 = 1 Else b3 = 0
  MSComm1.RTSEnable = False


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b4 = 1 Else b4 = 0
  MSComm1.RTSEnable = False


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b5 = 1 Else b5 = 0
  MSComm1.RTSEnable = False


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b6 = 1 Else b6 = 0
  MSComm1.RTSEnable = False


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b7 = 1 Else b7 = 0
  MSComm1.RTSEnable = False


  MSComm1.RTSEnable = True
    If MSComm1.CDHolding = True Then b8 = 1 Else b8 = 0
       MSComm1.DTREnable = True 
          MSComm1.RTSEnable = False 
          
          

sum = (b1 * 2 ^ 7) + (b2 * 2 ^ 6) + (b3 * 2 ^ 5) + (b4 * 2 ^ 4) + (b5 * 2 ^ 3) + (b6 * 2 ^ 2) + (b7 * 2 ^ 1) + (b8 * 2 ^ 0)
Ud = Format(sum * 5.063 / 255, "##0.000")
Label1.Caption = CStr(Ud) & " Вольт" 

End Sub