Cách Tam Hoa Liên Châu.

Mã lệnh: Chọn tất cả

using System;
using System.Collections.Generic;
using System.Text;

namespace AnSaoTuVi
{
    /// <summary>
    /// Thien CAN
    /// </summary>
    public enum CAN { Giap, At, Binh, Dinh, Mau, Ky, Canh, Tan, Nham, Quy };
    /// <summary>
    /// Dia CHI
    /// </summary>
    public enum CHI { Ty, Suu, Dan, Mao, Thin, Ti, Ngo, Mui, Than, Dau, Tuat, Hoi };
    /// <summary>
    /// So CUC trong khoa Tu vi
    /// </summary>
    public enum CUC { ThuyNhiCuc = 2, MocTamCuc, KimTuCuc, ThoNguCuc, HoaLucCuc };
    /// <summary>
    /// Danh sach cac sao
    /// </summary>
    public enum SAO { TuVi, LiemTrinh, ThienDong, VuKhuc, ThaiDuong, ThienCo, ThienPhu, ThaiAm, ThamLang, CuMon, ThienTuong, ThienLuong, ThatSat, PhaQuan, TaPhu, HuuBat, VanKhuc, VanXuong, HoaLoc, HoaQuyen, HoaKhoa, HoaKy, TUAN, TRIET };
    // main class
    public class AnSaoTuVi
    {
	   static void Main(string[] args)
	   {
		  // Vi tri Hoa Loc, Hoa Quyen, Hoa Khoa, Hoa Ky
		  CHI VT_HoaLoc, VT_HoaQuyen, VT_HoaKhoa, VT_HoaKy;

		  // Tong so ket qua thoa man
		  int TongSoKQ = 0;

		  // Xac dinh Tu Hoa lien chau
		  for (int _CanNamSinh = 0; _CanNamSinh < 10; _CanNamSinh++)
		  {
			 for (int _ChiNamSinh = 0; _ChiNamSinh < 12; _ChiNamSinh++)
			 {
				if (_CanNamSinh % 2 != _ChiNamSinh % 2) continue;
				for (int _ThangSinh = 1; _ThangSinh <= 12; _ThangSinh++)
				{
				    for (int _NgaySinh = 1; _NgaySinh <= 30; _NgaySinh++)
				    {
					   for (int _ChiGioSinh = 0; _ChiGioSinh < 12; _ChiGioSinh++)
					   {
						  VT_HoaLoc = AnSao(SAO.HoaLoc, _CanNamSinh, _ChiNamSinh, _ThangSinh, _NgaySinh, _ChiGioSinh);
						  VT_HoaQuyen = AnSao(SAO.HoaQuyen, _CanNamSinh, _ChiNamSinh, _ThangSinh, _NgaySinh, _ChiGioSinh);
						  VT_HoaKhoa = AnSao(SAO.HoaKhoa, _CanNamSinh, _ChiNamSinh, _ThangSinh, _NgaySinh, _ChiGioSinh);
						  VT_HoaKy = AnSao(SAO.HoaKy, _CanNamSinh, _ChiNamSinh, _ThangSinh, _NgaySinh, _ChiGioSinh);

						  int _TichVT = ((int)VT_HoaLoc + 1) * ((int)VT_HoaQuyen + 1) * ((int)VT_HoaKhoa + 1) * ((int)VT_HoaKy + 1);
						  int _TongVT = ((int)VT_HoaLoc + 1) + ((int)VT_HoaQuyen + 1) + ((int)VT_HoaKhoa + 1) + ((int)VT_HoaKy + 1);
						  switch (_TichVT + _TongVT)
						  {
							 case 34:
							 case 134:
							 case 378:
							 case 862:
							 case 1706:
							 case 3054:
							 case 5074:
							 case 7958:
							 case 11922:
							 case 1354:
							 case 290:
							 case 90:
								Console.WriteLine("- nam {0} {1}, thang {2}, ngay {3}, gio {4}: Hoa Loc ({5}), Hoa Quyen ({6}), Hoa Khoa ({7}), Hoa Ky ({8})", (CAN)_CanNamSinh, (CHI)_ChiNamSinh, _ThangSinh, _NgaySinh, (CHI)_ChiGioSinh, (CHI)VT_HoaLoc, (CHI)VT_HoaQuyen, (CHI)VT_HoaKhoa, (CHI)VT_HoaKy);
								TongSoKQ++;
								break;
							 default:
								break;
						  }
					   }
				    }
				}
			 }
		  }

		  Console.WriteLine("Tong so ket qua thoa man: {0}", TongSoKQ);
		  Console.ReadLine();
	   }

