Jump to content
Sign in to follow this  
CallOfDuty

Help me fix code

Recommended Posts

CallOfDuty
 
I get an error with "possibly used before declaration"
 
and boot code
 
at startup to make it 2 times and my program can not run well  :(
 
p/s:
 
"$khoi_dong = restart"
 
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:       ....

 Script Function:

 Ngôn ngữ: Tiếng Việt
#ce ----------------------------------------------------------------------------
;Khai báo

#include <Misc.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <ComboConstants.au3>

#NoTrayIcon
; Script Start - Add your code below here
Global $toa_do, $hien_thu,$hien_thu_eng,$hien_ngay,$hien_thang,$hien_thang_eng, $hien_nam, $hom_nay, $phong_to, $gui
Global $GUi, $close, $an, $thu1, $thu2, $ngay_c, $thang_ct, $thang_cp, $nam_c
Global $danh_ngon, $array[200], $about, $i, $gio, $Tien, $hien_tai, $lui, $can_chi, $xhtd, $can_chi_ngay, $can_chi_thang
Global $can[10],$chi[12]
Global $ngay_am, $thang_am, $tet, $gio1
Global $nam, $nhuan, $dem, $j, $day100, $mon100, $year100, $ten_lich, $tuy_chon, $tieu_de, $lich_loc, $lich_tuong, $gui1, $gui3, $gui2
Global $day200, $month200, $year200;
Global $tat, $gui4
Global $msg, $gui5, $thu_nho, $ngay[7][7]
$hien_ngay=@MDAY
$hien_thu=@WDAY
$hien_thu_eng=@WDAY
$hien_thang=@MON
$hien_thang_eng=@MON
$hien_nam=@YEAR
$toa_do=1024
$hom_nay=''
$phong_to=123456789
;Khai báo cho can
    $can[0]='Giáp'
    $can[1]='Ất'
    $can[2]='Bính'
    $can[3]='Đinh'
    $can[4]='Mậu'
    $can[5]='Kỷ'
    $can[6]='Canh'
    $can[7]='Tân'
    $can[8]='Nhâm'
    $can[9]='Quý'

    ;Khai báo cho chi
    $chi[0]='Tý'
    $chi[1]='Sửu'
    $chi[2]='Dần'
    $chi[3]='Mão'
    $chi[4]='Thìn'
    $chi[5]='Tỵ'
    $chi[6]='Ngọ'
    $chi[7]='Mùi'
    $chi[8]='Thân'
    $chi[9]='Dậu'
    $chi[10]='Tuất'
    $chi[11]='Hợi'
    ;Khai báo danh ngôn kiểu mảng

    $array[0]='Một văn sĩ chính thật là một con người không cam chịu cảnh cô quạnh. Mỗi một con người chúng ta là một bãi sa mạc.'&@CRLF&'(Francois Hermant)'
    $array[1]='Đàn ông phải biết đối đầu với dư luận, còn đàn bà thì khuất phục dư luận. (Bà De Stael)'
    $array[2]='Phần thứ nhất của cuộc đời ta bị bỏ phí là do cha mẹ ta, phần thứ hai là do con ta. (Clarence Darrow)'
    $array[3]='Chưa chắc bạn cưới một người vợ y tá mà bạn được chăm sóc.'
    $array[4]='Bình đẳng là cơ sở vững chắc của tình yêu. (G. Let-xinh)'
    $array[5]='Đừng đợi cơ hội thuận tiện, phải biết tạo ra nó. (O. S. Marden)'
    $array[6]='Ngôi nhà phải là trung tâm chứ không phải là biên giới trong thế giới của người phụ nữ.'
    $array[7]='Người ta chỉ tạo nên hạnh phúc của mình do việc săn sóc đến hạnh phúc của người khác. (Bernardin De Saint Pierre)'
    $array[8]='Những gì ta cho đi một cách thật lòng thì mãi mãi là của ta. (Geoges Granville)'
    $array[9]='Mọi đứa trẻ sinh ra đều là thần thánh, chỉ sau đó mới sa ngã thành con người.'
    $array[10]='Chỉ thiếu mặt người mình yêu, mình thấy cả vũ trụ như vắng người. (Lamartine)'
    $array[11]='Người đàn bà đẹp khó mà sống được an thân, cũng như ngọc quý là mồi của trộm cướp. (Jean Jacques Rousseau)'
    $array[12]='Người ta nói rằng khi một người đàn ông nắm tay một phụ nữ trước hôn nhân thì đó là tình yêu; còn sau hôn nhân đó là sự tự vệ.'
    $array[13]='Cô ta là một bạn gái tốt đến mức sẵn sàng đẩy tất cả bạn bè xuống nước để sau đó với niềm thích thú kéo họ lên.'
    $array[14]='Người duy nhất không mất khách hàng khi suy thoái, đó là người thu thuế.'
    $array[15]='Tình yêu của các chàng trai không nằm ở phía trái tim mà ở đôi mắt. (Shakespeare)'
    $array[16]='Không có ngày mai nào lại không kết thúc, không có sự đau khổ nào lạo không có lối ra. (Rsoutheell)'
    $array[17]='Lời nói có hiệu quả hơn 10 vạn khẩu thần công. (Napoléon)'
    $array[18]='Người đàn bà đẹp luôn luôn lấy chồng không ra gì. Vì người đàn ông thông minh không bao giờ lấy đàn bà đẹp.'
    $array[19]='Tình yêu làm cho thời gian qua mau và thời gian cũng làm cho tình yêu qua mau. (Tư tưởng Ý)'
    $array[20]='Bạn bè tốt thanh toán tiền của họ một cách nhanh chóng. (Tục ngữ Trung Quốc)'
    $array[21]='Thà chấm dứt một cách kinh khủng còn hơn kinh khủng không bao giờ chấm dứt.'
    $array[22]='Khi đã biết tha thứ, bạn sẽ mỉm cười nhiều hơn, biết cảm nhận sâu sắc và dễ dàng thông cảm với người khác.'
    $array[23]='Yêu và được yêu là một bản nhạc nghe mãi không chán.'
    $array[24]='Trong tình yêu, kẻ hành khất và bậc vương giả đều như nhau. (Danh ngôn Ấn Độ)'
    $array[25]='Hãy suy nghĩ trước khi nói. Hãy cân nhắc trước khi làm. (W. Shakespeare)'
    $array[26]='Ở thế gian này không hề có người nào lại không cải thiện điều chi trong tâm hồn mình ngay khi đã yêu thương người khác. (Maetterlinck)'
    $array[27]='Tiếc nuối người mình yêu là điều hay, so với việc phải chung sống với người mình không yêu. (La Bruyere)'
    $array[28]='Hạnh phúc chỉ dành riêng cho những kẻ nào làm cho nhiều người được sung sướng. (Abbé Delille)'
    $array[29]='Chân lý, như ánh sáng làm mờ cả mắt. Sự dối trá, trái lại như bóng hoàng hôn làm nổi bật lên mọi mặt. (Albert Camus)'
    $array[30]='Có hai loại người: những người có thể sung sướng được mà không sung sướng, và những kẻ tìm hạnh phúc mãi mà không thấy. (Danh ngôn Ả Rập)'
    $array[31]='Đàn bà rất cay nghiệt với đàn bà. (Tennyson)'
    $array[32]='Đời người như một cành hoa mà Ái tình là một giọt mật.(Victor Hugo)'
    $array[33]='Kẻ nắm được thiên hạ là kẻ có tài giết được con thú dữ và có đức khiến mọi người đều có lòng tin là họ sẽ được chia thịt. (Khương Tử Nha)'
    $array[34]='Một tháng ngồi than thở sao bằng một giờ hoạt động. (Franklin)'
    $array[35]='Có tài chưa đủ. Cần phải biết dùng tài. (Alphose Allais)'
    $array[36]='Người ta sẵn lòng tha thứ tất cả đối với người đàn bà mình thật lòng yêu mến. Và chính vì thế mà tình yêu trở nên khó thở. (J.Chardonnes)'
    $array[37]='Thời gian không dùng để yêu thương là phung phí. (Tasse)'
    $array[38]='Không có gì nguy hại cho nhân loại hơn sự nguy hại chạy theo vật chất mà quên lãng tinh thần. (Nghiêm Phúc)'
    $array[39]='Nếu bạn được yêu, hãy yêu đi và tỏ ra đáng yêu. (English Proverbfranklin)'
    $array[40]='Rung động, yêu thương, đau khổ, hy sinh, tất cả sẽ mãi mãi là những trang tình sử của người đàn bà. (Hpnore De Balzac)'
    $array[41]='Biết đủ trong cái đủ của mình thì luôn luôn đủ.'
    $array[42]='Kẻ nào chỉ hy vọng vào vận may sẽ dễ bị thất vọng. Làm việc là cội rễ của sự thành công. (Paul Vilard)'
    $array[43]='Thiên đàng ở chính trong lòng ta. Địa ngục cũng do lòng ta mà có. (Jesus Christ)'
    $array[44]='Nền không chắc mà tường cao, thì sự sụp đổ nằm sẵn nơi đó rồi. (Hậu Hán Thơ)'
    $array[45]='Người ta dùng lửa để thử vàng. Dùng vàng để thử đàn bà. Dùng đàn bà để thử đàn ông. (Honoré de Balzac)'
    $array[46]='Một người đàn ông có thể bị lừa vào trong đam mê, nhưng phải đủ lý lẽ mới dẫn họ đến cửa thực sự. (J. Dryden)'
    $array[47]='Hoàn hảo nhất chính là không hoàn hảo nhất.'
    $array[48]='Hôn nhân không phải là xổ số. Xổ số có những người trúng số. (George Bernard Shaw)'
    $array[49]='Thành kiến là con dẻ của sự dốt nát. (Hazalitt)'
    $array[50]='Anh chỉ mang đến cho em toàn là đau khổ... Có lẽ vậy mà em yêu anh. Bởi vì niềm vui thì dễ quên, còn nỗi đau khổ thì không bao giờ. (Lermantov)'
    $array[51]='Thông thường ta tin tưởng những lý lẽ tự mình tìm ra nhiều hơn là những lý lẽ đến từ trí óc người khác. (Blase Pascal)'
    $array[52]='Khi người ta dần đi tới đích của trí tò mò thì chỉ cần một gợi mở rất nhỏ thôi thì khát khao sẽ trào dâng.'
    $array[53]='Đời người là một hài kịch, đối với những người hay suy nghĩ, và là một bi kịch với những người hay đa cảm.'
    $array[54]='Tình yêu chỉ là cuốn tiểu thuyết của trái tim, chính thú vui mới là lịch sử của nó. (Beaumaurchais)'
    $array[55]='Tình yêu mà ta cho đi là tình yêu duy nhất mà ta giữ được'
    $array[56]='Tình yêu là điều kiện, nơi đó hình ảnh của người khác cần thiết cho chính bản thân của bạn, (R.A.Heinlein)'
    $array[57]='Những sự yếu hèn của người đàn ông đã làm nên sức mạnh cho người đàn bà. (Voltaire)'
    $array[58]='Nếu bạn phải hỏi tình bạn giá bao nhiêu thì bạn không đủ tiền mua đâu. (Christopher)'
    $array[59]='Vũ trụ có nhiều kỳ quan, nhưng kỳ quan tuyệt phẩm nhất là trái tim người mẹ. (B.Shaw)'
    $array[60]='Nếu bạn muốn giàu có, chẳng những học cách làm ra tiền, mà còn phải biết cách dùng tiền. (Franklin)'
    $array[61]='Bất kì người nào gặp tôi cũng có cái đáng cho tôi học hỏi. (Pascal)'
    $array[62]='Tình yêu là sự tô điểm vĩ đại. Tình yêu làm cho thiên nhiên nở hoa, nó hát lên những bài hát kỳ diệu nhất và quay cuồng trong những vũ khúc huy hoàng. (A.Lunas)'
    $array[63]='Sự học trang hoàng đời sống và làm cho ta yêu đời hơn. (I.Viennot)'
    $array[64]='Sống không mục đích khác nào con thuyền lênh đênnh ngoài biển khơi mà không có la bàn. (J.Ruskin)'
    $array[65]='Tình yêu chân thật không phân biệt tuổi tác, địa vị, danh vọng,... Nó sang bằng tất cả. Nó là vị thần của tình cảm. (Lope De Vegas)'
    $array[66]='Hy vọng là thức ăn của người nghèo. (Tablet)'
    $array[67]='Người đàn bà mà thật thà là lúc họ thấy không cần thiết phải dùng đến sự dối trá vô ích. (Anatole France)'
    $array[68]='Sự bẽn lẽn giúp cho ái tình sức tưởng tượng, chính nó cho ái tình sinh khí. (Stendhal)'
    $array[69]='Đem xương trừ kiến, kiến lại càng nhiều. Lấy cá đuổi ruồi, ruồi lại càng đến. (Hàn Phi Tử)'
    $array[70]='Đời người được đo bằng tư tưởng và hành động chứ khong phải thời gian. (Châm ngôn Anh)'
    $array[71]='Nếu đó là một công việc quan trọng - hãy tự mình làm lấy'
    $array[72]='Gà trống có thể gáy tốt, song đẻ trứng thì vẫn phải là gà mái.'
    $array[73]='Mười lần thì có chín lần thành công nhờ sự tin và sự tận tâm làm việc. (Teewilson)'
    $array[74]='Lời nói ngọt ngào, bên trong tất phải có đắng cay.'
    $array[75]='Muốn chuẩn bị tốt cho tương lai, cách tốt nhất là đem trí tuệ và nhiệt tình để làm hoàn hảo những công việc hiện tại.'
    $array[76]='Người ta còn sống mà làm gì, khi mà sau gót giày, gió quét sạch ngay dấu tích cuối cùng của ta. (S.Xvaygo)'
    $array[77]='Sự quen biết là một người ta quen vừa đủ để mượn tiền nhưng chưa đủ để ta cho mượn. (Ambrose Bierce)'
    $array[78]='Hãy đối xử với những người bạn như với bức tranh của chính mình. Hãy đặt họ dưới ánh áng.'
    $array[79]='You can not remeber everything, but there is something you can forget!'
    $array[80]='Một ngon lửa nhỏ không đủ xóa tan màn đêm, nhưng nó lại có thể rọi sáng một con đường, dẫn chúng ta đi!'
    $array[81]='Đừng bao giờ cho mình là giỏi nhất nếu không muốn chịu thất bại cay đắng nhất!'
    $array[82]='Cảm rồi yêu, đau khổ rồi lạ hy sinh. Đó là những đề tài chính trong cuộc đời của người đàn bà.'
    $array[83]='Ganh ghét là tự thú nhận sự thua kém của chính mình. (V.Hugo)'
    $array[84]='Sắc đẹp của phụ nữ là thứ thuật luyện dan ghê gớm nó biến đàn ông thành những con lừa. (Abraham Miller)'
    $array[85]='Cách tốt nhất trong tình yêu là khi yêu không đòi hỏi. (Saint Augustin)'
    $array[86]='Điều khôn ngoan nhất là phải luôn ghi nhớ rằng: "Không có thành công hay thất bại nào là cuối cùng".'
    $array[87]='Óc của ta có thể thành ra đầy cỏ hay đầy lúa, cho nên, mỗi mùa phải nhổ cái kia đi mà tười bón cái này. (Bacon)'
    $array[88]='Chỉ có thời gian, chứ không phải lý luận, là có thể chữa được những vết thương lòng do ái tình gây ra. (P.Syrus)'
    $array[89]='Sự ly biệt của những kẻ yêu nhau nồng thắm là cái thú đau thương tuyệt vời. (Robert Burns)'
    $array[90]='Thắng được sự nóng giận, đó là chiến thắng được một kẻ thù lớn nhất. (P. Syrus)'
    $array[91]='Học mà không suy nghĩ thì vô ích; suy nghĩ mà không học là hiểm nguy. (Khổng Tử)'
    $array[92]='Có khởi đầu sẽ có bước kế tiếp.'
    $array[93]='Ái tình thật là một chuyện xưa cũ và quá tầm thường, nhưng chính nó cũng là một vấn đề quan trọng nhất của con người.(T. Wey)'
    $array[94]='Sự giận dỗi trong tình yêu cũng như muối, không nên quá nhiều.'
    $array[95]='Hạnh phúc cũng giống như một chiếc đồng hồ, loại nào đơn giản nhất là thứ ít hư nhất. (Chamfort)'
    $array[96]='Không có thứ nghệ thuật nào hơn được lòng yêu quý con người. (Van Gogh)'
    $array[97]='Cái gì xuất phát từ trái tim sẽ đi đến trái tim. (Piêt)'
    $array[98]='Người ta nếm được hạnh phúc của sự ái tình trong những sự đau đau khổ của chính nó gây nên hơn là những sung sướng do chính nó mang đến. (Dulos)'
    $array[99]='Hãy cho đi cái mà bạn có. Đối với ai đó thì món quà ấy mang một ý nghĩa sâu sắc mà bạn không ngờ. (Henry Wadsworth Longellow)'
    $array[100]='Tranh đấu để chống lại trái tim của một người phụ nữ khó khăn không thua gì uống hết một biển nước. (Richard De Fournival)'
    $array[101]='Tình yêu là cái dại của người khôn, cía khôn của người dại. (Samuel Johnson)'
    $array[102]='Kẻ nói tốt cho phụ nữ là kẻ chưa biết rõ phụ nữ, còn kẻ nói xấu phụ nữ là kẻ không biết gì cả về phụ nữ. (Pigault Lebrun)'
    $array[103]='Con người phải học yêu và trải qua đoạn đường đầy đau khổ để đạt được nó và cuộc hành trình luôn luôn hướng về linh hồn của người khác. (DH. Lawrence)'
    $array[104]='Chỉ có thượng đế mới biết người đàn bà suy nghĩ thế nào trong lòng họ.( Foucault)'
    $array[105]='Trong tình yêu chúng ta khẳng định nhau, chúng không phải thống trị nhau. Yêu đương không phải là thắng hay bại mà là nâng đỡ nhau. (Stendhal)'
    $array[106]='Tình yêu buộc phải tin vào những điều đáng lẽ phải nghi ngờ nhất. (Grandhi)'
    $array[107]='Đừng bao giờ khuyên răn ai giữa đám đông. (Tục ngữ A rập)'
    $array[108]="Love means not having to say you're sorry!"
    $array[109]='Đọc sách mà mắt không tinh tế là vùi dập cái khổ tâm của người đời trước. (Luận ngữ)'
    $array[110]='Nghèo hay giàu, có đôi lúc bạn hay độc thân, người đàn bà có ảnh hưởng đến đời sống riêng tư. Hạnh phúc của các gia đình phần lớn đều nhờ họ. (J E Pecault)'
    $array[111]='Nghe lời chê bai mà giận là ngồi cho người dèm pha. Nghe câu khen ngợi mà mừng làm mồi cho người nịnh hót. (Vân Trung Tử)'
    $array[112]="Tình yêu là tính toán, tính toán là tử thần"
    $array[113]='Thước đo giá trị của người phụ nữ chính là người đàn ông mà cô ta yêu. (Bennekin)'
    $array[114]='Tình yêu đẹp nhất cũng cần có nước mắt'
    $array[115]='Nước trong quá không có cá, người xét nét quá không có bạn. (Đông Phương)'
    $array[116]='Ái tình cũng giống như rượu mùi, càng ít tỏa bay càng nồng. (Tục ngữ Pháp)'
    $array[117]='Một đầu óc khôi hài dí dỏm sẽ làm cho mọi khó khăn trở nên dễ chịu. (Henry Ward Beecher)'
    $array[118]='Hãy suy nghĩ tất cả những gì bạn nói nhưng đừng nói tất cả những gì bạn nghĩ. (Delarme)'
    $array[119]='Đàn bà đẹp làm vui mắt, đàn bà hiền làm vui lòng. Người trước là một thứ nữ trang, còn người sau là một kho tàng. (Napoleon)'
    $array[120]='Hãy mở rộng các tính cách của chúng ta, mở rộng những cánh cửa lòng để ánh nắng thiện chí và tử tế ùa vào. (O.S Marden)'
    $array[121]='Hạnh phúc chỉ dành cho những kẻ nào làm cho nhiều người được sung sướng. (Abbe Delille)'
    $array[122]='Yêu là mục đích yêu được yêu là con người nhưng yêu vì mục đích yêu là thiên thần. (Lamartine)'
    $array[123]='Lấy tình yêu thương xóa bỏ hận thù. (Thích Ca)'
    $array[124]='Nếu bạn không tìm sự yên bình ngay trong chính bản thân bạn thì tìm nó ở bất cứ nơi nào cũng vô ích.'
    $array[125]='Cái sung sướng nhất trên đời là tin chắc chắn rằng mình đã được yêu. (Victo Huygo)'
    $array[126]='Dở nhất trong cái đạo xử thế là không thấy cái lỗi của mình.'
    $array[127]='Người đàn ông yêu thương người mà họ không kính trọng: ngược lại, người đàn bà chỉ yêu người mà họ kính trọng. (S Dubay)'
    $array[128]='Người ta chẳng chịu làm điều dở về sau mới có thể làm điều hay.'
    $array[129]='Một người đàn ông nói: "Tôi không bao giờ biết hạnh phúc là gì cho đến khi nào tôi lấy vợ... và sau đó mọi chuyện đã trở nên quá trễ!"'
    $array[130]='Tự ái là thuốc đọc giết chết tình bạn. (Balzac)'
    $array[131]='Là người tình đầu tiên của một người phụ nữ thì không có nghĩa gì cả, phải là người yêu sau cùng của họ kia. (Donnay)'
    $array[132]='Khi yêu tất cả mọi người đều như nhau: các vị thánh hay thần cũng vậy'
    $array[133]='Yêu đương vô độ thì danh dự và đạo đức chẳng còn. Nhưng nếu Thần ái tình cứ tìm đến một cách điều độ thì không có mãnh lực nào đáng yêu đến thế. (Euripides)'
    $array[134]='Yêu ai là yêu cả con người trong thực tế, chứ không phải trong ước mơ của ta. (L. Tôn-xtôi)'
    $array[135]='Hãy để cuộc đời bạn nhảy múa nhẹ nhàng trên bãi cỏ thời gian như giọt sương đêm trên ngọn lá. (Tagore)'
    $array[136]='Thường được nghe những câu chuyện ngang tai, thường gặp phải những việc phật ý cũng là một chuyện mài giũa cho con người ta được hay. (Hồng Tự Thành)'
    $array[137]='Một cuộc đời đẹp đẽ sẽ chỉ do một tư tưởng đẹp đã tâm niệm từ tuổi đầu xanh và thực hiện khi đứng tuổi'

If  WinExists('Lịch!') Or WinExists('Lịch tường!') Then
    MsgBox(16,'Thông Báo','Bạn đang chạy chương trình rồi!'&@CRLF&'Không thể chạy được 2 chương trình cùng một lúc')
ElseIf IniRead('data.ini','kieu_lich','lich','loc')='loc' Then
    main()
Else
    lich_tuong()
EndIf
Func main()
    Local $thang_lunar, $kt

    ;Tạo GUI (Giao diện chương trình với kích thước 350x550) nằm ở góc trên giữa màn hình


    $gui=GUICreate('Lịch!',350,550,-1,$toa_do,0,5)
    winSetOnTop("Lịch!", "", 1)
    GUISetStyle($WS_POPUPWINDOW,BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW));Tạo style cho GUI kiểu không border và không thanh status
    GUISetBkColor(0x000000)
    WinSetTrans('Lịch!','',200)
    Guisetfont(10,12,1,'Arial')
    ;Tạo nút
    $close=GUICtrlCreateButton('r',320,1,30,25)
    GUICtrlSetFont(-1,12,12,0,'Webdings')
    GUICtrlSetCursor(-1,0)
    GUICtrlSetTip(-1,'Đóng chương trình lại')

    $an=GUICtrlCreateButton('5',280,1,30,25)
    GUICtrlSetFont(-1,12,12,1,'Webdings')
    GUICtrlSetTip(-1,'Ẩn chương trình lên trên')
    GUICtrlSetCursor(-1,0)
    $about=GUICtrlCreateButton('s',240,1,30,25)
    GUICtrlSetFont(-1,12,2,1,'Webdings')
    GUICtrlSetCursor(-1,4)
    GUICtrlSetTip(-1,'Thông tin về chương trình')

    $tien=GUICtrlCreateButton('8',250,490,50,25)
    GUICtrlSetFont(-1,12,12,1,'Webdings')
    GUICtrlSetCursor(-1,0)
    GUICtrlSetTip(-1,'Tiến lên')

    $hien_tai=GUICtrlCreateButton('<',200,490,40,25)
    GUICtrlSetFont(-1,12,12,1,'Webdings')
    GUICtrlSetCursor(-1,0)
    GUICtrlSetTip(-1,'Trở về ngày hiện tại')

    $lui=GUICtrlCreateButton('7',140,490,50,25)
    GUICtrlSetFont(-1,12,12,1,'Webdings')
    GUICtrlSetCursor(-1,0)
    GUICtrlSetTip(-1,'Lùi lại')
    $tuy_chon=GUICtrlCreateButton('Tùy Chọn',50,490,70,25)
    GUICtrlSetCursor(-1,0)
    ;Tên lịCh
    $ten_lich=GUICtrlCreateLabel('Việt Calendar',10,15,100,25)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont(-1,10,12,1)
    $tieu_de=GUICtrlCreateLabel('LỊCH VIỆT NAM',10,70,340,80,$SS_Center, $GUI_WS_EX_PARENTDRAG)
    Guictrlsettip(-1,"Kéo để di chuyển lịch")
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont(-1,30,12,1)
    GUICtrlSetCursor(-1,0)

    ;Tạo ngày
    $ngay_c=GUICtrlCreateLabel($hien_ngay,120,190,110,90)
    GUICtrlSetCursor(-1,4)
    GUICtrlSetTip(-1,'Kích vào đây để đổi ngày âm dương cho nhau!')
    GUICtrlSetColor($ngay_c,0xff0000)
    GUICtrlSetBkColor($ngay_c,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetFont($ngay_c,70,34,16)
    ;Tạo năm
    $nam_c=GUICtrlCreateLabel(nam($hien_nam),125,148,100,40)
    GUICtrlSetFont(-1,16,12,1,'Times New Roman')
    GUICtrlSetBkColor($nam_c,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor($nam_c,0xff0000)
    ;Tháng trái
    $thang_ct=GUICtrlCreateLabel(thang($hien_thang),10,150,100,40)
    GUICtrlSetFont(-1,13,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0x00FF00)
    GUICtrlSetCursor(-1,4)
    ;Tháng phải
    $thang_cp=GUICtrlCreateLabel(thang_eng($hien_thang_eng),260,150,100,40)
    GUICtrlSetFont(-1,13,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0x00FF00)
    GUICtrlSetCursor(-1,4)
    ;Tạo label tết
    $tet=GUICtrlCreateLabel('',0,170,350,25,$ss_center)
    GUICtrlSetFont(-1,13,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xff00ff0)
    ;Tạo thứ
    ;Thứ bên trái
    $thu1=GUICtrlCreateLabel(thu($hien_thu),25,255,100,30)
    GUICtrlSetFont(-1,13,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)

    ;Thứ bên phải
    $thu2=GUICtrlCreateLabel(thu_eng($hien_thu_eng),260,255,100,30)
    GUICtrlSetFont(-1,13,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)

    ;Tạo giờ
    $gio=GUICtrlCreateLabel(gio(@HOUR,@MIN,@SEC),100,370,170,35,$ss_center)
    gUICtrlSetFont(-1,29,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetCursor(-1,0)
    GUICtrlSetTip(-1,'Kích vào đây để thu nhỏ chương trình, chỉ hiện giờ')
    ;Tạo danh ngôn
    $i=random(0,137,1)
    $danh_ngon=GUICtrlCreateLabel($array[$i],27,290,300,70,$SS_Center)
    GUICtrlSetFont(-1,12,12,2,'Times New Roman')
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xff00ff)
    GUICtrlSetTip(-1,'Kích vào đây để đổi câu danh ngôn')
    GUICtrlSetCursor(-1,3)

    ;Hôm nay
    $gio1=GUICtrlCreateLabel('',125,10,100,25,$ss_center,$GUI_WS_EX_PARENTDRAG)

    GUICtrlSetData(-1,$hom_nay)
    GUICtrlSetFont(-1,15,12)
    GUICtrlSetColor(-1,0xABCDEF0)
    ;Tính can chi
    convertSolar2Lunar($hien_ngay,$hien_thang,$hien_nam,7.0)
    $can_chi=GUICtrlCreateLabel(cc_nam($lunaryear),140,15,100,25)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0x00FF00)
    GUICtrlSetFont(-1,11)

    $can_chi_ngay=GUICtrlCreateLabel('Ngày '&cc_ngay($hien_ngay,$hien_thang,$hien_nam),175,449,175,25, $ss_center)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont(-1,11)

    $can_chi_thang=GUICtrlCreateLabel('('&cc_thang($lunarmonth,$lunaryear)&')',0,449,175,25,$ss_center)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetFont(-1,11)



    ;Tính ngày xuân phân, hạ chí , đông chí, thu phân
    $xhtd=GUICtrlCreateLabel('',260,120,150,25)
    GUICtrlSetFont(-1,16,12)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0xEfA000)
    GUICtrlSetData($xhtd,xuan_thu_ha_dong_phan_chi($hien_ngay,$hien_thang))
    ;Lấy ngày âm
    If $lunarday<10 Then
        $lunarday='Mùng '&$lunarday
    Else
        $lunarday='Ngày '&$lunarday
    EndIf
    $ngay_am=GUICtrlCreateLabel($lunarday,175,414,175,50, $ss_center)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0x00fffff)
    GUICtrlSetFont(-1,12,12)
    GUICtrlSetCursor(-1,4)
    If $lunarmonth=1 Then
        $thang_lunar='Tháng Giêng'
    ElseIf $lunarmonth=12 Then
        $thang_lunar='Tháng Chạp'
    Else
        $thang_lunar=thang($lunarmonth)
    EndIf
    $thang_am=GUICtrlCreateLabel($thang_lunar,0,413,175,50, $ss_center)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0x00fffff)
    GUICtrlSetFont(-1,12,12)
    GUICtrlSetCursor(-1,4)
    ;Kiểm tra thứ
    bay_cn()
    tet_duong()


    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    ;Kiểm tra năm nhuận
    $nhuan=GUICtrlCreateLabel('',135,175,100,25)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1,0x00fffff)
    GUICtrlSetFont(-1,11,12)
    $nam=StringRight(guictrlread($nam_c),stringlen(guictrlread($nam_c))-4)
    If Mod($nam,400)=0 Or ((Mod($nam,4)=0) And Mod($nam,100)<>0) Then GUICtrlSetData($nhuan,'Năm Nhuận','')
    $kt=1
    ;Kiểm tra ngày
    kiem_tra_ngay()
    GUISetState(@SW_SHOW)

    If $toa_do=1024 Then
        WinMove('Lịch!','', @DesktopWidth/2-175,1000,350,550,1)
    ElseIf $toa_do=-550 Then
        WinMove('Lịch!','', @DesktopWidth/2-175,-500,350,550,1)
    EndIf
    WinMove('Lịch!','', @DesktopWidth/2-175,0,350,550,3)

    Do
        $msg=GUIGetMsg()
        If $msg=$lich_tuong And BitAND(GUICtrlRead($lich_tuong),$GUI_CHECKED)=$GUI_CHECKED And WinExists('Lịch!') Then
            WinMove('Lịch!','',@DesktopWidth/2-175,-550,350,550,2)
            GUIDelete()
            lich_tuong()
            WinMove('Lịch tường!','',@DesktopWidth/2-225,0,450,350,2)
        EndIf
        ;Nếu nút tiến được chọn
        If $msg=$tuy_chon Then tuy_chon()
        If $msg=$hien_tai Then hien_tai()
        If _IsPressed('10',DllOpen("user32.dll")) And $msg=$tien Then
            tien_nam()
        ElseIf _IsPressed("11", DllOpen("user32.dll")) And $msg=$tien Then
            tien_thang()
        ElseIf $msg=$tien Then
            tien_ngay()
        EndIf
        ;Nếu nút lùi được chọn
        If _IsPressed('10',DllOpen("user32.dll")) And $msg=$lui Then
            lui_nam()
        ElseIf _IsPressed("11", DllOpen("user32.dll")) And $msg=$lui Then
            lui_thang()
        ElseIf $msg=$lui Then
            lui_ngay()
        EndIf
        ;Tạo giờ chạy
        If GUICtrlRead($gio)<>@HOUR&':'&@MIN&':'&@SEC  Then
            GUICtrlSetData($gio,gio(@HOUR,@MIN,@SEC))
        EndIf
        ;Nếu label Danh_ngôn được chọn
        If $msg=$danh_ngon Then
            $i=Random(0,137,1)
            GUICtrlSetData($danh_ngon,$array[$i])
        EndIf
        If $msg=$about Then thong_tin(); Nếu nút ? được chọn
        If $msg=$an Then; Nếu nút Ẩn được chọn
            button()

        EndIf
        If $msg=$gio Then _gio()
        If $msg=$close Then; Nếu nút đóng được chọn
            $pos=Wingetpos($gui)
            WinMove('Lịch!','',$pos[0],1024,350,550,3)
            Exit
        EndIf
        If $msg=$tien Or $msg=$lui Or $msg=$hien_tai Then
            $day100=GUICtrlRead($ngay_c)
            $mon100=thang_nguoc(GUICtrlRead($thang_ct))
            $year100=StringRight(guictrlread($nam_c),stringlen(guictrlread($nam_c))-4)
            $nam=$year100
            If Mod($nam,400)=0 Or ((Mod($nam,4)=0) And Mod($nam,100)<>0) Then
                GUICtrlSetData($nhuan,'Năm Nhuận','')
            Else
                GUICtrlSetData($nhuan,'')
            EndIf
            ;Kiểm tra can chi

            convertSolar2Lunar($day100,$mon100,$year100,7.0)
            If GUICtrlRead($can_chi)<>cc_nam($lunaryear) Then GUICtrlSetData($can_chi,cc_nam($lunaryear))
            GUICtrlSetData($can_chi_ngay,'Ngày '&cc_ngay($day100,$mon100,$year100))

            If GUICtrlRead($can_chi_thang)<>'('&cc_thang($lunarmonth,$lunaryear)&')' Then GUICtrlSetData($can_chi_thang,'('&cc_thang($lunarmonth,$lunaryear)&')')
            ;Kiểm tra xuân thu phân hạ đông chí
            GUICtrlSetData($xhtd,xuan_thu_ha_dong_phan_chi($day100,$mon100))
            ;Kiểm tra lịch âm
            If $lunarday<10 Then
                $lunarday='Mùng '&$lunarday
            Else
                $lunarday='Ngày '&$lunarday
            EndIf
            If $year100>= 1900 Then
                GUICtrlSetData($ngay_am,$lunarday)
            Else
                GUICtrlSetData($ngay_am,StringRight($lunarday,stringlen($lunarday)-2))
            EndIf
            If $lunarmonth=1 Then
                $thang_lunar='Tháng Giêng'
            ElseIf $lunarmonth=12 Then
                $thang_lunar='Tháng Chạp'
            Else
                $thang_lunar=thang($lunarmonth)
            EndIf
            GUICtrlSetData($thang_am,$thang_lunar)
            ;Tạo mới danh ngôN
            $i=Random(0,137,1)
            GUICtrlSetData($danh_ngon,$array[$i])
            ;Tạo thứ trong tuần mới
            GUICtrlSetData($thu1,thu(tinh_thu($day100,$mon100,$year100)))
            GUICtrlSetData($thu2,thu_eng(tinh_thu($day100,$mon100,$year100)))
            ;Kiểm tra thứ
            bay_cn()
            tet_duong()
            $hien_ngay=GUICtrlRead($ngay_c)
            $hien_thu=thu_nguoc(GUICtrlRead($thu1))
            $hien_thu_eng=thu_nguoc_eng(GUICtrlRead($thu2))
            $hien_thang=thang_nguoc(GUICtrlRead($thang_ct))
            $hien_thang_eng=thang_nguoc_eng(GUICtrlRead($thang_cp))
            $hien_nam=StringRight(guictrlread($nam_c),stringlen(guictrlread($nam_c))-4)
            If $hien_ngay=@MDAY And $hien_thu=@WDAY And $hien_thu_eng=@WDAY And $hien_thang=@MON And $hien_thang_eng=@MON And $hien_nam=@YEAR  Then
                $hom_nay=''
            ElseIf $hom_nay<>'' Then
                $hom_nay=''
            EndIf
            GUICtrlSetData($gio1,$hom_nay)
            ;Kiểm tra ngày
            kiem_tra_ngay()
        EndIf
        ;Nếu label ngay_c được chọn
        if $msg=$ngay_c Or $msg=$thang_ct Or $msg=$thang_cp Or $msg=$ngay_am Or $msg=$thang_am Then tinh_am()
    Until $msg=$GUI_EVENT_CLOSE
