module1.bas

酒店管理系统

Attribute VB_Name = "Module1"
'***************************************************************************
http://www.codesky.net 源码天空
'***************************************************************************

Type 指令
    模式 As String * 10
    输出口 As String * 10
    启动时 As String * 10
    启动分 As String * 10
    关闭时 As String * 10
    关闭分 As String * 10
 End Type

Type SData
   房号 As String
   x As Byte
   y As Byte
    操作码 As Byte
     返回码 As Byte
     开关机 As Byte
     冷热模式 As Byte
    风机 As Byte
    客设温度H As Byte
    客设温度L As Byte
    房态 As Byte
    当前温度H As Byte
    当前温度L As Byte
    下限H As Byte
    下限L As Byte
    上限H As Byte
    上限L As Byte
    错误码 As Byte
   卡标 As Byte
   接收 As Boolean
 End Type
 '-------------------------------------------------------
'Public fMainForm As frmMain
Public R_Rcu_Adr As Byte   '2-32
Public T_Rcu_Adr As Byte   '2-32
Public R_Hub_Adr As Byte   '0-14
Public T_Hub_Adr As Byte   '0-14
Public Temp_Rcu_Adr As Byte   '2-32
Public Temp_Hub_Adr As Byte   '0-14
Public TxData() As Byte
Public SData(14, 2 To 32) As SData      '定义变量类型为一个记录
Public 显示房态标志 As Boolean
Public RxDDC() As Byte
Public TxDDC() As Byte
'-----------------------------------------------------------------
Sub Main()
Dim h As Byte, r As Byte
'********************************************
 SData(0, 2).房号 = "0721"
 SData(0, 2).x = 18
 SData(0, 2).y = 15
  '------------------------------------------------
 SData(0, 3).房号 = "0720"
 SData(0, 3).x = 17
 SData(0, 3).y = 15
   '------------------------------------------------
 SData(0, 4).房号 = "0719"
 SData(0, 4).x = 16
 SData(0, 4).y = 15
   '------------------------------------------------
 SData(0, 5).房号 = "0718"
 SData(0, 5).x = 15
 SData(0, 5).y = 15
   '------------------------------------------------
 SData(0, 6).房号 = "0717"
 SData(0, 6).x = 14
 SData(0, 6).y = 15
   '------------------------------------------------
 SData(0, 7).房号 = "0716"
 SData(0, 7).x = 13
 SData(0, 7).y = 15
   '------------------------------------------------
 SData(0, 8).房号 = ""
 SData(0, 8).x = 0
 SData(0, 8).y = 0
    '------------------------------------------------
 SData(0, 9).房号 = "0712"
 SData(0, 9).x = 11
 SData(0, 9).y = 15
    '------------------------------------------------
 SData(0, 10).房号 = "0711"
 SData(0, 10).x = 10
 SData(0, 10).y = 15
    '------------------------------------------------
 SData(0, 11).房号 = "0710"
 SData(0, 11).x = 9
 SData(0, 11).y = 15
    '------------------------------------------------
 SData(0, 12).房号 = "0709"
 SData(0, 12).x = 8
 SData(0, 12).y = 15
    '------------------------------------------------
 SData(0, 13).房号 = "0708"
 SData(0, 13).x = 7
 SData(0, 13).y = 15
    '------------------------------------------------
 SData(0, 14).房号 = "0707"
 SData(0, 14).x = 6
 SData(0, 14).y = 15
    '------------------------------------------------
 SData(0, 15).房号 = "0706"
 SData(0, 15).x = 5
 SData(0, 15).y = 15
    '------------------------------------------------
 SData(0, 16).房号 = "0705"
 SData(0, 16).x = 4
 SData(0, 16).y = 15
    '------------------------------------------------
 SData(0, 17).房号 = "0703"
 SData(0, 17).x = 3
 SData(0, 17).y = 15
    '------------------------------------------------
 SData(0, 18).房号 = "0702"
 SData(0, 18).x = 2
 SData(0, 18).y = 15
   '------------------------------------------------
 SData(0, 19).房号 = "0701"
 SData(0, 19).x = 1
 SData(0, 19).y = 15
    '------------------------------------------------
 SData(0, 20).房号 = "0732"
 SData(0, 20).x = 28
 SData(0, 20).y = 15
    '------------------------------------------------
 SData(0, 21).房号 = "0731"
 SData(0, 21).x = 27
 SData(0, 21).y = 15
    '------------------------------------------------
 SData(0, 22).房号 = "0730"
 SData(0, 22).x = 26
 SData(0, 22).y = 15
    '------------------------------------------------
 SData(0, 23).房号 = "0729"
 SData(0, 23).x = 25
 SData(0, 23).y = 15
    '------------------------------------------------
 SData(0, 24).房号 = "0728"
 SData(0, 24).x = 24
 SData(0, 24).y = 15
    '------------------------------------------------
 SData(0, 25).房号 = "0727"
 SData(0, 25).x = 23
 SData(0, 25).y = 15
    '------------------------------------------------
 SData(0, 26).房号 = "0726"
 SData(0, 26).x = 22
 SData(0, 26).y = 15
    '------------------------------------------------
 SData(0, 27).房号 = "0725"
 SData(0, 27).x = 21
 SData(0, 27).y = 15
    '------------------------------------------------
 SData(0, 28).房号 = "0723"
 SData(0, 28).x = 20
 SData(0, 28).y = 15
    '------------------------------------------------
 SData(0, 29).房号 = "0722"
 SData(0, 29).x = 19
 SData(0, 29).y = 15
    '------------------------------------------------
 SData(0, 30).房号 = "0715"
 SData(0, 30).x = 12
 SData(0, 30).y = 15
   '------------------------------------------------
 SData(0, 31).房号 = ""
 SData(0, 31).x = 0
 SData(0, 31).y = 0
    '------------------------------------------------
 SData(0, 32).房号 = ""
 SData(0, 32).x = 0
 SData(0, 32).y = 0
