Yuav Sau Cov Laij Lej Program Li Cas

Cov txheej txheem:

Yuav Sau Cov Laij Lej Program Li Cas
Yuav Sau Cov Laij Lej Program Li Cas

Video: Yuav Sau Cov Laij Lej Program Li Cas

Video: Yuav Sau Cov Laij Lej Program Li Cas
Video: Qhia sau nkauj yuav sau li css 2024, Kaum ib hlis
Anonim

Qhov kev pab cuam lub laij lej yog ib qho ntawm cov haujlwm kev ua haujlwm. Xws li cov ntawv thov tuaj yeem siv yuav luag txhua hom lus programming. Ib qho ntawm cov kev tawm tswv yim tshaj plaws hauv xov tooj cua yog Delphi, uas tuaj yeem siv los sau cov lej cim kev yooj yim thiab muaj txiaj ntsig zoo.

Yuav sau cov laij lej program li cas
Yuav sau cov laij lej program li cas

Tsim nyog

Delphi programming ib puag ncig

Cov Lus Qhia

Kauj ruam 1

Pib Delphi lub cajmeem koj siv. Npaj tawm lub interface rau koj daim ntawv thov. Yuav muaj 26 nyees khawm ntawm daim foos, 10 tus ntawm yog lub luag haujlwm rau tus lej, thiab seem yog rau cov haujlwm. Tsis tas li ntawd, yuav muaj TPanel tiv thaiv uas qhov txiaj ntsig ntawm qhov kev ua yuav tshwm sim.

Kauj ruam 2

Ntxiv 4 qhov hloov pauv rau cov lej uas yuav khaws cov lej nkag los ntawm tus neeg siv thiab txiav txim siab hom. Piv txwv li:

var

a, b, c: tiag; // tus lej uas tus neeg siv nkag mus

d: tus lej; // tshuab xam zauv tes hauj lwm

Kauj ruam 3

Cov hloov pauv tau tuaj yeem ntxiv rau ob qho kev tiv thaiv thiab ntiag tug. Tam sim no kov OnClick kev tshwm sim rau txhua tus lej khawm. Rau txhua tus lej, kev cai yuav zoo ib yam:

cov txheej txheem TForm1. Button1Click (Sender: TObject);

pib

Panel1. Caption: = Panel1. Caption + 'number'

xaus;

Hloov "tooj" nrog lub pob npe (yog tias nws yog tus naj npawb 0, tom qab ntawd Panel1. Caption + '0').

Kauj ruam 4

The variable d yog hom integer thiab yuav muaj qhov sib thooj zauv ntawm qhov kev nqis tes ua. Yog tias kev sib npaug yuav tau nqa tawm, tom qab ntawd koj tuaj yeem tsim qhov kev txiav txim kom muaj nuj nqis 1, yog qhov sib faib - tus nqi 2, yog tias ntxiv - tus nqi 3, thiab lwm yam.

cov txheej txheem TForm1. ButtonMultiplyClick (Sender: TObject); // multiply qhov kev txiav txim

pib

a: = StrToFloat (Panel1. Caption); // tom qab koj nias lub pob, tus nqi ntawm cov kuj sib txawv thiab a tau txais kev cawmdim

d: = 1; // action kuj sib txawv thiab tau teem rau tus nqi coj

Panel1. Caption: = '';

xaus;

Kauj ruam 5

Ua cov haujlwm zoo sib xws rau kev faib (ButtonDivClick), ntxiv (ButtonPlusClick), rho tawm (ButtonMinusClick), thiab kev nthuav tawm (ButtonPowerClick).

Kauj Ruam 6

Txhawm rau kev ua kom muaj nuj nqis `` = '', koj yuav tsum ua qhov xwm txheej thiab txiav txim siab txhua qhov nqis tes ua:

cov txheej txheem TForm1. ButtonClick (Sender: TObject);

pib

cov ntaub ntawv d ntawm

1: pib // yog tias d = 1, i.e. tus lej khawm yog nce, tom qab ntawd qhov nqis tes ua tshwm sim

b: = StrToFloat (Panel1. Caption);

c: = a * b;

Panel1. Caption: = FloatToStr (c);

xaus;

2: pib

a: = StrToFloat (Panel1. Caption);

c: = a / b;

Panel1. Caption: = FloatToStr (c);

Kauj Ruam 7

Siv ntxiv, rho tawm, thiab ntsuas sab nraud tib yam. Lub laij lej tau npaj txhij.

Pom zoo: