掌上灯控系统界面设计V8.0.ppt

登录 编号：N01,房间信息 编号：N02,增加房间 编号：N03,增加房间,登录,退出 编号：N08,退出,修改房间 编号：N04,修改房间,修改场景 编号：N07,增加场景 编号：N06,场景信息 编号：N05,返回,返回,增加场景,修改场景,返回,返回,用户名默认admin，密码默认123456，登录进去后：演示版用户账号验证临时使用存储在手机上的本地数据库，该数据库里预制了一批用户名和密码,房间灯控制编号N01：登录,登录 编号：N01,房间灯控制编号N02：房间信息,房间信息 编号：N02,房间信息从哪里读出来？ 答：手机本地数据库,房间灯控制编号N03：增加房间,增加房间 编号：N03,房间灯控制编号N04：修改房间,修改房间 编号：N04,房间信息保存到哪里？ 答：手机本地数据库,房间灯控制编号N05：场景信息,场景信息 编号：N05,寄存器地址 = 亮度值 3125 = 3 3126 = 0 3127 = 4 3128 = 0 3129 = 5 3130 = 8,房间灯控制编号N06：增加场景,增加场景 编号：N06,场景信息，亮度值“X;X;X;X;X;X”保存手机本地数据库上，X是调光值,房间灯控制编号N07：修改场景,修改场景 编号：N07,房间灯控制编号N08：退出,退出 编号：N08,房间灯控制设备ModBus功能码,读取字 DeviceIndex = GetDevcieIndexByIP(DeviceIP) Dim arryLong(120) As Long Dim returnValue As Long DeviceIndex是IP地址 CLng(Text3.Text)是寄存器的起始地址31253130工6个 VARTYPE_WORD是控制码 CLng(Text6.Text)是读取的数量 arryLong(1)是亮度值 returnValue = ReadArea(DeviceIndex, CLng(Text3.Text), VARTYPE_WORD, CLng(Text6.Text), arryLong(1) If returnValue = 0 Then,写入字 DeviceIndex = GetDevcieIndexByIP(DeviceIP) Dim arryLong(120) As Long Dim returnValue As Long For i = 1 To CLng(Text6.Text) arryLong(i) = CLng(Text7.Text) Next i DeviceIndex是IP地址 CLng(Text3.Text)是寄存器的起始地址31253130工6个 VARTYPE_WORD是控制码 CLng(Text6.Text)是读取的数量 arryLong(1)是亮度值 returnValue = WriteArea(DeviceIndex, CLng(Text3.Text), VARTYPE_WORD, CLng(Text6.Text), arryLong(1) If returnValue = 0 Then MsgBox “写错误“,这一块改成输入框，默认值是192.168.6