【vb精品源码栏目提醒】:网学会员为需要vb精品源码的朋友们搜集整理了【精品资料】VB日历控件2 - 其它管理文献相关资料,希望对各位网友有所帮助!
计算机网络教研室日历控件的应用日历控件的应用没有理想、梦想、没有理想、梦想、幻想的生命只不幻想的生命只不过是一堆空架子。
过是一堆空架子。
计算机网络教研室目录1写记事程序设计3演示任务2时钟程序设计查看记事程序设计4计算机网络教研室设计一个程序它的功能是显示一个月的月历用钟表的形式显示时间可写入任一天的记事可查看已写入的记事1、演示任务备忘录程序功能1、演示任务备忘录程序功能演示程序演示程序计算机网络教研室1、动画时钟程序设计1、动画时钟程序设计Now函数给出系统当前日期时间SecondNow函数获得系统的秒数MinuteNow函数获得系统的分钟数HourNow函数获得系统的小时数分析分析1、由于一圆周360度60秒所以1秒也即6度S秒就是6s3.1415926/180弧度根据图示可求得秒针动点的坐标为X2x1Lsin6S3.1415926/180Y2y1-Lcos6s3.1415926/180计算机网络教研室1、动画时钟程序设计1、动画时钟程序设计分析分析秒针程序设计如下t Nows SecondtLine1.X2Line1.X11500Sin6s3.1415926/180Line1.Y2Line1.Y1-1500Cos6s3.1415926/1802、对于分针来说其原理与秒针的原理是一样的只是用取分值的函数代替取秒值的函数而已。
那么分针的程序如下m MinutetLine2.X2Line2.X11200Sin6m3.1415926/180Line2.Y2Line2.Y1-1200Cos6m3.1415926/180计算机网络教研室分析分析3、对于时针来说其原理虽然与其他两个针的原理是一样的但是一周角只代表12小时所以一小时需要30度来表示。
同时时针不能跟分针一样分针可以每分钟跳一次一圈跳60次时针如果也一小时跳一次那一圈才跳十二次这样是不可以的。
我们要求的是时针也要每分钟跳一次。
那么因为每小时时针跳30度所以每分种时针跳0.5度。
这就可以得出时针的终点坐标计算公式为X2x1Lsin30h0.5m3.1415926/180Y2y1-Lcos30h0.5m3.1415926/180时针的程序如下h HourtLine3.X2 Line3.X11100Sin30h0.5m3.14 / 180Line3.Y2 Line3.Y1-1100Cos30h0.5m3.14 / 1801、动画时钟程序设计1、动画时钟程序设计计算机网络教研室Private Sub Timer1_Timert Nows SecondtLine1.X2Line1.X11500Sin6s3.1415926/180Line1.Y2Line1.Y1-1500Cos6s3.1415926/180m MinutetLine2.X2Line2.X11400Sin6m3.1415926/180Line2.Y2Line2.Y1-1400Cos6m3.1415926/180h HourtLine3.X2Line3.X11100Sin30h0.5m3.14/180Line3.Y2Line3.Y1-1100Cos30h0.5m3.14/180End Sub2、Timer1_Timer事件编程2、Timer1_Timer事件编程计算机网络教研室Private Sub Form_LoadCr1.Value Date ‘设置Calendar的初值为系统日期X0 Shape2.Left Shape2.Width / 2 shape2为中心圆点Y0 Shape2.Top Shape2.Height / 2Timer1.Enabled TrueTimer1.Interval 100Line1.X1 X0Line1.Y1 Y0Line2.Y1 Y0Line2.X1 X0Line3.X1 X0Line3.Y1 Y0End Sub3、Form1_Load事件编程3、Form1_Load事件编程计算机网络教研室Dim fso As New FileSystemObjectDim ts As TextStreamDim Dat As Date 存放记事的日期Dim Sts As String 存放记事的内容Private Sub Command1_Click ‘保存记事Settsfso.OpenTextFilemyprog.logForAppendingTrueSts Text1.Text Chr13 Chr10ts.Write Datts.Write Ststs.CloseEnd SubPrivate Sub Command2_Click ’返回Unload Form2Form1.ShowEnd SubPrivate Sub Form_LoadDat Form1.Cr1.Value ‘设置日期值与Calendar中的日期一致Label1.Caption Label1.Caption DatEnd Sub4、写一天的记事调用Form2 Form2的程序4、写一天的记事调用Form2 Form2的程序计算机网络教研室Form1的变量定义部分:Dim X0 Y0 As Integer 钟的中心点坐标Dim t As Date t为当前日期Dim s m h As Integer smh表示秒分时Dim fso As New FileSystemObjectDim ts As TextStreamPrivate Sub Com2_Click ‘Com2为”查看记事”的菜单名Set ts fso.OpenTextFilemyprog.logForReadingTrueForm3.RTB.Text ts.ReadAllts.CloseForm3.ShowEnd Sub5、查看记事调用Form35、查看记事调用Form3计算机网络教研室学生进行程序设计学生进行程序设计学生进行程序设计学生进行程序设计计算机网络教研室本节主要学习了如下内容本节主要学习了如下内容时钟程序设计时钟程序设计写记事程序的设计写记事程序的设计查看记事程序的设计查看记事程序的设计计算机网络教研室同学们辛苦了再见