Все

Компьютерная программа расчета припусков на обработку штамповок по ГОСТ 7505-89

С целью повышения эффективности технологического проектирования деталей машиностроения, разработана компьютерная программа OPIDSH расчета припусков и определения допусков и кузнечных напусков на поковки стальные штампованные по ГОСТ 7505-89. Стандарт устанавливает наибольшие величины допусков размеров, отклонение формы, припусков, кузнечных напусков и наименьшие радиусы закругления наружных углов.

Данная версия программы предусматривает работу пользователя на локальном компьютере с установленной операционной системой Windows. Она не требует специальной инсталляции, копируется в любое место жесткого диска и может запускаться с флеш-накопителя.

В результате анализа состава информации и взаимосвязей между данными, разработана база данных для локальных компьютеров (рис.1-2):

Модель допусков

Рис. 1. Модель данных для определения предельных отклонений и полей допусков

Модель данных1_1

Рис. 2. Модель данных для определения припусков, допусков и кузнечных напусков

Нормативно-справочная информация хранится во внешних файлах для хранения 18-ти таблиц из ГОСТ 7505-89. Например (табл.1),

Таблица 1.

Изогнутость и отклонения от плоскостности и прямолинейности

0.00 1.00 2.00 3.00 4.00 5.00
100.00 0.10 0.20 0.20 0.30 0.40
160.00 0.20 0.20 0.30 0.40 0.50
250.00 0.20 0.30 0.40 0.50 0.60
400.00 0.30 0.40 0.50 0.60 0.80
630.00 0.40 0.50 0.60 0.80 1.00
1000.00 0.50 0.60 0.80 1.00 1.20
1600.00 0.60 0.80 1.00 1.20 1.60
2500.00 0.80 1.00 1.20 1.60 2.00

 

Для выбора данных из таблиц, представленных в виде текстовых файлов, разработана универсальная подпрограмма vdizt (рис.3):

VDIZT

Рис. 3. Фрагмент текста универсальной подпрограммы (VDIZT) выбора данных из текстовых таблиц

После запуска программы, появляется окно для ввода пароля (рис.4), который пользователь получает при приобретении программы.

password

Рис.4. Окно ввода пароля

В главном окне (рис.5) отображается информация связанных таблиц базы данных, куда пользователь вводит входную информацию. Записи первой таблицы связаны с записями второй.

Untitled-1

Рис. 5. Главное окно программы

Входная информация автоматически сохраняется в базе данных и вводится пользователем в следующей последовательности:

  • в первой (верхней) таблице вводится информация о детали (номер, масса, оборудование, класс точности, группа стали, степень сложности и т.п.);
  • во второй таблице (нижней) вводится информация о поверхностях детали, на которые рассчитываются припуски и допуски (номинальный размер, шероховатость и т.п.).

В свою очередь, каждое поле данных связано с таблицами базы данных, из которых пользователь имеет возможность выбрать и назначить конкретное значение.

Например, группа стали выбирается из предлагаемого списка в появившемся окне (рис.6):

 GS

Рис. 6. Окно выбора группы стали

Информация о поверхностях детали вводится в окне (рис.7):

Данные о поверхностях

Рис. 7. Окно ввода данных о поверхностях детали

Данная программа имеет высокий уровень автоматизации решения задачи, пользователю предлагается только ввести информацию о детали и ее поверхностях. Расчет припусков выполняется автоматически, после чего создается отчет о результатах работы программы. Информация, содержащаяся в отчете представлена в такой же форме, как и примеры расчета припусков из ГОСТ 7505-89 (рис. 8).

Otchet

Рис. 8. Результаты работы программы

Отчет с результатами работы программы можно сохранить в *.pdf файле.

Дальнейшие исследования в данном направлении связаны с анализом технологий и созданию WEB приложения по расчету припусков (рис.9).

Shema

Рис. 9. Схема работы WEB программы

Выводы:

  1. Работоспособность программы проверялась на тестовых примерах, представленных в ГОСТ 7505-89. Анализ полученных результатов показал правильность вычислений. Более того, были выявлены некоторые неточности в расчетах, представленных в ГОСТ 7505-89.
  2. Для расчета припусков и получения отчета с результатами автоматизированным методом требуется от 1-й до 5-ти минут времени.
  3. Программа позволяет сократить себестоимость технологического проектирования, повысить точность и качество проектирования, повысить производительность труда технологов.
  4. Программа может быть рекомендована для использования на машиностроительных предприятиях при проектировании технологических процессов, а также в учебных заведениях при подготовке будущих инженеров-технологов.

Условия приобретения программы…

Расчет прочности балки в САПР Компас-3D

