指针式数字时钟的设计 沈阳理工大学 机械工程 学院VB程序设计训练任务书32313133353236313431303231363533e58685e5aeb931333264663736学生姓名 班级学号设计题目 指针时钟具体内容一.目的和要求1.目的：培养学生利用VB6.0语言进行程序设计的能力，主要培养学生使用提供的彼岸准函数，熟练使用相关的控件和方法进行程序设计。VB设计训练是学习完《VB程序设计》课程后进行的一次全面的综合性上机实验。其目的在于为学生提供了一个既动手又动脑，独立实践的机会，将课本上的理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题的能力。提高学生适应实际，实践编程的能力。2.基本要求①要求使用VB对象的思想来完成程序的设计。②在设计程序的过程中，要求使用按钮、文本框、标签、形状等基本控件的属性、方法和相关事件。使用Line方法画线模拟指针。③在设计中使用系统提供的方法显示三个指针并区分其颜色可以随时间进度移动，指示正确当前时间。二.设计要求使用指针方式时钟显示当前时间，具有圆形的钟面，。新建立一个工程，在默认的窗体上添加以下三个LINE控件和一个TIMER控件分别用三条线表示时针、分针，秒针。制作一个提取系统时间并正确走时的时钟，该时钟有时针、分针。
指针式时钟程序 以前我回答过一个这样的题。你留下电子邮箱我给你发过去
求用vc编 指针式时钟 源代码！ 只实现了大体的时钟外观用MFC 建单文档程序 在生成的CMainFram类中的PreCreateWindow中添加 cs.cx=200；cs.cy=290；然后在View类的OnDraw函数中添加如下代码：const CRect rcBounds(10，10，180，180)；const CRect rcInvalid(10，10，180，180)；pDC->；FillRect(rcBounds，CBrush：FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH)))；CPen pen(PS_SOLID，6，RGB(0，122，122))；pDC->；SelectObject(&pen)；pDC->；Rectangle(rcBounds)；显示Colock中的3，6，9，12pDC->；TextOut(rcBounds.right/2-8，rcBounds.top+rcBounds.bottom/12，\"12\")；pDC->；TextOut(rcBounds.right/2-4，rcBounds.bottom-rcBounds.bottom/12-17，\"6\")；pDC->；TextOut(rcBounds.left+rcBounds.right/12，rcBounds.bottom/2-4，\"9\")；pDC->；TextOut(rcBounds.right-rcBounds.right/12-8，rcBounds.bottom/2-4，\"3\")；CTime time=CTime：GetCurrentTime()；int nTime_s=time.GetSecond()；int nTime_m=time.GetMinute()；int nTime_h=time.GetHour()；int nLength_S，nLength_M，nLength_H；if(rcBounds.right){nLength_S=rcBounds.right/2-rcBounds.right/7；nLength_M=rcBounds.right/2-rcBounds.right/6；nLength_H=rcBounds.right/2-。
求一C++指针式时钟的源代码 按照下图修改工程设置，选择不使用预编译头。
用VF做一个指针式时钟 参考VB的吧，语法都差不太多。基本思想：表盘：以某一点画同心圆。用(cos(x)，sin(y))算出12个整点的位置。指针：取当前的 时，分，秒，还是上面的式子算出指针所在位置，从。
求完整MFC指针式时钟程序代码源 so that the application will get 'well formed' small icons associated with it. ATOM MyRegisterClass(HINSTANCE hInstance) { WNDCLASSEX wcex；wcex.cbSize=sizeof。
在VB中，做一个指针式时钟，什么代码？最好有注释的 '在窗体中添加一个Timer控件，将Interval设为1000以下。'/Option ExplicitConst PI=3.1415926Dim BaseX As Integer，BaseY As Integer，R As IntegerDim r1 As Integer，r2 As Integer，r3 As IntegerPrivate Sub Form_Load()Me.ScaleMode=3Me.AutoRedraw=TrueIf Me.WidthIf Me.HeightEnd SubPrivate Sub Init()Dim i As Integer BaseX=Me.ScaleWidth/2BaseY=Me.ScaleHeight/2R=IIf(BaseX>；BaseY，BaseY*0.8，BaseY*0.8)r1=R*0.2r2=R*0.1r3=R*0.05 For i=0 To 360 Step 6If i Mod 30=0 Then '时Me.DrawWidth=2DrawLine BaseX+(R-3)*Sin(i*PI/180)，BaseY-(R-3)*Cos(i*PI/180)，BaseX+(R-8)*Sin(i*PI/180)，BaseY-(R-8)*Cos(i*PI/180)，3Else '分Me.DrawWidth=2Me.PSet(BaseX+(R-3)*Sin(i*PI/180)，BaseY-(R-3)*Cos(i*PI/180))End IfNextMe.DrawWidth=1Me.Circle(BaseX，BaseY)，REnd Sub'绘制指针Private Sub DrawClock()Dim Second As IntegerDim Minute As IntegerDim Hours As Integer Second=DatePart(\"s\"，Time)Minute=DatePart(\"n\"，Time)Hours=DatePart(\"h\"，Time)If Hours>；12 ThenHours=Hours-12End If Me.DrawWidth=1Me.Circle(BaseX，。
C++指针式时钟程序执行 额~我来做售后服务吧。本身就是用vc6写的，你只要找到文件夹里的文件B04.DSW，右键用vc6打开，然后编译运行，就ok！我调过，没问题。
