精华内容
下载资源
问答
  • 实验名称:在VB中制作计时器(运行时间是停止的) ...在窗体中双击计时器图标,在弹出对话框输入“屏幕1.caption=time(  )”然后关闭窗口。 选定计时器timer,在属性窗口中找到interval并将
    

    实验名称:在VB中制作计时器(运行时时间是停止的)

    实验步骤:

    1. 在桌面中双击VB6.0打开程序。

    2. 在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。

    3. 在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。

    4. 选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000

    5. 在工具箱窗口找到Label,单击图标并在窗体中创建,在属性窗口中找到“名称”一栏并将后面改为“屏幕1”。在工具栏中单击“启动”即可出现效果。

    6. 在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“停止”。

    7. 在窗体中找到“停止”并双击,输入“me.timer1.Enable=False”,然后关闭窗口。在工具栏中单击“启动”即可出现效果。

    8. 在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“重新开始”。

    9. 在窗体中找到“重新开始”并双击,输入“me.timer1.Enable=Ture”,然后关闭窗口。

    10. form1的空白处双击,在弹出的对话框中Form_Load()下输入Me.Timer1.Enabled = False

    11. 在工具栏中单击“启动”即可出现效果。

    2016物理与电子信息学院15电气1齐振昊15050341022
    展开全文
  • 程序实现功能:当用户单击”输入身份证号”按钮弹出输入对话框,用户输入身份证信息后,从身份证号中提取个人相关信息并显示在窗体上。程序实现过程分析:1、单击“输入身份证号”按钮,使用InputBox函数弹出...

    今天我们共同来看一下用VB编写的实用小工具--身份证自动提取性别、年龄、出生日期等个人信息的软件。

    身份证是我们每个公民都有的,根据它可以唯一识别出具体是某个人。

    程序实现功能:

    当用户单击输入身份证号按钮时,弹出输入对话框,用户输入身份证信息后,从身份证号中提取个人相关信息并显示在窗体上。

    程序实现过程分析:

    1、单击“输入身份证号”按钮,使用InputBox函数弹出以下对话框:

    身份证号=InputBox(对话框提示信息,标题,默认值)

    6ab9b960ffe7d84792a38316db6e1639.png

    当用户选择InputBox 的“确定”按钮时,执行身份证号判断操作。

    具体判断过程如下:

    当用户输入的身份证号不足18位时,使用Msgbox函数,做出以下提示

    cf59e030f4495786a753a5cd4293291b.png

    应用技巧:

    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、保存工程文件和窗体文件

    窗体界面设计

    99a5c41cbf98c6fbdc094457d859bfdf.png

    e4b477263cf6b32e5f271e3d2f9098fd.png

    031a52c4e523f918f152bb43fd3ec8ed.png

    代码实现

    031a52c4e523f918f152bb43fd3ec8ed.png

    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

    实际运行图

    1b420db36487d33581808401660e5330.pngf19f70891a8b7fc530831c31fc508ac5.giff19f70891a8b7fc530831c31fc508ac5.gif0c545b8b35b861f654ccc2fde2f0140b.png15379882ceadb3ee30a5b7bc970aba8b.gif

    大家在学习VB中有不懂之处或者需要VB视频学习资料,可以长按下图添加学习小编微信,更多VB精彩编程内容,尽在跟我学VB。

    2af1a6b9613299d5c6f7b1a9631c5c63.png

    展开全文
  • 程序实现功能:当用户单击”输入身份证号”按钮弹出输入输入框,接收用户输入的身份证信息后,从身份证号中提取相关信息并显示在指定控件上。程序实现过程分析:1、单击“输入身份证号”按钮,使用inputbox函数...

    今天我们共同来看一下用VB编写的实用小工具--身份证号自动提取性别、年龄、出生日期工具。

    身份证是我们每个公民都有的,根据它可以唯一识别出具体某个人。

    程序实现功能:

    当用户单击输入身份证号按钮时,弹出输入输入框,接收用户输入的身份证信息后,从身份证号中提取相关信息并显示在指定控件上。

    程序实现过程分析:

    1、单击“输入身份证号”按钮,使用inputbox函数弹出以下对话框:

    身份证号=InputBox(对话框提示信息,标题,默认值)

    34e020721e12384615b300fd832de052.png

    当用户选择inputbox 的“确定”按钮时,执行身份证号判断操作。

    具体判断过程如下:

    当用户输入的身份证号不足18位时,使用msgbox函数,做出以下提示

    1c77543503fd7d756285bb65f1c94d41.png

    应用技巧:

    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、保存工程文件和窗体文件

    窗体界面设计

    8a651060d3288fa2a4873c0950f144b2.png

    8df9a58df8120219208e3dd60b8de1bf.png

    b60633680d8b7bc5ba751ce77e303a37.png

    代码实现

    b60633680d8b7bc5ba751ce77e303a37.png

    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

    实际运行图

    1537eced3951edf98efce7959e6db078.pngdba57e74c731abf0bbd3170b74596b0e.gifdba57e74c731abf0bbd3170b74596b0e.gifbb98e38aa67cde047f6a1efdd49356c6.png95b9d1ea2100e6f2a2107fac7c9c9f3d.gif

    大家在学习VB中有不懂之处或者需要VB视频学习资料,可以添加在线学习小编微信号:vbyjk521 ,更多VB精彩编程内容,尽在跟我学VB。

    dafe76332ba5690093ab55fe8f1e59a0.png

    为了帮助VB基础薄弱或者VB零基础想快速掌握VB编程的朋友,充分利用好宝贵的时间,VB视频直播现已正式开启了,针对VB基础薄弱或者零基础的朋友有专门的基础讲解课程;对已有VB编程基础想综合提高编程开发能力的朋友有综合讲解课程及串口通信与数据库开发课程可供选择学习,可加小编微信了解。



    39faf7316e47097780403765ec8009fe.giff4d49ecb24ca2e34e89b2675b9157ce3.png

    长按上图,关注跟我学VB公众平台

    更多VB精彩内容,尽在VB学习

    展开全文
  • vb.net计算器代码

    2011-02-22 23:40:56
    数据就按下这运算符,会弹出提示对话框提示先输入数据) 3.修改按钮,如果是数据,每按下该按钮显示框里的数据将从最右边清除一个,如果是运算符,按下该按钮,则显示框里的运 算符被清除,但是原数据仍被保存,...
  •  (5)单击“下一步”按钮,在弹出对话框中勾寻更改默认的数据库为”选项,在下拉列表中选择“XYGLXT”  数据库,单击“下一步”按钮,再单击“完成”按钮,数据源便配置成功了。  另外,还需要配置一个临时...
  • 一套专业的VB专业管理系统-包含源代码,使用说明: 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye ...10.单击“软件简介”弹出本窗体,单击“关于我们”弹出和程序相关信息的窗体。
  • 一套专业的VB专业管理系统-包含源代码,使用说明:  1.软件所涉及的数据库分为四张表。  lesson  kecheng  zhuanye ...单击“软件简介”弹出本窗体,单击“关于我们”弹出和程序相关信息的窗体。
  • 弹出“新建工程”对话框,我们选择“标准 EXE” 。单击“打开”。 这时候看到的是VB集成式开发环境,让我们先对它进行一番了解。  ·左面是VB的工具箱,  里面的各种图标是我们开发程序经常用到的标准...
  • 打开"控制面板"中"管理工具"的"ODBC(数据源)",在弹出对话框中创建文件DSN。本例需要创建的文件DSN,登录方式选择"使用用户输入登录ID和密码的SQL Server验证",登录ID为sa,密码为空,选择默认连接数据库(就是...
  • 打开"控制面板"中"管理工具"的"ODBC(数据源)",在弹出对话框中创建文件DSN。 本例需要创建的文件DSN,登录方式选择"使用用户输入登录ID和密码的SQL Server验证", 登录ID为sa,密码为空,选择默认连接数据库...
  • "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所示。 ② 单击“数据文件”选项卡,...
  • 在标题“简介”下面再添加一个标题如“准备”:按[Insert a heading]按钮,会弹出一个询问是否在所选标题上面插入标题的对话框,我们按“否”,在[Entry title]输入页面标题“准备”,并按[Add]指定对应的 ...
  • 修改扩展界面支持库三,解决单击卷帘菜单后导致日期框不能弹出下拉窗口的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:17
    9:采用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:33
    hoverbut.zip 这个类库是对鼠标敏感的按纽,你用它可以做出象Office助手提示选项那样的东东来(24KB)<END><br>11,menubut.zip 当用户单击一个按钮时弹出一个菜单(5KB)<END><br>12,TrackBut.zip 也是一个位图...
  • API 设置颜色对话框模块.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 ...

空空如也

空空如也

1 2
收藏数 35
精华内容 14
关键字:

vb单击输入时弹出输入对话框