菜鳥编程园地

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1242|回复: 1

【CBM666 的远程监控温湿度环境】

[复制链接]

34

主题

36

帖子

74

积分

超级版主

Rank: 8Rank: 8

积分
74
QQ
发表于 2020-7-23 13:19:54 | 显示全部楼层 |阅读模式
本帖最后由 cbm666 于 2020-7-24 21:09 编辑



【本代码来源出处:CBM666 B4A 编程教材】


VB6 当上位机,加上 串口通讯 实时接收现场检测数据,再 上传到MSSQL服务器 , 远程PC或手机或平板 实时读取数据

#Region Module Attributes
        #FullScreen: False
        #IncludeTitle: True
        #ApplicationLabel: 温湿度监测
        #VersionCode: 1
        #VersionName:
        #SupportedOrientations: portrait
        #CanInstallToExternalStorage: True
#End Region

'Activity module
'Author: HASAN AYDIN

Sub Process_Globals
        'These global variables will be declared once when the application starts.
        'These variables can be accessed from all modules.
        Dim Timer1 As Timer '定义定时器 1
End Sub

Sub Globals
        'These global variables will be redeclared each time the activity is created.
        'These variables can only be accessed from this module.
        Dim a As MSSQL
        Dim L As List
        Dim row As List
        Private Label9 As Label
        Private Label8 As Label
        Private Label7 As Label
        Private Label6 As Label
        Private Label5 As Label
        Private Label4 As Label
        Private Label3 As Label
        Private Label2 As Label
        Private Label1 As Label
        Private Label17 As Label
        Private Label16 As Label
        Private Label14 As Label
        Private Label12 As Label
        Private Label13 As Label
        Private Label15 As Label
        Private Label11 As Label
        Private Label10 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
        Timer1.Initialize("Timer1", 5000) '定时器1 设定激发间隔 1000 毫秒
        AdjustKJ
        a.setDatabase
        L= a.Query("select * from Customer")
        L.Initialize
        L=a.Query("select * from customer")
        row = L.Get(1)
        Label3.Text=row.Get(0)
        Label5.Text=row.Get(1)
        Label7.Text=row.Get(2)
        Label9.Text=row.Get(3)
        Label11.Text=row.Get(4)
        Label13.Text=row.Get(5)
        Label15.Text=row.Get(6)
        Label17.Text=row.Get(7)
        Timer1.Enabled=True
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub AdjustKJ
        Activity.LoadLayout("Temp")
        Activity.Title="温湿度露点监测"     '设定窗体标题名称
        Activity.Color=Colors.black
        Label1.Text="温湿度信息表"       '设定标签Label1的标题名称
        Label1.TextColor=Colors.white  '设定标签Label1字符前景颜色是白色
        Label1.TextSize=30             '设定标签Label1字符字体尺寸大小是30号字体
        Label1.Gravity=Gravity.CENTER_HORIZONTAL+Gravity.CENTER_VERTICAL  '设定标签Label1水平与垂直居中
        Label1.SetLayout(0,5%y,Activity.Width,8%y)
        '************************************************** 标题美化加工
        Dim RS As RichString          '定义RS为RichString对象
        Dim RSB As RichStringBuilder  '定义RSB为RichStringBuilder对象
        RS.Initialize(Label1.Text)    '赋值字符型内容给RS对象
        RSB.Initialize                '初始化RichStringBuilder对象
        RSB.Append(RS)                '将对象RichStringBuilder添加RS内容
        RS.Initialize(RSB)            '初始化RichStringBuilder对象内容赋值给 RS 对象
        RS.Style(RS.STYLE_BOLD_ITALIC,0,6) 'RS 对象从第13个字符开始到第14个字符变成粗体
        RS.Color(Colors.Red, 0, 1)   'RS 对象从第1个字符开始到第1个字符变成红色
        RS.Color(Colors.green, 1, 2)   'RS 对象从第2个字符开始到第2个字符变成红色
        RS.Color(Colors.yellow, 2, 3)   'RS 对象从第3个字符开始到第3个字符变成红色
        RS.Underscore(0,Label1.Text.Length)            'RS 对象从第6个字符开始到第7个字符加底线
        Label1.Text = RS  'RS 对象处理完成后赋值给标签 Label1 展示效果
        '**************************************************************
        Label2.Text="温  度(C):"
        Label2.TextColor=Colors.white
        Label2.TextSize=16
        Label2.Gravity=Gravity.right
        Label2.SetLayout(1%x,Label1.Top+Label1.Height+25dip,50%x,8%y)
        '**************************************************************
        Label3.TextColor=Label2.TextColor
        Label3.TextSize=Label2.TextSize
        Label3.Gravity=Gravity.left
        Label3.SetLayout(Label2.Left+Label2.Width+4dip,Label2.Top,Label2.width,Label2.Height)
        '**************************************************************
        Label4.Text="湿  度(%):"
        Label4.TextColor=Label2.TextColor
        Label4.TextSize=Label2.TextSize
        Label4.Gravity=Label2.Gravity
        Label4.SetLayout(Label2.left,Label2.Top+Label2.Height+12dip,Label2.width,Label2.height)
        '**************************************************************
        Label5.TextColor=Label3.TextColor
        Label5.TextSize=Label3.TextSize
        Label5.Gravity=Label3.Gravity
        Label5.SetLayout(Label3.Left,Label4.Top,Label3.width,Label3.Height)
        '**************************************************************
        Label6.Text="露点温度(C):"
        Label6.TextColor=Label2.TextColor
        Label6.TextSize=Label2.TextSize
        Label6.Gravity=Label2.Gravity
        Label6.SetLayout(Label2.left,Label4.Top+Label4.Height+12dip,Label2.width,Label2.height)
        '**************************************************************
        Label7.TextColor=Label3.TextColor
        Label7.TextSize=Label3.TextSize
        Label7.Gravity=Label3.Gravity
        Label7.SetLayout(Label3.Left,Label6.Top,Label2.width,Label3.Height)
        '**************************************************************
        Label8.Text="电压值(V):"
        Label8.TextColor=Label2.TextColor
        Label8.TextSize=Label2.TextSize
        Label8.Gravity=Label2.Gravity
        Label8.SetLayout(Label2.left,Label6.Top+Label6.Height+12dip,Label2.width,Label2.height)
        '**************************************************************
        Label9.TextColor=Label3.TextColor
        Label9.TextSize=Label3.TextSize
        Label9.Gravity=Label3.Gravity
        Label9.SetLayout(Label3.Left,Label8.Top,Label2.width,Label3.Height)
        '**************************************************************
        Label10.Text="可燃气体:"
        Label10.TextColor=Label2.TextColor
        Label10.TextSize=Label2.TextSize
        Label10.Gravity=Label2.Gravity
        Label10.SetLayout(Label2.left,Label8.Top+Label8.Height+12dip,Label2.width,Label2.height)
        '**************************************************************
        Label11.TextColor=Label3.TextColor
        Label11.TextSize=Label2.TextSize
        Label11.Gravity=Label3.Gravity
        Label11.SetLayout(Label3.Left,Label10.Top,Label2.width,Label3.Height)
        '**************************************************************
        Label12.Text="一氧化碳:"
        Label12.TextColor=Label2.TextColor
        Label12.TextSize=Label2.TextSize
        Label12.Gravity=Label2.Gravity
        Label12.SetLayout(Label2.left,Label10.Top+Label10.Height+12dip,Label2.width,Label2.height)
        '**************************************************************
        Label13.TextColor=Label3.TextColor
        Label13.TextSize=Label3.TextSize
        Label13.Gravity=Label3.Gravity
        Label13.SetLayout(Label3.Left,Label12.Top,Label2.width,Label3.Height)
        '*******************************************
        Label14.Text="硫化氢:"
        Label14.TextColor=Label2.TextColor
        Label14.TextSize=Label2.TextSize
        Label14.Gravity=Label2.Gravity
        Label14.SetLayout(1%x,Label12.Top+Label12.HEIGHT+4dip,Label2.width,Label2.height)
        '**************************************************************
        Label15.TextColor=Label3.TextColor
        Label15.TextSize=Label3.TextSize
        Label15.Gravity=Label3.Gravity
        Label15.SetLayout(Label3.left,Label14.Top,Label2.width,Label3.Height)
        '**************************************************************
        Label16.Text="氧  气:"
        Label16.TextColor=Label2.TextColor
        Label16.TextSize=Label2.TextSize
        Label16.Gravity=Label2.Gravity
        Label16.SetLayout(Label14.left,Label14.Top+Label14.HEIGHT,Label2.width,Label2.height)
        '**************************************************************
        Label17.TextColor=Label3.TextColor
        Label17.TextSize=Label2.TextSize
        Label17.Gravity=Label3.Gravity
        Label17.SetLayout(Label3.left,Label16.Top,Label2.width,Label2.Height)
End Sub

Sub Timer1_Tick  '定时器 1 事件
        L.Initialize
        L=a.Query("select * from customer")
        row = L.Get(1)
        Label3.Text=row.Get(0)
        Label5.Text=row.Get(1)
        Label7.Text=row.Get(2)
        Label9.Text=row.Get(3)
        Label11.Text=row.Get(4)
        Label13.Text=row.Get(5)
        Label15.Text=row.Get(6)
        Label17.Text=row.Get(7)
End Sub






WS(MSSQL).rar

1.24 MB, 下载次数: 121

回复

使用道具 举报

1

主题

4

帖子

11

积分

VIP会员

Rank: 10Rank: 10Rank: 10

积分
11
发表于 2020-7-27 16:30:54 | 显示全部楼层
这个正好可以研究一下。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|菜鳥编程园地 ( 蜀ICP备20021315号-1 )

GMT+8, 2022-9-27 16:44 , Processed in 0.157029 second(s), 25 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表