module1.bas

一个用 VB 编写的基于串口通信的简单监测程序

Attribute VB_Name = "Module1"
Public obj As Object
Public j As Integer
Dim TempRange As Variant
Dim BlankCell As Integer
Dim Data(0 To 48, 1 To 2)

Public Sub painting(ByVal x As Integer)
Set TempRange = obj.Worksheets(j).Columns(x + 1)
BlankCell = TempRange.Find("").Row
Data(0, 1) = "00:30"
For i = 1 To 48
If i < 20 Then
  If i Mod 2 = 1 Then
  Data(i, 1) = "0" & Str$(Val(Left$(Data(i - 1, 1), 3)) + (i - 1) Mod 2) & ":30"
  Else
  Data(i, 1) = "0" & Str$(Val(Left$(Data(i - 1, 1), 3)) + (i - 1) Mod 2) & ":00"
  End If
Else
  If i Mod 2 = 1 Then
  Data(i, 1) = Str$(Val(Left$(Data(i - 1, 1), 3)) + (i - 1) Mod 2) & ":30"
  Else
  Data(i, 1) = Str$(Val(Left$(Data(i - 1, 1), 3)) + (i - 1) Mod 2) & ":00"
  End If
End If
Next
For i = 2 To BlankCell - 1
Data(i - 2, 2) = TempRange.Cells(i, 1)
Next
formshow.MSChart1.chartType = VtChChartType2dLine
formshow.MSChart1.ChartData = Data
With formshow.MSChart1.Plot.Backdrop
.Fill.Brush.FillColor.Set 0, 255, 0
End With
formshow.Label2.FontSize = 22
formshow.Label2.FontName = "华文新魏"
formshow.Label2.FontBold = True
formshow.Label2.Caption = TempRange.Cells(BlankCell - 1)
End Sub