๑۩۞۩๑ (¯`•NGÔI NHÀ TRI THỨC•´¯) ๑۩۞۩๑
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

๑۩۞۩๑ (¯`•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!!! ^_^
Đă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
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•´¯) ๑۩۞۩๑

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


[ Full reading ]
Comments: 0
Chay Nguoc
Chay Nguoc I_icon_minitimeSun 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!
Chay Nguoc I_icon_minitimeThu 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
Chay Nguoc I_icon_minitimeThu 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

 

 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 : 32
Đến từ : Phú Yên

Chay Nguoc Empty
Bài gửiTiêu đề: Chay Nguoc   Chay Nguoc I_icon_minitimeSun 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

Chay Nguoc Chaynguoc

Link Download
PASS:hoanggialongit
Về Đầu Trang Go down
https://trananhkhoa.forumvi.net
 
Chay Nguoc
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
๑۩۞۩๑ (¯`•NGÔI NHÀ TRI THỨC•´¯) ๑۩۞۩๑ :: ๑۩۞۩๑ CHUYÊN MỤC - HỌC TẬP ๑۩۞۩๑ :: ๑۩۞۩๑ VISUAL BASIC 6.0 ๑۩۞۩๑-
Chuyển đến