// описание массива-структуры базы данных

struct1[1,1]=ns1

struct1[1,2]="C"

struct1[1,3]=20

struct1[1,4]=0

struct1[2,1]=ns2

struct1[2,2]="C"

struct1[2,3]=25

struct1[2,4]=0

struct1[3,1]=ns3

struct1[3,2]="C"

struct1[3,3]=6

struct1[3,4]=0

struct1[4,1]=ns4

struct1[4,2]="C"

struct1[4,3]=10

struct1[4,4]=0

public nameper:=''

nameper:=alltrim(left(fname,at('.',fname)-1))+'.dbf'

DBCREATE(nameper,struct1) //создание базы данных перечня элементов

USE

//***************************************************************

USE &nameper //открытие б.д. перечня элементов

private

//массив со всевозможными названиями элементов

snaz:={{"Конденсаторы",1},{"Резисторы",1},{"Дроссели",1},{"Транзисторы",2},{"Диоды",2},{"Микросхемы",2},{"Вилки",1},{"Прочие",1}}

private

//массив со всевозможными обозначчениями элементов

soboz:={{'C','c'},{'R','r'},{'L','l'},{'VT','vt,'},{'VD','vd'},{'DD','D','d','dd'},{'X','x'},}

APPEND BLANK

REPLACE &ns1 WITH 'Название'

REPLACE &ns2 WITH 'Обозначение'

REPLACE &ns3 WITH 'Кол-во'

REPLACE &ns4 WITH 'Примеч.'

APPEND BLANK

REPLACE &ns1 WITH '------------------------------------------'

REPLACE &ns2 WITH '------------------------------------------'

REPLACE &ns3 WITH '------------------------------------------'

REPLACE &ns4 WITH '------------------------------------------'

append blank

// поиск элементов, соответствующих определенным обозначениям, и занесение их в свою графу базу данных

FOR naz=1 to len(snaz)

REPLACE &ns1 WITH snaz[naz,1]

nzap:=recno()

kolv:=0 //кол-во эл. одного класса

strsp:=''

FOR nom=1 TO len(compon)

vrem:=compon[nom,9]

IF vrem<>nil

aaa:=posalpha(vrem,.T.)

pvr:=alltrim(left(vrem,aaa-1))

set exact on

IF (ascan(soboz[naz],pvr)>0);

.OR.(naz=len(snaz) .AND. ascan(soboz,{|x| ascan(x,pvr)>0})=0)

kolv=kolv+1

IF (len(alltrim(&ns2))+len(vrem)+1)<25

vrstr:=alltrim(&ns2)+vrem+','

REPLACE &ns2 WITH vrstr

ELSE

APPEND BLANK

vrstr:=alltrim(&ns2)+vrem+','

replace &ns2 with vrstr

ENDIF

ENDIF

set exact off

ENDIF

NEXT

IF kolv>0

vrstr=left(vrstr,len(vrstr)-1)

replace &ns2 with vrstr

goto nzap

replace &ns3 with alltrim(STR(kolv))

APPEND BLANK

APPEND BLANK

ELSE

REPLACE &ns1 WITH ''

ENDIF

NEXT

USE //закрытие б.д.

RETURN

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

Организационно-Экономическая часть.

Задание: Техноко-Экономическое обоснование разработки. Анализ разделов бизнес-плана. Выполнение расчетов по учету издержек и конкурентоспособности продукции. Образование цены.

Введение .

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

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

Описание товара.

Программный продукт представляет собой пакет программных средств, написанных для IBM-совместимых компьютеров. Программа предназначена для использования ее совместно с пакетами PCAD и T-FLEX (которые применяются для разработки и проектирования печатных плат и деталей остнастки). Пакет PCAD предназначен для разработки плат, а в пакете T-FLEX разрабатывается корпус. В система PCAD плата изображается только в двухмерном виде и поэтому такой образ платы бесполезен при разработке корпуса в ситеме T-FLEX т.к. этот чертеж не обладает объемными размерами. Разработанный программный продукт позволяет передавать все параметры и элементы печатной платы, разрабатываемой в PCAD, пакету T-FLEX, конвертируя чертеж платы в трехмерный объект, для дальнейшей разработки корпуса под созданную плату.

Основные технические требования :

Конфигурация компьютера - IBM 386/DX или выше.

Операционная система - MS-DOS 5.0 или выше.

Свободная память DOS - не менее 450 kb.

Размер, занимаемый на диске - 500 kb.

Возможности программного пакета.

· представленная на рассмотрение программа способна обрабатывать pdf-файлы (полученные программой pdifout.exe) в формате PCAD4.5, PCAD7, PCAD8 ;

· в ходе своей работы программа создает постоянно пополняющуюся базу данных элементов;

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

· программа имеет возможность, по желанию пользователя, подготавливать форму со спецификацией всех элементов, содержащихся на анализируемой плате в виде стандартного dbf-файла;

Рынок сбыта.

Предполагается поставлять данный программный продукт ограниченному кругу организаций занимающихся разработкой печатных плат и конструкционной остнастке к ним. Основным потребителем программы должны стать различные подразделения НИИ «Автоматики». Предполагаемый объем поставок системы: