?? frmsetrcu.frm
字號:
VERSION 5.00
Begin VB.Form FrmSETRCU
BorderStyle = 3 'Fixed Dialog
Caption = "初始化客房控制器"
ClientHeight = 4155
ClientLeft = 45
ClientTop = 360
ClientWidth = 5430
Icon = "FrmSETRCU.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4155
ScaleWidth = 5430
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Caption = "初始化客房控制器SRCR"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3615
Index = 0
Left = 360
TabIndex = 0
Top = 240
Width = 4695
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 3255
Left = 120
ScaleHeight = 3255
ScaleWidth = 4455
TabIndex = 1
Top = 240
Width = 4455
Begin VB.CommandButton Command5
Caption = "下載數據"
Height = 375
Left = 2880
TabIndex = 13
Top = 2640
Width = 1095
End
Begin VB.TextBox Text3
Height = 270
Left = 1080
TabIndex = 12
Text = "Text3"
Top = 240
Width = 735
End
Begin VB.TextBox Text4
Height = 270
Left = 2040
TabIndex = 11
Text = "Text4"
Top = 240
Width = 615
End
Begin VB.TextBox Text5
Height = 270
Left = 1080
TabIndex = 10
Text = "Text5"
Top = 720
Width = 735
End
Begin VB.TextBox Text6
Height = 270
Left = 2040
TabIndex = 9
Text = "Text6"
Top = 720
Width = 615
End
Begin VB.TextBox Text7
Height = 270
Left = 1080
TabIndex = 8
Text = "Text7"
Top = 1200
Width = 735
End
Begin VB.TextBox Text8
Height = 270
Left = 1080
TabIndex = 7
Text = "Text8"
Top = 1920
Width = 735
End
Begin VB.OptionButton Option5
Caption = "停租"
Height = 255
Left = 3360
TabIndex = 6
Top = 600
Value = -1 'True
Width = 855
End
Begin VB.OptionButton Option6
Caption = "待租"
Height = 375
Left = 3360
TabIndex = 5
Top = 960
Width = 855
End
Begin VB.OptionButton Option7
Caption = "出租"
Height = 375
Left = 3360
TabIndex = 4
Top = 1440
Width = 855
End
Begin VB.OptionButton Option8
Caption = "入住"
Height = 375
Left = 3360
TabIndex = 3
Top = 1920
Width = 855
End
Begin VB.TextBox Text9
Height = 270
Left = 1080
TabIndex = 2
Text = "Text9"
Top = 2400
Width = 735
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "待租溫度"
Height = 255
Left = 120
TabIndex = 19
Top = 240
Width = 975
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "出租溫度"
Height = 255
Left = 120
TabIndex = 18
Top = 720
Width = 735
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "入住溫度"
Height = 255
Left = 120
TabIndex = 17
Top = 1200
Width = 855
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "拔卡延時"
Height = 255
Left = 120
TabIndex = 16
Top = 1920
Width = 735
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "廊燈延時"
Height = 255
Left = 120
TabIndex = 15
Top = 2400
Width = 855
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "初始房態"
Height = 375
Left = 3240
TabIndex = 14
Top = 240
Width = 735
End
End
End
End
Attribute VB_Name = "FrmSETRCU"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************
http://www.codesky.net 源碼天空
'***************************************************************************
Dim 樓層 As Byte
Private Sub Form_Load()
'-----------------------------
Me.BackColor = RGB(228, 228, 255)
Frame1(0).BackColor = RGB(228, 228, 255)
Picture1.BackColor = RGB(228, 228, 255)
Option5.BackColor = RGB(228, 228, 255)
Option6.BackColor = RGB(228, 228, 255)
Option7.BackColor = RGB(228, 228, 255)
Option8.BackColor = RGB(228, 228, 255)
'-------------------------------
Me.Height = 4560
Me.Width = 5550
Move Screen.Width / 2 - Width / 2, Screen.Height / 2 - Height / 2 - 1200
Text3 = "8"
Text4 = "38"
Text5 = "18" '18
Text6 = "28" '28
Text7 = "22"
Text8 = "20"
Text9 = "20"
End Sub
Private Sub Command5_Click() '預置客房數據
ReDim TxData(16) '重定義維數
TxData(0) = &HFF
TxData(1) = 15 'len
TxData(2) = 0 'T_Rcu_Adr
TxData(3) = &H21 'com
TxData(4) = 10 * Val(Text3) \ 256 '待租溫度下限_H
TxData(5) = 10 * Val(Text3) Mod 256 '待租溫度下限_L
TxData(6) = 10 * Val(Text4) \ 256 '待租溫度上限_H
TxData(7) = 10 * Val(Text4) Mod 256 '待租溫度上限_L
TxData(8) = 10 * Val(Text5) \ 256 '出租溫度下限_H
TxData(9) = 10 * Val(Text5) Mod 256 '出租溫度下限_L
TxData(10) = 10 * Val(Text6) \ 256 '出租溫度上限_H
TxData(11) = 10 * Val(Text6) Mod 256 '出租溫度上限_L
TxData(12) = 10 * Val(Text7) \ 256 '入住溫度_H
TxData(13) = 10 * Val(Text7) Mod 256 '入住溫度_L
If Option5.Value Then TxData(14) = 0 '初始房態=0
If Option6.Value Then TxData(14) = 1 '初始房態=1
If Option7.Value Then TxData(14) = 2 '初始房態=2
If Option8.Value Then TxData(14) = 3 '初始房態=3
TxData(15) = Val(Text8) '拔卡延時
TxData(16) = Val(Text9) '廊燈延時
Call 發送全部客房
End Sub
Private Sub 發送全部客房()
For i = 0 To 14 'i=T_Hub_Adr
If FrmWIK.Winsock1(i).State = sckConnected Then
FrmWIK.Winsock1(i).SendData TxData() '如已連撥則發送
End If
Next
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -