论文部分内容阅读
摘 要:在一些公共场所,各种LED电子广告牌随处可见,一些商业网站里也有众多的Flash动画广告。本文利用VB.NET设计开发一款时钟广告,可以添加到应用程序中,也可以嵌入到网页的页眉,以显示时间、商业广告等。用其改进院校LED的显示也可取得非常好的效果。
关键词:电子广告 时钟 VB.NET
中图分类号:TP393.18 文献标识码:B文章编号:1673-8454(2010)01-0087-02
一、总体效果
时钟广告牌的总体显示效果如图1和图2所示。左侧显示当前时钟,右侧显示广告内容,根据需要动态显示,这里设计每隔30秒变换一则内容。下面显示一则动态广告栏,从右至左滚动显示。
二、素材准备
在程序设计之前需要进行素材准备。利用Photoshop等图像处理工具,制作一个不带时、分、秒针的时钟图像clock.jpg,同时制作要显示的广告内容图片。这里制作了两则400×200像素的01.jpg 和02.jpg。如图3所示。
三、程序设计
在系统安装Visual Studio 2008的条件下,启动VB.NET工作环境,进行Windows应用程序设计。
1.界面设计
(1)建立应用程序用户界面和添加控件。在窗体中添加2个PictureBox控件,1个Label控件,3个Timer控件。如图4所示。
(2)设置对象属性。如表1所示。
2.代码编写
编写计时器Timer1的Tick事件代码:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim g As Graphics=PictureBox1.CreateGraphics()
Dim myPen As Pen = New Pen(Color.Black)
Dim a As Integer = PictureBox1.Width / 2
Dim b As Integer = PictureBox1.Height / 2
Dim h As Integer = System.DateTime.Now.Hour
Dim m As Integer = System.DateTime.Now.Minute
Dim s As Integer = System.DateTime.Now.Second
Me.Refresh()
Dim r As Double = 60
Dim ag As Double
Dim xx, yy As Integer
′绘制时针
ag = 90 - CDbl(h) * 30.0 - CDbl(m) / 2.0
ag = -ag * 3.14 / 180
xx = CInt((r - 20)) * Math.Cos(ag) a
yy = CInt((r - 20)) * Math.Sin(ag) b
myPen.Width = 3
g.DrawLine(myPen, a, b, xx, yy)
′绘制分针
ag = 90 - CDbl(s) * 6.0
ag = -ag * 3.14 / 180
xx = CInt((r - 5)) * Math.Cos(ag) a
yy = CInt((r - 5)) * Math.Sin(ag) b
myPen.Width = 1
g.DrawLine(myPen, a, b, xx, yy)
End Sub
编写计时器Timer2的Tick事件代码:
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
LabelWord.Left = LabelWord.Left - 1
If (LabelWord.Left = -LabelWord.Width) Then
LabelWord.Left = Me.Width
Else
strPicturePath = "02.jpg"
PictureBox2.Image = New Bitmap(str-PicturePath)
End If
End Sub
运行程序,结果如图1和图2所示。
四、结束语
该程序利用VB.NET进行设计,稍加修改就可以用在ASP或ASP.NET的Web应用程序中。也可对现有的LED电子显示进行定制。如果采用后台定制显示图片以及定制滚动文本显示内容,将会更加方便完善。?筅
参考文献:
[1]刘瑞新,程云志.Visual Basic.NET程序设计教程[M].北京:机械工业出版社,2005.
[2]苏国彬.Visual Basic.NET程序设计基础教程[M].北京:机械工业出版社,2002.
[3]朱勇,杨木清..NET框架下高校校园网中控系统设计方案[J].中国教育信息化,2009(6):19-21.
[4]曹娜.用C 开发图片批量处理软件[J].中国教育信息化,2009(6):25-27.
(编辑:金冉)
关键词:电子广告 时钟 VB.NET
中图分类号:TP393.18 文献标识码:B文章编号:1673-8454(2010)01-0087-02
一、总体效果
时钟广告牌的总体显示效果如图1和图2所示。左侧显示当前时钟,右侧显示广告内容,根据需要动态显示,这里设计每隔30秒变换一则内容。下面显示一则动态广告栏,从右至左滚动显示。
二、素材准备
在程序设计之前需要进行素材准备。利用Photoshop等图像处理工具,制作一个不带时、分、秒针的时钟图像clock.jpg,同时制作要显示的广告内容图片。这里制作了两则400×200像素的01.jpg 和02.jpg。如图3所示。
三、程序设计
在系统安装Visual Studio 2008的条件下,启动VB.NET工作环境,进行Windows应用程序设计。
1.界面设计
(1)建立应用程序用户界面和添加控件。在窗体中添加2个PictureBox控件,1个Label控件,3个Timer控件。如图4所示。
(2)设置对象属性。如表1所示。
2.代码编写
编写计时器Timer1的Tick事件代码:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim g As Graphics=PictureBox1.CreateGraphics()
Dim myPen As Pen = New Pen(Color.Black)
Dim a As Integer = PictureBox1.Width / 2
Dim b As Integer = PictureBox1.Height / 2
Dim h As Integer = System.DateTime.Now.Hour
Dim m As Integer = System.DateTime.Now.Minute
Dim s As Integer = System.DateTime.Now.Second
Me.Refresh()
Dim r As Double = 60
Dim ag As Double
Dim xx, yy As Integer
′绘制时针
ag = 90 - CDbl(h) * 30.0 - CDbl(m) / 2.0
ag = -ag * 3.14 / 180
xx = CInt((r - 20)) * Math.Cos(ag) a
yy = CInt((r - 20)) * Math.Sin(ag) b
myPen.Width = 3
g.DrawLine(myPen, a, b, xx, yy)
′绘制分针
ag = 90 - CDbl(s) * 6.0
ag = -ag * 3.14 / 180
xx = CInt((r - 5)) * Math.Cos(ag) a
yy = CInt((r - 5)) * Math.Sin(ag) b
myPen.Width = 1
g.DrawLine(myPen, a, b, xx, yy)
End Sub
编写计时器Timer2的Tick事件代码:
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
LabelWord.Left = LabelWord.Left - 1
If (LabelWord.Left = -LabelWord.Width) Then
LabelWord.Left = Me.Width
Else
strPicturePath = "02.jpg"
PictureBox2.Image = New Bitmap(str-PicturePath)
End If
End Sub
运行程序,结果如图1和图2所示。
四、结束语
该程序利用VB.NET进行设计,稍加修改就可以用在ASP或ASP.NET的Web应用程序中。也可对现有的LED电子显示进行定制。如果采用后台定制显示图片以及定制滚动文本显示内容,将会更加方便完善。?筅
参考文献:
[1]刘瑞新,程云志.Visual Basic.NET程序设计教程[M].北京:机械工业出版社,2005.
[2]苏国彬.Visual Basic.NET程序设计基础教程[M].北京:机械工业出版社,2002.
[3]朱勇,杨木清..NET框架下高校校园网中控系统设计方案[J].中国教育信息化,2009(6):19-21.
[4]曹娜.用C 开发图片批量处理软件[J].中国教育信息化,2009(6):25-27.
(编辑:金冉)