A japán naptár programja

előző ◈ a következő

Hozzon létre egy japán naptárat a Delphi 7.0-ban

A Japánban és más kelet-országokban elfogadott naptár szerint a 12 éves cikluson belül évente egy állat jele alá kerül. Az a személy, aki egy bizonyos évben született, számos veleszületett tulajdonságot kap, attól függően, hogy melyik sors alakul ki. A naptár népszerűsége Keleten nagyon nagy. A születési év ismeretében könnyedén megtalálhatja a mellékelt táblázatban a szükséges jelzést, és olvassa el a megfelelő szakaszban mind magáról, mind ismerőseiről.

Elõször hozzon létre egy üres projektet a Delphi 7.0-ban, és mentse el egy adott mappába a számítógép merevlemezén. (Én csak a projekt néven A_Calendar.dpr Calendar.dfm Calendar.pas) Ezután hozzuk létre az oldal elrendezését, mert akkor fogjuk használni a nevét a mi létesítmények a számítás Algoritmusunk kétségtelen olchen fontos, hogy kezdetben megállapítása helyes tárgyak neveit, és szigorúan tartsák be a a projekt továbbfejlesztése.
  1. Form - Form1.
  2. A program menü - MainMenu1 (a menü tartalmazza a Fájl-kimenet, a betűtípus - normál, nagy, a programról szóló parancsokat) - egy egyszerű menü csak a leginkább szükséges közös parancsokat jeleníti meg.
  3. Címke - Címke1.
  4. A szövegmező a Szerkesztés1.
  5. Címke - Címke2.
  6. Gomb - Gomb1.
  7. Panel1.
  8. Memo mező.
A japán naptár algoritmusának kiszámítása.
A japán naptár szerint egy teljes ciklus 60 év, viszont 5 színciklusra oszlik:
  1. sárga
  2. fehér
  3. fekete
  4. zöld
  5. piros
Mindegyik részciklusnak 12 éves ciklusuk van. Ezek az évek az állatok nevét viselik, akik viszont a Buddhába jöttek, hogy ünnepeljék az ünnepet. Tehát: 60/5/12. Hogyan kezeljük mindezt. A kiindulópont 1984 - a zöld patkány éve és egy új 60 éves ciklus kezdete.

Az évet az állat nevével feldolgozzuk és kiszámítjuk úgy, hogy a fennmaradó részét az év felosztásától 12-ig (év 12-es mod) kapjuk meg:
a: = a mod 12;

eset a
4: kezdeni
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ calendar \ rat');
végén;
5: kezdődik
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ bull');
végén;
6: kezdődik
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ tiger');
végén;
7: kezdődik
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ calendar \ Hare');
végén;
8: kezdeni
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ dragon');
végén;
9: kezdődik
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ Snake');
végén;
10: kezdeni
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ calendar \ Horse');
végén;
11: kezdeni
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ juhok');
végén;
0: kezdődik
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ monkey');
végén;
1: kezdődik
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ calendar \ cock');
végén;
2: kezdeni
button1.Caption: = '>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ naptár \ kutya');
végén;
3: kezdődik
button1.Caption: = '>>>';
Memo1.Lines.LoadFromFile ('C: \ Program Files \ calendar \ pig');
végén;
végén;

Először meg kell tudnunk, hogy hány ciklus telt el, ezért használjuk a következő képletet: év mod 60. Így kapjuk meg az utolsó hiányos ciklust, amellyel számolunk.
*** a színciklus számításának feldolgozása ***>
c: = b mod 60;

c eset 4: Panel1.Color: = clLime;
5: Panel1.Color: = clLime;
6: Panel1.Color: = clLime;
7: Panel1.Color: = clLime;
8: Panel1.Color: = clLime;
9: Panel1.Color: = clLime;
10: Panel1.Color: = clLime;
11: Panel1.Color: = clLime;
12: panel1.Color: = clLime;
13: panel1.Color: = clLime;
14: panel1.Color: = clLime;
15: Panel1.Color: = clLime;

16: panel1.Color: = clRed;
17: panel1.Color: = clRed;
18: panel1.Color: = clRed;
19: panel1.Color: = clRed;
20: panel1.Color: = clRed;
21: panel1.Color: = clRed;
22: panel1.Color: = clRed;
23: panel1.Color: = clRed;
24: panel1.Color: = clRed;
25: panel1.Color: = clRed;
26: panel1.Color: = clRed;
27: panel1.Color: = clRed;

