Chán!!!!!!!

Lâu rồi không  xem cái blog của mình!hihi.tự nhiên đọc blog người khác thấy hứng hứng.  Vừa lúc đang có tâm trạng! Thấy chán chán nên quyết định viết vài bài cho đỡ chán.:D:D

Chán!sao khi nào cũng thấy chán. cho dù suy nghĩ về bất cứ cái gì cũng thấy chán. chán từ chuyện tiền bạc. sao mình lại kẹt tiền đến như vậy? đến nỗi trong túi chỉ còn vài ngìn để gửi xe. chán vì nợ nần. chán vì khi nào cũng cảm thấy bức rức khó chịu. ko hiểu là khó chịu vì chuyện j luôn.hic! đã hai đêm phải thức trắng. phải đến 3-4 giờ sáng mới có thể ngủ được. khó hiểu thật. nằm cố ngủ mà vẫn không thể ngủ được. Nói túm lại là do CHÁN!

Chờ đợi

ĐỢI! CHỜ! chờ nhiều, đợi nhiều sẽ làm cho con người ta trở nên lì lợm hơn, quyết tâm hơn, để đạt được điều mà họ đang mong muốn. Ai cũng nói sống là phải biết chờ đợi. nhưng không phải ai cũng biết cách chờ đợi. Đợi để được gì? Có chắc là sẽ nhận được những thứ mà ta đang đợi hay không, hay sẽ nhận được những thứ trái ngược với những gì ta mong đợi? nhưng tại sao lại có nhiều người chờ đợi như vậy? có lẽ là do hy vọng. Bởi vì từ chờ đợi quá lâu mà không nhận được thứ mình mong đợi sẽ làm cho người hy vọng. Hy vọng có thể tăng thời gian chờ đợi của một người. Và tôi cũng sẽ chờ đợi. tôi có cảm giác như đang đợi. nhưng lại không biết đang đợi cái gì? hay đợi một câu nói? hay đợi ai? khó hiểu quá.nhức đầu quá. Nên có lẽ tôi phải tiếp tục đợi............

Hơi buồn nhưng nghe thật hay!

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.

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/----------------------------------------