锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net钟的信息

IT技术时间

跪求用vb.net做一个小闹钟?。?/h2>'加个定时器,textbox ,button,labelPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
If FF = Now And FF"2001-1-1" And Timer1.Tag = "" Then
Timer1.Tag = "1"
MsgBox("ff")
End If
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FF = TextBox1.Text
Timer1.Tag = ""
End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FF = "2001-1-1"
End Sub'声音加个 AxMMControl控件AxMMControl1.DeviceType = "waveaudio" ''''''''定义播放*.wav格式AxMMControl1.FileName = "c:\1.wav" ''''''''载入文件 ， AxMMControl1.Command = "open" ''''''''打开载入的文件
AxMMControl1.From = 0'从头开始
AxMMControl1.Command = "play"'保存时间,只要设定时把时间保存到文本文件就行,load 事件中读取,并对比是不是超时,.
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)
【关于vb.net钟的信息】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)

推荐阅读


上一篇：拍摄人物表情用什么镜头，拍摄表情包

下一篇：mysql如何实现实体完整性约束的条件下，mysql如何实现实体完整性约束的条件下输入