标题:从0开始---手把手教你做个桌面中文语音报时的电子时钟
只看楼主
农夫。
Rank: 1
等 级:新手上路
帖 子:3
专家分:5
注 册:2013-11-22
结帖率:100%
已结贴  问题点数:20 回复次数:3 
从0开始---手把手教你做个桌面中文语音报时的电子时钟

                                      中文语音
第一步 检查你的电脑是否已经安装了中文语音搜索引擎                                
方法:打开控制面板\语音\语音选择--右侧下拉框\如果只有一个Micorosoft Sam。                                
      说明你的电脑不会说汉语--点击“预听语音”即可证明。                                
      如果你的电脑已经会说人话,下一步免谈。                                
第二步 下载并安装中文语音搜索引擎                                
地址:http://ishare.iask.                                
方法:下载完成后,双击那个小电视形状的图案--然后一路回车即可--因为是那个                                
      叫什么“比尔盖厕所”手下做的,都是外文,所以你完全可以不甩他!                                
验证:按照第一步的方法,到下拉框里找到你刚安装好的东东,预听一下。                                
      这回应当说人话了--恭喜你!安进去了!                                
      注意千万别忘了“确定”!                                
                                
                编程软件               
    到网上随便搜一款“VB6.0中文精简版”,下载安装到你的电脑中--                                
别忘了在桌面创建快捷方式或者在桌面上显示VB6.0应用程序。                                
不然有可能找不着它--泥牛掉进大海里去了!                                
                                
                配置部件               
