Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Delphi7

Автор: Людочка 21.5.2006, 15:11

как запрограмировать кнопку "график" ,щтоб при нажатию ее показивался график .  по у должны быть значения I1,12,13,14,15,16,17,а по х значения R1,R2,R3,R4,R5,R6,R7.
procedure TForm3.Button1Click(Sender: TObject);
begin
{(E4-E2)*(R1+R5+R7+r1)*(R4+R6+r4)*(R3+R2+r3+r2)+E1*R5*(R4+R6+r4)*(R3+R2+r3+r2)-
E4*(R4+r4)*(R1+R5+R7+r1)*(R3+R2+r3+r2)+(R2+r2)*(E2-E3)*(R1+R5+R7+r1)*(R4+R6+r4))
/(-(R2+R4+R5+r4+r2)*(R1+R5+R7+r1)*(R4+R6+r4)*(R3+R2+r3+r2)-R5*R5*(R4+R6+r4)*
(R3+R2+r3+r2) -(R4+r4)*(R4+r4)*(R1+R5+R7+r1)*(R3+R2+r3+r2)-(R2+r2)*(R2+r2)*
(R1+R5+R7+r1)*(R4+R6+r4))=I22}
     Edit23.Text:=inttostr((strtoint(Edit11.Text)-(strtoint(Edit9.Text))*
            (strtoint(Edit1.Text)+ strtoint(Edit5.Text)+strtoint(Edit7.Text)+
            strtoint(Edit12.Text))*(strtoint(Edit4.Text)+ strtoint(Edit6.Text) +
            strtoint(Edit15.Text))*(strtoint(Edit3.Text)+strtoint(Edit2.Text)+
            strtoint(Edit14.Text)+ strtoint(Edit13.Text))+strtoint(Edit8.Text)*
             strtoint(Edit5.Text)*(strtoint(Edit4.Text)+ strtoint(Edit6.Text)+
            strtoint(Edit15.Text))*(strtoint(Edit3.Text)+strtoint(Edit2.Text)+
           strtoint(Edit14.Text)+ strtoint(Edit13.Text))-strtoint(Edit11.Text)*
           (strtoint(Edit4.Text)+strtoint(Edit15.Text))*(strtoint(Edit1.Text)+
           strtoint(Edit5.Text)+strtoint(Edit7.Text)+strtoint(Edit12.Text))*
           (strtoint(Edit3.Text)+strtoint(Edit2.Text)+strtoint(Edit14.Text)+
           strtoint(Edit13.Text))+(strtoint(Edit2.Text)+strtoint(Edit13.Text))*
          (strtoint(Edit9.Text)-strtoint(Edit10.Text))*
           (strtoint(Edit1.Text)+ strtoint(Edit5.Text)+strtoint(Edit7.Text)+
            strtoint(Edit12.Text))*(strtoint(Edit4.Text)+ strtoint(Edit6.Text)+
            strtoint(Edit15.Text)))/ ((-1)*(strtoint(Edit2.Text) +
            strtoint(Edit4.Text)+strtoint(Edit5.Text) + strtoint(Edit15.Text)+
          strtoint(Edit13.Text))*(strtoint(Edit1.Text)+ strtoint(Edit5.Text)+
          strtoint(Edit7.Text)+strtoint(Edit12.Text))*(strtoint(Edit4.Text)+
          strtoint(Edit6.Text) +strtoint(Edit15.Text))*(strtoint(Edit3.Text)+
          strtoint(Edit2.Text)+strtoint(Edit14.Text)+ strtoint(Edit13.Text))-
           strtoint(Edit5.Text)* strtoint(Edit5.Text)* (strtoint(Edit4.Text)+
           strtoint(Edit6.Text) +strtoint(Edit15.Text))*(strtoint(Edit3.Text)+
           strtoint(Edit2.Text)+strtoint(Edit14.Text)+ strtoint(Edit13.Text))-
     (strtoint(Edit4.Text)+strtoint(Edit15.Text))*(strtoint(Edit4.Text)+
            strtoint(Edit15.Text))*(strtoint(Edit1.Text)+ strtoint(Edit5.Text)+
            strtoint(Edit7.Text)+strtoint(Edit12.Text))*(strtoint(Edit3.Text)+
            strtoint(Edit2.Text)+strtoint(Edit14.Text)+ strtoint(Edit13.Text))-
            (strtoint(Edit2.Text)+strtoint(Edit13.Text))* (strtoint(Edit2.Text)+
            strtoint(Edit13.Text))*(strtoint(Edit1.Text)+ strtoint(Edit5.Text)+
            strtoint(Edit7.Text)+strtoint(Edit12.Text))*(strtoint(Edit4.Text)+
            strtoint(Edit6.Text) + strtoint(Edit15.Text))));

     {I11=(-E1-R5*I22)/(R1+R5+R7+r1)}

   Edit16.Text:=inttostr((-strtoint(Edit8.Text)-strtoint(Edit5.Text)*
   strtoint(Edit23.Text))/(strtoint(Edit1.Text)+ strtoint(Edit5.Text)+
   strtoint(Edit7.Text)+strtoint(Edit12.Text)));

    {I7=(-E1-R5*I22)/(R1+R5+R7+r1)}

   Edit22.Text:=inttostr((-strtoint(Edit8.Text)-strtoint(Edit5.Text)*
   strtoint(Edit23.Text))/(strtoint(Edit1.Text)+ strtoint(Edit5.Text)+
   strtoint(Edit7.Text)+strtoint(Edit12.Text)));

                {I6=(-E4+(R4+r4)*I22)/(R4+R6+r4)}

   Edit21.Text:=inttostr((-strtoint(Edit11.Text)+
    (strtoint(Edit4.Text)+strtoint(Edit15.Text))* strtoint(Edit23.Text))/
(strtoint(Edit4.Text)+ strtoint(Edit6.Text)+strtoint(Edit15.Text)));

      {I3=(E2-E3+(R2+r2)*I22)/(R3+R2+r3+r2)}

    Edit18.Text:=inttostr((strtoint(Edit9.Text)-strtoint(Edit10.Text)+
    (strtoint(Edit2.Text)+strtoint(Edit13.Text))* strtoint(Edit23.Text))/
(strtoint(Edit3.Text)+ strtoint(Edit2.Text)+strtoint(Edit14.Text)+
strtoint(Edit13.Text)));

     {I5=I22+I1}

   Edit20.Text:=inttostr( strtoint(Edit23.Text)+strtoint(Edit16.Text));

   {I4=I22-I6}

    Edit19.Text:=inttostr( strtoint(Edit23.Text)-strtoint(Edit21.Text));

    {I2=I22-I3}

     Edit17.Text:=inttostr( strtoint(Edit23.Text)-strtoint(Edit18.Text));

end;

end.
R1= Edit1
R2=Edit2
R3=Edit3
R4= Edit4
R5= Edit5
R6= Edit6
R7= Edit7
I1= Edit16
I2= Edit17
I3= Edit18
I4= Edit19
I5= Edit20
I6= Edit21
I7=  Edit22
I22=  Edit23

button4=Графік.

Автор: Albinos_x 21.5.2006, 15:29

1. Пользуйтесь тегом [code=delphi]

2. У делфи есть стандартный компанент TChart на вкладке Addidional, можно конечно извратиться и насисовать самому...