| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2332 人关注过本帖
标题:初学者问
只看楼主 加入收藏
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
结帖率:82.35%
收藏
已结贴  问题点数:20 回复次数:7 
初学者问
  这里面的都是声明吗?为什么还有字节的声明。大虾们都没有详细的给菜鸟我解释以下。
Declare1.rar (2.89 KB)
2016-07-19 14:50
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:10 
前面全是声明,后面一个sub和function
字节(数组)的声明,估计是为了存放外部获取的信号。 这个得看具体是如何实现的。
或者是编程者自己规定也不一定,比如表示设备开、关分别用0、1就可以,而没有必要用整形、字符。这样是为了优化资源的占用,byte是占用最少的。
2016-07-19 15:10
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
前面是声明,声明了几个常量与几个变量和几个数组变量。
后面是一个Sub过程和一个Function函数。
程序代码:
Public Sub m_declair()   '过程其实就是给sC_Cls(1 To 11)数组变量赋值
'控制11类名称
sC_Cls(1) = "电源强切控制"
sC_Cls(2) = "水泵启停控制"
sC_Cls(3) = "卷帘门控制"
sC_Cls(4) = "风机启停控制"
sC_Cls(5) = "防排烟阀控制"
sC_Cls(6) = "送风阀控制"
sC_Cls(7) = "电梯归底控制"
sC_Cls(8) = "电动防火阀控制"
sC_Cls(9) = "事故广播控制"
sC_Cls(10) = "气体灭火控制"
sC_Cls(11) = "声光控制"
End Sub

xNy 函数比较明晰,不用在解释了吧!
至于  Byte 数据类型的变量或数组变量的声明,主要是看程序的需要了,在数据大于0,小于255时采用这种数据只占1个字节,以节约资源。

请不要选我!!!
2016-07-19 20:28
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
收藏
得分:0 
回复 3楼 ZHRXJR
谢谢楼版主,才初学vb,领导让我看前同事编写的程序,然后在自己编写代码实现功能。几万行的代码,好难啊。
2016-07-20 08:34
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
收藏
得分:0 
回复 2楼 xiangyue0510
谢谢版主,才初学vb,领导让我看前同事编写的程序,然后在自己编写代码实现功能。好难啊。压力挺大。
2016-07-20 08:35
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:0 
以下是引用wating在2016-7-20 08:35:06的发言:

谢谢版主,才初学vb,领导让我看前同事编写的程序,然后在自己编写代码实现功能。好难啊。压力挺大。

学编程就是先从学习别人的代码开始,先读懂,然后修改,最后可以写自己的代码。
可以了,你们领导这是在培养你呢,而不是直接丢给你一个任务就要你去做。
2016-07-20 11:20
pengzhanggui
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:161
专家分:344
注 册:2015-7-20
收藏
得分:0 
相信我,你只要頭上還長了顆腦袋,就能夠學得會VB了

来找我试试看
2016-07-21 11:07
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
收藏
得分:0 
回复 7楼 pengzhanggui
好!谢谢,我摸了摸脖子上面,确实长了一颗脑袋
2016-07-22 10:29
快速回复:初学者问
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022127 second(s), 12 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved