Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.11.2014, 01:02   #1
Антон1994
Новичок
Джуниор
 
Регистрация: 03.11.2014
Сообщений: 2
Стрелка Помогите с ошибкой

Код:
#include <vcl.h>
#pragma hdrstop
#include <math.h>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
class detal
{
float l,c,b,a,r,r1,d1,d2,d3;
char alpha;
};
class chast1: detal
{
public:
float l,c,d1,r1;
chast1(float L,float C,float D1,float R1);
void print(TImage &img);
};
chast1::chast1(float L,float C,float D1,float R1)
{
l=L;
c=C;
d1=D1;
r1=R1;
};
void chast1::print(TImage &img)
{
const mashtab=100;
float L=l*mashtab;
float C=c*mashtab;
float D1=d1*mashtab;
float R1=r1*mashtab;
TPoint tPoints[4];
img.Canvas->Pen->Color = clBlack;
img.Canvas->Pen->Width=2;
tPoints[0].x = 100+r1;
tPoints[0].y = 100+r1;
tPoints[1].x = 100+l-c;
tPoints[1].y = 100+r1;
tPoints[2].x = 100+l-c;
tPoints[2].y = 100+d1-r1;
tPoints[3].x = 100+r1;
tPoints[3].y = 100+d1-r1;
img.Canvas->MoveTo(100,100);
img.Canvas->Arc(100,100-r1,100+2*r1,100+r1,100,100,100+r1,100+r1);
img.Canvas->LineTo(100,100+d1);
img.Canvas->Arc(100,100+d1-r1,100+2*r1,100+d1+r1,100+r1,100+d1-r1,100,100+d1);
img.Canvas->Polyline(tPoints,3);
};
class chast2: detal
{
float c,b;
char alpha;
chast2(float C,float B,char ALPHA);
void print(TImage &img1);
};
chast2::chast2(float C,float B,char ALPHA)
{
c=C;
b=B;
alpha=ALPHA;
};
void chast2::print(TImage &img)
{
const mashtab=100;
float C=c*mashtab;
float B=b*mashtab;
img.Canvas->Pen->Color = clRed;
img.Canvas->Pen->Width=10;
img.Canvas->MoveTo(140,50);
};
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float l,c,b,a,d1,d2,d3,r,r1;
char alpha;
l=90,c=50,r1=10;
chast1 ch1(l,c,d1,r1);
ch1.print(*Image1);

};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
float c,b;
char alp;
c=50,b=30,alp=30;
chast2 ch2(c,b,alp);
ch2.print(*Image1);
}
//---------------------------------------------------------------------------
[C++ Error] Unit1.cpp(98): E2247 'chast2::chast2(float,float,char)' is not accessible
[C++ Error] Unit1.cpp(99): E2247 'chast2:rint(TImage &)' is not accessible

Последний раз редактировалось Stilet; 04.11.2014 в 07:10.
Антон1994 вне форума Ответить с цитированием
Старый 04.11.2014, 02:19   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

и тебе подарок.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с ошибкой Алексей11111 Microsoft Office Excel 7 26.10.2009 11:12
Помогите с ошибкой Wildangel0990 Помощь студентам 1 02.07.2009 18:58
Помогите с ошибкой Wildangel0990 Помощь студентам 6 02.07.2009 10:10
помогите с ошибкой Titan123 Общие вопросы Delphi 9 18.07.2008 15:12
Помогите с ошибкой IO 32 JIK Общие вопросы Delphi 4 21.06.2008 18:17