|
버튼을 누르면 계산이 되면서,
y=ax+b의 그림을 그려주기 위해 티차트를 사용하였습니다.
작성해준 코드는 아래와 같습니다.
실행도 잘되고 하는데, 버튼을 누르면 아무런 변화가 없네요...ㅠ_ㅠ
아 그리고
for 돌기전에
Series1->LinePen->Width=2;
를 추가하면 실행은 역시 되는데, 그리기 버튼을 눌렀을 때, 엑박뜨면서
"Project Project1.exe raised exception class EAccessViolation with message 'Access viloation at address 400B60DE in module 'vcl60.blp'. Read of address 0000010'. Process stopped. Use step or Run to continue."
라는 메세지가 나옵니다...
=================================================================================
TForm4 *Form4;
float Const_a, Const_b; // 실수를 상수자리에 입력할 수 있으므로.
void Fuction_1st(float a, float b); // 해 계산하는 함수.
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
Edit3->Clear(); //결과창 정리.
Const_a = Edit1->Text.ToDouble(); //입력값 받기.
Const_b = Edit2->Text.ToDouble();
Fuction_1st(Const_a, Const_b); //함수 부르기.
Series1->Clear();
for(int i=0 ; i<10 ; i++)
Series1->AddXY(i, Const_a*i+Const_b);
}
//---------------------------------------------------------------------------
void Fuction_1st(float a, float b)
{
if(a==0) Form4->Edit3->Text="a=0이 될 수 없습니다." ;
else Form4->Edit3->Text=FormatFloat("0.####", -b/a);
}
//---------------------------------------------------------------------------
|