EndFunc
;Hàm lấy thứ
Func thu($thu_ht)

    If $thu_ht=1 Then Return ('Chủ Nhật')
    If $thu_ht=2 Then Return ('Thứ 2')
    If $thu_ht=3 Then Return ('Thứ 3')
    If $thu_ht=4 Then Return ('Thứ 4')
    If $thu_ht=5 Then Return ('Thứ 5')
    If $thu_ht=6 Then Return ('Thứ 6')
    If $thu_ht=7 Then Return ('Thứ 7')
    EndFunc
    ;Hàm thứ ngược
    Func thu_nguoc($thu_ht)

    If $thu_ht='Chủ Nhật' Then Return (1)
    If $thu_ht='Thứ Hai' Then Return (2)
    If $thu_ht='Thứ Ba' Then Return (3)
    If $thu_ht='Thứ Tư' Then Return (4)
    If $thu_ht='Thứ Năm' Then Return (5)
    If $thu_ht='Thứ Sáu' Then Return (6)
    If $thu_ht='Thứ Bảy' Then Return (7)
    EndFunc

;Hàm lấy thứ
Func thu_eng($thu_ht2)

    If $thu_ht2=1 Then Return ('Sunday')
    If $thu_ht2=2 Then Return ('Monday')
    If $thu_ht2=3 Then Return ('Tuesday')
    If $thu_ht2=4 Then Return ('Wednesday')
    If $thu_ht2=5 Then Return ('Thursday')
    If $thu_ht2=6 Then Return ('Friday')
    If $thu_ht2=7 Then Return ('Saturday')
    EndFunc
    ;Hàm thứ ngược
    Func thu_nguoc_eng($thu_ht2)

    If $thu_ht2='Monday' Then Return (2)
    If $thu_ht2='Tuesday' Then Return (3)
    If $thu_ht2='Wednesday' Then Return (4)
    If $thu_ht2='Thursday' Then Return (5)
    If $thu_ht2='Friday' Then Return (6)
    If $thu_ht2='Saturday' Then Return (7)
    EndFunc

    ;Hàm tính thứ
    Func tinh_thu($day, $mon, $year)
        $du=jdfromdate($day,$mon,$year)
        If Mod($du,7)<>6 Then   Return Mod($du,7)+2
        If Mod($du,7)=6 Then Return 1
    EndFunc

