Cùng nhau chúc mừng bác KTGG trúng giải đặc biệt xổ số kiến thiết (4 người xem)

[hoalan_chi]

Bố ơi, bữa nào cho con cầm "bàn tay vàng" của Bố tí nha. Lấy lộc may mắn của bố ấy mà ^.^

Cầm bàn tay kim cương của Chi ko Hương? sáng nay xuống Củ Chi nhặt kim cương đầy đường luôn nè

 

[Ba Tê]

"Đã còn hơn trúng số đặc biệt"
Nhưng vào ngày 1/4 thì mất đi "Đã còn hơn", thế là ...
Xin chúc mừng! Xin chúc mừng!

 

[tungnguyen_kt]

Anh tungnguyen_kt yêu dấu ơi, chiều nay anh Cadafi đem chiếc limusin qua đón em đi dự tiệc, em mới sắm bộ đồ 2 triệu để chiều nay đi dự tiệc bác KTGG, anh có đi hông thì đi chung xe em với anh Ca. Sẵn dịp chiều nay anh Ca ra mắt em với Pa kon GPE luôn đó ohhh yeaaahhhhhhh!

Hahaha......... chuyện này là sao, chiều nay anh Ca cùng tungnguyen_kt có chương trình tại Bình Dương vào lúc 5h30. Trân trọng kính mời.

 

[bechuotcoi]

Hahaha......... chuyện này là sao, chiều nay anh Ca cùng tungnguyen_kt có chương trình tại Bình Dương vào lúc 5h30. Trân trọng kính mời.

Ah vậy là anh Ca dấu anh để bí mật rước em xuống trước 5h30 để gặp anh và mọi người tại Bình Dương. Hẹn chiều nay anh em mình tái nạm nhoa

 

[tam8678]

Đâu dễ thế, trước tiên phải gẫy chân bó bột, sau đó phải mua cưa tự cưa chân.

---
Để được trúng số thì điều kiện này " nuốt không trôi" anh ơi, anh cho em hỏi trong trường hợp này thì ...code viết như thế nào ạ.

 

[ptm0412]

Để được trúng số thì điều kiện này " nuốt không trôi" anh ơi, anh cho em hỏi trong trường hợp này thì ...code viết như thế nào ạ.

Function WinLottery(Nick As Member) As Boolean
Dim FirstConditions As Boolean
Dim ConditionsList(1 to 9) As Condition

    FirstConditions = True
    ConditionsList(1) = "Té cầu thang"
    ConditionsList(2) = "Gãy chân"
    ConditionsList(3) = "Bó bột"
    ConditionsList(4) = "Có tiên tắm cho"
    ConditionsList(5) = "Có hơn 100 con gái nuôi"
    ConditionsList(6) = "Có lão chết tiệt khuyến khích"
    ConditionsList(7) = "Có ít nhất 3 ngàn đồng"
    ConditionsList(8) = "Tự cưa chân thành công"
    ConditionsList(9) = "Có tiên kẹp giò phụ cưa"

    For i = 1 to 9
        FirstConditions = FirstConditions And (Nick. Condition = ConditionsList(i))
    Next

    WinLottery =  FirstConditions

End Function

 

[Hoàng Trọng Nghĩa]

Anh tungnguyen_kt yêu dấu ơi, chiều nay anh Cadafi đem chiếc limusin qua đón em đi dự tiệc, em mới sắm bộ đồ 2 triệu để chiều nay đi dự tiệc bác KTGG, anh có đi hông thì đi chung xe em với anh Ca. Sẵn dịp chiều nay anh Ca ra mắt em với Pa kon GPE luôn đó ohhh yeaaahhhhhhh!

Tôi khoái cái câu FAMILY của chuột còi quá!

FATHER AND MOTHER IN LAW ............ YEAHHHHHHHHHHHH!

 

[tam8678]

Anh viết code quá siêu, thật đáng nể, đọc không nỗi ....., nhưng code có bị lỗi trong trường hợp phân biệt chân trái hay chân phải hoặc cả 2 chân bị gãy (trường hợp này thì có trúng số gấp đôi không) hả anh?

 

[Nguyễn Duy Tuân]

Xin được chúc mừng bác Trí nhé. Ước gì được nâng ly chúc mừng bác.

 

[ptm0412]

Thêm câu này thì hết lỗi

Define "Chân" = "Chân trái" Or "Chân phải" Or "Tay trái" Or "tay phải"

Trên đây là Function xác định có hội đủ 9 điều kiện trúng số hay không thôi, còn trúng nhiều ít thì dùng hàm sau:

Function LotteryNumber(Nick As Member) As Double

    Dim BreakCount As long
    BreakCount = Broken_Legs.Count + Broken_Arms.Count / 2
    LotteryNumber = IIf(WinLottery(Nick) = True, 10^10, 0) * BreakCount