Мы уже писали про конечно-элементный анализ в САПР Компас-3D v.13 (

http:////cadregion.ru/kompas-3d/konechno-elementnyj-analiz-trexmernoj-tverdotelnoj-modeli-detali-ili-sborki-v-sapr-kompas-3d-v-13.html).

Сегодня рассмотрим практический пример расчета прочности балки в САПР Компас-3D с использованием библиотеки прочностного анализа в САПР Компас-3D v.16. Чтобы быстро ознакомиться с особенностями расчета мы представляем небольшой видеоролик:

Редактирование ресурсов прикладной программы

Исполняемый файл любой программы содержит программный код (функционал программы) и элементы, связанные с интерфейсом (ресурсы программы). К ресурсам программы относят: надписи, названия элементов управления, цвет, названия пунктов меню, иконки, изображения на форме и т.п. Ресурсы размещаются в отдельном месте исполняемого файла, они отдалены от программного кода. Изменяя ресурсы можно несколько изменить внешний вид программы, выполнить перевод текста на нужный язык, но нельзя повлиять на функционал программы.

Редактирование ресурсов выполняют в специальных программах – редакторах ресурсов, которые позволяют загружать файлы с расширениями *.exe, *.dll, *ocx, *.scr, *.bpl и др. Изменив необходимые ресурсы, создается новая копия файла с приведенными расширениями.

Следует отметить, что при любых изменениях файлов программы нарушаются авторские права. Редактированием ресурсов можно заниматься исключительно в познавательных целях и проводить подобные эксперименты над собственными файлами разработанных программ.

Редактирование ресурсов в программе Restorator (Bome™ Software)

Restorator — это программа, флагманский продукт компании Bome, предназначенный для редактирования файлов ресурсов. Программа известна с 1997 года и завоевала большую популярность. Программа позволяет редактировать ресурсы Windows-программ и их компонентов, находящиеся в файлах .exe, .dll, .res, .rc и .drc. Функции программы позволяют добавлять, удалять или изменять тексты, изображения, иконки, звуки, видеоролики, номера версий, надписи в диалогах и меню большинства программ. Restorator широко используется для перевода и локализации программного обеспечения, для внесения в него различного рода улучшений, изменения дизайна, и так далее.

Пример:

Редактирование ресурсов в программе PE Explorer (Copyright © 2015 Heaventools Software)

PE Explorer — это программа для просмотра, изучения, анализа и редактирования внутреннего устройства исполняемых файлов. С помощью PE Explorer можно исследовать как свои собственные программы и библиотеки, так и приложения от сторонних разработчиков. Сюда же относится изучение устройства вирусов, троянов и прочих вредоносных программ.

PE Explorer позволяет открывать, смотреть и редактировать 32-битные PE (Portable Executable) файлы для Windows любого типа: EXE, DLL и ActiveX, SCR (скринсейверы), CPL (Control Panel Applets), SYS, DRV, BPL, DPL, и многие другие.

Пример:

Сборка и анимация винтового домкрата в САПР

Одной из основных задач проектирования машин является правильная 3D сборка и проверка её с помощью анимации. Анимация сборок часто используется при создании презентаций.

Рассмотрим задачу, связанную со сборкой и анимацией винтового домкрата в САПР SolidWorks и Компас-3D. Создание 3D моделей деталей домкрата мы рассматривать не будем, считая, что они уже спроектированы.

clip_image002

Рис.1. Винтовой домкрат

Ниже приведены основные 3D модели деталей винтового домкрата:

№ п.п.

Наименование

3D модель

1

Корпус

clip_image004

2

Гайка

clip_image006

3

Винт

clip_image008

4

Ручка

clip_image010

5

Коронка

clip_image012

Далее представлены видеоролики:

Сборка и анимация винтового домкрата в SolidWorkd

Сборка и анимация винтового домкрата в Компас-3D

Функции сообщений в Delphi

При разработке программ автоматизированного проектирования в Delphi приходится использовать окна сообщений. В данной статье функции для создания окон сообщений собраны в одном месте, а простые примеры помогут проектировщику выбрать из предложенного списка наиболее эффективную для решения поставленной задачи.

1. Функция MessageBox (Windows API)
2. Функция MessageBoxEx (Windows API)
3. Функция MessageBox (класса TApplication, модуля Forms)
4. Функция MessageDlg (модуля Dialogs)
5. Функция MessageDlgPos (модуля Dialogs)
6. Функция MessageDlgPosHelp (модуля Dialogs)
7. Процедура ShowMessage (модуля Dialogs)
8. Процедура ShowMessagePos (модуля Dialogs)
9. Процедура ShowMessageFmt (модуля Dialogs)
10. Функция CreateMessageDialog (модуля Dialogs)
11. Функция TaskMessageDlg (модуля Vcl.Dialogs)
12. Функция FlashWindow (Windows API)
13. Функция MessageBeep (Windows API)

1. Функция MessageBox (Windows API)

Функция – отображает диалоговое окно с сообщением.

1_MessageBox

Синтаксис функции (Windows API):

function MessageBox (Wnd: HWND; lpText, lpCaption : PChar; uType : Cardinal) : integer;

Описание:

Функция используется, чтобы отобразить универсальное диалоговое окно сообщений с одной или более кнопками.

Параметр hWnd – маркер (дескриптор) окна владельца, идентифицирует окно владельца окна сообщений. Если этот параметр НУЛЕВОЙ (ПУСТОЙ), окно сообщений не имеет никакого владельца.

Параметр ipText – указатель на строку, содержащую сообщение, с нулевым символом в конце. Текст сообщения может быть длинным, более чем 255 символов в случае необходимости.

Параметр ipCaption — заголовок, который появляется в области заголовка диалогового окна. Заголовки могут быть более длинными, чем 255 символов, из-за чего создается широкое окно сообщений.

Параметр uType определяет набор флажков, которые определяют содержание и поведение диалогового окна. Этот параметр может быть комбинацией флажков из следующих групп флажков.

Группа флажков, определяющая, какие кнопки появятся на окне сообщений

№ п.п. Значения параметра Описание
1 MB_ABORTRETRYIGNORE Окно сообщений содержит три кнопки: Abort, Retry, and Ignore.
2 MB_OK Окно сообщений содержит одну кнопку: OK. Это значение по умолчанию.
3 MB_OKCANCEL Окно сообщений содержит две кнопки: OK и Cancel.
4 MB_RETRYCANCEL Окно сообщений содержит две кнопки: Retry and Cancel.
5 MB_YESNO Окно сообщений содержит две кнопки: Yes и No.
6 MB_YESNOCANCEL Окно сообщений содержит три кнопки: Yes, No, и Cancel.

Функция MessageBox возвращает 0, если нет достаточного количества памяти, чтобы создать окно сообщений. Иначе она возвращает одно из следующих значений:

Возвращаемое значение функции Возвращаемое числовое значение функции Описание
1 IDOK 1 Пользователь выбрал кнопку OK.
2 IDCANCEL 2 Пользователь выбрал кнопку Cancel.
3 IDABORT 3 Пользователь выбрал кнопку Abort.
4 IDRETRY 4 Пользователь выбрал кнопку Retry.
5 IDIGNORE 5 Пользователь выбрал кнопку Ignore.
6 IDYES 6 Пользователь выбрал кнопку Yes.
7 IDNO 7 Пользователь выбрал кнопку No.

Группа флажков, определяющая, какие иконки отобразятся в окне сообщений

№ п.п. Значения параметра Иконка Описание
1 MB_ICONEXCLAMATIONMB_ICONWARNING 2_Icon В окне сообщений появляется значок восклицательного знака
2 MB_ICONINFORMATIONMB_ICONASTERISK 3_Icon В окне сообщений появляется значок, состоящий из символа I нижнего регистра в круге.
3 MB_ICONQUESTION 4_Icon В окне сообщений появляется вопросительный знак в круге.
4 MB_ICONSTOPMB_ICONERRORMB_ICONHAND 5_Icon В окне сообщений появляется знак Stop

Группа флажков, указывающая на основную кнопку

№ п.п. Значения параметра Описание
1 MB_DEFBUTTON1 Первая кнопка — основная кнопка.
2 MB_DEFBUTTON2 Вторая кнопка — основная кнопка.
3 MB_DEFBUTTON3 Третья кнопка — основная кнопка.
4 MB_DEFBUTTON4 Четвертая кнопка — основная кнопка.

Группа флажков, указывающая на поведение диалогового окна

№ п.п. Значения параметра Описание
1 MB_APPLMODAL
Пользователь должен ответить на окно сообщения перед продолжением работы в окне, идентифицированном параметром hWnd. Однако, пользователь может переходить в окна других приложений и работать в этих окнах. В зависимости от иерархии окон в приложения, пользователь может переходить в другие окна в пределах приложения. Все дочерние окна родителя окна сообщений автоматически заблокированы, но всплывающие окна — нет. Флажок MB_APPLMODAL — значение по умолчанию.
2 MB_SYSTEMMODAL
То же самое, что и MB_APPLMODAL, за исключением того, что окно сообщений имеет WS_EX_TOPMOST стиль, окно сообщений становится приоритетным окном. Используйте системно — модальные окна сообщений, чтобы уведомить пользователя относительно серьезных, потенциально вредящих ошибок, которые требуют непосредственного (немедленного) внимания (например, исчерпана память). Этот флажок не имеет никакого эффекта на взаимодействие с другими окнами.
3 MB_TASKMODAL
Тот же самое как MB_APPLMODAL за исключением того, что все окна верхнего уровня, принадлежащие к текущей задаче заблокированы, если hWnd параметр НУЛЕВОЙ (ПУСТОЙ).

Кроме того, можно определить следующие флажки:

№ п.п. Значения параметра Описание
1 MB_DEFAULT_DESKTOP_ONLY
Окно сообщений не появляется. Задан по умолчанию рабочий стол, приложение может выполняться после того, как пользователь вызвал окно сообщений.
2 MB_HELP
Прибавляет кнопку Help (Справка) к окну сообщений. Выбор кнопки Help или нажима F1 генерирует справку.
6_Icon
3 MB_RIGHT
Текст сообщения и заголовка выровнен по правой стороне окна.
4 MB_RTLREADING
Отображает сообщение и текст заголовка (надписи) «справа налево» на еврейских и арабских языках. Окно симметрично центра поворачивается справа налево.
5 MB_SETFOREGROUND
Окно сообщений становится приоритетным окном. Внутренне Windows вызывает функцию SetForegroundWindow.
6 MB_TOPMOST
Окно сообщений создано со стилем окна WS_EX_TOPMOST. Пока не закроете, все время на экране, поверх всех окон.
7 MB_SERVICE_NOTIFICATION
Только для Windows NT: Функция отображает окно сообщений на текущем активном рабочем столе. Если этот флажок установлен, hWnd параметр должен быть НУЛЕВОЙ (ПУСТОЙ).

Пример (фрагмент программы по созданию диалогового окна сообщений):

[code lang=»pascal»]
procedure TForm1.Button1Click(Sender: TObject);
var
WND:HWND;
lpText,lpCaption:PChar;
Tip:integer;
begin
WND:=Form1.Handle;
lpCaption:=’Заголовок’;
lpText:=’Текст окна’;
Tip:=MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON1;
Edit1.Text:=IntToStr(Tip);
case MessageBox(Wnd,lpText,lpCaption,Tip) of
ID;YES: Edit1.Text:=’Выбрана кнопка OK’;
IDNO : Edit1.Text:=’Выбрана кнопка NO’;
end;
end;
[/code]

2. Функция MessageBoxEx (Windows API)

Функция – отображает диалоговое окно с сообщением.

MessageBoxEX

Синтаксис функции (Windows API):

function MessageBox (Wnd: HWND; lpText, lpCaption : PChar; uType : Cardinal; wLanguageId: Word) :  integer;

Описание:

Функция используется, чтобы отобразить универсальное диалоговое окно сообщений с одной или более кнопками. Аналогична функции MessageBox, только добавлен еще один параметр wLanguageId, представляющий идентификатор языка, на котором будут отображаться надписи на кнопках, например:

$0409 English (United States);

$0419 Russian;

$0422 Ukrainian;

$0423 Belarusian;

$0407 German (Standard);

и т.д.

Пример:

[code lang=»pascal»]
procedure TForm3.Button1Click(Sender: TObject);
var
WND : HWND;
lpText,lpCaption : PChar;
Tip : Integer;
wLanguageId : Word;
begin
WND:=Form3.Handle;
lpCaption:=’Заголовок’;
lpText:=’Текст окна’;
Tip:=MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON1;
wLanguageId:=$0419;
case MessageBoxEx(Wnd,lpText,lpCaption,Tip, wLanguageId) of
IDYES: Edit1.Text:=’Выбрана кнопка Да’;
IDNO: Edit1.Text :=’Выбрана кнопка Нет’;
end;
end;
[/code]

3. Функция MessageBox (класса TApplication, модуля Forms)

Синтаксис функции:

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

В данной функции отсутствует первый параметр – маркер (дескриптор) окна владельца, в остальном используется аналогично приведенной выше.

[code lang=»pascal»]
procedure TForm1.Button1Click(Sender: TObject);
var
lpText,lpCaption : PChar;
Tip : integer;
begin
lpText := ‘Сообщение’;
lpCaption := ‘Заголовок’;
Tip := MB_YESNO;
with Application do
begin
MessageBox(lpText, lpCaption, Tip);
end;
end;
[/code]

Результат выполнения программного кода

MessageBox_

4. Функция MessageDlg (модуля Dialogs)

Синтаксис функции

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

Описание

Функция MessageDlg используется для создания окна сообщений и получения на него реакции пользователя.

10

Параметр Msg – текст сообщения.

Параметр DlgType – определяет тип окна сообщений. Предлагаются следующие их типы:

№ п.п. Значение Изображение Описание
1 mtWarning 11
окно сообщений, содержащее желтый символ восклицательного знака.
2 mtError 12
окно сообщений, содержащее красный знак ограничителя.
3 mtInformation 13
окно сообщений, содержащее синюю букву «i».
4 mtConfirmation 14
окно сообщений, содержащее синий вопросительный знак.
5 mtCustom 15
окно сообщений, не содержащее растрового изображения. Заголовок окна сообщений — имя исполняемого файла приложения.

Параметр Buttons определяет следующие типы кнопок:

type

TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp);