;Hàm tháng
Func thang($thang_ht)
    If $thang_ht=1 Then Return ('Tháng Một')
    If $thang_ht=2 Then Return ('Tháng Hai')
    If $thang_ht=3 Then Return ('Tháng Ba')
    If $thang_ht=4 Then Return ('Tháng Bốn')
    If $thang_ht=5 Then Return ('Tháng Năm')
    If $thang_ht=6 Then Return ('Tháng Sáu')
    If $thang_ht=7 Then Return ('Tháng Bảy')
    If $thang_ht=8 Then Return ('Tháng Tám')
    If $thang_ht=9 Then Return ('Tháng Chín')
    If $thang_ht=10 Then Return ('Tháng Mười')
    If $thang_ht=11 Then Return ('Tháng Mười Một')
    If $thang_ht=12 Then Return ('Tháng Mười Hai')
    EndFunc
    ;Hàm tháng ngược
        Func thang_nguoc($thang_th)
    If $thang_th='Tháng Một' Then Return ('')
    If $thang_th='Tháng Hai' Then Return ('02')
    If $thang_th='Tháng Ba' Then Return ('03')
    If $thang_th='Tháng Bốn' Then Return ('04')
    If $thang_th='Tháng Năm' Then Return ('05')
    If $thang_th='Tháng Sáu' Then Return ('06')
    If $thang_th='Tháng Bảy' Then Return ('07')
    If $thang_th='Tháng Tám' Then Return ('08')
    If $thang_th='Tháng Chín' Then Return ('09')
    If $thang_th='Tháng Mười' Then Return ('10')
    If $thang_th='Tháng Mười Một' Then Return ('11')
    If $thang_th='Tháng Mười Hai' Then Return ('12')
