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


CHUNG TAY GÓP SỨC XÂY DỰNG VỮNG MẠNH
 
ABCTrang ChínhTìm kiếmLatest imagesĐă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!!! ^_^

Tìm kiếm
 
 

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

» sfgdsfhdghdghd
Chay Nguoc I_icon_minitimeThu 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
Chay Nguoc I_icon_minitimeThu 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
Chay Nguoc I_icon_minitimeThu 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
Chay Nguoc I_icon_minitimeThu 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
Chay Nguoc I_icon_minitimeThu Apr 07, 2011 12:34 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

» Quan điểm của chủ nghĩa Mác về con người
Chay Nguoc I_icon_minitimeThu 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
Chay Nguoc I_icon_minitimeThu Apr 07, 2011 12:31 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

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

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

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

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

» Tiểu luận "Nền kinh tế thị trường"
Chay Nguoc I_icon_minitimeTue 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)
Chay Nguoc I_icon_minitimeTue 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ì
Chay Nguoc I_icon_minitimeTue Apr 05, 2011 1:59 am by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑

Affiliates
free forum

Chay Nguoc
Chay Nguoc I_icon_minitimeSun Mar 13, 2011 10:53 pm by ๑۩۞۩๑ (¯`•admin•´¯) ๑۩۞۩๑
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

Chay Nguoc Chaynguoc


Link Download
PASS:hoanggialongit


Comments: 0
Statistics
Diễn Đàn hiện có 4 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: vokimthong

Tổng số bài viết đã gửi vào diễn đàn là 37 in 32 subjects
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 20 người, vào ngày Sun Apr 30, 2023 12:35 pm
Đă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