VB程序设计第4次形考12.doc

PAGE  PAGE 3 Visual Basic程序设计课程基于网络考核改革试点 第4次形考 编程题（1个题， 100分 ） 1．开发一个如图4-1所示指针式时钟程序。 要求： （1）要求用Shap控件、Line控件和Label控件设计表盘，用图形方法动态生成指针，用时钟控件控制时钟的转动。 （2）圆形表盘在窗体的中央，其直径要求与窗体的高度和宽度相等。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk4-01.vbp，窗体文件名为vbxk4-02.frm，文件夹名为vbxk4-01。 图4-1 程序运行界面 Const pi = 3.141592653 Private Sub Form_Load() Form1.Scale (-14, 14)-(14, -14) End Sub Private Sub Timer1_Timer() Dim x As Integer Dim y As Integer Dim sec, min, hr As Integer sec = Second(Time) min = Minute(Time) hr = Hour(Time) Form1.Cls Form1.DrawWidth = 2 x = 9 * Sin(sec * pi / 30) y = 9 * Cos(sec * pi / 30) Form1.Line (0, 0)-(x, y), vbRed Form1.DrawWidth = 3 x = 7 * Sin(min * pi / 30) y = 7 * Cos(min * pi / 30) Form1.Line (0, 0)-(x, y) Form1.DrawWidth = 4 hr = hr + min / 60 x = 6 * Sin(hr * pi / 6) y = 6 * Cos(hr * pi / 6) Form1.Line (0, 0)-(x, y) End Sub 2.开发一个如图4-2 所示的VCD播放器应用程序。 要求： 本程序的功能是程序 （1）能够浏览要播放的文件，并播放.avi、.dat、.wav等格式的多媒体文件。 （2）新具有快进、快退、暂停、弹碟和退出等基本功能。 提示：需要引入CommonDialog、MMControl和Slider三个控件。可在VB集成开发环境中，在“工程”菜单中点击“部件”选项，在弹出的“部件”对话框中选择Microsoft Multimedia Control、Microsoft Common Dialog Control6.0(sp3)和Microsoft Windows Common Control6.0(SP4) ，将上述三个控件添加到工具箱中。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk4-02.vbp，窗体文件名为vbxk4-02.frm，文件夹名为vbxk4-02。 Private Sub Command1_Click() If CommonDialog1.FileName = Then CommonDialog1.Filter = (*.wave)|*.wav|(vcd *.vcd)|*.dat CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen MMControl1.Command = close If CommonDialog1.FilterIndex = 1 Then MMControl1.DeviceType = WaveAudio MMControl1.FileName = CommonDialog1.FileName MMControl1.Command = Open Slider1.Min = 0 On Error Resume Next Slider1.Max = MMControl1.Length ElseIf CommonDialog1.FilterIndex = 2 Then MMControl1.DeviceType = MpegVideo MMControl1.FileName = CommonDialog1.FileName MMControl1.Command = Open Slider1.Min = 0 On Error Resume Next Slider1.Max = MMControl1.Length End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load