TMsgDlgButtons = set of TMsgDlgBtn;

Типы кнопок Возвращаемое значение
mbOK mrOK
mbCancel mrCancel
mbYes mrYes
mbNo mrNo
mbAbort mrAbort
mbRetry mrRetry
mbIgnore mrIgnore
mbAll mrAll
mbNoToAll mrNoToAll
mbYesToAll mrYesToAll
mbClose mrClose

Наборы кнопок также определены, как константы:

const

mbYesNoCancel = [mbYes, mbNo, mbCancel];

mbYesAllNoAllCancel = [mbYes, mbYesToAll, mbNo, mbNoToAll, mbCancel];

mbOKCancel = [mbOK, mbCancel];

mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];

mbAbortIgnore = [mbAbort, mbIgnore];

Примечание: 1. Если указываются кнопки, как элементы множества, то их необходимо писать в квадратных скобках. Например, [mbIgnore].

2. Если указывается набор кнопок, как константа, то писать нужно без скобок. Например, mbYesNoCancel.

Параметр HelpCtx определяет идентификатор для контекстной темы справки, которая должна появиться, когда пользователь нажимает кнопку справки или клавишу F1, в то время как отображено диалоговое окно. Если справка не нужна, то параметр равен нулю.

Фрагмент программы по использованию функции MessageDlg