	   /// <summary>
	   /// Tinh so CUC
	   /// </summary>
	   /// <param name="CanNamSinh"></param>
	   /// <param name="ThangSinh"></param>
	   /// <param name="ChiGioSinh"></param>
	   /// <returns></returns>
	   public static CUC TinhSoCuc(int CanNamSinh, int ThangSinh, int ChiGioSinh)
	   {
		  int ChiCungMenh = 0, CanCungMenh = 0, _CUC = 0;
		  
		  // Xac dinh CAN, CHI cua cung Menh
		  ChiCungMenh = (13 + ThangSinh - ChiGioSinh) % 12;
		  CanCungMenh = (ChiCungMenh > 2) ? (((CanNamSinh + 1) * 2) % 10 + ChiCungMenh - 2) : (((CanNamSinh + 1) * 2) % 10 + ChiCungMenh + 10);

		  // Tinh CUC
		  _CUC = ((ChiCungMenh % 2) == 0) ? ((((CanCungMenh * 2 + 1) % 10) + ((ChiCungMenh * 2 + 1) % 12)) % 5) : ((((CanCungMenh * 2 - 1) % 10) + ((ChiCungMenh * 2 - 1) % 12)) % 5);
		  switch (_CUC)
		  {
			 case 0:
				return CUC.HoaLucCuc;
			 case 1:
				return CUC.ThuyNhiCuc;
			 case 2:
				return CUC.KimTuCuc;
			 case 3:
				return CUC.MocTamCuc;
			 case 4:
			 default:
				return CUC.ThoNguCuc;
		  }
	   }

