THCS Quang Trung_Điện Bàn_Quảng Nam

Chào mừng các bạn đến với diễn đàn của Trường THCS Quang Trung_Điện Bàn
 
IndexCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Đếm từng giây bằng VBscript

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
congtuan_luckyboy1996
Chuyên gia Spamer
Chuyên gia Spamer


Nam
Tổng số bài gửi : 111
Age : 20
Đến từ : 7/3, THCS Quang Trung, Vĩnh Điện, Điện Bàn, Quãng Nam, Việt Nam, Châu Á, Trái Đất, Ngân Hà hok bit
Registration date : 29/12/2008

Bài gửiTiêu đề: Đếm từng giây bằng VBscript   Thu Jan 08, 2009 8:09 pm

Bạn có muốn đếm từng giây ngay trên màn hình Desktop hay không . Để thực hiện điều mà bạn

muốn .

Bạn mở Notepad và chép đoạn mã dưới đây vào :

Option Explicit

On Error Resume Next

Dim timerID, now, nowMonth, nowDate, nowYear, nowHour, nowMinute, nowSecond, Elapsed,

WshShell, CRLF

Dim thisYear, lpyra, lpyrb, issue, yearsPast, total, mns, scs, temp2, doLoop, btnCode, insStr

timerID = 0

CRLF = Chr(13) & Chr(10)

doLoop = TRUE

Set WshShell = CreateObject( "WScript.Shell" )

insStr = CRLF & CRLF & "Press OK to Stop"

' Main

While doLoop = TRUE

If stardate() = 1 Then ' drop out of loop if OK clicked

doLoop = FALSE

End If

WEnd

Function stardate()

now = Date()

nowMonth = Month(now) - 1 'subtract cos so Jan=0 not 1 to be consistent with getMonth Vb

function

nowDate = Day(now)

nowYear = Year(now) + 1900

now = Time()

nowHour = Hour(now)

nowMinute = Minute(now)

nowSecond = Second(now)

now = 0

Elapsed = nowSecond + 60 * (nowMinute) + 3600 * (nowHour) +86400 * (nowDate - 1)

If (nowMonth>10) Then

Elapsed = Elapsed + (86400*334)

Else If (nowMonth>9) Then

Elapsed = Elapsed + (86400*304)

Else If (nowMonth>Cool Then

Elapsed = Elapsed + (86400*273)

Else If (nowMonth>7) Then

Elapsed = Elapsed + (86400*243)

Else If (nowMonth>6) Then

Elapsed = Elapsed + (86400*212)

Else If (nowMonth>5) Then

Elapsed = Elapsed + (86400*181)

Else If (nowMonth>4) Then

Elapsed = Elapsed + (86400*151)

Else If (nowMonth>3) Then

Elapsed = Elapsed + (86400*120)

Else If (nowMonth>2) Then

Elapsed = Elapsed + (86400*90)

Else If (nowMonth>1) Then

Elapsed = Elapsed + (86400*59)

Else If (nowMonth>0) Then

Elapsed = Elapsed + (86400*31)

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

If (nowYear>2100) Then

nowYear = nowYear-1900

End If

thisYear = Round( Elapsed / 315.36) / 100

lpyra= Round(nowYear/400)

lpyrb= nowYear/400

If (lpyra=lpyrb) Then

If (nowMonth>2) Then

Elapsed = Elapsed + (86400)

End If

End If

issue = Round(((nowYear-2323)/100)-.5)

yearsPast = (nowYear - (2323+(issue * 100))) * 1000

total = thisYear+yearsPast

If (nowMinute<10) Then

mns="0"

Else mns=""

End If

If (nowSecond<10) Then

scs="0"

Else scs=""

End If

temp2 = "[" & issue & "] " & total & " " & nowHour & ":" & mns & nowMinute & ":" & scs &

nowSecond & insStr

stardate = WshShell.Popup( temp2, 1, "StarDate", 0)

End Function

Lưu tập tin này lại và đặt tên là counttime.vbs
Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven
Về Đầu Trang Go down
Xem lý lịch thành viên http://hacker.yourme.net/
 
Đếm từng giây bằng VBscript
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
THCS Quang Trung_Điện Bàn_Quảng Nam :: Học Tập :: Tin học trẻ-
Chuyển đến