EndFunc

    ;Hàm tháng eng
Func thang_eng($thang_ht2)
    If $thang_ht2=1 Then Return ('January')
    If $thang_ht2=2 Then Return ('February')
    If $thang_ht2=3 Then Return ('March')
    If $thang_ht2=4 Then Return ('April')
    If $thang_ht2=5 Then Return ('May')
    If $thang_ht2=6 Then Return ('June')
    If $thang_ht2=7 Then Return ('July')
    If $thang_ht2=8 Then Return ('August')
    If $thang_ht2=9 Then Return ('September')
    If $thang_ht2=10 Then Return ('October')
    If $thang_ht2=11 Then Return ('November')
    If $thang_ht2=12 Then Return ('December')
    EndFunc
    ;Hàm tháng ngược eng
Func thang_nguoc_eng($thang_th2)
    If $thang_th2='January' Then Return ('01')
    If $thang_th2='February' Then Return ('02')
    If $thang_th2='March' Then Return ('03')
    If $thang_th2='April' Then Return ('04')
    If $thang_th2='May' Then Return ('05')
    If $thang_th2='June' Then Return ('06')
    If $thang_th2='July' Then Return ('07')
    If $thang_th2='August' Then Return ('08')
    If $thang_th2='September' Then Return ('09')
    If $thang_th2='October' Then Return ('10')
    If $thang_th2='November' Then Return ('11')
    If $thang_th2='December' Then Return ('12')
    EndFunc