	   /// <summary>
	   /// An sao Tu vi
	   /// </summary>
	   /// <param name="_SAO"></param>
	   /// <param name="CanNamSinh"></param>
	   /// <param name="ChiNamSinh"></param>
	   /// <param name="ThangSinh"></param>
	   /// <param name="NgaySinh"></param>
	   /// <param name="ChiGioSinh"></param>
	   /// <returns></returns>
	   public static CHI AnSao(SAO _SAO, int CanNamSinh, int ChiNamSinh, int ThangSinh, int NgaySinh, int ChiGioSinh)
	   {
		  CUC _CUC = TinhSoCuc(CanNamSinh, ThangSinh, ChiGioSinh);
		  int _NgaySinh = ((NgaySinh % (int)_CUC) == 0) ? NgaySinh : ((NgaySinh + (int)_CUC) - (NgaySinh % (int)_CUC));
		  int _TuVi = ((_NgaySinh - NgaySinh) % 2 == 0) ? ((int)(_NgaySinh / (int)_CUC) + 1 + (_NgaySinh - NgaySinh)) : ((int)(_NgaySinh / (int)_CUC) + 1 - (_NgaySinh - NgaySinh));

		  switch (_SAO)
		  {
			 // Bac dau tinh - Vong Tu Vi
			 case SAO.TuVi:
				return (CHI)_TuVi;
			 case SAO.LiemTrinh:
				return (CHI)((_TuVi + 4) % 12);
			 case SAO.ThienDong:
				return (CHI)((_TuVi + 7) % 12);
			 case SAO.VuKhuc:
				return (CHI)((_TuVi + 8) % 12);
			 case SAO.ThaiDuong:
				return (CHI)((_TuVi + 9) % 12);
			 case SAO.ThienCo:
				return (CHI)((_TuVi + 11) % 12);
			 // Nam dau tinh - Vong Thien Phu
			 case SAO.ThienPhu:
				return (CHI)((16 - _TuVi) % 12);
			 case SAO.ThaiAm:
				return (CHI)((17 - _TuVi) % 12);
			 case SAO.ThamLang:
				return (CHI)((18 - _TuVi) % 12);
			 case SAO.CuMon:
				return (CHI)((19 - _TuVi) % 12);
			 case SAO.ThienTuong:
				return (CHI)((20 - _TuVi) % 12);
			 case SAO.ThienLuong:
				return (CHI)((21 - _TuVi) % 12);
			 case SAO.ThatSat:
				return (CHI)((22 - _TuVi) % 12);
			 case SAO.PhaQuan:
				return (CHI)((14 - _TuVi) % 12);
			 // Ta Phu - Huu Bat
			 case SAO.TaPhu:
				return (CHI)((3 + ThangSinh) % 12);
			 case SAO.HuuBat:
				return (CHI)((23 - ThangSinh) % 12);
			 // Van Khuc - Van Xuong
			 case SAO.VanKhuc:
				return (CHI)((4 + ChiGioSinh) % 12);
			 case SAO.VanXuong:
				return (CHI)((22 - ChiGioSinh) % 12);
			 // Hoa Loc, Hoa Khoa, Hoa Quyen, Hoa Ky
			 case SAO.HoaLoc:
				switch ((CAN)CanNamSinh)
				{
				    case CAN.Giap:
					   // Vi tri Liem Trinh
					   return (CHI)((_TuVi + 4) % 12);
				    case CAN.At:
					   // Vi tri Thien Co
					   return (CHI)((_TuVi + 11) % 12);
				    case CAN.Binh:
					   // Vi tri Thien Dong
					   return (CHI)((_TuVi + 7) % 12);
				    case CAN.Dinh:
					   // Vi tri Thai Am
					   return (CHI)((17 - _TuVi) % 12);
				    case CAN.Mau:
					   // Vi tri Tham Lang
					   return (CHI)((18 - _TuVi) % 12);
				    case CAN.Ky:
					   // Vi tri Vu Khuc
					   return (CHI)((_TuVi + 8) % 12);
				    case CAN.Canh:
					   // Vi tri Thai Duong
					   return (CHI)((_TuVi + 9) % 12);
				    case CAN.Tan:
					   // Vi tri Cu Mon
					   return (CHI)((19 - _TuVi) % 12);
				    case CAN.Nham:
					   // Vi tri Thien Luong
					   return (CHI)((21 - _TuVi) % 12);
				    case CAN.Quy:
				    default:
					   // Vi tri Pha Quan
					   return (CHI)((14 - _TuVi) % 12);
				}
			 case SAO.HoaQuyen:
				switch ((CAN)CanNamSinh)
				{
				    case CAN.Giap:
					   // Vi tri Pha Quan
					   return (CHI)((14 - _TuVi) % 12);
				    case CAN.At:
					   // Vi tri Thien Luong
					   return (CHI)((21 - _TuVi) % 12);
				    case CAN.Binh:
					   // Vi tri Thien Co
					   return (CHI)((_TuVi + 11) % 12);
				    case CAN.Dinh:
					   // Vi tri Thien Dong
					   return (CHI)((_TuVi + 7) % 12);
				    case CAN.Mau:
					   // Vi tri Thai Am
					   return (CHI)((17 - _TuVi) % 12);
				    case CAN.Ky:
					   // Vi tri Tham Lang
					   return (CHI)((18 - _TuVi) % 12);
				    case CAN.Canh:
					   // Vi tri Vu Khuc
					   return (CHI)((_TuVi + 8) % 12);
				    case CAN.Tan:
					   // Vi tri Thai Duong
					   return (CHI)((_TuVi + 9) % 12);
				    case CAN.Nham:
					   // Vi tri Tu Vi
					   return (CHI)_TuVi;
				    case CAN.Quy:
				    default:
					   // Vi tri Cu Mon
					   return (CHI)((19 - _TuVi) % 12);
				}
			 case SAO.HoaKhoa:
				switch ((CAN)CanNamSinh)
				{
				    case CAN.Giap:
					   // Vi tri Vu Khuc
					   return (CHI)((_TuVi + 8) % 12);
				    case CAN.At:
					   // Vi tri Tu Vi
					   return (CHI)_TuVi;
				    case CAN.Binh:
					   // Vi tri Van Xuong
					   return (CHI)((22 - ChiGioSinh) % 12);
				    case CAN.Dinh:
					   // Vi tri Thien Co
					   return (CHI)((_TuVi + 11) % 12);
				    case CAN.Mau:
					   // Vi tri Huu Bat
					   return (CHI)((23 - ThangSinh) % 12);
				    case CAN.Ky:
					   // Vi tri Thien Luong
					   return (CHI)((21 - _TuVi) % 12);
				    case CAN.Canh:
					   // Vi tri Thai Am (Mot so cho rang vi tri Thien Dong)
					   return (CHI)((17 - _TuVi) % 12);
				    case CAN.Tan:
					   // Vi tri Van Khuc
					   return (CHI)((4 + ChiGioSinh) % 12);
				    case CAN.Nham:
					   // Vi tri Thien Phu (Mot so cho rang vi tri Ta Phu)
					   return (CHI)((16 - _TuVi) % 12);
				    case CAN.Quy:
				    default:
					   // Vi tri Thai Am
					   return (CHI)((17 - _TuVi) % 12);
				}
			 case SAO.HoaKy:
				switch ((CAN)CanNamSinh)
				{
				    case CAN.Giap:
					   // Vi tri Thai Duong
					   return (CHI)((_TuVi + 9) % 12);
				    case CAN.At:
					   // Vi tri Thai Am
					   return (CHI)((17 - _TuVi) % 12);
				    case CAN.Binh:
					   // Vi tri Liem Trinh
					   return (CHI)((_TuVi + 4) % 12);
				    case CAN.Dinh:
					   // Vi tri Cu Mon
					   return (CHI)((19 - _TuVi) % 12);
				    case CAN.Mau:
					   // Vi tri Thien Co
					   return (CHI)((_TuVi + 11) % 12);
				    case CAN.Ky:
					   // Vi tri Van Khuc
					   return (CHI)((4 + ChiGioSinh) % 12);
				    case CAN.Canh:
					   // Vi tri Thien Dong (Mot so cho rang vi tri Thai Am)
					   return (CHI)((_TuVi + 7) % 12);
				    case CAN.Tan:
					   // Vi tri Van Xuong
					   return (CHI)((22 - ChiGioSinh) % 12);
				    case CAN.Nham:
					   // Vi tri Vu Khuc
					   return (CHI)((_TuVi + 8) % 12);
				    case CAN.Quy:
				    default:
					   // Vi tri Tham Lang
					   return (CHI)((18 - _TuVi) % 12);
				}
			 default:
				return CHI.Hoi;
		  }
	   }
    }
}