Лабораторные работы по VB и компасу (+курсовые)
- Добавлен: 24.01.2023
- Размер: 5 MB
- Закачек: 0
Узнать, как скачать этот материал
Подписаться на ежедневные обновления каталога:
Описание
Лабораторные работы по VB и компасу (+курсовые)
Состав проекта
|
|
|
|
Form4.frm
|
|
Модуль1.bas
|
|
Form2.frm
|
|
Проект1.vbp
|
|
Form3.frm
|
|
Form3.frx
|
|
Проект1.vbw
|
|
Form1.frm
|
|
|
Безымянный.bmp
|
|
Фрагмент.shs
|
|
Проект1.vbp
|
|
|
|
Проект1.vbp
|
|
Проект1.vbw
|
Текстовый документ.txt
|
|
Form1.frx
|
|
Form1.frm
|
|
|
|
Проект1ккр.vbp
|
|
Проект1ккр.vbw
|
|
вычисление EXE.exe
|
|
Form1.frx
|
|
Form1.frm
|
|
|
|
Проект1.vbp
|
|
Проект1.vbw
|
|
Form1.frm
|
|
|
Деталь.m3d,Борисов.m3d
|
|
Деталь.m3d,Борисов.bak
|
|
|
ЧертежМОЙ.cdw
|
|
Чертеж Борисова.cdw
|
|
|
|
Деталь.bak
|
|
Деталь.m3d
|
|
|
|
Project1.vbw
|
|
Form1.frm
|
|
Project1.vbp
|
|
|
|
Чертеж.cdw
|
тема умный.frw
|
|
|
|
Проект1сист ур.vbw
|
|
сист ур.frm
|
|
Проект1сист ур.vbp
|
|
|
|
Проект1.vbp
|
|
Проект1.vbw
|
|
Form1.frm
|
|
|
|
Проект1говорилка.vbw
|
|
Form1говорилка.frm
|
|
Проект1говорилка.vbp
|
|
|
|
Form2.frm
|
|
Проект1.vbp
|
|
Проект1.vbw
|
|
Form1.frm
|
|
|
|
Проект1.vbp
|
|
Проект1.vbw
|
|
Form1.frm
|
Задавая себе вопрос что подарить девушке.ppt
|
|
|
|
Проект1.vbp
|
|
Проект1.vbw
|
|
Form1.frm
|
|
|
|
|
|
Проект1.vbp
|
|
Проект1.vbw
|
SDC10120.JPG
|
|
Проект1.vbp
|
|
ТАБЛИЧКА большая.exe
|
|
|
|
Безымянный.bmp
|
|
Безымянный2.bmp
|
|
Безымянный3.bmp
|
|
Безымянный3 норм.bmp
|
|
|
|
р.vbp
|
|
р.vbw
|
|
Form1.frm
|
|
ТАБЛИЧКА.exe
|
|
Проект1.vbw
|
|
Form1.frx
|
|
Form1.frm
|
курсач по инфе.doc
|
Дополнительная информация
Контент чертежей
ЧертежМОЙ.cdw
Чертеж Борисова.cdw
курсач по инфе.doc
Государственное образовательное учреждение высшего профессионального образования
Тульский государственный университет
Кафедра «Физико-химические процессы и технологии»
Контрольно-курсовая работа
по дисциплине «Информатика»
на тему: «Разработка поисковой программы электрохимического процесса»
студент гр. 420181 Борисов А.Д.
доцент каф. ФХПТ Шишенков В.А.
Информатика - это новая научная дисциплина и новая индустрия связанные с использованием персональных компьютеров и сетей ЭВМ. В новом тысячелетии предполагается что основная информация связанная с деятельностью людей будет храниться в памяти электронных вычислительных машин.
Слово информация происходит от латинского informatio что означает сведения разъяснения пояснения. С содержательной точки зрения информация – это сведения о ком-то или о чем-то а с формальной точки зрения – набор знаков и сигналов.
Информатика как научная дисциплина изучает законы принципы и методы накопления обработки и передачи информации с помощью ЭВМ. В этом смысле информатика как наука является фундаментом для развития новой информационной индустрии основанной на использовании сетей ЭВМ.
Фундамент информатики образуют вычислительные науки – науки об вычислительных процессах и организации вычислительных машин вычислительных систем и сетей. Основным объектом вычислительных наук являются вычислительные машины – устройства для организации вычислений и обработки символьной информации.
Особую роль для общества играет документированная информация. Документы – это информация зафиксированная на материальном носителе – бумаге или машинном носителе имеющем реквизиты позволяющие его идентифицировать.
Возможность записи информации в письменном виде – в форме последовательности знаков – привела к образованию государств возникновению бюрократии и появлению почтовых служб. Параллельно это привело – к появлению грамотных людей – людей умеющих читать писать и искать информацию для решения различных проблем.
В данной работе представлена поисковая программа по нахождению удельного съема металла и энергоемкости электрохимического растворения для заданного металла и электролита при электрохимического метода обработки.
В основе электрохимического метода обработки лежит явление электролиза т.е. анодного растворения металла обрабатываемой заготовки. Получаемые неметаллические соединения уносятся из зоны обработки в результате перемещения электрода-инструмента и прокачки электролита через межэлектродный промежуток. Электрохимическая обработка характеризуется линейной скоростью растворения и не зависит от таких физических свойств металла как твердость вязкость прочность теплостойкость определяющих производительность обычных методов резания.
Электроэрозионная обработка основана на разрушении металла под действием электрического разряда проходящего через диэлектрическую среду. В качестве рабочей среды используется жидкость заполняющая межэлектродное пространство. После накопления необходимого заряда между анодом и катодом происходит электрический пробой жидкости в результате чего возникает плазменный канал разряда где протекают процессы нагревания распада и ионизации вещества рабочей среды.
Private Sub Command1_Click() – при нажатии кнопки Command1 начинает выполняться группа операторов стоящих ниже до оператора END.
Dim met As Single – оператор описания переменных служит для оптимизации работы программы. В данном случае описывается массив met и задается предел значений цифр хранящихся в нем числа могут достигать точности до 7 знаков.
met = Combo1.ListIndex – задается номер выбранного элемента описанного в форме.
Label4.Caption = " – задаются значения окон Label2 и Label4 равные отсутствию всяких символов.
Select Case met – начало рассмотрения всех возможных вариантов
Case Is = 0 – первая группа возможных вариантов. (в данном случае индекс 0 соответствует выбранному пользователем металлу «Железо Армко»)
If Combo2.ListIndex = 0 Then - если выбранный пользователем вариант электролита соответствует индексу 0 то окна Label2 и Label4 принимают следующие значения.
Label2.Caption = "114.3
Label4.Caption = "17
Далее проводятся аналогичные операции дли рассмотрения всех возможных вариантав.
If Combo2.ListIndex = 1 Then
Label2.Caption = "7.5
Label4.Caption = "166
If Combo2.ListIndex = 2 Then
Label2.Caption = "11.4
Label4.Caption = "130
If Combo2.ListIndex = 0 Then
Label2.Caption = "46
Label4.Caption = "36.9
Label2.Caption = "123
Label4.Caption = "11.9
Label2.Caption = "80.1
Label4.Caption = "14.2
Label4.Caption = "143
Label2.Caption = "120
Label4.Caption = "12.5
Label2.Caption = "122
Label4.Caption = "9.4
Label2.Caption = "53.6
Label4.Caption = "21.4
Label4.Caption = "210
Label2.Caption = "91.5
Label4.Caption = "100
Label4.Caption = "212
Label2.Caption = "50.2
Label4.Caption = "23
Label4.Caption = "253
Label2.Caption = "103.5
Label4.Caption = "7.4
Label2.Caption = "34.2
Label4.Caption = "32.7
Label4.Caption = "200
Label2.Caption = "72.3
Label4.Caption = "21
Label2.Caption = "95
Label4.Caption = "24
Label2.Caption = "63
Label4.Caption = "28.2
Label2.Caption = "1.9
Label4.Caption = "115
Label4.Caption = "6.25
Label2.Caption = "42.5
Label4.Caption = "25
Label4.Caption = "223
Label2.Caption = "132
Label4.Caption = "11.7
Label2.Caption = "91
Label4.Caption = "17.2
Label2.Caption = "11
Label2.Caption = "79
Label4.Caption = "19.1
Label2.Caption = "87
Label4.Caption = "17.9
Label2.Caption = "10
Label4.Caption = "152
End Select – конец рассмотрения возможных вариантов
If Label2.Caption = " Then – есть вероятность что пользователь забудет выбрать один из элементов для такого случая нужно следующее оповещение.
RetInt = MsgBox("Нет данных" vbInformation vbOKOnly) – на экране появляется окно с надписью "Нет данных
End Sub – обозначает конец операторов которые должны выполняться при нажатии кнопки Command1
Private Sub Command2_Click() – следующие действия выполняются при нажатии кнопки ВЫХОД.
RetInt = MsgBox("РАЗРАБОТЧИК ДАННОЙ ПРОГРАММЫ ЖЕЛАЕТ УСПЕХОВ В ВАШЕМ НЕЛЕГКОМ ДЕЛЕ - ЭЛЕКТРОХИМИЧЕСКОЙ ОБРАБОТКИ МЕТАЛЛОВ СОБЛЮДАЙТЕ ТЕХНИКУ БЕЗОПАСНОСТИ НА ПРОИЗВОДСТВЕ!" vbInformation vbOKOnly) – всплывающее окно с пожеланиями от разработчика программы.
End – оператор выхода(закрывает программу)
Private Sub Command3_Click() – если пользователь не сможет самостоятельно разобраться в программе для него будет выведена подсказка при нажатии на кнопку ЧаВо
Label12.Caption = "Данная программа предназначена для получения данных об удельном съеме и электроемкости электрохимического расстворения металлов при электрохимической обработке
Label13.Caption = "инструкция:
Label14.Caption = "1)выберите из предложенных вариантов нужный металл.
Label15.Caption = "2)выберите из предложеных вариантов нужный элктролит
Label16.Caption = "3)нажмите на *ВВОД* и получите результат
Label17.Caption = "-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
При рассмотрении электрохимической обработки разработана поисковая система. С помощью разработанной программы электрохимической обработки возможно нахождение удельного съема металла и энергоемкости электрохимического растворения при заданных металле и электролите.
Рекомендуемые чертежи
Свободное скачивание на сегодня
Обновление через: 13 часов 54 минуты