'********************************************
 SData(1, 2).房号 = "0821"
 SData(1, 2).x = 18
 SData(1, 2).y = 14
  '------------------------------------------------
 SData(1, 3).房号 = "0820"
 SData(1, 3).x = 17
 SData(1, 3).y = 14
   '------------------------------------------------
 SData(1, 4).房号 = "0819"
 SData(1, 4).x = 16
 SData(1, 4).y = 14
   '------------------------------------------------
 SData(1, 5).房号 = "0818"
 SData(1, 5).x = 15
 SData(1, 5).y = 14
   '------------------------------------------------
 SData(1, 6).房号 = "0817"
 SData(1, 6).x = 14
 SData(1, 6).y = 14
   '------------------------------------------------
 SData(1, 7).房号 = "0816"
 SData(1, 7).x = 13
 SData(1, 7).y = 14
   '------------------------------------------------
 SData(1, 8).房号 = "0815"
 SData(1, 8).x = 12
 SData(1, 8).y = 14
    '------------------------------------------------
 SData(1, 9).房号 = "0812"
 SData(1, 9).x = 11
 SData(1, 9).y = 14
    '------------------------------------------------
 SData(1, 10).房号 = "0811"
 SData(1, 10).x = 10
 SData(1, 10).y = 14
    '------------------------------------------------
 SData(1, 11).房号 = "0810"
 SData(1, 11).x = 9
 SData(1, 11).y = 14
    '------------------------------------------------
 SData(1, 12).房号 = "0809"
 SData(1, 12).x = 8
 SData(1, 12).y = 14
    '------------------------------------------------
 SData(1, 13).房号 = "0808"
 SData(1, 13).x = 7
 SData(1, 13).y = 14
    '------------------------------------------------
 SData(1, 14).房号 = "0807"
 SData(1, 14).x = 6
 SData(1, 14).y = 14
    '------------------------------------------------
 SData(1, 15).房号 = "0806"
 SData(1, 15).x = 5
 SData(1, 15).y = 14
    '------------------------------------------------
 SData(1, 16).房号 = ""
 SData(1, 16).x = 0
 SData(1, 16).y = 0
    '------------------------------------------------
 SData(1, 17).房号 = "0805"
 SData(1, 17).x = 4
 SData(1, 17).y = 14
    '------------------------------------------------
 SData(1, 18).房号 = "0803"
 SData(1, 18).x = 3
 SData(1, 18).y = 14
   '------------------------------------------------
 SData(1, 19).房号 = "0802"
 SData(1, 19).x = 2
 SData(1, 19).y = 14
    '------------------------------------------------
 SData(1, 20).房号 = "0801"
 SData(1, 20).x = 1
 SData(1, 20).y = 14
    '------------------------------------------------
 SData(1, 21).房号 = "0832"
 SData(1, 21).x = 28
 SData(1, 21).y = 14
    '------------------------------------------------
 SData(1, 22).房号 = "0831"
 SData(1, 22).x = 27
 SData(1, 22).y = 14
    '------------------------------------------------
 SData(1, 23).房号 = "0830"
 SData(1, 23).x = 26
 SData(1, 23).y = 14
    '------------------------------------------------
 SData(1, 24).房号 = "0829"
 SData(1, 24).x = 25
 SData(1, 24).y = 14
    '------------------------------------------------
 SData(1, 25).房号 = "0828"
 SData(1, 25).x = 24
 SData(1, 25).y = 14
    '------------------------------------------------
 SData(1, 26).房号 = "0827"
 SData(1, 26).x = 23
 SData(1, 26).y = 14
    '------------------------------------------------
 SData(1, 27).房号 = "0826"
 SData(1, 27).x = 22
 SData(1, 27).y = 14
    '------------------------------------------------
 SData(1, 28).房号 = "0825"
 SData(1, 28).x = 21
 SData(1, 28).y = 14
    '------------------------------------------------
 SData(1, 29).房号 = "0822"
 SData(1, 29).x = 19
 SData(1, 29).y = 14
    '------------------------------------------------
 SData(1, 30).房号 = "0823"
 SData(1, 30).x = 20
 SData(1, 30).y = 14
   '------------------------------------------------
 SData(1, 31).房号 = ""
 SData(1, 31).x = 0
 SData(1, 31).y = 0
    '------------------------------------------------
 SData(1, 32).房号 = ""
 SData(1, 32).x = 0
 SData(1, 32).y = 0
  '********************************************
 SData(2, 2).房号 = "0922"
 SData(2, 2).x = 19
 SData(2, 2).y = 13
  '------------------------------------------------
 SData(2, 3).房号 = "0923"
 SData(2, 3).x = 20
 SData(2, 3).y = 13
   '------------------------------------------------
 SData(2, 4).房号 = "0925"
 SData(2, 4).x = 21
 SData(2, 4).y = 13
   '------------------------------------------------
 SData(2, 5).房号 = "0926"
 SData(2, 5).x = 22
 SData(2, 5).y = 13
   '------------------------------------------------
 SData(2, 6).房号 = "0927"
 SData(2, 6).x = 23
 SData(2, 6).y = 13
   '------------------------------------------------
 SData(2, 7).房号 = "0928"
 SData(2, 7).x = 24
 SData(2, 7).y = 13
   '------------------------------------------------
 SData(2, 8).房号 = "0929"
 SData(2, 8).x = 25
 SData(2, 8).y = 13
    '------------------------------------------------
 SData(2, 9).房号 = "0930"
 SData(2, 9).x = 26
 SData(2, 9).y = 13
    '------------------------------------------------
 SData(2, 10).房号 = "0931"
 SData(2, 10).x = 27
 SData(2, 10).y = 13
    '------------------------------------------------
 SData(2, 11).房号 = "0932"
 SData(2, 11).x = 28
 SData(2, 11).y = 13
    '------------------------------------------------
 SData(2, 12).房号 = "0921"
 SData(2, 12).x = 18
 SData(2, 12).y = 13
    '------------------------------------------------
 SData(2, 13).房号 = "0920"
 SData(2, 13).x = 17
 SData(2, 13).y = 13
    '------------------------------------------------
 SData(2, 14).房号 = "0919"
 SData(2, 14).x = 16
 SData(2, 14).y = 13
    '------------------------------------------------
 SData(2, 15).房号 = "0918"
 SData(2, 15).x = 15
 SData(2, 15).y = 13
    '------------------------------------------------
 SData(2, 16).房号 = "0917"
 SData(2, 16).x = 14
 SData(2, 16).y = 13
    '------------------------------------------------
 SData(2, 17).房号 = "0916"
 SData(2, 17).x = 13
 SData(2, 17).y = 13
    '------------------------------------------------
 SData(2, 18).房号 = "0915"
 SData(2, 18).x = 12
 SData(2, 18).y = 13
   '------------------------------------------------
 SData(2, 19).房号 = "0912"
 SData(2, 19).x = 11
 SData(2, 19).y = 13
    '------------------------------------------------
 SData(2, 20).房号 = "0911"
 SData(2, 20).x = 10
 SData(2, 20).y = 13
    '------------------------------------------------
 SData(2, 21).房号 = "0910"
 SData(2, 21).x = 9
 SData(2, 21).y = 13
    '------------------------------------------------
 SData(2, 22).房号 = "0909"
 SData(2, 22).x = 8
 SData(2, 22).y = 13
    '------------------------------------------------
 SData(2, 23).房号 = "0908"
 SData(2, 23).x = 7
 SData(2, 23).y = 13
    '------------------------------------------------
 SData(2, 24).房号 = "0907"
 SData(2, 24).x = 6
 SData(2, 24).y = 13
    '------------------------------------------------
 SData(2, 25).房号 = "0906"
 SData(2, 25).x = 5
 SData(2, 25).y = 13
    '------------------------------------------------
 SData(2, 26).房号 = "0905"
 SData(2, 26).x = 4
 SData(2, 26).y = 13
    '------------------------------------------------
 SData(2, 27).房号 = "0903"
 SData(2, 27).x = 3
 SData(2, 27).y = 13
    '------------------------------------------------
 SData(2, 28).房号 = "0902"
 SData(2, 28).x = 2
 SData(2, 28).y = 13
    '------------------------------------------------
 SData(2, 29).房号 = "0901"
 SData(2, 29).x = 1
 SData(2, 29).y = 13
    '------------------------------------------------
 SData(2, 30).房号 = ""
 SData(2, 30).x = 0
 SData(2, 30).y = 0
   '------------------------------------------------
 SData(2, 31).房号 = ""
 SData(2, 31).x = 0
 SData(2, 31).y = 0
    '------------------------------------------------
 SData(2, 32).房号 = ""
 SData(2, 32).x = 0
 SData(2, 32).y = 0
  '********************************************
 SData(3, 2).房号 = "1021"
 SData(3, 2).x = 18
 SData(3, 2).y = 12
  '------------------------------------------------
 SData(3, 3).房号 = "1020"
 SData(3, 3).x = 17
 SData(3, 3).y = 12
   '------------------------------------------------
 SData(3, 4).房号 = "1019"
 SData(3, 4).x = 16
 SData(3, 4).y = 12
   '------------------------------------------------
 SData(3, 5).房号 = "1018"
 SData(3, 5).x = 15
 SData(3, 5).y = 12
   '------------------------------------------------
 SData(3, 6).房号 = "1017"
 SData(3, 6).x = 14
 SData(3, 6).y = 12
   '------------------------------------------------
 SData(3, 7).房号 = "1016"
 SData(3, 7).x = 13
 SData(3, 7).y = 12
   '------------------------------------------------
 SData(3, 8).房号 = "1015"
 SData(3, 8).x = 12
 SData(3, 8).y = 12
    '------------------------------------------------
 SData(3, 9).房号 = "1012"
 SData(3, 9).x = 11
 SData(3, 9).y = 12
    '------------------------------------------------
 SData(3, 10).房号 = "1011"
 SData(3, 10).x = 10
 SData(3, 10).y = 12
    '------------------------------------------------
 SData(3, 11).房号 = "1010"
 SData(3, 11).x = 9
 SData(3, 11).y = 12
    '------------------------------------------------
 SData(3, 12).房号 = "1009"
 SData(3, 12).x = 8
 SData(3, 12).y = 12
    '------------------------------------------------
 SData(3, 13).房号 = "1008"
 SData(3, 13).x = 7
 SData(3, 13).y = 12
    '------------------------------------------------
 SData(3, 14).房号 = "1007"
 SData(3, 14).x = 6
 SData(3, 14).y = 12