-
15电气 齐振昊 实验名称:在VB中制作计时器(运行时时间是停止的)
2016-03-20 16:33:11实验名称:在VB中制作计时器(运行时时间是停止的) ...在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。 选定计时器timer,在属性窗口中找到interval并将实验名称:在VB中制作计时器(运行时时间是停止的)
实验步骤:
-
在桌面中双击VB6.0打开程序。
-
在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。
-
在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。
-
选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000。
-
在工具箱窗口找到Label,单击图标并在窗体中创建,在属性窗口中找到“名称”一栏并将后面改为“屏幕1”。在工具栏中单击“启动”即可出现效果。
-
在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“停止”。
-
在窗体中找到“停止”并双击,输入“me.timer1.Enable=False”,然后关闭窗口。在工具栏中单击“启动”即可出现效果。
-
在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“重新开始”。
-
在窗体中找到“重新开始”并双击,输入“me.timer1.Enable=Ture”,然后关闭窗口。
-
在form1的空白处双击,在弹出的对话框中Form_Load()下输入Me.Timer1.Enabled = False
-
在工具栏中单击“启动”即可出现效果。
-
-
文本框自动提示_VB开发的身份证个人信息自动识别软件
2021-01-13 16:22:21程序实现功能:当用户单击”输入身份证号”按钮时,弹出输入对话框,用户输入身份证信息后,从身份证号中提取个人相关信息并显示在窗体上。程序实现过程分析:1、单击“输入身份证号”按钮,使用InputBox函数弹出...今天我们共同来看一下用VB编写的实用小工具--身份证自动提取性别、年龄、出生日期等个人信息的软件。
身份证是我们每个公民都有的,根据它可以唯一识别出具体是某个人。
程序实现功能:
当用户单击”输入身份证号”按钮时,弹出输入对话框,用户输入身份证信息后,从身份证号中提取个人相关信息并显示在窗体上。
程序实现过程分析:
1、单击“输入身份证号”按钮,使用InputBox函数弹出以下对话框:
身份证号=InputBox(对话框提示信息,标题,默认值)
当用户选择InputBox 的“确定”按钮时,执行身份证号判断操作。
具体判断过程如下:
当用户输入的身份证号不足18位时,使用Msgbox函数,做出以下提示
应用技巧:
1)检测身份证号长度使用Len()函数;2)使用If选择结构判断身份证号是否正确: if 身份证号不足18位 then msgbox给出提示 else 在指定控件显示出生年月、性别以及年龄End If3、当信息录入正确时,在指定控件显示出生年月、性别以及年龄。
1) 在名为shengri的文本框中显示出生年月,出生年月为身份证号的第7-14位
提示:使用mid函数
2)在名为nianling的文本框中显示年龄
提示:使用year(now())获得系统日期的年份,使用mid函数获取身份证中年份信息,相减可得年龄。
3)在名为xingbie的文本框中显示性别:身份证的第17位为偶数则为“女”,奇数为“男”。
提示:提取身份证第17位,放入整型变量x中,判断x的奇偶性(x mod 2=0 则 x为偶数,否则为奇数),由此可以决定性别
4、保存工程文件和窗体文件。
窗体界面设计
代码实现
Private Sub Command1_Click() '输入身份证号
Dim sfzh As String '定义身份证号为字符类型,位数大,且最后一位存在X
sfzh = InputBox("请输入18位身份证号", "身份证提取程序") '输入对话框使用
If Len(sfzh) < 18 Then
MsgBox "身份证号输入错误,请重新输入!", vbOKOnly, "错误提醒"
Else
id = sfzh '身份证号
tiqu (sfzh) '调用自定义tiqu过程
End If
End Sub
Public Sub tiqu(sfzh As String) '自定义过程
Dim x As Integer
shengri = Mid(sfzh, 7, 8) ‘生日’
nianling = Year(Now()) - Mid(sfzh, 7, 4) '年龄
x = Val(Mid(sfzh, 17, 1))
If x Mod 2 = 0 Then
xingbie = "女"
Else
xingbie = "男" '性别
End If
End Sub
实际运行图
大家在学习VB中有不懂之处或者需要VB视频学习资料,可以长按下图添加学习小编微信,更多VB精彩编程内容,尽在跟我学VB。
-
文本框自动提示_VB编写的身份证号自动识别实用程序
2021-01-13 16:22:00程序实现功能:当用户单击”输入身份证号”按钮时,弹出输入输入框,接收用户输入的身份证信息后,从身份证号中提取相关信息并显示在指定控件上。程序实现过程分析:1、单击“输入身份证号”按钮,使用inputbox函数...今天我们共同来看一下用VB编写的实用小工具--身份证号自动提取性别、年龄、出生日期工具。
身份证是我们每个公民都有的,根据它可以唯一识别出具体某个人。
程序实现功能:
当用户单击”输入身份证号”按钮时,弹出输入输入框,接收用户输入的身份证信息后,从身份证号中提取相关信息并显示在指定控件上。
程序实现过程分析:
1、单击“输入身份证号”按钮,使用inputbox函数弹出以下对话框:
身份证号=InputBox(对话框提示信息,标题,默认值)
当用户选择inputbox 的“确定”按钮时,执行身份证号判断操作。
具体判断过程如下:
当用户输入的身份证号不足18位时,使用msgbox函数,做出以下提示
应用技巧:
1)检测身份证号长度使用Len()函数;
2)使用If选择结构判断身份证号是否正确:
if 身份证号不足18位 then
msgbox给出提示
else
在指定控件显示出生年月、性别以及年龄
End If
3、当信息录入正确时,在指定控件显示出生年月、性别以及年龄。
1) 在名为shengri的文本框中显示出生年月,出生年月为身份证号的第7-14位
提示:使用mid函数
2)在名为nianling的文本框中显示年龄
提示:使用year(now())获得系统日期的年份,使用mid函数获取身份证中年份信息,相减可得年龄。
3)在名为xingbie的文本框中显示性别:身份证的第17位为偶数则为“女”,奇数为“男”。
提示:提取身份证第17位,放入整型变量x中,判断x的奇偶性(x mod 2=0 则 x为偶数,否则为奇数),由此可以决定性别
4、保存工程文件和窗体文件。
窗体界面设计
代码实现
Private Sub Command1_Click() '输入身份证号
Dim sfzh As String '定义身份证号为字符类型,位数大,且最后一位存在X
sfzh = InputBox("请输入18位身份证号", "身份证提取程序") '输入对话框使用
If Len(sfzh) < 18 Then
MsgBox "身份证号输入错误,请重新输入!", vbOKOnly, "错误提醒"
Else
id = sfzh '身份证号
tiqu (sfzh) '调用自定义tiqu过程
End If
End Sub
Public Sub tiqu(sfzh As String) '自定义过程
Dim x As Integer
shengri = Mid(sfzh, 7, 8) ‘生日’
nianling = Year(Now()) - Mid(sfzh, 7, 4) '年龄
x = Val(Mid(sfzh, 17, 1))
If x Mod 2 = 0 Then
xingbie = "女"
Else
xingbie = "男" '性别
End If
End Sub
实际运行图
大家在学习VB中有不懂之处或者需要VB视频学习资料,可以添加在线学习小编微信号:vbyjk521 ,更多VB精彩编程内容,尽在跟我学VB。
为了帮助VB基础薄弱或者VB零基础想快速掌握VB编程的朋友,充分利用好宝贵的时间,VB视频直播现已正式开启了,针对VB基础薄弱或者零基础的朋友有专门的基础讲解课程;对已有VB编程基础想综合提高编程开发能力的朋友有综合讲解课程及串口通信与数据库开发课程可供选择学习,可加小编微信了解。
长按上图,关注跟我学VB公众平台
更多VB精彩内容,尽在VB学习
-
vb.net计算器代码
2011-02-22 23:40:56数据就按下这运算符,会弹出提示对话框提示先输入数据) 3.修改按钮,如果是数据,每按下该按钮时显示框里的数据将从最右边清除一个,如果是运算符,按下该按钮,则显示框里的运 算符被清除,但是原数据仍被保存,... -
vb6 sqlserver洗浴城管理系统【源码】.rar
2019-07-10 17:22:25(5)单击“下一步”按钮,在弹出的对话框中勾寻更改默认的数据库为”选项,在下拉列表中选择“XYGLXT” 数据库,单击“下一步”按钮,再单击“完成”按钮,数据源便配置成功了。 另外,还需要配置一个临时... -
VB6.0编写的管理系统,专业而完整,附源代码.rar
2019-07-10 00:17:31一套专业的VB专业管理系统-包含源代码,使用说明: 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye ...10.单击“软件简介”弹出本窗体,单击“关于我们”弹出和程序相关信息的窗体。 -
一套专业的VB专业管理系统-包含源代码
2011-11-04 18:37:23一套专业的VB专业管理系统-包含源代码,使用说明: 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye ...单击“软件简介”弹出本窗体,单击“关于我们”弹出和程序相关信息的窗体。 -
2—1 VB6.0的集成开发环境
2009-12-30 17:48:58弹出“新建工程”对话框,我们选择“标准 EXE” 。单击“打开”。 这时候看到的是VB集成式开发环境,让我们先对它进行一番了解。 ·左面是VB的工具箱, 里面的各种图标是我们开发程序时经常用到的标准... -
用VB6编写管理系统的九个示例程序
2011-02-22 17:56:37打开"控制面板"中"管理工具"的"ODBC(数据源)",在弹出的对话框中创建文件DSN。本例需要创建的文件DSN,登录方式选择"使用用户输入登录ID和密码的SQL Server验证",登录ID为sa,密码为空,选择默认连接数据库(就是... -
VB6加SQL 2000完整的示例程序.zip
2009-05-08 07:05:29打开"控制面板"中"管理工具"的"ODBC(数据源)",在弹出的对话框中创建文件DSN。 本例需要创建的文件DSN,登录方式选择"使用用户输入登录ID和密码的SQL Server验证", 登录ID为sa,密码为空,选择默认连接数据库... -
VB编程资源大全(源码 文件)
2007-10-17 22:40:03"icl"文件中分离出icon (4KB) 85,iniedit.ZIP 如何编辑ini文件以及任何包含文本的windows文件 (6KB) 86,helpfile.ZIP 在vb中调用help文件并实现winhelp的关键字、主题等功能 (5KB) 87,split.ZIP ... -
ASP.NET办公自动化系统开发实例导航
2008-12-24 16:54:10① 运行SQL Server 2000的“企业管理器”,右键单击“数据库”文件夹,在弹出菜单中单击“新建数据库”菜单项,弹出“数据库属性”对话框,在“名称”文本框中输入“EHR”,如图9所示。 ② 单击“数据文件”选项卡,... -
MicrosoftHTMLHelpWorkshopV1.3汉化版.rar
2010-05-01 12:39:57在标题“简介”下面再添加一个标题如“准备”:按[Insert a heading]按钮,会弹出一个询问是否在所选标题上面插入标题的对话框,我们按“否”,在[Entry title]输入页面标题“准备”,并按[Add]指定对应的 ... -
易语言程序免安装版下载
2011-04-07 09:28:50修改扩展界面支持库三,解决单击卷帘菜单后导致日期框不能弹出下拉窗口的BUG。 4. 修改XP风格支持库,解决GDI资源泄露,以及在使用通用组件库六时组合框标题出现重影的BUG。 5. 修改扩展界面支持库一,解决树形框... -
arcgis工具
2012-10-22 22:37:31也可单击右键选择properties 打开edit sketch properties对话框,在坐标点位置右键插入节点 9. 共享多边形生成 Auto-complete polygon 工具生成共享边的多边形,配合snapping environment更好。 10. 画岛图 1)... -
UltraEdit-32绿色版
2012-01-31 01:08:38利用单词库,UltraEdit能检查文章中的每个单词,如果单词库中不包含所书写的单词,会弹出对话框让用户作出相应处理:改正错误或添加新单词。 在第一次使用拼写检查时,如果UltraEdit报告如下错误:说明系统没找到... -
UltraEdit 绿色解压版
2010-01-28 11:07:35利用单词库,UltraEdit能检查文章中的每个单词,如果单词库中不包含所书写的单词,会弹出对话框让用户作出相应处理:改正错误或添加新单词。 在第一次使用拼写检查时,如果UltraEdit报告如下错误:说明系统没找到... -
vc++ 应用源码包_1
2012-09-15 14:22:12列出所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG... -
vc++ 应用源码包_2
2012-09-15 14:27:40列出所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG... -
vc++ 开发实例源码包
2014-12-16 11:25:179:采用Messenger的弹出滑动消息提示框. 10:下载管理,虚拟文件夹. 11:自动ping. 12:连接到搜索引擎. 13:自动报告bug,建议等. 14:宏功能. 15:自动同步文件夹. 16:保存加载任务. 17:计划任务. 18:单线程下载时不能创建... -
vc++ 应用源码包_6
2012-09-15 14:59:46列出所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG... -
vc++ 应用源码包_4
2012-09-15 14:38:35列出所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG... -
vc++ 应用源码包_3
2012-09-15 14:33:15列出所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG... -
vc++ 应用源码包_5
2012-09-15 14:45:16列出所有的显示模式并列表出来,通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG... -
-
C语言上机问题解答
2014-08-30 21:34:19回答:当点击 “启动上机考试串讲视频后”,会弹出一个网页,这个时候应当点网页上方。。。。。单击此处查看选项”,然后点击“允许阻止的内容”,则可以顺利观看视频。(部分科目无上机考试串讲视频) 18、错误... -
-
Visual C++ 编程资源大全(源码 控件)
2007-10-19 19:28:33hoverbut.zip 这个类库是对鼠标敏感的按纽,你用它可以做出象Office助手提示选项那样的东东来(24KB)<END><br>11,menubut.zip 当用户单击一个按钮时弹出一个菜单(5KB)<END><br>12,TrackBut.zip 也是一个位图... -
1350多个精品易语言模块
2015-07-26 12:21:30API 设置颜色对话框模块.ec ard.ec Arhz_自动更新.ec Base64编解码.ec BASE64编解码模块.ec Bios.ec Bios 信息.ec BMP加密数据.ec BMP滤镜模块.ec BOX.EC BPL专用更新模块.ec BPL综合模 块.ec BPL高级模块.ec ...