Chào cả nhà,
Lâu lắm mới thò mặt lên đây :D
Thời gian qua mình có được nhiều ý kiến góp ý rất quý báu của các bạn, vì thế sau nhiều lần cập nhật, tết vừa rồi rảnh rang mình sửa lại đôi chút cái phần mềm này.
2 cập nhật trên là 2 cập nhật rất quan trọng, việc thay đổi các hướng nhà (Lưu ý vị trí cửa vào quy ước là vị trí có mũi tên đỏ) sẽ dẫn đến việc thay đổi cách sắp xếp 24 cung nhỏ và cách tính Kim Lâu cho nữ theo 9 cung có nhiều người cho rằng không phù hợp với cách tính toán của số đông, bạn gái nào chuẩn bị cưới sẽ nắm rõ cái vụ này :D.
Về các lỗi "Compile error" ở một số bạn gặp phải, nói thật là tới giờ mình vẫn chưa tìm ra cách dò lỗi vì cái thông báo mặc định của Excel đó nó chung chung quá, mà mình thì là dân lập trình amateur nên cơ bản là bí. Đợt tới sẽ tìm cách bắt Excel nó thông báo lỗi rõ ràng hơn tí mới được.
Các bạn tải về dùng nhé.
Chúc cả nhà năm mới an khang thịnh vượng.
Lâu lắm mới thò mặt lên đây :D
Thời gian qua mình có được nhiều ý kiến góp ý rất quý báu của các bạn, vì thế sau nhiều lần cập nhật, tết vừa rồi rảnh rang mình sửa lại đôi chút cái phần mềm này.
Các tính năng cập nhật ở bản 1.3.1.- Chỉnh sửa giao diện phần mềm, cung cấp thêm một số gợi ý về sự tốt xấu của các cung.
-Thêm phần trợ giúp và hướng dẫn sử dụng.
- Cập nhật cách tính toán 24 cung Phúc Đức theo hướng nhà.
Các tính năng cập nhật ở bản 1.3.2.
- Thay đổi lại cách tính tuổi Kim Lâu cho nữ để phù hợp với các quan niệm chiếm đa số.
2 cập nhật trên là 2 cập nhật rất quan trọng, việc thay đổi các hướng nhà (Lưu ý vị trí cửa vào quy ước là vị trí có mũi tên đỏ) sẽ dẫn đến việc thay đổi cách sắp xếp 24 cung nhỏ và cách tính Kim Lâu cho nữ theo 9 cung có nhiều người cho rằng không phù hợp với cách tính toán của số đông, bạn gái nào chuẩn bị cưới sẽ nắm rõ cái vụ này :D.
Về các lỗi "Compile error" ở một số bạn gặp phải, nói thật là tới giờ mình vẫn chưa tìm ra cách dò lỗi vì cái thông báo mặc định của Excel đó nó chung chung quá, mà mình thì là dân lập trình amateur nên cơ bản là bí. Đợt tới sẽ tìm cách bắt Excel nó thông báo lỗi rõ ràng hơn tí mới được.
Các bạn tải về dùng nhé.
Chúc cả nhà năm mới an khang thịnh vượng.
04:15 CH 20/02/2013
Lâu lâu không vào Diễn đàn nhà mình thế mà đã gần 1 năm rồi nhỉ.
Mọi người update phiên bản mới 1.2.6 nhé :)
Bản cũ 1.2.5 có nhiều bạn đọc report cho mình có trường hợp bị tính sai ngày tháng âm lịch dẫn đến sai cung mệnh nên phải thay toàn bộ phần code liên quan. Bộ code mới xin xỏ được, rất may lại có cả chức năng tính can chi của ngày tháng năm sinh, nghĩa là còn xịn hơn cả bộ code cũ nữa, vì thế nhân tiện cũng thêm thắt đôi chút về giao diện.
Link cũ ở trang 1 vẫn hoạt động tốt, bạn nào không tải được chịu khó tải lại sau khoảng nửa ngày (có thể lý do là bảo dưỡng server thôi) hoặc email cho mình vào email trandungkts@gmail.com, sẽ được reply chậm nhất trong vòng 1 ngày chứ đừng gửi bài vào đây mình dạo này bận mờ mắt nên ít vào Diễn đàn lắm.
Nhân tiện đây cũng cho mình cảm ơn mọi người vì đã gửi email đóng góp ý kiến với mình rất nhiều, đặc biệt là có bạn gửi cả code để mình sử dụng vào phần mềm, tuy rằng không xài được hết vì mình không muốn phần mềm nó rắc rối quá, nhiều người sẽ không dùng được.
@masterqdung: Cái miếng đất nhà bạn rất rắc rối trong phép xác định tâm nhà, nếu làm bằng tay thì chỉ được vị trí tâm tương đối chính xác thôi. Trường hợp này phải dựng lên AutoCad rồi nhờ nó xác định tâm thì mới ok được.
Thanks all.
Mọi người update phiên bản mới 1.2.6 nhé :)
Bản cũ 1.2.5 có nhiều bạn đọc report cho mình có trường hợp bị tính sai ngày tháng âm lịch dẫn đến sai cung mệnh nên phải thay toàn bộ phần code liên quan. Bộ code mới xin xỏ được, rất may lại có cả chức năng tính can chi của ngày tháng năm sinh, nghĩa là còn xịn hơn cả bộ code cũ nữa, vì thế nhân tiện cũng thêm thắt đôi chút về giao diện.
Link cũ ở trang 1 vẫn hoạt động tốt, bạn nào không tải được chịu khó tải lại sau khoảng nửa ngày (có thể lý do là bảo dưỡng server thôi) hoặc email cho mình vào email trandungkts@gmail.com, sẽ được reply chậm nhất trong vòng 1 ngày chứ đừng gửi bài vào đây mình dạo này bận mờ mắt nên ít vào Diễn đàn lắm.
Nhân tiện đây cũng cho mình cảm ơn mọi người vì đã gửi email đóng góp ý kiến với mình rất nhiều, đặc biệt là có bạn gửi cả code để mình sử dụng vào phần mềm, tuy rằng không xài được hết vì mình không muốn phần mềm nó rắc rối quá, nhiều người sẽ không dùng được.
@masterqdung: Cái miếng đất nhà bạn rất rắc rối trong phép xác định tâm nhà, nếu làm bằng tay thì chỉ được vị trí tâm tương đối chính xác thôi. Trường hợp này phải dựng lên AutoCad rồi nhờ nó xác định tâm thì mới ok được.
Thanks all.
11:11 SA 31/07/2010
Ủa, lạ nhỉ.
Trên website của mình vẫn download file bình thường mà... Hiện nay IT bên mình đang cập nhật lại toàn bộ phần data của website và hệ thống hóa lại các công trình nhưng mình vẫn yêu cầu họ để lại file Bát trạch để mọi người download được, có vấn đề gì đâu nhỉ. Mọi người ghé qua download lại hộ mình nhé :)
Check lại hàng hộ mình xem nào http://www.cicom.vn/index.php?usv=thenewsdetailc&id=205
Mà nếu ai không download được email cho mình trandungkts@gmail.com, mình reply lại liền mà, mình check mail liên tục đấy.
Lâu quá mới lọ mọ vào diễn đàn, cái giao diện này mình không quen nhìn đâm cũng chả có hứng thú viết lách nữa :D.
Trên website của mình vẫn download file bình thường mà... Hiện nay IT bên mình đang cập nhật lại toàn bộ phần data của website và hệ thống hóa lại các công trình nhưng mình vẫn yêu cầu họ để lại file Bát trạch để mọi người download được, có vấn đề gì đâu nhỉ. Mọi người ghé qua download lại hộ mình nhé :)
Check lại hàng hộ mình xem nào http://www.cicom.vn/index.php?usv=thenewsdetailc&id=205
Mà nếu ai không download được email cho mình trandungkts@gmail.com, mình reply lại liền mà, mình check mail liên tục đấy.
Lâu quá mới lọ mọ vào diễn đàn, cái giao diện này mình không quen nhìn đâm cũng chả có hứng thú viết lách nữa :D.
03:42 CH 10/06/2010
08:08 SA 09/12/2009
Update bộ tạo lịch trên Excel mới này... thêm một số kiểu trình bày sẵn, ngoài kiểu mặc định (Tạm gọi Square) còn có các kiểu như bố trí chạy theo 1 hàng ngang, 1 hàng dọc, 2 hàng ngang, 2 hàng dọc...
Download ... Mời cả nhà cùng nghịch :Laughing:
Download ... Mời cả nhà cùng nghịch :Laughing:
07:45 CH 02/12/2009
Thấy chủ đề này hay quá nên mình cũng muốn tham gia một tí :Smiling:. Mình làm xong một cái bộ tạo lịch (cả lịch dương và lịch âm) cho tháng và năm bất kỳ ... cả nhà khỏi phải lên xemngay.com lấy lịch nữa:Smiling: (mặc dù thú thực là bộ code tính âm lịch mình cũng...xin trên đó:Laughing:) nhưng mà hy vọng nó được việc cho cả nhà :Smiling:
Bộ tạo lịch này mình làm sẵn (vẫn còn xấu lắm vì mình không muốn design - còn để cả nhà thỏa sức sáng tạo chứ). Các ban có thể tùy ý thay đổi font chữ - cỡ chữ - màu chữ - border và các thứ khác - như một file Excel bình thường - tóm lại là mọi điều để "cá tính" bộ lịch của mình. Bạn nào rành một chút về Excel và VBA có thể tùy ý chỉnh sửa các ô, thêm bớt tính năng (đọc ngày lễ của gia đình chẳng hạn - rất đơn giản (Gợi ý nếu bạn chưa nghĩ ra : Hàm Lookup hoặc đơn giản chỉ là If-Then) )
Để sử dụng bộ lịch, các bạn chỉ cần thay đổi 2 ô Tháng và Năm (ô chữ to nhất có nền xanh). Các cái còn lại sẽ nhảy theo.
Mời cả nhà cùng nghịch nào !:Laughing:
Download tại đây
*** Ghi chú quan trọng: Vì vẫn phải có VBA, nên cả nhà vui lòng hạ dùm mức Security xuống hết cỡ dùm trước khi mở file (Menu Tools/Macro/Security...). Nếu không chỉ có bộ Dương lịch hoạt động (do dùng toàn function). Phần Âm lịch (Dùng VBA) sẽ đứng im :D
P/s: Nếu có lỗi code (lập trình mã nguồn VBA), cả nhà thông báo giúp về lỗi để mình sửa. Có ảnh chụp lỗi thì tốt nhất.
Bộ tạo lịch này mình làm sẵn (vẫn còn xấu lắm vì mình không muốn design - còn để cả nhà thỏa sức sáng tạo chứ). Các ban có thể tùy ý thay đổi font chữ - cỡ chữ - màu chữ - border và các thứ khác - như một file Excel bình thường - tóm lại là mọi điều để "cá tính" bộ lịch của mình. Bạn nào rành một chút về Excel và VBA có thể tùy ý chỉnh sửa các ô, thêm bớt tính năng (đọc ngày lễ của gia đình chẳng hạn - rất đơn giản (Gợi ý nếu bạn chưa nghĩ ra : Hàm Lookup hoặc đơn giản chỉ là If-Then) )
Để sử dụng bộ lịch, các bạn chỉ cần thay đổi 2 ô Tháng và Năm (ô chữ to nhất có nền xanh). Các cái còn lại sẽ nhảy theo.
Mời cả nhà cùng nghịch nào !:Laughing:
Download tại đây
*** Ghi chú quan trọng: Vì vẫn phải có VBA, nên cả nhà vui lòng hạ dùm mức Security xuống hết cỡ dùm trước khi mở file (Menu Tools/Macro/Security...). Nếu không chỉ có bộ Dương lịch hoạt động (do dùng toàn function). Phần Âm lịch (Dùng VBA) sẽ đứng im :D
P/s: Nếu có lỗi code (lập trình mã nguồn VBA), cả nhà thông báo giúp về lỗi để mình sửa. Có ảnh chụp lỗi thì tốt nhất.
07:14 CH 01/12/2009
Vụ này cũng dễ thôi mà, nhất lại là tiếng Anh. Tiếng Việt thì có lẽ phải xin xỏ lại đồ của mấy bộ từ điển, còn tiếng Anh thì may sao bác Bill cấp sẵn cho công cụ dùng rồi
Bạn xài PP có thêm sự trợ giúp của VBA thì điều gì cũng là có thể.
Thế này nhé.
Để làm được một cái bản slide biết "nói" những gì bạn đánh vào thì bạn phải sử dụng VBA thông qua một điều khiển có tên gọi là "TextToSpeech" và khoảng độ 5~6 dòng lệnh. Thứ tự công việc như sau:
1. Mở PP, mở slide của bạn ra, cuộn đến slide định chèn điều khiển phát âm, bấm Alt-F11. Cửa sổ Visual Basic For Application(VBA) sẽ mở ra.
2. Bạn chọn menu Insert/UserForm, bạn sẽ thấy có một cái cửa sổ User Form 1 xuất hiện.
3. Ở cửa sổ ToolBox (Nếu không thấy nó thì chọn menu View/ToolBox) bấm chuột phải vào vùng trống (không có nút) và chọn Additional Control.
4. Ở cửa sổ Additional Control trong ô Available Control, bạn cuộn xuống và tìm "TextToSpeech Class". Bạn sẽ thấy một cái miệng xuất hiện ở ToolBox. Cái miệng hơi bị xấu:Laughing:, mặc dù là bác Bill đã "cố gắng" vẽ cho nó ra là miệng phụ nữ:Laughing:. Cái miệng nó sẽ mấp máy khi phát âm, và bạn có thể chỉnh sửa, thêm răng thêm lưỡi nếu thích:rolleyes: . Tuy nhiên, bạn cũng đừng lo lắng về nó quá. Trong những slide có thể có sự vui nhộn thì để cái miệng đó lại để nó mấp máy lúc phát âm, còn những slide nghiêm túc có thể phải dấu nó đi, bằng cách click vào nó và điều chỉnh các thuộc tính ở cửa sổ "Properties" trong góc trái phía dưới.
5. Bạn cần thêm 2 điều khiển TextBox và CommandButton bằng cách click vào cửa sổ công cụ và "vẽ" nó lên UserForm1. Bạn sẽ chỉnh sửa nó theo ý bạn, thu nhỏ phóng to hay kéo dài thu ngắn thì tùy, sắp sao cho đẹp mắt là được.
6. Điều chỉnh thuộc tính thể hiện bằng các Properties ở cửa sổ góc trái phía dưới cho tất cả các thứ như UserForm1, cái miệng, TextBox và Command Button. Có mấy thuộc tính bạn cần lưu ý như sau.
a. (Name). Tên điều khiển, cái này bạn nên để mặc định, thường là UserForm1, TextToSpeech1, TextBox1 và CommandButton1. Các số 1, 2... sau tên điều khiển do VBA tự thêm vào để tránh trùng lặp khi có 2 điều khiển giống nhau. Khi lập trình bạn phải lưu ý sử dụng đúng tên điều khiển của mình nếu không code sẽ báo lỗi. Ở đây tạm thời mình sẽ để tên điều khiển mặc định cho bạn dễ làm theo.
b. Caption: "Tên" điều khiển được thể hiện khi trình bày, không liên quan tới việc lập trình, để cho nó có vẻ "pro" là chính. Ở ví dụ gửi kèm, mình đặt tên nút bấm là "Speak It!" , ví dụ thế. Bạn có thể "Say it your way" nếu thích.
c. Font: Font chữ thể hiện, quan trọng nhất đối với điều khiển Textbox, nó sẽ liên quan tới kiểu chữ khi bạn đánh vào. Trong ví dụ kèm theo, mình để font Tahoma cỡ 36.
d. ForeColor: Màu chữ, giống như thuộc tính Font. Có thể xanh đỏ nếu thích.
e. Visible : Quan trọng nhất với cái miệng. Với Visible bằng False, cái miệng sẽ vẫn hoạt động nhưng bị ẩn đi, dùng cho trường hợp slide cần nghiêm túc như mình đã nói ở trên.
7. Tạm đóng cửa sổ VBA lại quay trở về Slide. Bạn sẽ bấm menu View của PP, (nhớ là menu của PP và menu của VBA là khác nhau) chọn ToolBar, Control toolbox . (hơi giống như của VBA). Bạn cũng sẽ chèn một CommandButton vào Slide, ở chỗ nào đó bạn thấy thuận tiện. Cũng co kéo chỉnh sửa sao cho vừa ý. Sau đó Click đúp vào nó, bạn sẽ được đưa trở về cửa sổ VBA, và bạn có thể chỉnh sửa "Caption" của nó theo ý mình. Nút này sẽ có tác dụng kích hoạt Userform1 (Speaker) khi đang trình chiếu.
8. Phần "User Interface" đã xong. Giờ là đến lúc "code". Ở cửa sổ VBA, bạn sẽ thấy xuất hiện thêm 1 cửa sổ gọi là "Presentation1 - Slide1 (code)". Nếu không thấy nó, tìm đến góc trái phía trên của VBA nơi có cửa sổ Project - VBA Project. Bạn sẽ thấy một dòng là "slide1". Bấm chuột phải vào nó, chọn "View code". Và đánh dòng sau đây vào. Chú ý là dòng Private Sub... và End Sub VBA đã thêm sẵn cho bạn, bạn chỉ việc thêm những dòng còn lại
Bạn có thể nghiên cứu các thuộc tính của mình để chỉnh sửa "phần mềm" cho nó đẹp.
Enjoy !:Rose:
Download ví dụ tại đây http://www.mediafire.com/?dz3ezlhaytw
Bạn xài PP có thêm sự trợ giúp của VBA thì điều gì cũng là có thể.
Thế này nhé.
Để làm được một cái bản slide biết "nói" những gì bạn đánh vào thì bạn phải sử dụng VBA thông qua một điều khiển có tên gọi là "TextToSpeech" và khoảng độ 5~6 dòng lệnh. Thứ tự công việc như sau:
1. Mở PP, mở slide của bạn ra, cuộn đến slide định chèn điều khiển phát âm, bấm Alt-F11. Cửa sổ Visual Basic For Application(VBA) sẽ mở ra.
2. Bạn chọn menu Insert/UserForm, bạn sẽ thấy có một cái cửa sổ User Form 1 xuất hiện.
3. Ở cửa sổ ToolBox (Nếu không thấy nó thì chọn menu View/ToolBox) bấm chuột phải vào vùng trống (không có nút) và chọn Additional Control.
4. Ở cửa sổ Additional Control trong ô Available Control, bạn cuộn xuống và tìm "TextToSpeech Class". Bạn sẽ thấy một cái miệng xuất hiện ở ToolBox. Cái miệng hơi bị xấu:Laughing:, mặc dù là bác Bill đã "cố gắng" vẽ cho nó ra là miệng phụ nữ:Laughing:. Cái miệng nó sẽ mấp máy khi phát âm, và bạn có thể chỉnh sửa, thêm răng thêm lưỡi nếu thích:rolleyes: . Tuy nhiên, bạn cũng đừng lo lắng về nó quá. Trong những slide có thể có sự vui nhộn thì để cái miệng đó lại để nó mấp máy lúc phát âm, còn những slide nghiêm túc có thể phải dấu nó đi, bằng cách click vào nó và điều chỉnh các thuộc tính ở cửa sổ "Properties" trong góc trái phía dưới.
5. Bạn cần thêm 2 điều khiển TextBox và CommandButton bằng cách click vào cửa sổ công cụ và "vẽ" nó lên UserForm1. Bạn sẽ chỉnh sửa nó theo ý bạn, thu nhỏ phóng to hay kéo dài thu ngắn thì tùy, sắp sao cho đẹp mắt là được.
6. Điều chỉnh thuộc tính thể hiện bằng các Properties ở cửa sổ góc trái phía dưới cho tất cả các thứ như UserForm1, cái miệng, TextBox và Command Button. Có mấy thuộc tính bạn cần lưu ý như sau.
a. (Name). Tên điều khiển, cái này bạn nên để mặc định, thường là UserForm1, TextToSpeech1, TextBox1 và CommandButton1. Các số 1, 2... sau tên điều khiển do VBA tự thêm vào để tránh trùng lặp khi có 2 điều khiển giống nhau. Khi lập trình bạn phải lưu ý sử dụng đúng tên điều khiển của mình nếu không code sẽ báo lỗi. Ở đây tạm thời mình sẽ để tên điều khiển mặc định cho bạn dễ làm theo.
b. Caption: "Tên" điều khiển được thể hiện khi trình bày, không liên quan tới việc lập trình, để cho nó có vẻ "pro" là chính. Ở ví dụ gửi kèm, mình đặt tên nút bấm là "Speak It!" , ví dụ thế. Bạn có thể "Say it your way" nếu thích.
c. Font: Font chữ thể hiện, quan trọng nhất đối với điều khiển Textbox, nó sẽ liên quan tới kiểu chữ khi bạn đánh vào. Trong ví dụ kèm theo, mình để font Tahoma cỡ 36.
d. ForeColor: Màu chữ, giống như thuộc tính Font. Có thể xanh đỏ nếu thích.
e. Visible : Quan trọng nhất với cái miệng. Với Visible bằng False, cái miệng sẽ vẫn hoạt động nhưng bị ẩn đi, dùng cho trường hợp slide cần nghiêm túc như mình đã nói ở trên.
7. Tạm đóng cửa sổ VBA lại quay trở về Slide. Bạn sẽ bấm menu View của PP, (nhớ là menu của PP và menu của VBA là khác nhau) chọn ToolBar, Control toolbox . (hơi giống như của VBA). Bạn cũng sẽ chèn một CommandButton vào Slide, ở chỗ nào đó bạn thấy thuận tiện. Cũng co kéo chỉnh sửa sao cho vừa ý. Sau đó Click đúp vào nó, bạn sẽ được đưa trở về cửa sổ VBA, và bạn có thể chỉnh sửa "Caption" của nó theo ý mình. Nút này sẽ có tác dụng kích hoạt Userform1 (Speaker) khi đang trình chiếu.
8. Phần "User Interface" đã xong. Giờ là đến lúc "code". Ở cửa sổ VBA, bạn sẽ thấy xuất hiện thêm 1 cửa sổ gọi là "Presentation1 - Slide1 (code)". Nếu không thấy nó, tìm đến góc trái phía trên của VBA nơi có cửa sổ Project - VBA Project. Bạn sẽ thấy một dòng là "slide1". Bấm chuột phải vào nó, chọn "View code". Và đánh dòng sau đây vào. Chú ý là dòng Private Sub... và End Sub VBA đã thêm sẵn cho bạn, bạn chỉ việc thêm những dòng còn lại
Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
On Error GoTo Sub_Err
TextToSpeech1.Speak TextBox1.Value
Exit Sub
Sub_Err:
TextToSpeech1.Speak "Text input error"
End Sub
Bạn có thể nghiên cứu các thuộc tính của mình để chỉnh sửa "phần mềm" cho nó đẹp.
Enjoy !:Rose:
Download ví dụ tại đây http://www.mediafire.com/?dz3ezlhaytw
10:32 SA 17/11/2009
08:50 SA 29/10/2009
g
Cuốn này mình có từ hồi học cấp 1, hè năm nào cũng đọc đi đọc lại không chán . Bây giờ muốn tìm lại mà không biết ở đâu.
Nội dung kể về chuyến đi biển của một cậu học sinh trong kỳ nghỉ hè đầy bổ ích.
Thanks.