实验名称：在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


在工具栏中单击“启动”即可出现效果。
2016物理与电子信息学院15电气1班齐振昊15050341022

	

今天我们共同来看一下用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视频学习资料，可以长按下图添加学习小编微信，更多VB精彩编程内容，尽在跟我学VB。

	

今天我们共同来看一下用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学习