- 1、本文档共3页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB程序设计第4次形考12
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
您可能关注的文档
- TiO2纳米管论文改性TiO2纳米管光电极制备及可见光下光电催化性能研究.doc
- TI计算器的程序设计.doc
- THSRZ-1型实验指导书2012423.doc
- TiO2薄膜锂化工艺及其性能的研究(修订稿).doc
- TJ09隧道栈桥作业指导书.doc
- TJJW014-2014HXN3型内燃机车总体技术规范报批稿.doc
- TLC1543特性介绍与硬件设计.doc
- TKGPZ2高频电子线路综合实验箱.doc
- TFDS-2型(黄石邦柯)设备常见故障分析与处理.doc
- TLVFALCON挥发性有机物(VOC)检测仪.doc
- 甘肃省XB师范大学附属中学2025届高三上学期一模诊断考试地理答案.doc
- 甘肃省XB师范大学附属中学2025届高三上学期一模诊断政治含解析.doc
- 安徽省皖江名校2024-2025学年高一上学期12月联考英语无答案.doc
- 2025年1月八省联考高考综合改革适应性测高三化学陕西山西宁夏青海卷无答案.doc
- 2025年1月八省联考高考综合改革适应性测高三化学四川卷无答案.doc
- 2025年1月八省联考高考综合改革适应性测高三政治陕西山西宁夏青海卷无答案.doc
- 2025年1月内蒙古自治区普通高等学校招生考试适应性测试(八省联考)历史无答案.doc
- 2025年1月内蒙古自治区普通高等学校招生考试适应性测试(八省联考)历史含解析.doc
- 2025年1月四川省普通高等学校招生考试适应性测试(八省联考)历史含解析.doc
- 2025年1月四川省普通高等学校招生考试适应性测试(八省联考)政治无答案.doc
最近下载
- 重庆紫光化工股份有限公司永川一、二分厂原址场地污染土壤治理修复项目全文公示环境影响评价报告公示.pdf
- 《面具》(说课稿)-2024-2025学年三年级上册综合实践活动全国通用.docx VIP
- 道德与法治八年级下册第二单元 理解权利义务 大单元整体教学设计学历案教案附作业设计(基于新课标教学评一致性).docx
- 北师大版-初三数学复习计划.docx VIP
- 2024年度党员干部民主生活会个人对照检查材料(四个带头).docx VIP
- 2023年云南公务员行测考试真题及答案(完整版).pdf
- 影视版权交易平台行业发展预测分析.docx
- 【教学能力比赛】教学实施报告-口腔护理.ppt
- 国务院发展研究中心资源与环境政策研究所招聘笔试备考试题及答案解析.docx VIP
- (康德一诊)重庆市高2025届高三第一次联合诊断检物理试卷(含答案).docx
文档评论(0)