๑۩۞۩๑ (¯`•NGÔI NHÀ TRI THỨC•´¯) ๑۩۞۩๑

CHUNG TAY GÓP SỨC XÂY DỰNG VỮNG MẠNH
 
ABCTrang ChínhTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Chào mừng bạn đến với F..O..4..U...M!! ^_^ KHÔNG CÓ GÌ GỌI LÀ KHÔNG THỂ , CHỈ LƯỜI HỌC MÀ THÔI!!! ^_^
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Bia Bia Bia Bia
Thu Jun 02, 2011 12:16 pm by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» sfgdsfhdghdghd
Thu Jun 02, 2011 11:40 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Máy móc đạt công nghiệp và vai trò của nó đối với VN
Thu Apr 07, 2011 12:38 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Mâu thuẫn biện chứng trong quá trình XD nền kinh tế thị trường theo định hướng XHCN ở VN
Thu Apr 07, 2011 12:37 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Lý luận thực tiễn và sự vận dụng quan điểm đó vào quá trình đổi mới ở VN
Thu Apr 07, 2011 12:36 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Lý luận nhận thức, vận dụng quan điểm đó cho sự phát triển của KT VN trước và sau mười năm đổi mới đến nay
Thu Apr 07, 2011 12:34 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Quan điểm của chủ nghĩa Mác về con người
Thu Apr 07, 2011 12:33 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Lý luận của chủ nghĩa Mác con người và vấn đề con người trong sự nghiệp CNH - HĐH đất nước
Thu Apr 07, 2011 12:31 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» LLSX và các quan hệ SX
Thu Apr 07, 2011 12:30 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Công pháp và tư pháp trong hiến pháp TBCN
Thu Apr 07, 2011 12:28 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

»  Đấu tranh giai cấp
Thu Apr 07, 2011 12:27 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Bản sắc dân tộc trong nền KT mở
Thu Apr 07, 2011 12:26 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Tiểu luận "Nền kinh tế thị trường"
Tue Apr 05, 2011 2:03 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Sáu bài học lý luận chính trị của Đoàn TNCS Hồ Chí Minh (Bài 5: Hệ thống chính trị ở nước ta)
Tue Apr 05, 2011 2:00 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Sáu bài học lý luận chính trị của Đoàn TNCS Hồ Chí Minh (Bài 4: Đường lối phát triển kinh tế-xã hội bảo đảm quốc phòng, an ninh nước ta trong tình hì
Tue Apr 05, 2011 1:59 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

Similar topics
    Dem Thoi Gian
    Mon Mar 14, 2011 4:59 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑
    Công sức đó hen !!!! lol!
    Bạn hãy …


    [ Full reading ]
    Comments: 0
    Chay Nguoc
    Sun Mar 13, 2011 10:53 pm by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑
    VisualBasic Chay Nguoc thoi gian
    Dim i As …


    [ Full reading ]
    Comments: 0
    Tinh Tong Giai Thua 1+1/2!+...+1/n!
    Thu Mar 10, 2011 3:50 pm by vanphucankhang
    Private Sub cmdtinh_Click(Index As Integer)
    Dim …

    [ Full reading ]
    Comments: 0
    Tổng Phần Tử..1+1/2.+..+1/n
    Thu Mar 10, 2011 2:18 pm by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑
    Dim i,tong As Integer
    n=Val(Textn.Text)
    tong=0


    [ Full reading ]
    Comments: 0
    Navigation
     Portal
     Diễn Đàn
     Thành viên
     Lý lịch
     Trợ giúp
     Tìm kiếm

    Share | 
     

     Chay Nguoc

    Go down 
    Tác giảThông điệp
    ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑
    Admin
    Admin
    ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

    Tổng số bài gửi : 37
    Join date : 09/03/2011
    Age : 27
    Đến từ : Phú Yên

    Bài gửiTiêu đề: Chay Nguoc   Sun Mar 13, 2011 10:53 pm

    VisualBasic Chay Nguoc thoi gian
    Dim i As Long


    ----------------------

    Private Sub cmdend_Click()
    Command1.Visible = True
    cmdend.Visible = False
    End Sub
    -----------------------

    Private Sub Command1_Click()
    Timer1.Interval = 1000
    End Sub
    -----------------------

    Private Sub Timer1_Timer()
    Dim a As Integer
    a = 100
    'qua trinh dang nhap
    Command1.Visible = False
    cmdend.Visible = True

    If txtid = "admin" And txtpass = "123456" Then
    lblid.Visible = False
    lblpass.Visible = False
    txtid.Visible = False
    txtpass.Visible = False
    txttg.Visible = True
    'khai bao ID
    ElseIf txtid <> "admin" Then
    Timer1.Interval = 0
    MsgBox "Ban da nhap sai ID", vbApplicationModal, "Thong Bao"
    'Khai bao PASS
    ElseIf txtpass <> "123456" Then
    Timer1.Interval = 0
    MsgBox "Ban da nhap sai PASS", vbApplicationModal, "Thong Bao"
    Else
    Timer1.Interval = 0
    MsgBox "Sai Hoan Toan"
    End If

    ' qua trinh the hien

    txttg.Text = Val(a) - i & " % "
    i = i + 1
    If Val(txttg.Text) = "0" Then
    Timer1.Interval = 0
    txttg.Visible = False
    lbltb.Visible = True
    lbltb.Caption = "Loading..."
    End If

    End Sub



    Link Download
    PASS:hoanggialongit

    _________________
    ๑۩۞۩๑ (¯`• ANH KHOA •´¯) ๑۩۞۩๑
    Về Đầu Trang Go down
    Xem lý lịch thành viên http://trananhkhoa.forumvi.net
     
    Chay Nguoc
    Về Đầu Trang 
    Trang 1 trong tổng số 1 trang
     Similar topics
    -
    » 0982508992, Máy bơm nước chạy xăng WB20XT, bơm xăng WB 30XT, máy bơm bùn động cơ xăng, đầm dùi, đầm bàn chạy xăng

    Permissions in this forum:Bạn không có quyền trả lời bài viết
    ๑۩۞۩๑ (¯`•NGÔI NHÀ TRI THỨC•´¯) ๑۩۞۩๑ :: ๑۩۞۩๑ CHUYÊN MỤC - HỌC TẬP ๑۩۞۩๑ :: ๑۩۞۩๑ VISUAL BASIC 6.0 ๑۩۞۩๑-
    Chuyển đến