[code lang=»pascal»]
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg(‘Первое сообщение программы. Принимаете?’,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
MessageDlg(‘Второе сообщение программы.’, mtInformation,[mbOk], 0);
end;
end;
[/code]

5. Функция MessageDlgPos (модуля Dialogs)

Синтаксис функции

function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word;

Описание

Отображает диалоговое окно сообщения в указанных аппаратных координатах устройства. Другие параметры функции аналогичны параметрам функции MessageDlg.

6. Функция MessageDlgPosHelp (модуля Dialogs)

Синтаксис функции

function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; const HelpFileName: string): Word;

Описание

Отображает диалоговое окно сообщения, справка которого предоставлена в именованном файле справки (HelpFileName) с номером раздела HelpCtx. Выводится на экран с координатами X,Y левого верхнего угла окна относительно левого верхнего угла экрана.

Параметры (аргументы функции)

Msg
Текст сообщения
DlgType
Тип диалога
Buttons
Типы отображаемых кнопок
HelpCtx
Номер раздела справки, который необходимо отобразить
X
Координата X окна
Y
Координата Y окна
HelpFileName
Имя файла справки, который должен быть показан, когда пользователь нажимает клавишу F1.

7. Процедура ShowMessage (модуля Dialogs)

Синтаксис процедуры

