如何用VB2005作一个此时此刻离北京2008奥运会开幕式(2008年8月8日)的倒计时?
北京奥运会的开幕式从2008年8月8日晚20时开始,到晚上23时30分结束,共历时3小时30分合计210分钟。
编程:2008奥运倒计时2006-10-10 08:46'注:奥运会开幕时间2008年8月8日晚8点
'添加1个Timer 和一个Label
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
aoyun = #8/8/2008#
a = 19 - Hour(Time)
b = DateDiff("d", Now, aoyun) - 1
If a < 0 Then
a = 24 + a
b = b - 1
End If
Label1 = "距离奥运开幕还有" & b & "天" & a & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub
终于来到了天安门广场,广场上已经是人山人海了。人们挥舞着彩旗,高唱着国歌,将红旗图案的油彩涂在脸上。我还来不及做出反应,一个女孩就把我紧紧地抱住了。她的双肩微微地颤动着,眼角还挂着激动的泪水。
那个晚上,奥运将我们这些陌生人聚集在了一起。那个晚上,奥运和我从此紧紧地联系在了一起。
在这之前,老师就教给了我们许多关于奥运的单词。诸如人文奥运等词汇,至今我仍记忆犹新。在这以后的几年里,那些单词真的派上了用场。随着奥运会的临近,越来越多的外国友人来到中国旅游或是定居,我也因此获得了与他们交流的机会。走在路上,常常有外国人向我问路。每次我总不忘在告诉他们具体路线后,加上“Welcome to Beijing!We will hold the Olympic Games.”每当看到他们真切的笑容,我就知道北京又多了几位奥运支持者。
我参加过几个与奥运有关的绘画比赛,并取得了不错的成绩。我的获奖作品画的是一些简化的小人在奥运的五环中做着各种各样的体育运动。通过这些比赛,我不仅提升了画功,更了解了许多奥运知识。在这之前,我对奥运几乎是一无所知。为了画出更好的作品,我查阅了许多与奥运有关的书籍,浏览了不少相关网页。我了解到,奥运会并不只是一个单纯的竞技比赛,它更是连接各国人民团结的纽带,是各国健儿们为国争光的机遇。由于比赛成绩不错,我获得了参与绘画奥运长卷的机会。当我手持画笔,蹲在长卷上作画时,我格外小心。我用笔很重,希望把我对奥运的全部情感都倾注于这幅作品之中。当这幅长卷被展示在公园的墙壁上,我很高兴,我骄傲地对妈妈说:“我也能为奥运做贡献了!”
现在我正努力地提高自己的英语水平,并尽可能地多掌握各种体育词汇。我开始留意以前从不观看的体育节目,并从中慢慢领会到了运动的乐趣。我所做的一切都是为了报名奥运会志愿者而做好准备,以最直接的方式服务于奥运会。
看着徽章上代表奥运的五环,我想它像是一条首尾相连的纽带,一头连着我,一头连着北京。我相信每个北京人都希望能为北京奥运献出自己的一份力量,让外国友人能够一睹北京的风采,让全世界的人都看到北京的辉煌!
Private Sub Timer1_Timer()
Dim d As String, h As String, m As String
d = Format(DateDiff("d", Now, #8/8/2008 8:08:08 AM#)) - 1
h = 24 - Hour(Time) + 7
If Hour(Time) > 8 Then h = 24 - Hour(Time) + 7
If Hour(Time) <= 8 Then h = 8 - Hour(Time)
Label1.Caption = "此时此刻距离北京2008奥运会开幕还有" & d & "天" & h & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub
用TIMER控件做不就可以了,其实很简单的,TIMER的interval=1000,然后你的秒减60的时候清空,分减一,分减到60的时候,时减一,时减到24的时候天减一不就可以了。
楼上时间还是不对。
Dim t As Date
Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
t = "2008/8/8 20:8:0"
End Sub
Private Sub Timer1_Timer()
Dim tm As Date, lngSec As Long
tm = t - Now
lngSec = DateDiff("s", Now, t)
If lngSec <= 0 Then tm = "0:0:0"
Label1.Caption = "现在离北京2008奥运会还有" & Format(lngSec \ (86400), "00") & "天" & Format(Hour(tm), "00") & "小时" & Format(Minute(tm), "00") & "分钟" & Format(Second(tm), "00") & "秒"
End Sub
Private Sub Timer1_Timer()
Dim d As String, h As String, m As String
d = Format(DateDiff("d", Now, #8/8/2008 8:08:08 AM#)) - 1
h = 24 - Hour(Time) + 7
If Hour(Time) > 8 Then h = 24 - Hour(Time) + 7
If Hour(Time) <= 8 Then h = 8 - Hour(Time)
Label1.Caption = "此时此刻距离北京2008奥运会开幕还有" & d & "天" & h & "小时" & 59 - Minute
分段递进学习VB2005内容简介
如果你想深入理解并掌握VisualBasic2005,那么《分段递进学习VB2005》是一本绝佳的指南。这本书以循序渐进的方式,精心设计了基础篇、拓展篇和专题篇,帮助你逐步掌握编程的基础知识和面向对象的编程理念。作者运用生动且易于理解的语言,配以丰富的实例,确保你在轻松愉快的阅读中建立起坚实的理论基础。无论...
关于VB6和VB05的问题
如果你最终打算使用 VB2005 的话,尽早开始学习 VB2005 吧。VB6 和 VB2005 在使用中有很多地方是不同的,早接触早熟悉。BTW:最快的学习方法就是找一个合适的题目去做。
VB2005 和VS2005的区别
不存在vb2005 vb是一门语言的名字 版本号用的最多的就是 vb6 和vb.net vs2005是一个集成开发工具,里面提供了各种语言的编译和编辑工具 vs2005工具可以用来开发vb.net程序 使用的.net版本是 framework2.0
什么是VB编程 高分悬赏
vb编程就是用vb的编译工具(如vb6.0,vb2005)编写vb程序 从编译环境(工具)的安装到编程简单介绍一下,以便有个大概印象 一.安装vb6.0,一般教材都以此版本为例.这个步骤就像玩游戏时得按个客户端一样 二.vb程序编出来的效果和windows里的窗口差不多,有按钮,有选择框,文本框等等 三.vb是面向对象的,...
VB2005和VB6.0有什么区别啊?
你要是新学VB的,就不要再去看那老古董的VB6,现在的VB8(2005)已经提升很大(主要是MS力挺的),而且对各方面的支持也不像VB6那样(VB6程序需要带个运行库)还有就是语句向C#\/C++方面靠拢,比如 while True wend 改成了 While True End While 而且现在支持 dim i as integer=0 i+=1 这种方法。...
这个几个有区别吗?VB6.0 .VB.NET .VB2005 .VB2008
有区别哦 既然现在用VB 如果是个人爱好 那就无需转啦 最好解决问题才是关键 VB.NET 是后面的统称 VB.NET现发行的2003、2005、2008、2010版本 最主要是VB.NET 的发布需要对应的的net framework 框架(主要是这个东东巨大-.-)比较郁闷
vb2005的sub或function怎么返回数组?
二维Double这样写:Public Class Form1 Private Sub test(ByRef arr(,) As Double)Dim i As Integer For i = 0 To 3 arr(i, 1) = i Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim arr(3, 3) As ...
VB2005如何自动播放图片 使用Timer控件无按钮
先说明,我用的不是VB2005,但我觉得 思路、代码上大致是一样的。界面上 放一个 Timer控件(Timer1)、PictureBox控件(Picture1)’---然后就下面代码放进去 Private Sub Form_Load()Timer1.Interval = 500 End Sub Private Sub Timer1_Timer()Static i As Integer i = i + 1 Select Case i ...
VB2005 怎么获取音乐文件属性的详细信息
读取详细信息需要打开MP3文件流,读取里面的 ID3v1 或 ID3v2标签。里面含有MP3的标题、艺术家、流派、年代、专辑名、专辑图片等等。读取长度可能就要用专门的MP3解码器了,用Windows API里面的mciSendString函数也是可以的 这个问题的具体做法比较复杂,就不在这里给你详细代码了,你可以根据我说的内容自己到...
vb6.0版本跟VS2005中的VB2005写的代码有多少区别?
语法上改变不大,只不过完全面向对象了。但架构不同,VB6用的是API,VB2005用的是.net.
宿胀鱼腥: 3个标签,2个按钮,1个计时器控件 Private Sub Command1_Click() '开始/暂停 If Timer1.Enabled = True Then Timer1.Enabled = False Else Timer1.Enabled = True End If End Sub Private Sub Command2_Click() '停止清0 Label1 = "0" ...
即墨市18696139226: 求VB高手怎样用VB做一个毫秒级时钟? - ?
宿胀鱼腥: 建一个Timer1. 代码如下. ================= Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIMEwYear As IntegerwMonth As IntegerwDayOfWeek As IntegerwDay As ...
即墨市18696139226: 用VB作一个简单的倒计时?
宿胀鱼腥: 在表单上添加一个timer和和一个label控件 time控件的inteval设置为1000(即1秒) 然后在time的Timer()事件编写如下代码: label1.caption = trim(str(hour(time())))+"时"+trim(str(minute(time())))+"分"+trim(str(second(time())))+"秒" 就可以了
即墨市18696139226: 怎样用VB做一个最简单的时钟? - ?
宿胀鱼腥: 在窗体上画一个Label和一个计时器,写下如下代码,即可. Private Sub Form_Load() Timer1.Interval = 2000 Timer1.Enabled = True Label1.Caption = Time End SubPrivate Sub Timer1_Timer() Label1.Caption = Time End Sub
即墨市18696139226: 如何用VB中的时间控件做一个计时器? - ?
宿胀鱼腥: timer1.interval=1000 private sub timer1_timer() t=t+1 sec=t mod 60 min=(t-sec)/60 label1.caption=str(min)+":"+str(sec) end sub
即墨市18696139226: 在vb中,在form1中有一个进度条和timer,用timer控制进度条,14秒时间结束,进度条消失.代码怎么写呢? - ?
宿胀鱼腥: '自己换成进度条稍作修改即可 Private Sub Form_Load() HScroll1.Max = 14 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static n If n = 15 Then Timer1.Interval = 0 HScroll1.Visible = False Exit Sub End If HScroll1.Value = n n = n + 1 End Sub
即墨市18696139226: 求一个VB计时器代码!?
宿胀鱼腥: '与楼上效果一样 Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static a As Long Me.Cls Me.FontSize = 20 Me.ForeColor = &HFF& Me.CurrentX = 1000 Me.CurrentY = 1000 a = a + 1 Print "计时: " & Format(a, "00") End Sub一个按钮和计时器就可以了
即墨市18696139226: 用vb程序设计一个数字表用以显示当天日期时间,怎样作呀? - ?
宿胀鱼腥: '添加1个标签(Label),1个计时器(timer),把计时器的interval属性设置为1000 private sub timer1_timer() label1.caption = now end sub
即墨市18696139226: 怎样用VB编一个倒计时程序 - ?
宿胀鱼腥: 简单的倒数程序代码 Private Sub Form_Load() Label1.Caption = 60 End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 End Sub 至于时间倒计时.== Private Sub Form_Load() Label1.Caption = Format(Now, "hh:mm:ss")...
即墨市18696139226: vb中作个定时器用来记录每天的产量,到了第2天保存第一天的产量 - ?
宿胀鱼腥: dim nowday as date nowday = date private sub timer1.timer() if nowdaydate then'说明到了第二天了 nowday=date'数据库更新代码 end if end sub