1、启动“VB6.0应用程序”\标准EXE\打开\此时,窗口中间部位出现一个名为                                
   Form1的窗体控件(注意最后一个不是英文字母l,而是阿拉伯数字1--                                
   你看这爷俩长得多像--一个模子印的。如果你不注意,以后编程时很容易出错。                                
2、单击左侧工具箱里那个A字母标示的名为Label的标签图案,到窗体里按下鼠标左键                                
   画一个适当大小的长方形。                                
   其中的内容是Label1--注意最后那个是数字1,前一个是小写英文字母1。                                
   第一个标签控件安好了--你真的很棒!                                
   把它拉到窗口最上边--用于以后显示系统当前日期。                                
   同样方法接着Label1依次向下,再安装两个标签--分别为Label2和Label3--                                
   分别用于以后显示星期和时间。                                
3、双击左侧工具箱里的小闹钟图案--他就是时钟控件,名叫Timer--因为他是                                
   第一个时钟控件,所以以后编程时,                                
   他又叫Timer1--数字1要注意哦!双击之后他会自动私奔到窗体中                                
   (原来双击也可以安装控件啊)。                                
   因为时钟控件在以后程序运行时不显示,所以把它放在窗体里任意位置都可以。                                
   恭喜你--至此:包括1个窗体、3个标签、1个时钟在内,这款电子时钟程序所需的                                
   一共5个零配件全部配置完毕!                                
                                
                设置属性               
1、单击窗体Form1标题栏,或者避开窗体中已经安装好的4个控件,                                
   单击窗体其他任意位置。此刻,右侧中部Form1                                
   属性栏自动默认选中其Caption(标题的意思)属性,                                
   把他右边格子里的名字修改为“我的电子小时钟”或者其它名称                                
   --随你大小便--你想叫他啥么都行--不信你回到窗体标题栏看看。
   设置窗体的BorderStyle属性为0-None---以保证这个时钟能够贴在桌面上跟桌面壁纸融为一体;
   但要慎用--不然以后你想扒都扒不下来--可别怨我没提醒你哦!设置为1就没这事了。                                
2、同样方法把3个标签控件的Caption属性都修改为空--删除原有名称,                                
   不要输入任何内容--为以后存放日期、星期和时间留空。                                
   找到各个标签的Alignment(调整)属性,调整其中所显示文字的对齐方式为                                
   2-Center居中对齐(程序默认为0--左对齐)--这是为了让以后显示的                                
   日期、星期、时间字符都能居中。                                
3、单击窗体里的时钟控件,修改时间间隔Interval属性为1000(即1000毫秒=1秒),                                
   使程序运行时每秒跳动一次。                                
你真来劲--各个控件的基本属性你都设置成功了!                                
                                
                编写代码               
双击窗体里的小时钟\工程自动打开代码窗口\自动列出开始语句、结束语句两行代码。                                
咱们只要在这现成的两行代码中间插入                                
如下6行代码就完事了--你看方便不方便?!                                
     Label1.Caption = Date                           
     Label2.Caption = "星期" & Mid("天一二三四五六", Weekday(Date), 1)                           
     Label3.Caption = Time                           
     If Right(Time, 5) = "00:00" Then                           
        CreateObject("SAPI.SpVoice").Speak ("现在是北京时间:" & Time)                           
     End If                           
    请留意:这里的=号、&号两边都有空格,所有标点符号必须在英文状态下输入----否则不好使。
        注意:千万不要随便乱插--一定要插在下面中间位置哦!我就经常插错位置。                           
    Private Sub Timer1_Timer()                           
    看好了--就插在这里                           
    End Sub               
    检查代码--如果确认没问题啦--你就是个大好银!
                        
    代码瞎解                           
    标签1标题(即显示)系统当前日期                           
    标签2标题(即显示)系统当前星期                           
    标签3标题(即显示)系统当前时间                           
    如果当前时间的右边5个字符是“00:00”    那么                           
        搜索系统当前默认语音并说:“现在是北京时间:”   几点                           
    结束如果                           
    编写代码原来如此简单啊!农家还一直以为比走四川山道还难呢--罢了罢了!                           
                                
                                
                运行调试               
确认代码无误,请点击本工程从上到下数第3行常用工具栏里的小三角符号--它就是运行符号                                
--运行咱们刚创建的电子小时钟程序试一试。一秒钟之后,应该会出现显示日期、                                
星期、时间的小程序。如果出现错误,请根据错误提示调试代码。                                
主要检查字母大小写、字母1和数字1、空格、……。调试时别忘了点击小三角右边那个                                
小正方形--停止运行后回到编程状态再进行调试--要不她会不让你调戏;还有如果你不小心                                
不知什么时候把窗体对象、代码窗口弄丢了,请到菜单\视图中找回来。                                
试听语音报时:到你的电脑最右下角通知区中调整系统时间为“**:59:55”,过5秒钟之后                                
试听是否整点汉语语音报时                                
如不成功,请你耐心调试;调试完成之后,到右下角窗体布局中把他拉到屏幕中间位置--
或者随便你喜欢的位置。
你是个做事认真的银--以后的日子还很长--相信你一定更棒!                                

                保存程序               
--什么东东?保存?这个俺早都会啦!不信--俺保存给你看看--可别啊!听老农说说:                                
1、到左上角点击“文件”\找到并单击“生成**.exe”\最好保存在桌面,以后再处理,文件名                                
   自定,但是后缀必须为:“.exe”--例如“我的小时钟.exe”。                                
   这样,我教你粗制滥造的小时钟程序,才能脱离VB6.0在任何装有Windows                                
   系统的电脑中独立运行。                                
2、关闭本工程--程序会提醒两次是否保存--都单击是,这样就把你做的工程1保存好了,                                
   以后你想打开、修改工程,就用VB6.0应用程序,打开其中的“**.vbp”工程文件就可以了。                                
   注意必须使用VB6.0打开,其他程序打不开它。                                
另外,如果你想把这个程序的界面做的好看一些--论坛有很多美化窗体的帖子--不妨深入多学一些。                                
完啦----老农喝老酒去喽----你慢慢玩吧。祝各位天天开心愉快!!!
搜索更多相关主题的帖子: 中文 搜索引擎 汉语 下一步 控制面板 
2013-11-23 16:11
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
得分:10 
楼主,我明天试试,先谢谢你!

不怕错误,只怕知错不改.
2013-11-24 22:12
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:10 
入门教材

无知
2013-11-25 13:48
lv842586821
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-11-27
得分:0 
比入门还入门。什么都有
2013-11-27 10:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-424066-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019356 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved