📄 xxform.frm
字号:
Begin VB.Label Label8
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1770
TabIndex = 9
Top = 2010
Width = 1185
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "风 速："
Height = 255
Left = 540
TabIndex = 8
Top = 2130
Width = 1005
End
Begin VB.Label Label6
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1770
TabIndex = 7
Top = 1455
Width = 1185
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "光 照："
Height = 255
Left = 540
TabIndex = 6
Top = 1620
Width = 1005
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1770
TabIndex = 5
Top = 915
Width = 1185
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "大气湿度："
Height = 255
Left = 540
TabIndex = 4
Top = 1050
Width = 1005
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1770
TabIndex = 3
Top = 360
Width = 1185
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "大气温度："
Height = 255
Left = 540
TabIndex = 2
Top = 480
Width = 1005
End
End
Begin VB.Frame Frame4
BackColor = &H00FFFFC0&
Height = 10620
Left = 60
TabIndex = 26
Top = 840
Width = 13065
Begin VB.Timer Timer1
Interval = 1000
Left = 12420
Top = 6030
End
Begin VB.CommandButton Ctemp
Caption = "土壤温度曲线"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 9960
TabIndex = 30
Top = 7800
Width = 2355
End
Begin VB.CommandButton Ctable
Caption = "环境信息记录表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9960
TabIndex = 36
Top = 6570
Width = 2355
End
Begin VB.Frame Frame5
BackColor = &H00C0FFC0&
Height = 10395
Left = 9150
TabIndex = 37
Top = 150
Width = 3855
End
Begin VB.Image Image1
Height = 10395
Left = 60
Picture = "xxForm.frx":0000
Stretch = -1 'True
Top = 150
Width = 12945
End
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "节水灌溉智能监控系统"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 540
Left = 4320
TabIndex = 29
Top = 210
Width = 7545
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 11190
TabIndex = 28
Top = 390
Width = 1845
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 13170
TabIndex = 27
Top = 390
Width = 2025
End
End
Attribute VB_Name = "xxForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mindex1 As Long
Private value(10) As Double
Private station_no1 As Byte
Private chno1 As Byte
Private cbtr01, cbtr11 As Byte
Dim kk As Integer
Dim delaytime As Integer
Private Sub Form_Load()
mindex1 = 0
station_no1 = 8
chno1 = 1
cbtr01 = &H18
cbtr11 = &H1C
Call re_set
Call link_set
Call Get_Data
End Sub
'复位设备
Private Sub re_set()
Call CAN_Reset(mindex)
End Sub
'连接设备
Private Sub link_set()
Dim i As Boolean
Dim canconfig(11) As Byte
On Error GoTo hh
i = CAN_Open(mindex1)
If (i = 0) Then
'MsgBox "无法打开设备", vbCritical, "信息提示"
Exit Sub
End If
canconfig(0) = cbtr01
canconfig(1) = cbtr11
canconfig(2) = 0
canconfig(3) = 0
canconfig(4) = 0
canconfig(5) = 0
canconfig(6) = &HFF
canconfig(7) = &HFF
canconfig(8) = &HFF
canconfig(9) = &HFF
canconfig(10) = 0
If CAN_Init(mindex1, canconfig(0)) Then
Else
'MsgBox "通讯卡初始化失败", vbCritical, "信息提示"
Call CAN_Close(mindex1)
End If
hh: Exit Sub
End Sub
'采集数据
Private Sub Get_Data()
Dim cth, ctl As Integer
Dim canbuff(13) As Byte
Dim fv As Long
Dim dv As Long
Dim df As Long
'On Error GoTo hh
fv = 5000: df = 0: dv = 4095
canbuff(0) = &H3
canbuff(1) = station_no1
canbuff(2) = 0
canbuff(3) = &H55
canbuff(4) = &H2
canbuff(5) = chno1
If (CAN_Trans(mindex1, canbuff(0), 50) <> 1) Then
' MsgBox " 发送失败 ", vbCritical, "信息提示"
Timer1.Enabled = False
Else
If (CAN_Recv(mindex1, canbuff(0), 500)) Then
ctl = canbuff(7)
cth = canbuff(6)
value(canbuff(5) - 1) = ctl + cth * 256
Label14.Caption = Format(CStr(((value(canbuff(5) - 1) And dv) / dv * fv - df) - 1) * 25 / 1000, "0.0")
dusttemp(kk, 1) = Label14.Caption
dusttemp(kk, 10) = Date & Time
drawForm.Tenum.Text = dusttemp(kk, 10)
dustnum = dustnum + 1
kk = kk + 1
'添数据
drawForm.Grid.Row = dustnum
drawForm.Grid.Col = 1
drawForm.Grid.Text = drawForm.Tenum.Text
drawForm.Grid.Col = 2
drawForm.Grid.Text = " " + Label14.Caption
Call HisForm2.his_data2
End If
End If
'hh: Exit Sub
End Sub
Private Sub Timer1_Timer()
delaytime = delaytime + 1
If delaytime > 1 Then
Call Get_Data
delaytime = 0
End If
End Sub
Private Sub Ctemp_Click()
drawForm.Show
End Sub
Private Sub Ctable_Click()
HisForm2.Show
End Sub
Private Sub Cmdbz_Click()
TeamForm.Show
End Sub
Private Sub Cmdzt_Click()
filedForm.Show
End Sub
Private Sub Cdata_Click()
HisForm.Show
Call HisForm.get_cdata
End Sub
Private Sub Cmdset_Click()
commandbz = 2
PassForm.Show
End Sub
Private Sub Cmdzn_Click()
GuideForm.Show
End Sub
Private Sub Cmdquit_Click()
commandbz = 3
PassForm.Show
End Sub
Private Sub Timer2_Timer()
Label19.Caption = Date
Label18.Caption = Time
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -