Создание QwuckWin приложения.

Следующая последовательностью действий: File->New-> открывает окно с закладками на странице «Projects». Выбираем проект Fortran Standard Graphics or QwuckWin Application, в поле «Project name: » задаем «AopB_QW», а в поле «Location: » указываем каталог наших Fortran – проектов. Остальные поля оставляем без изменения и нажимаем кнопку «OK». На следующей отрывшемся окне нажимаем «Finish». Следующее окно сообщает нам характеристики создаваемого проекта. Если нас все устраивает, нажимаем «OK»

В левом окошке VS появляется обозреватель проектов с тремя виртуальными каталогами: Source Files (Исходные файлы на Фортране); Header Files (Заголовочные файлы Фортрана); Resource Files (Файл ресурсов). Все каталоги пустые.

Разработка интерфейса:

Выполнив последовательность²⁾ : Insert -> Resource-> Dialog->New. Создается шаблон для проектирования интерфейса, состоящий из диалога с двумя кнопками. Перетащим мышкой с нажатой правой кнопкой элемента OK и Cancel так, как показано на рис.1. Перетащим также из панели «Controls» элементы: Static text – для заголовков полей, Edit Box – для ввода и вывода данных, Group Box – для группировки радио кнопок и в эту рамки поместим три Radio Button. Полученная картинка должна напоминать рис.1.

Теперь пора занятья свойствами компонентов интерфейса. Начнем с диалога. Для этого выполним двойной щелчок в любом месте диалога. Должно открыться окно Dialog Properties этого ресурса³⁾. Нажмем на изображение кнопки в левом верхнем углу, чтобы окно свойств не исчезало при переходе на другой ресурс.

Рис.2

Прежде всего, следует определить, что означает слово «ресурс». Ресурс – это инструмент, который мы не разрабатывали, но можем его использовать. Ресурсами в нашей задаче являются Dialog, Button, Edit Box, Radio Button …. Экземпляры этих ресурсов мы использовали в нашем приложении. Каждый экземпляр ресурса имеет собственные свойства. Свойства, которые мы можем изменять консолидированы в рассматриваемом окне свойств (Рис.2). Исчерпывающие сведения по каждому ресурсу можно найти в документации по Visual Fortran. Здесь рассмотрим только самые необходимые. Обратиться к ресурсу из программы можно по его идентификатору (поле ID:). Идентификатором является целое без знака, которое определяет для данного ресурса редактор ресурсов. Окно Dialog Properties предлагает использовать символическую константу IDD_DIALOG1 вместо буквальной. Имя символической константы можно (и нужно) редактировать. Для диалога и других ресурсов в нашем примере мы сохраним идентификаторы ресурсов такими, какими их назначил редактор. В поле Caption: введем имя нашего диалога: «A operator B =». Текст может бать набран кириллицей. Остальные свойства можно не менять.

Теперь перейдем к заголовкам. Для этого выделим мышкой первый заголовок (верхний левый).

Рис. 3

В поле Caption введем текст “Первый операнд”.

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

Нам потребуется ‘прочекить’ свойство Read_only закладки Styles в свойствах Edit для вывода результатов. При этом окно редактирования станет серым.

Остается сохранить файл ресурсов в нашем проекте. Для этого выполним File-> Save as … и сохраним файл ресурсов под именем, совпадающим с именем проекта. Проследите, чтобы файл ресурсов попал в корневой каталог Вашего проекта. Расширение файла “.rc” дается ему автоматически. Проверьте, включен ли этот файл в ваш проект. Если это не случилось, поместите его туда следующей последовательностью Project-> Add to Proect-> Files…-> AopB_QW.rc.

Одновременно с файлом ресурсов (а он в проекте один) создается заголовочный файл с именем resource.fd. В этом файле хранятся символические имена ресурсов. Содержание этого файла может быть таким:

Программа 2.

! !MS$FREEFORM

! Microsoft Developer Studio generated include file.

! Used by AopB_QW.rc

integer, parameter :: IDD_DIALOG1 = 101

integer, parameter :: IDC_EDIT1 = 1000

integer, parameter :: IDC_EDIT2 = 1001

integer, parameter :: IDC_EDIT3 = 1002

integer, parameter :: IDC_RADIO1 = 1003

integer, parameter :: IDC_RADIO2 = 1004

integer, parameter :: IDC_RADIO3 = 1005

integer, parameter :: IDC_STATIC = 65535

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