Chủ Nhật, 9 tháng 5, 2010
Chủ Nhật, 2 tháng 5, 2010
Mơ ước
+Hãy xem đoạn video này và hãy suy nghĩ!
Lang thang trên mạng tình cờ gặp được cái này! Chợt nhận ra mình cũng có ước mơ nhưng vẫn chưa thực hiện được. có lẽ bây giờ mình sẽ thực hiện ước mơ và tìm thêm ước mơ để thực hiện. Ai đọc được bài này thì cũng nên làm như vậy nhé! Bởi vì sống mà không có ước mơ và hoài bão thì thật là tẽ nhạt. Và có ước mơ mà không thực hiện được thì thật là vô dụng.
Thứ Sáu, 9 tháng 4, 2010
Thuật toán tìm bao đóng (visual basic 6)
Hàm tìm bao đóng viết bằng vb.net! anh em xem thử có gì sai sót thì nhắc mình nhé!
Shared Function timbaodong(ByVal str As String)
Dim qh As DataTable
Dim pth As DataTable
qh = ketnoi.sql("select * from ldqh") 'lay ra các luoc do quan he
pth = ketnoi.sql("select * from dm_pthpq") 'tap pth cua cac luoc do qh
Dim co(100) As Boolean 'bien co kiem tra pth da xet hay chua
Dim i
For i = 0 To pth.Rows.Count - 1 'ban dau thi tat ca cac pth deu chua dc xet
co(i) = True
Next
Dim kt = True 'kiem tra xem trong lan duyet dó bao dong có đc them vao thuoc tinh moi hay ko?
While kt = True
kt = False
For i = 0 To pth.Rows.Count - 1
If co(i) = True And chuoi_chua_chuoi(str, pth.Rows(i).Item("vt")) = True Then
str = noichuoi(str, pth.Rows(i).Item("vp")) 'hop chuoi
kt = True
co(i) = False
End If
Next
End While
Return str 'kq bao đóng
End Function
--------------------------------------http://muckich.blogspot.com/----------------------------------------
Thứ Ba, 6 tháng 4, 2010
