<center>
<font color="ffaafa">
<h2><font color="#FF00FF"><b>报时</b></font></h2>
</font>
<hr width=80%>
<input type='button' onclick='showclock()' value='报时'/>
<span id=liveclock style=position:absolute;left:250px;top:122px;; width: 109px; height: 15px>
</span>
</center>
<script>
var showclock=function(){
function DandTArray()
{
for(i=0;i<DandTArrayargumentslength; i++)
this[i] = DandTArrayarguments[i];
}
var DandTMonths=new DandTArray("1","2","3","4","5","6","7","8","9","10","11","12");
var DandTDays= new DandTArray("星期日","星期一","星期二","星期三","星期四","星期五","星期六","星期日");
var Now=new Date();
var hrs=NowgetHours();
var min=NowgetMinutes();
var sec=NowgetSeconds();
var DandTClockh=""+((hrs>12)hrs-12:hrs);
var DandTClockm=((min<10)"0":"")+min;
var DandTClocks=((sec<10)"0":"")+sec;
var DandTClock=(hrs>=12)"PM":"AM";
liveclockinnerHTML="当前系统的日期和时间分别是:"
+NowgetYear()+"年"+DandTMonths[NowgetMonth()]+"月"+NowgetDate()+"日 "+DandTDays[NowgetDay()]+", "+DandTClockh+":"+DandTClockm+":"+DandTClocks+" "+DandTClock;
setTimeout(showclock,1000);
}
</script>
自己写的,希望有所帮助。
首先 在窗体上添加控件 组合框控件命名为:ComboName
显示单位控件:Chkdanwei
显示地址控件:Chkdizhi
电话文本框:TxtTel
单位文本框:Txtdanwei
地址文本框:Txtdizhi
添加人员按钮:默认
然后直接复制下面的代码就OK了
Option Explicit
Private Type tongxunlu
MunName As String
tel As String
danwei As String
dizhi As String
End Type
Dim a(100) As tongxunlu
Dim n As Integer
Dim x As Integer
Private Sub Chkdanwei_Click()
If ChkdanweiValue = 1 Then
TxtdanweiText = a(x)danwei
Else
TxtdanweiText = ""
End If
End Sub
Private Sub Chkdizhi_Click()
If ChkdizhiValue = 1 Then
TxtdizhiText = a(x)dizhi
Else
TxtdizhiText = ""
End If
End Sub
Private Sub ComboName_Click()
x = ComboNameListIndex
TxtTelText = a(x)tel
End Sub
Private Sub Command1_Click()
a(n)MunName = InputBox("请输入姓名")
a(n)tel = InputBox("请输入电话号码")
a(n)danwei = InputBox("请输入工作单位")
a(n)dizhi = InputBox("请输入家庭地址")
If a(n)MunName = "" Or a(n)tel = "" Or a(n)danwei = "" Or a(n)dizhi = "" Then GoTo 99
ComboNameAddItem a(n)MunName
ComboNameListIndex = n
n = n + 1
99 End Sub
Private Sub Form_Load()
n = 0
End Sub
一、显示刷新率设置不正确
如果是刷新率设置过低,会导致屏幕抖动,检查方法是用鼠标右键单击系统桌面的空白区域,从dan出的右键菜单中单击“属性”命令,进入到显示器的属性设置窗口。单击该窗口中的“设置”标签,在其后dan出的对应标签页面中单击“高级”按钮,打开显示器的高级属性设置界面,再单击其中的“jian视器”标签,从中可以看到显示器的刷新频率设置为“60” ,这正是造成显示器屏幕不断抖动的原因。将新频率设置为“75”以上,再点击确定返回桌面就可以了。
其实显示器屏幕抖动最主要的原因就是显示器的刷新频率设置低于75Hz造成的,此时屏幕常会出现抖动、闪烁的现象,我们只需把刷新率调高到75Hz以上,那么屏幕抖动的现象就不会再出现了。
二、显卡驱动程序不正确
有时我们进入电脑的显示器刷新频率时,却发现没有刷新频率可供选择,这就是由于前显卡的驱动程序不正确或太旧造成的。购买时间较早的电脑容易出现这个问题,此时不要再使用购买电脑时所配光盘中的驱动,可到网上下载对应显示卡的最新版驱动程序,然后打开“系统”的属性窗口,单击“硬件”窗口中的“设备管理器”按钮,进入系统的设备列表界面。用鼠标右键单击该界面中的显示卡选项,从dan出的右键菜单中单击“属性”命令,然后在dan出的显卡属性设置窗口中,单击“驱动程序”标签,再在对应标签页面中单击“更新驱动程序”按钮,以后根据向导提示逐步将显卡驱动程序更新到最新版本,最后将计算机系统重新启动了一下,如果驱动安装合适,就会出现显示器刷新频率选择项了,再将刷新率设置成75Hz以上即可。
三、磁场干扰造成显示器抖动
显示器很容易受到强电场或强磁场的干扰,如果使用上面介绍的两种方法仍然不能解决抖动问题,那么就应该怀疑屏幕抖动是由显示器附近的磁场或电场引起的。为了将显示器周围的一切干扰排除干净,可将计算机搬到一张四周都空荡荡的桌子上,然后进行开机测试,如果屏幕抖动的现象消失,那么说明你电脑原来的地方有强电场或强磁场干扰,请将可疑的东西(如音箱的低音炮、磁化杯子等)从电脑附近拿手。然后把显示器关掉再重开几次,以达到消磁的目的(现在的显示器在打开时均具有自动消磁功能)。
四、显示卡接触不良
打开机箱,将显示卡从插槽中拔出来,然后用手将显示卡金手指处的灰尘抹干净,最好找来柔软的细毛刷,轻轻将显卡表面的灰尘全部清除干净,然后再用干净的橡皮在金手指表面擦拭了几下,以清除金手指表面的氧化层,最后将将显示卡重新紧密地插入到主板插槽中,用螺钉将它固定在机箱外壳上。再开机进行测试,一般故障能够解决。
五、显示器老化
有时由于使用的显示器年岁已高,也会出现 抖动现象。为了检验显示器内部的电子元件是否老化,可将故障的显示器连接到别人的计算机上进行测试,如果故障仍然消失,说明显示器已坏,需要修理。
六、劣质电源或电源设备已经老化
许多杂牌电脑电源所使用的元件做工、用料均很差,易造成电脑的电路不畅或供电能力跟不上,当系统繁忙时,显示器尤其会出现屏幕抖动的现象。电脑的电源设备开始老化时,也容易造成相同的问题。此时可更换电源进行测试。
七、病毒作怪
有些计算机病毒会扰乱屏幕显示,比如:字符倒置、屏幕抖动、图形翻转显示等。网上随处可见的屏幕抖动脚本,不信您试试下面的脚本,把如下代码加入区域中,然后存为Html文件
格蕾丝·赫柏(Grace Murray Hopper):计算机程序之母
其他IT名人
1、马克·安德森(Marc Andreessen):互联网浏览器之父,Netscape创始人之一
2、埃里克·施密特(Eric Schmidt):Google公司董事长兼CEO
3、杰夫·贝佐斯(Jeff Bezos):全球最大电子商务网站Amazon创始人
4、斯蒂夫·凯斯(Steve Case):最大互联网公司AOL创始人、AOL时代华纳共同主席
5、吉姆·克拉克(Jim Clark):最成功的互联网创业家,SGI、Netscape创始人、主席
6、罗鲍·盖斯勒(Rob Glaser):全球最大网络视频技术公司RealNetworks创始人、主席兼CEO
7、哈尔西·米纳(Halsey Minor):全球最大IT网站Cnet创始人、名誉主席
8、皮埃尔·奥米迪亚尔(Pierre Omidyar)、梅格·惠特曼(Meg Whitman):
全球最大拍卖网站eBay创始人、主席和CEO
9、孙正义(Masayoshi Son):全球最成功的互联网投资家,Softbank公司创始人
10、蒂姆·伯纳斯·李(Tim Berners-Lee):>
以上就是关于网页设计 设计报时程序,单机页面中的【报时】按钮,显示当前机内的日期和时间 JavaScript全部的内容,包括:网页设计 设计报时程序,单机页面中的【报时】按钮,显示当前机内的日期和时间 JavaScript、设计一个“通讯录”程序vb、刺客信条起源水下闪屏等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)