procedure ShowMessage(const Msg: string);

Описание

Процедура ShowMessage используется для отображения окна сообщений с кнопкой OK в центре рабочего стола.

Имя исполняемого файла приложения появляется как заголовок окна сообщений. Параметр Msg — строка, которая появляется в окне сообщений.

Если пользователь в окне сообщений нажмет клавиши Ctrl+C , текст сообщения копируется в буфер обмена.

Например,

[code lang=»pascal»]
procedure TForm3.Button1Click(Sender: TObject);
var
str1: string;
begin
Str1:=’Процедура ShowMessage используется для отображения окна сообщений с кнопкой OK’+#13+
‘в центре рабочего стола. Имя исполняемого файла приложения появляется как’+#13+
‘заголовок окна сообщений. Параметр Msg — строка, которая появляется в окне’+#13+
‘сообщений. Если пользователь в окне сообщений нажмет клавиши Ctrl+C, текст’+#13+
‘сообщения копируется в буфер обмена.’;
ShowMessage(str1);
end;
[/code]

Showmessage

8. Процедура ShowMessagePos (модуля Dialogs)

Синтаксис процедуры

procedure ShowMessagePos(const Msg: string; X, Y: Integer);

Описание

Процедура используется, чтобы отобразить простое окно сообщений с кнопкой OK в указанном координатами X, Y месте. Имя исполняемого файла приложения появляется как заголовок окна сообщений. Параметр Msg — строка, которая появляется в окне сообщений.

