| Tác giả |
|
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 1 of 90: Đă gửi: 13 November 2006 lúc 9:53am | Đă lưu IP
|
|
|
Tin vui cùng các quí vị trong diễn đàn Hà Lạc;
Thiên Y đang thảo kế chương cho Hà Lạc Lư Số bằng JavaScript. Hiện giờ bản kế chương này có thể tự lập quẻ và an đại vận.
Phương tŕnh toán học dùng cho kế chương đại khái một số chức năng như sau:
// Lấy ngày Thu Phân
function layThuPhan(year)
{
year -= 1881;
if (year < 0 || year > 169)
return 23;
var AutumnalEquinox = [
23,23,23,22,20,23,23,22,23,23, // 1881-1890
23,22,23,23,23,22,23,23,23,23, // 1891-1900
24,24,24,23,24,24,24,23,23,24, // 1901-1910
24,23,23,24,24,23,23,24,24,23, // 1911-1920
23,24,24,23,23,24,24,23,23,24, // 1921-1930
24,23,23,24,24,23,23,23,24,23, // 1931-1940
23,23,24,23,23,23,24,23,23,23, // 1941-1950
24,23,23,23,24,23,23,23,24,23, // 1951-1960
23,23,24,23,23,23,24,23,23,23, // 1961-1970
23,23,23,23,23,23,23,23,23,23, // 1971-1980
23,23,23,23,23,23,23,23,23,23, // 1981-1990
23,23,23,23,23,23,23,23,23,23, // 1991-2000
23,23,23,22,23,23,23,22,23,23, // 2001-2010
23,22,23,23,23,22,23,23,23,22, // 2011-2020
23,23,23,22,23,23,23,22,23,23, // 2021-2030
23,22,22,23,23,22,22,23,23,22, // 2031-2040
22,23,23,22,22,23,23,22,22,23 // 2041-2050
];
return AutumnalEquinox[year];
}
// Lấy Thiên Nguyên Khí
function layTNK(can)
{
var i = 0, tnk
for (i = 0; i < 10; i++)
if (can == CAN)
break;
switch(i)
{
case 0:
case 8: tnk = 6; break;
case 1:
case 9: tnk = 2; break; // thành Địa
case 2: tnk = 8; break;
case 3: tnk = 7; break;
case 4: tnk = 1; break;
case 5: tnk = 9; break;
case 6: tnk = 3; break;
case 7: tnk = 4; break;
}
return tnk;
}
// Hào Tượng
function ghiHao(vi, hao)
{
this.vi = vi; // hào vị [1-6]
this.hao = hao; // hào âm=6 (lục) hay dương=9 (cửu)
this.cnt = 0; // số đếm
this.nd = 0; // đặt Nguyên Đường vào hay không
this.dv1 = 0; // Đại vận khởi
this.dv2 = 0; // Đại vận tận
}
// Tượng Quẻ (Trùng Quái) gồm cả hỗ quẻ
function queTuong(t_q, h_q, que)
{
// Chủ quẻ
this.t_q = t_q // Thượng Quái
this.h_q = h_q // Hạ Quái
this.ten = layTrungQuai(t_q, h_q) // Tên gọi
this.hao = que // Thực Quẻ gồm 6 hào
// Hỗ quẻ
this.t_ho = layHoQuai1(t_q, h_q)
this.h_ho = layHoQuai2(t_q, h_q)
this.h_ten = layTrungQuai(this.t_ho, this.h_ho)
this.h_hao = raQue(this.t_ho, this.h_ho)
}
Vào ngày rất gần đây, bản kế chương này sẽ gởi tặng quí vị lập quẻ HL đúng 100% và TY xin ư kiến để bổ túc cho hoàn chỉnh về phần luận đoán, mong rằng quí vị đóng góp. Nếu quí vị muốn có bản kế chương này trong tương lai, có thể để lại địa chỉ email hoặc nhắn tin riêng cho TY. 
Thiên Y
|
| Quay trở về đầu |
|
| |
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 2 of 90: Đă gửi: 13 November 2006 lúc 2:33pm | Đă lưu IP
|
|
|
Đây là h́nh ảnh của kế chương nói trên:
Thiên Y
|
| Quay trở về đầu |
|
| |
huong07
Hội viên
Đă tham gia: 13 April 2006
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 37
|
| Msg 3 of 90: Đă gửi: 13 November 2006 lúc 7:19pm | Đă lưu IP
|
|
|
Hi anh Thiên Y !
Em lại xin Anh bản này nữa là đủ bộ  . Cám ơn ḷng hào hiệp của Anh nhiều !
Huong07
(e-mail : vanhuong01@yahoo.com )
|
| Quay trở về đầu |
|
| |
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 4 of 90: Đă gửi: 15 November 2006 lúc 1:13pm | Đă lưu IP
|
|
|
V́ nhiều lư do, bản kế chương mới chỉ làm được như thế này. Nếu quí vị đồng tham gia và nêu ra những ư kiến hay, hữu dụng, TY sẽ thảo kế chương (lập tŕnh) theo ư của quí vị. Chẳng hạn cách dùng "Lưu Niên", v.v.
Như vậy tạm thời, bản kế chương này sẵn sàng gởi ra tặng quí vị dùng thử. Quí vị nào muốn có 1 bản, để lại địa chỉ email hoặc nhắn tin riêng cho TY.
Thiên Y
|
| Quay trở về đầu |
|
| |
dinhvantan
Hội viên
Đă tham gia: 20 September 2003
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 6262
|
| Msg 5 of 90: Đă gửi: 15 November 2006 lúc 2:10pm | Đă lưu IP
|
|
|
Nếu thảo thêm được phần "lưu niên" tiểu vận nữa th́ đủ dùng.
|
| Quay trở về đầu |
|
| |
|
|
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 6 of 90: Đă gửi: 15 November 2006 lúc 2:35pm | Đă lưu IP
|
|
|
Vậy th́ con cám ơn bác dinhvantan! Phần này có lẽ phải dùng nhiều công thức toán học. Mấy bữa nay con đă suy nghĩ qua nhưng chưa ổn. Vậy con sẽ cố gắng!
TY
|
| Quay trở về đầu |
|
| |
sinhtu
Hội viên
Đă tham gia: 04 September 2005
Hiện giờ: Offline
Bài gửi: 17
|
| Msg 7 of 90: Đă gửi: 30 November 2006 lúc 7:27pm | Đă lưu IP
|
|
|
ThiênY đă viết:
| Quí vị nào muốn có 1 bản, để lại địa chỉ email hoặc nhắn tin riêng cho TY. Thiên Y |
|
|
Làm ơn cho tôi xin một bản. Rất cám ơn.
titkt2000@yahoo.com
|
| Quay trở về đầu |
|
| |
sinhtu
Hội viên
Đă tham gia: 04 September 2005
Hiện giờ: Offline
Bài gửi: 17
|
| Msg 8 of 90: Đă gửi: 04 December 2006 lúc 7:51pm | Đă lưu IP
|
|
|
Rat cam on Anh Thien Y. Ban nay dung rat tuyet.
|
| Quay trở về đầu |
|
| |
sinhtu
Hội viên
Đă tham gia: 04 September 2005
Hiện giờ: Offline
Bài gửi: 17
|
| Msg 9 of 90: Đă gửi: 04 December 2006 lúc 9:57pm | Đă lưu IP
|
|
|
@Anh Thien Y
H́nh như bản này bị lỗi.
V/d: Năm Bính Thân, Tháng Canh Tư, Ngày Bính Dần, Giờ Bính Thân
Bổn quẻ: Đại Súc
Biến quẻ: Đồng Nhân
Nguyên đường quẻ Tiên thiên:Hào 4
Nguyên đường quẻ Hậu thiên: Hào 1 dương
Đại vận 49-57: Hào 1 dương của quẻ Đồng Nhân
Lưu niên 49 tuổi: Thái tuế năm Giáp Thân - là dương tuế - như vậy là không biến & giữ nguyên là quẻ Đồng Nhân. Tuy nhiên, chương tŕnh lại cho ra kết quả lưu niên năm Giám Thân là quẻ Độn (tức là biến từ hào 1 của quẻ Đồng Nhân)???
Mong Anh kiểm tra lại và cho biết kết quả.
Cám ơn
Sinhtu
|
| Quay trở về đầu |
|
| |
sinhtu
Hội viên
Đă tham gia: 04 September 2005
Hiện giờ: Offline
Bài gửi: 17
|
| Msg 10 of 90: Đă gửi: 06 December 2006 lúc 7:23pm | Đă lưu IP
|
|
|
@Anh Thien Y
Một lỗi khác của chương tŕnh:
V/d sinh 30/08/1962 giờ Tuất:
1)Nếu quy đổi đơn giản ra lịch âm sẽ là Năm Nhâm Dần, Tháng Kỷ Dậu, Ngày Canh Tư, Giờ Bính Tuất
2)Tuy nhiên do ngày 30/8/1962 vẫn ở tiết Lập Thu nên Bát Tự lại là:
Năm Nhâm Dần, Tháng Mậu Thân, Ngày Canh Tư, Giờ Bính Tuất
Tôi chưa có điều kiện để test nhiều nên mới phát hiện như vậy. Mong Anh sớm hoàn thiện thêm.
|
| Quay trở về đầu |
|
| |
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 11 of 90: Đă gửi: 07 December 2006 lúc 9:14am | Đă lưu IP
|
|
|
Bạn sintu;
Bạn tŕnh bày đúng. Thiên Y sẽ sửa lại phần này. Ngoài ra, bản kế chương dùng lịch theo lối TÂN âm lịch, v́ vậy không phù hợp với lịch Tàu, nhất là vào dịp tết Nguyên Đán năm Đinh Hợi. Trong bản kế chương cập nhật sẽ có sự thai đổi lớn về phương diện này.
Thiên Y
|
| Quay trở về đầu |
|
| |
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 12 of 90: Đă gửi: 11 December 2006 lúc 3:11pm | Đă lưu IP
|
|
|
Anh sinhtu cùng các quí vị đă yêu cầu;
Bản cập nhật đă gửi đến hộp thơ của quí vị; xin kiểm nhu kiện.
Thiên Y
|
| Quay trở về đầu |
|
| |
sinhtu
Hội viên
Đă tham gia: 04 September 2005
Hiện giờ: Offline
Bài gửi: 17
|
| Msg 13 of 90: Đă gửi: 12 December 2006 lúc 2:21am | Đă lưu IP
|
|
|
ThiênY đă viết:
Anh <span ="bold">sinhtu cùng các quí vị đă yêu cầu;Bản cập nhật đă gửi đến hộp thơ của quí vị; xin kiểm nhu kiện.Thiên Y</span>
|
|
|
Cám ơn Thiên Y đă nhanh chóng hoàn thiện chương tŕnh.
|
| Quay trở về đầu |
|
| |
bignguyen
Hội viên
Đă tham gia: 20 August 2005
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 186
|
| Msg 14 of 90: Đă gửi: 13 December 2006 lúc 10:18pm | Đă lưu IP
|
|
|
Xin chào Thiên Y,
Cảm ơn anh đă tặng chương tŕnh, xin cho hỏi là anh lập tŕnh chuyển dương lịch sang âm lịch có chú trọng đến tiết khí hay không? V́ có vài trường hợp BN thử chuyển lịch th́ ko đúng bát tự (thường lệch tháng) do lệch tiết khí. Nếu bây giờ anh lập tŕnh thêm phần chọn bát tự (tự do - ko phụ thuộc âm hay dương lịch) để dựa vào đó mà an quẻ Hà lạc th́ tốt biết mấy ! Sẽ hạn chế được việc ko an đúng do sai tiết khí !
Chân thành cảm ơn, mong anh hoàn thiện chương tŕnh ! 
|
| Quay trở về đầu |
|
| |
bignguyen
Hội viên
Đă tham gia: 20 August 2005
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 186
|
| Msg 15 of 90: Đă gửi: 13 December 2006 lúc 10:29pm | Đă lưu IP
|
|
|
Ví dụ cho anh dễ kiểm tra !
Ngày 05/11/1984 DL giờ Ngọ,
Theo Nhu kiện (cấp 1.04b) của anh chuyển là:
Giáp Tư / Ất Hợi / Quư Măo/ Mậu Ngọ
Nhưng thực chất ngày trên vẫn c̣n Hàn lộ (ngày 07/11 Dương lịch mới chuyển sang Lập đông) nên can chi tháng là Giáp Tuất. Vậy bát tự là:
Giáp Tư / Giáp Tuất / Quư Măo / Mậu Ngọ
Sửa lại bởi bignguyen : 13 December 2006 lúc 10:31pm
|
| Quay trở về đầu |
|
| |
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 16 of 90: Đă gửi: 14 December 2006 lúc 9:21am | Đă lưu IP
|
|
|
Anh bignguyen;
Thực sự cách lấy 24 Tiết trong 1.04b (beta) đă có chỗ không chuẩn. Cái lỗi (bug) này đă chỉnh mấy hôm rầy theo công thức toán học (thiên văn). Vậy Thiên Y sẽ gửi lại bản này (chỉ gửi ".htm"). 
Thiên Y
|
| Quay trở về đầu |
|
| |
bignguyen
Hội viên
Đă tham gia: 20 August 2005
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 186
|
| Msg 17 of 90: Đă gửi: 14 December 2006 lúc 8:45pm | Đă lưu IP
|
|
|
Cảm ơn anh, em đă nhận được rồi và đă hồi âm vào mail cho anh !
|
| Quay trở về đầu |
|
| |
ThiênY
Hội viên
Đă tham gia: 25 April 2006
Hiện giờ: Offline
Bài gửi: 412
|
| Msg 18 of 90: Đă gửi: 15 December 2006 lúc 10:36am | Đă lưu IP
|
|
|
bignguyen;
File anh gửi cho em là đúng, dated 12/12/2006 7:14pm, em thay thế file cũ bằng
cái mới này và chạy không trở ngại ǵ. 
Nếu c̣n trở ngại nhắc anh, anh gửi lại
toàn Folder.
Thiên Y
Sửa lại bởi ThiênY : 15 December 2006 lúc 2:49pm
|
| Quay trở về đầu |
|
| |
bignguyen
Hội viên
Đă tham gia: 20 August 2005
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 186
|
| Msg 19 of 90: Đă gửi: 15 December 2006 lúc 8:23pm | Đă lưu IP
|
|
|
Cảm ơn anh Thiên Y, em đă kiểm tra lại và tŕnh chạy rất chính xác !
To mọi người:
Tŕnh Hà Lạc này rất hay, mọi người gởi mail xin anh Thiên Y đi nào
|
| Quay trở về đầu |
|
| |
dinhvantan
Hội viên
Đă tham gia: 20 September 2003
Nơi cư ngụ: Vietnam
Hiện giờ: Offline
Bài gửi: 6262
|
| Msg 20 of 90: Đă gửi: 15 December 2006 lúc 8:29pm | Đă lưu IP
|
|
|
Cám ơn Thiên Y đă lập Tŕnh HLLS rất hay , giúp anh em ai muốn an lá số Ha Lạc nay khỏi phài tính toán .
|
| Quay trở về đầu |
|
| |
|
|
Diễn đàn bị khoá)
Chủ đề: Tŕnh Hà Lạc Lư Số
