Файл: Разработка программного модуля на языке высокого уровня для решения инженерных задач на примере расчёта и построения резьбовых соединений.docx

Pen.Style: = psDashDot;//штрих-пунктирная линия

MoveTo(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M-10), 150); //начало для горизонтальной

оси симметрии

Lineto(round(301+1.5*GAIKA_GOST_5915_70[k,1]*M+10), 150); //линия

горизонтальной оси симметрии

Pen.Style: = psSolid; //обычная линия

pen.Width: = 2; //толщина 2 пик

MoveTo(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M), 150); //начало для обозначения фазки

Lineto(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M+2*M), 150); //обозначение фазки

// Винт вид сверу

Pen.Style: = psSolid; //обычная линия

pen.Width: = 2; //толщина 2 пик

Rectangle(round(530-0.7*BOLT_GOST_7798_70[k,2]*M) , round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M),

round(530+0.7*BOLT_GOST_7798_70[k,2]*M) ,

round(150+0.7*SHAIBA_GOST_11371_78[k,2]*M)); //Плоскость детали

Ellipse(round(530-0.75*BOLT_GOST_7798_70[k,1]*M) , round(150-

0.75*BOLT_GOST_7798_70[k,1]*M),

round(530+0.75*BOLT_GOST_7798_70[k,1]*M) ,

round(150+0.75*BOLT_GOST_7798_70[k,1]*M)); //тело шпильки

MoveTo(530+round(0.53*BOLT_GOST_7798_70[k,1]*M), 150-

round(0.53*BOLT_GOST_7798_70[k,1]*M)); //начало для обозначения

фазки

Lineto(530-round(0.53*BOLT_GOST_7798_70[k,1]*M),

150+round(0.53*BOLT_GOST_7798_70[k,1]*M)); //обозначение фазки

pen.Width: = 1; //толщина 1 пик

Pen.Style: = psDashDot; //штрих пунктирная линия

MoveTo(round(530-0.5*BOLT_GOST_7798_70[k,2]*M-10), 150);

//горизонтальная ось симметрии

Lineto(round(530+0.5*BOLT_GOST_7798_70[k,2]*M+10), 150);

//горизонтальная ось симметрии

MoveTo(530, round(150-0.53*BOLT_GOST_7798_70[k,4]*M-10));

//вертикальная ось симметрии

Lineto(530, round(150+0.53*BOLT_GOST_7798_70[k,4]*M+10));

//вертикальная ось симметрии

//выноски размеров

{Для вида слева}

Pen.Style: = psSolid; {обычная линия}

{высота шляпки}

MoveTo(round(303-strtofloat(edit1.Text)*M)-2, round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M-6*M));

Lineto(round(303-strtofloat(edit1.Text)*M)-2, 150);

MoveTo(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-1, round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M-6*M));

Lineto(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-1, 150);

//горизонтальная

MoveTo(round(303-strtofloat(edit1.Text)*M)-2,round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M-4.7*M));

Lineto(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-1,round(150-

0.7*SHAIBA_GOST_11371_78[k,2]*M-4.7*M));

{диаметр шляпки}

MoveTo(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M),

round(150+0.75*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-30,

round(150+0.75*BOLT_GOST_7798_70[k,1]*M)-1);

MoveTo(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M), round(150-

0.75*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-30, round(150-

0.75*BOLT_GOST_7798_70[k,1]*M)-1);

//вертикальная

MoveTo(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-20,round(150-

0.75*BOLT_GOST_7798_70[k,1]*M)-1);

Lineto(round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-

20,round(150+0.75*BOLT_GOST_7798_70[k,1]*M)-1);

Label17.Visible: = False;

Label18.Visible: = True;

Label19.Visible: = True;

{D}

Label18.Left: = 168+round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-40;

Label18.Top: = 16+140;

{H}

Label19.Left: = 184+round(299-strtofloat(edit1.Text)*M-

0.6*BOLT_GOST_7798_70[k,1]*M)-1;

---

Label19.Top: = 16+round(130-0.7*SHAIBA_GOST_11371_78[k,2]*M-

4.7*M);

end;

GroupBox2.Visible: = False;

GroupBox3.Visible: = False;

GroupBox4.Visible: = False;

label14.Caption: = 'Винт '+'М'+ box1.Text +' х '+floattostr(DLINA)+'.58

'+'ГОСТ 22032-76';

LABEL8.Caption: = 'Принимаем стандартную длину по ГОСТ 7798-70, равную

'+floattostr(DLINA) + ' мм';

label15.Caption: = '';

label16.Caption: = '';

end;

end;

end;

end.

Результаты работы:

Библиографический список

1. Партин А.С. Программирование на языке Паскаль. Конспект лекций.- Екатеринбург: ГОУ ВПО УГТУ-УПИ, 2003, 77с.

2. Чекмарев А.А., Осипов В.К. Справочник по машиностроительному черчению.- М.: Высшая школа, 1994. – 671с.; ил.

3. Инженерная графика и машиностроительное черчение. Ч. II. Методические указания и контрольные задания для студентов всех технических специальностей и форм обучения. - Свердловск, изд. УПИ им. С.М. Кирова, 1977, с.28. Под редакцией канд. тех. наук Мальцева В.И.

4. Соединения разъёмные и неразъёмные: Методические указания по курсу «Инженерная графика» / В.А. Белоусова, О.В. Железнова, Е.Я. Жигалова, Э.Э. Истомина, Т.И. Кириллова. Екатеринбург: УГТУ-УПИ, 1994. 51с.

---