Введение в Delphi. Рудалев В.Г - 22 стр.

UptoLike

ВУЗ:

ВГУ | Воронеж

Составители:

Рубрика:

Программирование

L_fZ=jZnbdZ\'HOSKL

=jZnbq_kdb_ nmgdpbb h[t_^bg_gubgdZikmebjh\Zgu \ deZkk_ 7KDQYDV

oheklBah[jZ`_gbykljhylkykihfhsvxk\hckl\bf_lh^h\TCanvas. K\hckl

\h Canvas lbiZ 7KDQYDV _klv m fgh]bo \bamZevguo dhfihg_glh\ gZijbf_j m

nhjfu\ bgki_dlhj_ h[t_dlh\ Canvas g_ hlh[jZ`Z_lky d g_fm fh`gh h[jZ

lblvkylhevdhijh]jZffgh?kebmdhfihg_glZg_llZdh]hk\hckl\ZlhgZwlhf

dhfihg_gl_ qZklh fh`gh jZaf_klblv dhfihg_gl PaintBox©jZfdZ ^eyohe

klZª kf kljZgbpm 6\VWHP iZebljudhfihg_glh\ m dhlhjh]h _klv k\hckl\h

Canvas>eyjbkh\ZgbydeZkkCanvas\dexqZ_l k\hckl\Z: Font (rjbnlPeni_

jhbBrushdbklv

I_jh oZjZdl_jbam_lky k\hckl\Zfb Color (p\_l), Width (lhesbgZ Style

(klbevDbklvoZjZdl_jbam_lkyp\_lhfbklbe_f

=jZnbq_kdb_ nmgdpbbLineTo, Rectangle b ^j y\eyxlky f_lh^Zfb

TCanvasKijZ\dmihk\hckl\Zfbf_lh^Zf&DQYDVkf\Ijbeh`_gbb

<dZq_kl\_ijbf_jZgZjbkm_f]jZnbdy(t)=sin(t).

1. <gh\hfijh_dl_jZaf_klbl_gZnhjf_^\_dghidbdhfihg_glGroupBox

bmklZgh\bl_bogZa\ZgbyCaptionlZddZdwlhihdZaZghgZjbk

2. GZGroupBoxjZkiheh`bl_LabelbEditbaZ^Zcl_agZq_gbyk\hckl\

CaptionbTextkhhl\_lkl\_gghjbk

 JZaf_klbl_ \ gb`g_c qZklb nhjfu Panel gZ iZg_eb jZkiheh`bl_

PaintBoxbmklZgh\bl__]hk\hckl\hAlign\AlClientZk\hckl\hName - PB.

Kha^Zcl_h[jZ[hlqbdkh[ulbyOnClick^eydghidbJbkh\Zlv:

procedure Tform1.Button1Click(Sender: TObject);

var n, code: integer;

x, y: real; //Nbabq_kdb_dhhj^bgZlu

x0, xk, W, YMax, YMin, dx: real;

PW, PH, ix, iy: integer; WdjZggu_dhhj^bgZlu

i: integer;

begin

%XWWRQKXUVRU FU+RXU*ODVV

©I_khqgu_qZkuª

Val(NtEdit.text, n, code); Qbkehlhq_d

Val(WEdit.text, W, code); QZklhlZ

Val(InitTEdit.text, x0, code);GZqZehhlkq_lZihhkbo

Val(FinalTEdit.text, xk, code);//Dhg_phlkq_lZihhkbo

dx:=(xk-x0)/n; //RZ]^bkdj_lbaZpbb

YMax:=1; //>bZiZahgbaf_g_gbyihhkb<

YMin:=-1;

PW:=PB.width;RbjbgZh[eZklbjbkh\Zgby

PH:=PB.height;<ukhlZ

with PB.Canvas do

begin

Refresh; Hqbklblvohekl

Pen.Color := clBlack; P\_li_jZ

Pen.width := 1; LhesbgZi_jZ

brush.color := clWhite; //P\_lnhgZ

rectangle(0,0,PW,PH); //JZfdZ

Pen.Width := 1; L_i_jvlh`_gh^eyjbkmgdZ

Pen.Color := clRed;

                                         22

      L_fZ=jZnbdZ\'HOSKL

       =jZnbq_kdb_ nmgdpbb h[t_^bg_gu bgdZikmebjh\Zgu  \ deZkk_ 7KDQYDV
 ohekl Bah[jZ`_gbykljhylkykihfhsvxk\hckl\bf_lh^h\TCanvas. K\hckl
\h Canvas lbiZ 7KDQYDV _klv m fgh]bo \bamZevguo dhfihg_glh\ gZijbf_j m
nhjfu \ bgki_dlhj_ h[t_dlh\ Canvas g_ hlh[jZ`Z_lky d g_fm fh`gh h[jZ
lblvkylhevdhijh]jZffgh ?kebmdhfihg_glZg_llZdh]hk\hckl\ZlhgZwlhf
dhfihg_gl_ qZklh fh`gh jZaf_klblv dhfihg_gl PaintBox ©jZfdZ ^ey      ohe
klZª kf kljZgbpm 6\VWHP iZeblju  dhfihg_glh\  m dhlhjh]h _klv k\hckl\h
Canvas>eyjbkh\ZgbydeZkkCanvas\dexqZ_l k\hckl\Z: Font (rjbnl Pen i_
jh bBrush dbklv 
       I_jh oZjZdl_jbam_lky k\hckl\Zfb Color (p\_l), Width (lhesbgZ  Style
(klbev DbklvoZjZdl_jbam_lkyp\_lhfbklbe_f
       =jZnbq_kdb_ nmgdpbb  LineTo, Rectangle b ^j y\eyxlky f_lh^Zfb
TCanvasKijZ\dmihk\hckl\Zfbf_lh^Zf&DQYDVkf\Ijbeh`_gbb
       bZiZahgbaf_g_gbyihhkb<
        YMin:=-1;
        PW:=PB.width;RbjbgZh[eZklbjbkh\Zgby
        PH:=PB.height;

Заказать работу

Введение в Delphi. Рудалев В.Г - 22 стр.

UptoLike

ВУЗ:

Рудалев В.Г.

Кремер А.И.

Программирование

Вы здесь

Введение в Delphi. Рудалев В.Г - 22 стр.

UptoLike

ВУЗ:

Рудалев В.Г.

Кремер А.И.

Программирование

Страницы