VB大作业讲述.doc

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB大作业讲述

机械工程学院 《VB程序设计》大作业 题目:电子日记本 姓名:李景波 学号:200805788 班级:机械10801班 指导老师:李老师 日期:2010年12月14日 选材过程 许多人都写过日记,都有自己的日记本,我也一样,但写日记时存在种种问题,如界面不美观、、不易修改、容易被别人偷看等等,那么我就想能不能做一个电子版的日记本呢?这样就能够使界面更美观,修改起来更方便,隐私不易泄漏跟安全等等。 老师在上课时也建议我们做一个自己的电子日记本,可以充分利用我们书本里所学的知识,把知识转化成为实用的东西。 总体设计目标 友好的操作界面; 可以实现身份验证; 日记隐私的安全性; 熟悉运用和掌握所学的VB知识。 总体设计结构 一、设计结构图 主界面 账号注册 写日记 浏览日记 保存日记 更改字体 改变颜色 文本编辑 用户登陆 2、功能介绍 (1)、账号注册:通过对输入两Textbox内账号和密码的属性,如长度、数据类型等的设置,并把输入的账号写入磁盘上的文本上,把输入的密码加密后保存在同一文本内,实现记忆功能。 (2)、用户登陆:通过把用户输入的账号和密码与注册时的账号和密码进行配对校验,对用户的身份进行确认,只要身份正确才能进入。 (3)、登陆后,用户可以在当前界面的文本框内写日记,保存日记,浏览日记,以及对日记文本的属性进行更改,使界面友好。 四、设计结果 设计总结 1、心得体会:通过做这个大作业,自动动手编写程序,使我对课本上的知识有了一个更深层次的了解,使我对VB面向对象编程有了一个比较全面的了解,大大的吸引了我学习语言的兴趣。在设计过程中,我养成了仔细检查程序的好习惯,学会了如何一步步去调试程序,找出错误并加以改正。 2、遇到的问题:例如在编写对文本内容加密过程中,按照课本上老师所讲的方法,并不能实现对所有的汉字进行正确的加密解密,遇到问题后,我去图书馆查找相关资料,在网上查看相关加密算法,最终找到了解决问题的方法,可以实现对基本上所有的汉子及其他字符的加密加密。另外,还有如何通过磁盘文件实现窗体直接相互传值???用等等,最终都在查阅资料以及同学的帮助下顺利解决了。 3、存在的问题:次程序功能简单,而且界面并没有达到理想的效果,例如可以在此基础上实现给文本加上各式各样漂亮的背景,可以在主界面上加上一个音乐播放器,使在写日记过程中可以边写边听音乐等等。没有做不到,只有想不到。这个程序我会努力修改,使之更加完美! 附录 登陆窗体代码 Private Sub Command1_Click() 实现日记操作的登陆 CurDir Open Data.txt For Input As #1 打开账号和密码存放文件 Dim zh As String Dim mm1 As String Dim mm As String Input #1, zh Input #1, mm1 mm = Jm(mm1, 5) 对解密了的账号和密码进行解密 If Text1.Text = zh And Text2.Text = mm Then 进行账号和密码校验 Form1.Hide Form2.Show Else MsgBox 账号或密码错误, , 警告 Text1.Text = Text2.Text = End If Close #1 关闭文件 End Sub Private Sub Command2_Click() 进入注册界面 Form1.Hide Form3.Show End Sub Private Sub Form_Load() 加载窗体 Text1.Text = Text2.Text = End Sub 注册窗体代码 Private Sub Command1_Click() 注册账号并保存账号和密码 If Text3.Text Text2.Text Then MsgBox 两次密码输入不一样, , 警告 确认两次输入的密码相同 Text2.Text = Text3.Text = Else MsgBox 注册成功!, 0 + 64, 注册 End If

文档评论(0)

jiayou10 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8133070117000003

1亿VIP精品文档

相关文档