'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。
