从品牌网站建设到网络营销策划,从策略到执行的一站式服务
'2个重复的?'增加一个shape控件,设置一下相应的属性:园、fillstyle=0,然后复制建立园的数组,0-7共8个
创新互联网站建设公司一直秉承“诚信做人,踏实做事”的原则,不欺瞒客户,是我们最起码的底线! 以服务为基础,以质量求生存,以技术求发展,成交一个客户多一个朋友!专注中小微企业官网定制,做网站、网站制作,塑造企业网络形象打造互联网企业效应。
'增加一个text控件
Option Explicit
Private Sub Form_Activate()
Text1 = "10101010"
End Sub
Private Sub Text1_Change()
Dim i As Integer
If IsNumeric(Text1) And Len(Text1) = 8 Then
For i = 1 To 8
If Mid(CStr(Text1), i, 1) = "0" Then
Shape1(i - 1).FillColor = vbGreen
ElseIf Mid(CStr(Text1), i, 1) = "1" Then
Shape1(i - 1).FillColor = vbRed
Else
Shape1(i - 1).FillColor = vbBlack '无效的2进制
End If
Next
End If
End Sub
shape做指示灯方法,我在旁边注解了说明。
建立表单添加控件 shape command 两个控件,输入以下代码(两个控件都是VB默认就有的)。
Private Sub Command1_Click() '按钮1按下的代码
If Shape1.FillColor = RGB(255, 255, 0) Then '若shape1为黄色则
Shape1.FillColor = RGB(255, 255, 255.255) '变更shape1为白色
Else
Shape1.FillColor = RGB(255, 255, 0) '其它情况则变成黄色
End If
End Sub
Private Sub Form_Load() '表单读取时定义Shape属性
Shape1.Shape = 3: '设定为形状为正圆形
Shape1.FillColor = RGB(255, 255, 0) '黄色
Shape1.FillStyle = 0: '显示背景
End Sub
SCON = 0x50; //REN=1允许串行接受状态,串口工作模式1 TMOD|= 0x20; 试下这个程序,PC发什么,它就回送什么,收到数据,点亮P2.0的LED。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图