锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net显示状态灯的简单介绍

IT技术控件

vb.net 串口点亮小灯SCON = 0x50; //REN=1允许串行接受状态，串口工作模式1 TMOD|= 0x20; 试下这个程序，PC发什么，它就回送什么，收到数据，点亮P2.0的LED 。
用VB.net模拟十字路口红绿灯交通信号的切换实在不难，就是不知道vb.net显示状态灯你写了代码没有vb.net显示状态灯？
答案补充vb.net显示状态灯：
Dim xuhao As Integer
Const wenjianjia = "" '自己写好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao1
【vb.net显示状态灯的简单介绍】If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia"\"xuhao".ico")
End Sub
我想用vb 程序里面添加一个指示灯，请问各位大侠该用什么控件？本人菜鸟，请详细说明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
VB.NET里面用什么控件做指示灯比较好？请说明为优点 。VB.NET里用GDI 画指示灯其实很简单，稍微查一点资料就能找到gdi 语句的用法的 。用GDI 可以画很多种图形，圆形半圆形自然不在话下 。如果有很多指示灯在一起的话，改起来也很方便 。
当然如果嫌GDI 麻烦可以用label控件，把autosize关掉 ， 将尺寸调小一点 ， 然后利用backcolor调背景颜色作为指示灯，只不过是方形的 。
如果指示灯很多而且频繁换颜色的话建议用GDI ， 因为GDI 效率高一些
用VB.NET编写红绿灯程序给vb.net显示状态灯你思路把vb.net显示状态灯：当汽车运动时vb.net显示状态灯 ， 他vb.net显示状态灯的left和top和right(left width)和bottom(top height)碰到红绿灯的范围vb.net显示状态灯，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器 。
用VB.NET编写一个交通灯的程序下面这个希望可以帮到你~交通灯
实例说明在本实例中，我们将制作一个具有交通灯效果的应用程序 。程序运行后，交通灯不断地变化，可以通过按钮运行或停止程序 。程序运行结果如图88-1所示 。技术要点l 不断变换图片l 不断更改时间间隔 type="text/javascript"type="text/javascript" src="http://img.readke.com/240906/05350VG2-0.jpg"
实现过程■ 新建项目打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"Traffic" ， 然后选择保存路径 。单击"确认" 。■ 添加控件向当前窗体添加一个Timer控件，用于控制交通灯变换的时间；三个Picture控件，分别装入相应的图片；一个Button按钮，用于控制交通灯 。属性保持默认值 。■ 添加代码Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "开 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 运行程序单击菜单"调试|启动"或单击 图标运行程序 。
关于vb.net显示状态灯和的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：硬盘松了会怎么样，硬盘松了会怎么重新插

    下一篇：上班电脑怎么摆放对眼睛好，上班电脑怎么摆放对眼睛好的图片