;Hàm lấy năm
Func nam($nam_ht)
    Return ('Năm '&$nam_ht)
EndFunc
;Hàm thông tin về chương trình
Func thong_tin()
    Local $msg2, $close, $label, $rgn2, $gui_about, $pos, $a
    $pos = WinGetPos($gui_about)
    Local $rgn1, $width = $pos[2],$height = $pos[3]
    If WinExists('Lịch!') Then
        $gui_about=GUICreate('?',350,550,-1,-550,-1,0,$gui)
    Else
        $gui_about=GUICreate('?',350,550,-1,-550,-1,0,$gui2)
    EndIf
    GUISetStyle($WS_POPUPWINDOW,BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOOLWINDOW))
    GUISetBkColor(0x696969)
;Tạo nút đóng
    $close=GUICtrlCreateButton('Đóng',150,500,50,30,$BS_DEFPUSHBUTTON)
    GUICtrlSetCursor(-1,0)
    ;Tạo label để thông tin và di chuyển
    $a='Các chức năng chính:'&@CRLF&@CRLF&'Ấn Tiến để tiến lên 1 ngày!'&@crlf&@CRLF&'Ấn Lùi để lùi lại 1 ngày.'&@CRLF&@CRLF&'Ấn Ctrl + Tiến/Lùi để tiến/lùi 1 tháng'&@CRLF&@CRLF&'Ấn Shift + Tiến/Lùi để tiến/lùi 1 năm'
    $a&=@CRLF&@CRLF&'Ấn vào biểu tượng ngày dương, ngày âm, tháng dương hay tháng âm để chuyển đổi giữa lịch âm sang lịch dương và ngược lại.!'
    $a&=@CRLF&@CRLF&'Mọi Thắc Mắc Hay Hỏi Đáp Về Sản Phẩm Vui Lòng Liên Hệ Qua:'
    $a&=@CRLF&@CRLF&'Email: mylove2430@gmail.com'
    $a&=@CRLF&@CRLF&'Yahoo: tellme_wantkey@yahoo.com.vn'
    $a&=@CRLF&@CRLF&'Hoặc Trực Tiếp Qua Facebook: Https://facebook.com/mylove2430'

 

Calendar.au3

Share this post


Link to post
Share on other sites
BrewManNH

You have several instances where you're trying to use the variables $lunaryear, $lunarday and $lunarmonth in a function call, but you've never declared any of those variables. Also, you are using function names that don't exist in the script, and one of your functions isn't closed properly with an EndFunc statement.

I would suggest using CTRL + F5 on your script before trying to run it and finding where your errors are first, then figure out why you have those errors.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites
CallOfDuty

You have several instances where you're trying to use the variables $lunaryear, $lunarday and $lunarmonth in a function call, but you've never declared any of those variables. Also, you are using function names that don't exist in the script, and one of your functions isn't closed properly with an EndFunc statement.

I would suggest using CTRL + F5 on your script before trying to run it and finding where your errors are first, then figure out why you have those errors.

 

Thank you very much, I'll try and fix it

Edited by CallOfDuty

Share this post


Link to post
Share on other sites
CallOfDuty

Sorry double post, I had fixed it- "possibly used before declaration." But the code fails at boot, at boot up, then repeat it twice and that the program can not be run. You can check by checking the computer to boot with the option and try.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×