9. Процедура ShowMessageFmt (модуля Dialogs)

Синтаксис процедуры

procedure ShowMessageFmt(const Msg: string; Params: array of const);

Описание

Процедура используется, чтобы отобразить окно сообщений с кнопкой OK с параметрами. Имя исполняемого файла приложения появляется как заголовок окна сообщений. Параметр Msg — строка, которая появляется в окне сообщений.

Форматирование параметра Msg осуществляется в соответствии с правилами форматирования строк, применяемыми в функции format(). В параметр Msg передается шаблон сообщения с форматирующими символами, во второй параметр Param направляется массив с данными.

Пример,

[code lang=»pascal»]
procedure TForm3.Button1Click(Sender: TObject);
var
Msg : string;
k1,k2,k3 : real;
begin
k1:=2000;//расстояние в км.
k2:=20; //скорость км/час
Msg:=’Расстояние — %6.1f км,’+#13+’скорость — %3.1f км/час,’+#13+’время — %3.1f час’;
ShowMessageFmt(Msg,[k1,k2,k1/k2]);
end;
[/code]

ShowmessageFmt

10. Функция CreateMessageDialog (модуля Dialogs)

Синтаксис функции

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;

Описание

Функция используется для создания собственного диалогового окна сообщений.

Параметр Msg – текст сообщения;

Параметр DlgType – тип диалогового окна;

Параметр Buttons – типы отображаемых кнопок.

Значения параметров Msg и DlgType подробно определены в пункте «3. Функция MessageDlg».

Если пользователь в окне сообщений нажмет клавиши Ctrl+C, текст сообщения копируется в буфер обмена.

Пример:

[code lang=»pascal»]
procedure TForm3.Button1Click(Sender: TObject);
var
fmt:TForm;
begin
fmt:=CreateMessageDialog(‘Привет, мир!’,mtInformation,[mbOk]);
fmt.ShowModal;
end;
[/code]

CreateMessageDialog

11. Функция TaskMessageDlg (модуля Vcl.Dialogs)

Синтаксис функции

