Programul calendarului japonez

Creați un calendar japonez în Delphi 7.0

Conform calendarului adoptat în Japonia și în alte țări ale Orientului, în cadrul ciclului de 12 ani, fiecare an trece sub semnul unui animal. O persoană născută într-un anumit an, primește o serie de proprietăți înnăscute, în funcție de care se dezvoltă soarta. Popularitatea acestui calendar în Est este foarte mare. Cunoscând anul nașterii, puteți găsi cu ușurință în tabelul atașat semnul de care aveți nevoie și citiți în secțiunea corespunzătoare atât despre dumneavoastră cât și despre cunoștințele dumneavoastră.

În primul rând, creați un proiect gol în Delphi 7.0 și salvați-l într-un anumit dosar de pe unitatea hard disk a computerului. (Am păstrat proiectul sub numele A_Calendar.dpr Calendar.dfm Calendar.pas) Apoi vom crea aspectul paginii, pentru că atunci vom folosi numele facilitățile noastre în calculul algoritmului nostru, nu există nici o îndoială olchen important să se stabilească inițial numele corecte de obiecte și să adere strict la dezvoltarea lor ulterioară a proiectului.
  1. Formular - Form1.
  2. Meniul programului - MainMenu1 (meniul conține comenzile File-output; Font - normal, mare; Despre program) - un meniu simplu afișează doar comenzile cele mai necesare.
  3. Etichetă - Etichetă1.
  4. Câmpul text este Edit1.
  5. Etichetă - Etichetă2.
  6. Buton - Buton1.
  7. PANOU1.
  8. Câmp memorie.
Dezvoltarea calculului algoritmului calendarului japonez.
Conform calendarului japonez, un ciclu complet este de 60 de ani, la rândul său, este împărțit în 5 sub-cicluri de culoare:
  1. galben
  2. alb
  3. negru
  4. verde
  5. roșu
La rândul său, toate sub-ciclurile au propriul ciclu de 12 ani fiecare. Acești ani au numele de animale, care la rândul lor au venit la Buddha pentru a sărbători sărbătoarea. Deci avem: 60/5/12. Cum să rezolvați toate astea. Punctul de plecare este 1984 - anul șobolanului verde și începutul unui nou ciclu de 60 de ani.

Procesăm și calculam anul cu numele animalului obținând restul din diviziunea anului cu 12 (anul mod 12):
a: = un mod 12;

cazul a
4: începeți
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ rat");
se încheie;
5: începe
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ bull");
se încheie;
6: începe
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ tiger");
se încheie;
7: începeți
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ Hare");
se încheie;
8: începe
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ dragon");
se încheie;
9: începeți
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ Snake");
se încheie;
10: începeți
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ Horse");
se încheie;
11: începeți
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ sheep");
se încheie;
0: începe
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ maimuță");
se încheie;
1: începeți
button1.Caption: = '>>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ cocoș");
se încheie;
2: începeți
button1.Caption: = '>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ câine");
se încheie;
3: începeți
button1.Caption: = '>>>';
Memo1.Lines.LoadFromFile ("C: \ Program Files \ calendar \ pig");
se încheie;
se încheie;

Mai întâi trebuie să aflăm câte cicluri întregi au trecut, pentru asta folosim formula: an mod 60. Deci, primim ultimul ciclu incomplet, cu care vom face calcule.
*** prelucrarea calculului ciclului de culoare ***>
c: = b mod 60;

cazul c din 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;

caracteristici:

Acordați atenție caracteristicilor de calculare a anului și ciclului de culoare: acestea sunt detaliate ((de la 0 la 59, culoarea de la 0 la 59)
Desigur, soluția construită în acest fel este foarte obositor, iar în ceea ce privește eficacitatea este controversată, dar are un avantaj - folosind lista de mai sus de calcul, niciodată nu va fi confuz și va bate letoischesleniya japoneză, desigur, procedura ar putea fi scris un pic diferit, economisind spațiu și timp, dar, de regulă, descrierea detaliată a comenzii oferă o mare probabilitate de a evita erorile. De ce începem cu 4 și terminăm cu 59,0,1,2,3, deoarece este direct legată de particularitățile calendarului japonez, care este ușor de verificat folosind punctul de plecare - 1984. Definim întreaga lista de calcule în procedură și le atribuim butonului nostru. Desigur, elementele noastre de management de program nu va avea proprietatea „caption“ egal cu „Nume“, noi perenazovem folosind procedura procedura TForm1.FormCreate (Expeditor: TObject)
procedura TForm1.FormCreate (expeditor: TObject);
începe
memo1.Font.Size: = 10;
memo1.Text: = '';
Label1.Caption: = 'Introduceți anul:';
Label1.Color: = clRed;
Label1.Font.Size: = 10;
Label1.Font.Color: = ClWhite;

Label2.Caption: = 'Anul';
Label2.Color: = clRed;
Label2.Font.Size: = 10;
Label2.Font.Color: = ClWhite;
edita1.Text: = '';
Button1.Caption: = '*******************';

Form1.Caption: = 'Horoscop calendar japonez:';
se încheie;

Procedura de calcul este inclusă în prima parte a blocului de încercare. cu excepția; A doua parte descrie notificarea în cazurile de excepții, de exemplu: intrarea incorectă a anului. Acest lucru ne permite să evităm închiderea spontană a programului.

La determinarea anul animalului, în conformitate cu calendarul japonez, vom vedea în continuare o singură linie - citirea dintr-un fișier specificat de Memo1 câmp: Memo1.Lines.LoadFromFile ( „C: \ Program Files \ calendarul \ cocoș“); - acestea sunt caracteristicile scurte ale oamenilor care s-au născut în acest sau în acel an. În timp ce am creat programul, din păcate, nu am găsit caracteristicile ciclurilor de culoare oriunde, evident că nu li se acordă prea multă atenție.

După aceea, vom crea un calendar catalog 12 fișiere text de caracteristicile fiecărui an și scoateți extensia din punctul împreună, lăsând doar numele cordonului ombilical, deci implicit, aceste fișiere nu vor fi deschise de orice alt program, fără a selecta tipul de utilizator. Desigur, ați putea să o scrieți și să o instalați pentru ea, dar cred că, pe baza dimensiunii reduse a programului, care este testat, acest lucru nu ar trebui făcut.

Articole similare