Описание структуры программы




 

Интерфейс программы состоит из одной формы (Стандартной).

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

 

Рисунок 1 - Форма Стандартный

 

Описание алгоритма решения задачи

 

Алгоритм перевода чисел с одной величины на другую “конвертером величин”:

 


 

Заключение

 

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

 


 

Список использованных источников

 

1С. Браун «Visual Basic 6.0 - Учебный курс», Издательство: Питер, Год: 2001, ISBN: 5-8046-0054-0, 0-7821-2310-4

Джеймс Фокселл «Освой самостоятельно Visual Basic.NET за 24 часа», Изд-во: Вильямс, Год: 2002, ISBN: 5-8459-0304-1

Джон Коннэлл «Visual Basic 6. Введение в программирование баз данных», Издательство: ДМК, Год: 2000, ISBN: 1-861001-06-1

Климов А.П. «Занимательное программирование на Visual Basic», Издательство: БХВ-Петербург, Год: 2009, ISBN: 5-94157-572-6

https://vbbook.ru/visual-basic/

https://visualprogs.ru/

https://www.cyberforum.ru/visual-basic/

Игорь Сафронов "Visual Basic в задачах и примерах", Издательство: БХВ-Петербург, Год издания: 2008, ISBN: 5-94157-495-9

В. Долженков, М. Мозговой "Visual Basic.NET. Учебный курс", Издательство: Питер, Год: 2003

Кетков, Ю.Л. Диалог на языке бейсик для мини- и микро-ЭВМ; М.: Наука, 1988. - 368 c.

С. Симонович, Г. Евсеев “Занимательное программирование. Visual Basic”, Издательство: АСТ-Пресс, Инфорком - Пресс, Год: 2001

Якушева, Н.М. Visual Basic для студентов; М.: Радио и связь, 2001. - 232 c.

ред. Сергеев, В. Visual Basic 6.0. Руководство для профессионалов; БХВ-Петербург, 1999. - 992 c.

https://vbrussian.com

https://visualbasic.ucoz.ru/

https://vbzero.narod.ru/


Приложение А

Код программы

Private Sub About_Click(Index As Integer).ShowSubSub Command1_Click().Enabled = True.Enabled = True

If Combo1.Text = "Ãðàä" And Combo2.Text = "Ãðàäóñ" Then

Text2.Text = Val(Text1.Text) * 0.9If

If Combo1.Text = "Ãðàä" And Combo2.Text = "Ìèíóòà" Then

Text2.Text = Val(Text1.Text) * 54If

If Combo1.Text = "Ãðàä" And Combo2.Text = "Îêðóæíîñòü" Then

Text2.Text = Val(Text1.Text) * 0.0025If

If Combo1.Text = "Ãðàä" And Combo2.Text = "Ðàäèàí" Then

Text2.Text = Val(Text1.Text) * 0.01571If

If Combo1.Text = "Ãðàä" And Combo2.Text = "Ñåêóíäà" Then

Text2.Text = Val(Text1.Text) * 3240If

If Combo1.Text = "Ãðàä" And Combo2.Text = "Ñåêñòàíò" Then

Text2.Text = Val(Text1.Text) * 0.015If Else.Caption = " " & Command1(Index).CaptionIfY = 0 Then.Caption = text1.Caption & "."= 1("ILLEGAL SAIRAM")IfIfSubSub Command2_Click(Index As Integer)Z = 0 Or Index = 4 Thenind = 0 Then= W + Val(text1.Caption)ind = 1 Then= W - Val(text1.Caption)ind = 2 ThenVal(text1.Caption) = 0 Then= MsgBox("Деление на 0", vbExclamation + vbOKOnly, "ERROR")Sub= W / Val(text1.Caption)Ifind = 3 Then= W * Val(text1.Caption)If.Caption = Str(W)= 0If= 1= Index= 0SubSub CE_Click().Caption = " 0"SubSub C_Click()= 0= 0= 0= 0= 0.Caption = " 0"SubSub Command3_Click().Caption = Left(text1.Caption, Len(text1.Caption) - 1)SubSub Command4_Click(Index As Integer)

инженерный.ShowSubSub dop_Click(Index As Integer)= dop(Index).Caption= text1.CaptionCase op"x^3"= h ^ 2"x^2"= h ^ 2"cos"= Cos(h)"sin"= Sin(h)"tan"= Tan(h)"1/x"h = 0 Then= MsgBox("Деление на 0", vbExclamation + vbOKOnly, "ERROR")= 1 / hIf"ln"h = 0 Then= MsgBox("Ошибка ввода", vbExclamation + vbOKOnly, "ERROR")= Log(h)If"n!"= 1= hi2 = 1 To no2= W * i2"exp"= Exp(h)"sqrt"= Sqr(h)"ctg"= Cos(h) / Sin(h)Select.Caption = WSubSub exit_Click()MeSubSub copy_Click().Clear.SetText text1.CaptionSubSub cut_Click().Clear.SetText text1.Caption.Caption = ""SubSub eexit_Click()MeSubSub paste_Click().Caption = "".Caption = Clipboard.GetText()SubSub eselectall_Click().Clear.SetText text1.CaptionSubSub Form_KeyPress(KeyAscii As Integer)KeyAscii = Asc(".") Then= 10_Click (i)KeyAscii = Asc("0") Then= 0_Click (i)KeyAscii = Asc("1") Then= 1_Click (i)KeyAscii = Asc("2") Then= 2_Click (i)KeyAscii = Asc("3") Then= 3_Click (i)KeyAscii = Asc("4") Then= 4_Click (i)KeyAscii = Asc("5") Then= 5_Click (i)KeyAscii = Asc("6") Then= 6_Click (i)KeyAscii = Asc("7") Then= 7_Click (i)KeyAscii = Asc("8") Then= 8_Click (i)KeyAscii = Asc("9") Then= 9_Click (i)KeyAscii = Asc("0") Then= 0_Click (i)KeyAscii = Asc("+") Then= 0_Click (i)KeyAscii = Asc("+") Then= 0_Click (i)KeyAscii = Asc("-") Then= 1_Click (i)KeyAscii = Asc("/") Then= 2_Click (i)KeyAscii = Asc("*") Then= 3_Click (i)KeyAscii = Asc("=") Then= 4_Click (i)KeyAscii = Asc("c") Or KeyAscii = Asc("C") Then= 0= 0= 0= 0= 0.Caption = " 0"KeyAscii = Asc("d") Or KeyAscii = Asc("D") Then.Caption = " 0"IfSubSub Form_Load()= 0= 0= 0= 0= 0.Clear

инженерный.Hide.Enabled = FalseSubSub tstandart_Click()

инженерный.Hide

стандартный.ShowSubSub znak_Click().Caption = -Val(text1.Caption)

End Sub



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2020-04-01 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: