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

CHUNG TAY GÓP SỨC XÂY DỰNG VỮNG MẠNH
 
ABCIndexTrợ 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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑
Admin
Admin


Tổng số bài gửi : 37
Join date : 09/03/2011
Age : 25
Đế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.com
 
Chay Nguoc
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» 10ĐIỀU CẦN BIẾT VỀ IPAD 2
» Chữa cháy trên biển
» Các bài toán chạy tàu
» Tóm tắt nội dung công ước SOLAS
» Các ứng dụng hàng hải dùng cho iPhone, iPad, iPod touch

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