Phần mềm hẹn giờ nhắc nhở công việc cần làm

Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập


Welcome to Forums Haku
Chào mừng các bạn đến với diễn đàn
Chúc các bạn có những giờ phút thư giãn thoải mái tại diễn đàn
Chúc các bạn luôn thành công trong cuộc sống

<--Code by Admin Haku -->

Share|
Tiêu đề

Phần mềm hẹn giờ nhắc nhở công việc cần làm

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

Admin
Member
avatar

Tổng bài gửi : 1074
Được Cảm Ơn : 538
Đến từ : Hà Ná»™i
Tài năng của Admin
Hạng: Member
Level:1074
Tài năng:/300


Tài Sản
Huân Chương: PhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucket

Bài gửiTiêu đề: Phần mềm hẹn giờ nhắc nhở công việc cần làm Fri Nov 02, 2012 1:21 am

  • Phần mềm hẹn giờ nhắc nhở công việc cần làm




Dowload: Click here



Code:

Code:
#include <GUIConstants.au3>
Opt("GUIOnEventMode",1)
dim $time
dim $l
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Đồng hồ báo thức, nhắc nhở công việc cần làm", 362, 159, 193, 115)
$gio=GUICtrlCreateInput("", 88, 24, 57, 21)
GUICtrlSetLimit(-1,999999999)
$phut=GUICtrlCreateInput("", 176, 24, 49, 21)
GUICtrlSetLimit(-1,999999999)
$giay=GUICtrlCreateInput("", 266, 26, 57, 21)
GUICtrlSetLimit(-1,999999999)
$am=GUICtrlCreateInput("", 88, 72, 241, 21)
GUICtrlSetLimit(-1,9999)
$Bao = GUICtrlCreateLabel("Báo sau :", 8, 24, 71, 17)
$g = GUICtrlCreateLabel("Giờ", 152, 32, 20, 17)
$p = GUICtrlCreateLabel("Phút", 232, 32, 26, 17)
$s = GUICtrlCreateLabel("Giây", 329, 31, 25, 17)
$Button1 = GUICtrlCreateButton("Start", 88, 120, 81, 33, 0)
GUICtrlSetOnEvent(-1,"Start")
$td = GUICtrlCreateLabel("Thông Điệp :", 8, 80, 71, 17)
$Help = GUICtrlCreateButton("Chú ý", 247, 120, 81, 33, 0)
GUICtrlSetOnEvent(-1,"Help")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Func Start()
    $am=GUICtrlRead($am)
    $gio = GUICtrlRead($gio)
    $phut = GUICtrlRead($phut)
    $giay = GUICtrlRead($giay)
    $time = $gio*3600000+$phut*60000+$giay*1000
    sleep($time)
    $Frequency = 500   
$Duration = 2000   
Beep($Frequency, $Duration)
    For $n=1 to 999999999
    ToolTip($am)
    sleep(20)
Next
msgbox(0,"Goodbye","Hẹn gặp lại bạn")
EndFunc
Func Help()
    msgbox(0,"Help","Haku.4rumer.com _ Clock 1.0"& @CRLF&"Trong ô Thông điệp bạn gõ thông điệp khi đến thời gian báo."& @CRLF&"Ví dụ :"& @CRLF&"Đến giờ học rồi!            Muốn thoát nhìn góc phải màn hình chọn lose")
    EndFunc


Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://haku.4rumer.com

Tiêu đề

Phần mềm hẹn giờ nhắc nhở công việc cần làm

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
Forum Häkü Cộng Đồng Chém Gió :: CONG NGHE THONG TIN :: Thủ thuật-