function TaskMessageDlg(const Title, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

Описание

Функция применяется для создания окна сообщения с заголовком Title и текстом сообщения Msg. Остальные параметры функции и их значения описаны выше при рассмотрении, например функции MessageDlg.

[code lang=»pascal»]
<b>Пример:</b>

procedure TForm3.Button1Click(Sender: TObject);
begin
TaskMessageDlg(‘Заголовок’,’Текст сообщения’,mtInformation, [mbOk,mbCancel], 0);
end;
[/code]

TaskMessageDlg

12. Функция FlashWindow (Windows API)

Синтаксис функции

function FlashWindow(Wnd:HWND; bInvert:boolean):boolean;

Описание

Функция применяется для мигания указанного окна.

Параметр Wnd – дескриптор окна программы;

Параметр bInvert определяет состояние окна, если bInvert:=true, то окно начнет мигать, если bInvert:=false, то окно перестанет мигать.

Эффект мигания окна используется для привлечения внимания пользователя на сообщение или некоторое событие.

Пример:

[code lang=»pascal»]
procedure TForm3.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true; //форма начнет мигать
end;

procedure TForm3.FormClick(Sender: TObject);
begin
Timer1.Enabled:=false; //форма перестанет мигать
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var
Wnd : HWND;
bInvert :boolean;
begin
WND:=Form3.Handle;
FlashWindow(WND,true);
end;
[/code]

13. Функция MessageBeep (Windows API)

Синтаксис функции

function MessageBeep(uType:Cardinal):Boolean;

Описание

Функция применяется для проигрывания звукового сигнала.

Параметр uType – определяет тип звукового сигнала. Определены следующие типы сигналов:

Значение Тип звука
1 $FFFFFFFF Стандартный звуковой гудок, используя компьютерный динамик.
2 MB_ICONASTERISK SystemAsterisk
3 MB_ICONEXCLAMATION SystemExclamation
4 MB_ICONHAND SystemHand
5 MB_ICONQUESTION SystemQuestion
6 MB_OK SystemDefault

Если функция не может запустить указанный звук, то она пытается запустить системный звук по умолчанию.

Пример:

[code lang=»pascal»]
procedure TForm2.Button1Click(Sender: TObject);
begin
MessageBeep(MB_ICONHAND);
end;
[/code]

Автоматизация принятия решений на основе методов экспертных оценок

В современных условиях многие задачи проектирования решаются с использованием систем автоматизированного проектирования (САПР).

Условно все задачи, решаемые в САПР, можно разделить на две группы: формализуемые и не формализуемые (трудно формализуемые).

Формализуемая задача имеет четко сформулированный алгоритм решения, на основе математических формул и представления данных.

В то же время многие задачи проектирования (например, подавляющее большинство задач структурного синтеза) плохо поддаются автоматизации, решаются вручную, эвристически на основе опыта и интуиции разработчика. При этом качество получаемых решений определяющим образом зависит от творческих способностей человека. Такие задачи принято называть плохо формализуемыми или не формализуемыми, к ним относятся:

1. задачи, не имеющие точно выраженной математической постановки (в терминах автоматизированного проектирования ‑ задачи, не имеющие конструктивной математической модели);

2. задачи, решение которых алгоритмическими методами невозможно или неэффективно.

Плохо формализуемые задачи ‑ это чаще всего задачи в нечисловой форме.

Например, имеется несколько вариантов решения технической задачи (проблемы), как оценить, выбрать лучший из них? Как математически описать алгоритм выбора?

Для широкого круга не формализуемых проблем (в технической, политической, идеологической, экономической, социальной, военной и других сферах человеческой деятельности) для принятия решений применяют экспертные процедуры, которые часто оказываются наиболее эффективны, а в ряде случаев могут оказаться единственным средством их решения [1,2].

Методы экспертных оценок — это методы организации работы со специалистами-экспертами и обработки мнений экспертов. Эти мнения обычно выражены частично в количественной, частично в качественной форме. Экспертные исследования проводят с целью подготовки информации для принятия решений.

Методы проведения экспертиз и обработки результатов для принятия решений достаточно подробно описаны в литературе. В данной статье мы остановимся на компьютерной программе Expert для оценки результатов и принятия решений, которая написана по методике, изложенной в работах [1,2].

В программе использовано два метода проведения экспертизы: метод ранжирования и приписывания баллов [1].

Краткое описание программы Expert для принятия решений

на основе методов экспертных оценок

Программа написана для операционной системы Windows, использует два метода проведения экспертиз и анализа данных: метод ранжирования и приписывания баллов [1].

При загрузке программы в оперативную память, появляется диалоговое окно выбора метода проведения экспертизы (рис.1).

метод экспертизы

Рис.1. Диалоговое окно выбора метода проведения экспертизы

Главное окно программы простое и состоит из элементов, обозначенных на рисунке 2.

главное окно программы

Рис.2. Интерфейс главного окна программы проведения экспертизы

По умолчанию появляется таблица для оценок экспертов, содержащая 20 экспертов (строк) и 20 факторов или критерий (столбцов). Используя переключатели, количество строк и столбцов настраивается пользователем, таблица автоматически масштабируется.

Настройка таблиц на условия проведения экспертизы

Рис.3. Настройка таблиц на условия проведения экспертизы

После заполнения таблицы оценками экспертов, необходимо выполнить расчет, в результате которого получаем веса каждого фактора (таблица 2) и веса факторов, отсортированные по значимости или важности (таблица 3).

По результатам расчетов можно посмотреть статистику, выбирая соответствующий пункт меню:

статистика

Рис.4. Диалоговое окно статистики экспертизы

Исходные данные с оценками экспертов можно открыть или сохранить, выбирая соответствующий пункт меню (Файл\Открыть…).

По результатам проведения экспертизы формируется отчет (Отчет\Формировать отчет…):

отчет

Рис.5. Отчет по результатам проведения экспертизы

Отчет можно сохранить в файл с указанным именем.

Следует отметить, что программа может использоваться в случае принятия решений различных задач, от технических до задач отбора сотрудников из числа кандидатов, оценки деятельности сотрудников и т.п.

 

Условия приобретения программы …

Литература:

1. Теоретические основы САПР: Учебник для вузов/В.П. Корячко, В.М. Курейчик, И.П. Норенков. — М.: Энергоатомиздат, 1987.

2. Полищук Ю.М., Хон В.Б. Теория автоматизированных банков информации: Учеб. посо­бие для вузов по спец. «Автоматизированные системы обраб. информации и упр.». — М.: Высш. шк. 1989.

Компьютерная программа прохождения лабиринта

Задача прохождения лабиринта описывалась неоднократно и пересказывать сказанное мы не будем. Разновидности лабиринтов и методы их прохождения подробно описаны на различных сайтах Интернета.

Кратко остановимся только на следующем правиле прохождения лабиринта. Прочитать больше

САПР Компас 3D. Библиотека “Модуль ЧПУ. Токарная обработка”

Библиотека “Модуль ЧПУ.Токарная обработка” разработана с целью автоматизации подготовки управляющих программ (УП) для токарных 2-х координатных станков с числовым программным управлением (ЧПУ) на основе  трехмерных моделей деталей, созданных в САПР КОМПАС-3D.

Подробные сведения о библиотеке можно получить на официальном сайте компании АСКОН: http://ascon.ru. В данной небольшой статье мы хотели бы поделиться своими впечатлениями от  библиотеки и показать на представленных видеоматериалах последовательность действий, которые должен совершить пользователь при разработке управляющих программ к токарным станкам с ЧПУ.

Где взять и как установить библиотеку?

 

Пример разработки управляющей программы

Новая версия программы формирования экзаменационных билетов

формирование экзаменационных билетовВ университетах с целью оценивания знаний студентов, качества усвоения материала по изучаемым дисциплинам проводят экзамены. Для проведения экзаменов преподаватели разрабатывают экзаменационные билеты, которые имеют, как правило, единую форму, принятую в конкретно взятом университете.

С целью автоматизации, повышения качества учета, редактирования и формирования экзаменационных билетов разработана новая версия программы Ekzam v.3.1, которая предназначена для локального использования отдельным преподавателем, либо группой преподавателей кафедры.

программа формирования экзаменационных билетов

Рис.1. Вид программы Ekzam v.3.1

Основные возможности программы:

1. Простой и удобный интерфейс;

2. Возможность вести учет и формирование для нескольких учебных заведений и кафедр;

3. Основные данные представлены наглядно в виде иерархического «дерева»;

4. Нет ограничений на количество билетов и вопросов в билете;

5. В программе поддерживается печать экзаменационных билетов, списка вопросов для подготовки к экзамену и рисунков к вопросам билетов;

6. Шаблоны для формирования билетов, списка вопросов и рисунков вынесены за пределы программы в виде внешних файлов;

7. Имеется возможность вопросы билетов перемешивать случайным образом в пределах уровней;

8. Имеется возможность самостоятельно разрабатывать новые шаблоны и редактировать имеющиеся;

9. Текст подготовленных для печати билетов, списка вопросов для подготовки к экзамену и рисунков можно редактировать и сохранять в виде отдельных файлов.

10. Имеется возможность подготовленные для печати билеты, список вопросов для подготовки к экзамену и рисунки экспортировать в следующие форматы: *.pdf, MS Word (*.rtf), MS Excel (*.xls), *.html, OpenOffice (*.odt), текстовый документ (*.txt);

11. При выводе на печать предоставляется возможность выводимый документ настраивать, объединять маленькие страницы на листе, масштабировать;

12. Для установки программы на компьютер достаточно скопировать ее на любой носитель данных;

13. Программа адаптирована для работы в операционных системах: Windows XP, Windows 7, Windows 8.1, а также учтены основные размеры экранов для стационарных компьютеров и ноутбуков.

Демонстрация работы программы:

Условия приобретения

Наименование услуги Адрес для заказа:
1. Программа Ekzam v.3.1 – 15$ E-mail: azov192@gmail.com
2. Разработка шаблонов – цена договорная E-mail: azov192@gmail.com

Не грузится панель управления Windows 8.1

FirebirdНа компьютере установлена операционная система Windows 8.1. Однажды  потребовалась достаточно старая программа, работающая с СУБД Firebird 1.5. При установке программы, Firebird 1.5 был установлен автоматически. Через некоторое время я обнаружил, что панель управления Windows 8.1 не работает. Панель управления начинает свою загрузку, подвисая на некоторое время, мигает экран и загрузка панели “сбрасывается” в исходное положение.

В чем причина вдруг возникшей неработоспособности панели управления Windows?

Когда устанавливается Firebird 1.5, инсталлятор автоматически помещает файл FirebirdControl*.cpl в папку C:\Windows\System32\. Файл FirebirdControl*.cpl представляет собой динамически подключаемую библиотеку с пиктограммой, которая интегрируется в панель управления.

При загрузке панели управления автоматически считываются все файлы *.cpl, расположенные в папке System32.

Операционная система Windows 8.1 не может загрузить именно библиотеку FirebirdControl*.cpl и возникает сбой при загрузке панели управления.

Одновременно с панелью управления Windows 8.1 по совершенно не понятной причине перестала работать библиотека материалов САПР Компас -3D v.15.

После деинсталляции с компьютера Firebird 1.5 панель управления Windows 8.1  моментально заработала и прекратились проблемы загрузки библиотеки материалов САПР Компас-3D v.15.

Вывод: в операционной системе Windows 8.1 не ставить программы, требующие для своей работы Firebird 1.5.