28: panel1.Color: = clYellow;
29: panel1.Color: = clYellow;
30: panel1.Color: = clYellow;
31: Panel1.Color: = clYellow;
32: panel1.Color: = clYellow;

33: panel1.Color: = clYellow;
34: panel1.Color: = clYellow;
35: Panel1.Color: = clYellow;
36: Panel1.Color: = clYellow;
37: panel1.Color: = clYellow;
38: panel1.Color: = clYellow;
39: panel1.Color: = clYellow;

40: panel1.Color: = clWhite;
41: panel1.Color: = clWhite;
42: Panel1.Color: = clWhite;
43: panel1.Color: = clWhite;
44: panel1.Color: = clWhite;
45: panel1.Color: = clWhite;
46: panel1.Color: = clWhite;
47: panel1.Color: = clWhite;
48: panel1.Color: = clWhite;
49: panel1.Color: = clWhite;
50: panel1.Color: = clWhite;
51: panel1.Color: = clWhite;

52: Panel1.Color: = clBlack;
53: Panel1.Color: = clBlack;
54: panel1.Color: = clBlack;
55: panel1.Color: = clBlack;
56: panel1.Color: = clBlack;
57: panel1.Color: = clBlack;
58: Panel1.Color: = clBlack;
59: panel1.Color: = clBlack;
0: panel1.Color: = clBlack;
1: panel1.Color: = clBlack;
2: panel1.Color: = clBlack;
3: panel1.Color: = clBlack;

Jellemzők:

Ügyeljen az évszám és a színciklus jellemzőire: részletesen (0-tól 59-ig, 0-tól 59-ig terjedő színűek)
Természetesen a megoldás így kialakított nagyon unalmas, és a hatékonyság tekintetében ellentmondásos, de mégis van egy előnye - a fenti lista a számítás, akkor soha nem szabad összekeverni, és kopogás japán letoischesleniya természetesen az eljárás azon lehetne írni egy kicsit másképp, a hely és az idő takarékoskodása, de általában a részletes parancsleírás nagy valószínűséggel teszi lehetővé a hibák elkerülését. Miért kezdődik a 4. és végződik 59,0,1,2,3, hanem azért, mert közvetlenül kapcsolódik a funkciók a japán naptár, ez könnyen ellenőrizhető, a kiindulási pont - 1984. Meghatározzuk a számítások teljes felsorolását az eljárásban, és ezt a gombot hozzárendeljük a gombhoz. Természetesen, a program menedzsment elemek nem lesz az ingatlan „Caption” egyenlő „Név”, mi perenazovem eljárás alkalmazásával TForm1.FormCreate eljárás (Sender: TObject)
eljárás TForm1.FormCreate (Feladó: TObject);
kezdődik
memo1.Font.Size: = 10;
memo1.Text: = '';
Label1.Caption: = 'Adja meg az év:';
Label1.Color: = clRed;
Label1.Font.Size: = 10;
Label1.Font.Color: = clWhite;

Label2.Caption: = 'Év';
Label2.Color: = clRed;
Label2.Font.Size: = 10;
Label2.Font.Color: = clWhite;
edit1.Text: = '';
Button1.Caption: = '******************';

Form1.Caption: = 'Japán naptár horoszkóp:';
végén;

A számítási eljárás a próba blokk első részében található. kivéve; A második rész kivételes esetekben írja le a bejelentést, például: helytelen évbejegyzés. Ez lehetővé teszi, hogy elkerüljük a program spontán lezárását.

Annak megállapítására, az év az állat megfelelően a japán naptár, még mindig látni egy sorban - olvasni a megadott fájlt területén Memo1: Memo1.Lines.LoadFromFile ( „C: \ Program Files \ naptár \ kakas”); - ezek azok az emberek rövid jellemzői, akik ebben az évben születtek. A program létrehozása során sajnos nem találtam a színciklusok jellemzőit bárhol, nyilvánvalóan nem kapnak sok figyelmet.

Ezután létrehozunk egy naptári katalógusa 12 szöveges fájlokat a jellemzőit minden évben, és távolítsa el a bővítményt a pont együtt, így csak a neve a köldökzsinór, így alapértelmezésben ezek a fájlok nem nyithatók meg bármilyen más program kiválasztása nélkül a felhasználó típusát. Természetesen írni és telepíteni lehet neki, de úgy gondolom, hogy a program kis mérete alapján, amely tesztelés alatt áll, ezt nem szabad elvégezni.

Kapcsolódó cikkek

előző ◈ a következő