End Function

Gẫy nhiều trúng nhiều, gãy 1 tay trúng 1/2 giải thôi

 

[bechuotcoi]

Tôi khoái cái câu FAMILY của chuột còi quá!

FATHER AND MOTHER IN LAW ............ YEAHHHHHHHHHHHH!

Khoái câu FAMILY của bechuotcoi vậy là gặp FAMILY bechuotcoi là cái khoái nhân đôi, mà gặp behuotcoi là cái khoái nhân 3 . Chiều nay xuống Bình Dương dự tiệc mừng bác KTGG rùi gặp bechuotcoi coi có khoái nhân 3 hông nhoa

 

[ngocmaipretty]

Hà, mới đi New World zìa, vui quá. Có mang theo bọc mang về 1 gói bự tổ chảng luôn. Ngó cái chân bị cưa của huynh gân thấy tội, mà cái tướng đi đứng mắc cười ghê luôn.

 

[Trần Thị Thanh Mai]

Function WinLottery(Nick As Member) As Boolean
Dim FirstConditions As Boolean
Dim ConditionsList(1 to 9) As Condition

    FirstConditions = True
    ConditionsList(1) = "Té cầu thang"
    ConditionsList(2) = "Gãy chân"
    ConditionsList(3) = "Bó bột"
    ConditionsList(4) = "Có tiên tắm cho"
    ConditionsList(5) = "Có hơn 100 con gái nuôi"
    ConditionsList(6) = "Có lão chết tiệt khuyến khích"
    ConditionsList(7) = "Có ít nhất 3 ngàn đồng"
    ConditionsList(8) = "Tự cưa chân thành công"
    ConditionsList(9) = "Có tiên kẹp giò phụ cưa"

    For i = 1 to 9
        FirstConditions = FirstConditions And (Nick. Condition = ConditionsList(i))
    Next

    WinLottery =  FirstConditions

End Function

Để được trúng số, các sư huynh lập code này nghe thấy mê luôn - Lập code mà không cải số thì không trúng số đâu? Phải kèm theo điều kiện liều mạng như thế này

ConditionsList(7) = "Có ít nhất 3 ngàn đồng"
ConditionsList(8) = "Tự cưa chân thành công"
ConditionsList(9) = "Có tiên kẹp giò phụ cưa"

Chiều qua, đi khám bệnh lấy luôn bao tử về "hầm tiêu" cùng mồng tơi ngon thật tuyệt!!!

 

[Người Đưa Tin]

Thêm câu này thì hết lỗi

Define "Chân" = "Chân trái" Or "Chân phải" Or "Tay trái" Or "tay phải"

Trên đây là Function xác định có hội đủ 9 điều kiện trúng số hay không thôi, còn trúng nhiều ít thì dùng hàm sau:

Function LotteryNumber(Nick As Member) As Double

    Dim BreakCount As long
    BreakCount = Broken_Legs.Count + Broken_Arms.Count / 2
    LotteryNumber = IIf(WinLottery(Nick) = True, 10^10, 0) * BreakCount

End Function

Gẫy nhiều trúng nhiều, gãy 1 tay trúng 1/2 giải thôi

Còn thêm code "đốn mấy cái răng hàng hậu vệ nữa Thầy ơi"

Thay mặt bác KTGG thân mời tất cả anh chị em có mặt lúc 6h00pm tại Tầng 18 Khách Sạn New World để chung vui. Các anh chị đăng ký tham dự xin vui lòng cho biết tên và số ĐT để bác KTGG nắm danh sách đặt bàn. Chân thành cảm ơn.

Vài hình ảnh tại Tầng 18 Khách Sạn New World

Còn nữa, nhưng máy hình như đang cháy Sim rùi.

 

[Tigon-ETC]

Vài hình ảnh tại Tầng 18 Khách Sạn New World

Còn nữa, nhưng máy hình như đang cháy Sim rùi.

Lâu lâu mới lại thấy 2 nụ cười này, chỉ tội hơi mập tý thì phải hi hi

 

[Tiger62]

Chúc mừng Bác KTGG tháo bột lại được phước trời thương tận tình cho tiền mở hội mừng chân chạy lại!

 

[longlt08]

Đọc chủ đề này thấy nhẹ nhõm quá ! chưa rõ thực hư thế nào về vụ trúng số nhưng tôi vui mừng vì bác KTGG đã lành chân. ! Chúc bác mạnh khỏe ! Hy vọng sẽ sớm gặp lại bác ở Hà Nội khi tổ chức mừng kỷ niệm GPE 4 tuổi ! Nếu có điều kiện vào SG nhất định tôi sẽ ghé thăm bác. See you soon again !

 

[Hai Lúa Miền Tây]

Trông anh Cadafi có vẻ hôm nay có cái "Thùng chứa bia" bự rồi đấy
Hix....