关于vbnet时钟的信息

如何用VB制作个多功能时钟

1、

网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、重庆小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了全州免费建站欢迎大家使用！

显示时间

2、语音报时

3、定时报警

4、定时关机

同时我还将在文章中穿插介绍VB提供的绘图方法以及一些实用技巧，下面我们就开始吧。

阅读导航

一、如何显示时间

(1)

VB时间日期函数介绍

(2)

建立实例

(3)

VB绘图方法介绍

1、Line方法

2、Circle方法

3、Pset方法

4、三角函数

二、实现语音报时

(1)

使用MCI控件

(2)

相关API函数介绍

(1)

GetLocalTime()

(2)

SYSTEMTIME结构

(3)

mciExecute()

(4)

mciSendString()

三、实现定时关机和定时报警

怎样用vb.net作一个指针转动的钟表?(可设置时间日期,有闹铃功能)

你需要会用GDI+,也就是那个System.Drawing命名空间下的类.

给你说个思路,设Timer,到时间就用Form.Invalidate()函数重画窗口,在重画窗口的Form_Paint事件下面编写代码得到当前时间,再根据当前时间用GDI+画时钟.

怎么在VB.net中实时显示时间

定时器中处理

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 10 '10毫秒刷新一次

Timer1.Start() '开启定时器

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Now

End Sub

vbnet中怎样把时间设为24时制

将时间转换为指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。

例如：年份用小写yyyy(大写不识别)，大写MM识别为月份，小写mm识别为分钟，日期天为大写DD(小写不识别)，

小时大写HH识别为24小时制，小写hh识别为12小时制，秒用小写ss(大写不识别)

补充：Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。

其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。

可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment).SharpDevelop是另一种可用的开源的IDE。

VB.Net需要在.Net Framework平台上才能执行。

vb.net开发简单的时钟程序？？高手救救我！

就

是

这

个

了

！

Hand类的代码：

Public MustInherit Class Hand

Protected gp As GraphicsPath = New GraphicsPath()

Protected gpBase As GraphicsPath = Nothing

Protected midX As Integer = 150 ‘默认的窗体

Protected midY As Integer = 150 ‘中心位置

‘构造器，得到窗体中心位置

Public Sub New(ByVal theForm As Form1)

midX = (theForm.ClientRectangle.Left + theForm.ClientRectangle.Right) / 2

midY = (theForm.ClientRectangle.Top + theForm.ClientRectangle.Bottom) / 2

End Sub

MustOverride Sub Transform(ByVal d As DateTime)

‘绘制指针路径

Overridable Sub Draw(ByVal g As Graphics)

Dim aPen As Pen = New Pen(Brushes.Black, 4F)

g.DrawPath(aPen, gp)

g.FillPath(Brushes.Black, gp)

aPen.Dispose()

End Sub

‘使用矩阵实现路径（gp）的旋转

Public Sub Rotate(ByVal angle As Double)

gp = CType(gpBase.Clone(), GraphicsPath)

Dim mTransform As Matrix = New Matrix()

mTransform.RotateAt(CType(angle,Single),NewPointF(midX,midY))

gp.Transform(mTransform)

End Sub

End Class

为了节省篇幅，上面的代码省略了引入命名空间的语句。

下面是分针（MinuteHand）类的定义：

Public Class MinuteHand

Inherits Hand

‘构造器，生成绘制分针的路径（gp）

Public Sub New(ByVal myForm As Form1)

MyBase.New(myForm)

gp.AddLine(midX, midY, midX, 45)

gp.AddLine(midX, 45, midX - 3, 50)

gp.AddLine(midX - 3, 50, midX + 3, 50)

gp.AddLine(midX + 3, 50, midX, 45)

gpBase = CType(gp.Clone(), GraphicsPath)

End Sub

‘Transform方法取得系统当前时间，并旋转时钟指针。

Public Overrides Sub Transform(ByVal d As DateTime)

Dim minuteTime As Double = (CDbl(d.Minute) + CDbl(d.Second / 60))

Dim angle As Double = (CDbl(minuteTime) / 60) * 360

Rotate(angle)

End Sub

End Class

对所有的指针旋转的方法都是相同的，因此在基类中实现。由于时针和秒针的实现与分针相似，所不同者，只在于构造器中绘制的指针路径不同和Transform方法中转动的角度不同，在这里就不在赘述了。

另外还需要提一下的是画时钟表面的代码，时钟表面用ClockFace类来实现。这个类首先画一个圆代表时钟，然后画上米老鼠的图案，最后在相应的位置画上数字1～12代表12个小时。

Public Sub Draw(ByVal g As Graphics)

DrawClockFace(g)

DrawImage(g)

DrawNumbers(g)

DrawPin(g)

End Sub

下面是ClockFace类的属性：

Private ClockRectangle As Rectangle

Private ClockFont As Font = New Font("Arial", 12)

Private midPoint As Point

Private ClockImage As Bitmap

Private Const IMAGEX As Integer = 50

Private Const IMAGEY As Integer = 50

DrawClockFace方法用来画时钟表面：

Private Sub DrawClockFace(ByVal g As Graphics)

g.FillEllipse(Brushes.White, ClockRectangle.Left + 10, ClockRectangle.Top + 10, ClockRectangle.Width - 20, ClockRectangle.Height - 20)

g.DrawEllipse(Pens.Black, ClockRectangle.Left + 10, ClockRectangle.Top + 10, ClockRectangle.Width - 20, ClockRectangle.Height - 20)

End Sub

然后用Graphics对象的DrawImage方法画出米老鼠的图片：

Private Sub DrawImage(ByVal g As Graphics)

Dim nWidth As Integer = ClockImage.Width

Dim nHeight As Integer = ClockImage.Height

Dim destRect As Rectangle = New Rectangle(midPoint.X - IMAGEX / 2, midPoint.Y - IMAGEY / 2, IMAGEX, IMAGEY)

g.DrawImage(ClockImage, destRect)

End Sub

数字在时钟上的位置是用sin和cos函数计算的：

Private Sub DrawNumbers(ByVal g As Graphics)

Dim count As Integer = 1

Dim a As Double

For a = 0 To 2 * Math.PI Step 2 * Math.PI / 12

Dim x As Double = (ClockRectangle.Width - 70) / 2 * Math.Cos(a - Math.PI / 3) + (ClockRectangle.Width - 70) / 2 + 25

Dim y As Double = (ClockRectangle.Width - 70) / 2 * Math.Sin(a - Math.PI / 3) + (ClockRectangle.Width - 70) / 2 + 20

g.DrawString(Convert.ToString(count), ClockFont, Brushes.Black, CType(x, Single), CType(y, Single), New StringFormat())

count += 1

Next

End Sub

最后是窗体文件（Form1.vb）:

Public Class Form1

Inherits System.Windows.Forms.Form

Private MyMinuteHand As MinuteHand

Private MyHourHand As HourHand

Private MySecondHand As SecondHand

Private TheClockFace As ClockFace

Private FirstTick As Boolean = False

‘在窗体的OnPaint事件中取得Graphics对象

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

If (FirstTick = False) Then Exit Sub

Dim g As Graphics = e.Graphics

TheClockFace.Draw(g)

MyHourHand.Draw(g)

MyMinuteHand.Draw(g)

MySecondHand.Draw(g)

TheClockFace.DrawPin(g)

End Sub

‘计时器事件

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

MySecondHand.Transform(DateTime.Now)

MyHourHand.Transform(DateTime.Now)

MyMinuteHand.Transform(DateTime.Now)

FirstTick = True

Invalidate()