Составление программы - Visual Basic .NET - Ответ 5094512

@Glova · Регистрация: 11.11.2011

Author24 — интернет-сервис помощи студентам

Привет)
Посидел-подумал над вторым заданием и вроде его решил, может кто скажет, верно ли?
А вот первое задание никак не могу дойти. Может кто подскажет, как его делать? Ну или сразу напишет

Задание 1:
1. Часть 1:
1.1. Для первой части задания выбрать вариант из таблицы 4.2-1 по усмотрению преподавателя.
1.2. Для выбранного варианта разработать три процедуры пользователя для вычисления заданного арифметического выражения: процедуру-функцию с формальными параметрами, процедуру-подпрограмму с формальными параметрами и процедуру без параметров (передача данных через глобальные объекты).
1.3. Разработать алгоритмы решения заданной задачи и представить их в виде схем алгоритмов.
1.4. Создать решение, содержащее три проекта, каждый из которых использует модуль формы, одну из разработанных в п.2 процедур пользователя, вычисляющую заданное арифметическое выражение, и событийную процедуру, в которой осуществляется ввод исходных данных, вызов процедуры п.2 и вывод результатов.
1.5. Выполнить созданные проекты и получить

Задание 2:
2. Часть 2:
2.1. Выбрать вариант задания из таблицы 4.3-1 по усмотрению преподавателя.
2.2. Записать заданные или полученные в процессе формализации математические формулы в виде арифметических выражений.
2.3. Разработать алгоритм решения заданной задачи и представить его в виде схем алгоритмов.
Тема 4.3. ЛР «Структура VB-программ и процедуры» Страница 34
2.4. Создать проект, использующий модуль формы, процедуры пользователя, решающие предписанные задачи, процедуры ввода исходных данных и процедуру вывода результата. Обмен данными между процедурами должен осуществляться через параметры, без использования глобальных переменных. Событийная процедура должна содержать только операторы вызова пользовательских (общих) процедур.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Strict On
Option Explicit On
Imports System.Math
 
Public Class Form1
 
    'Функция ввода координаты точки в TextBox
    Function vvod(ByVal T As TextBox) As Single
        Return CSng(Val(T.Text))
    End Function
 
    'Процедура вывода результата в TextBox
    Sub vivod(ByVal Z As Single, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Функция вычисления длины отрезка по координатам двух  точек
    Public Function ДлинаОтрезка(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single) As Single
        Return CSng(Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2))
    End Function
    'Процедура вычисления площади треугольника
    Sub S(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal x3 As Single, ByVal y3 As Single, ByRef S As Single)
        Dim A, B, C As Single
        A = ДлинаОтрезка(x1, y1, x2, y2) 'Вызов функции вычисления длины отрезка          
        B = ДлинаОтрезка(x2, y2, x3, y3)
        C = ДлинаОтрезка(x3, y3, x1, y1)
        S = CSng(1 / 2) * Abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1))
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x1, x2, x3, y1, y2, y3, Пло As Single
        x1 = vvod(TextBox1) : x2 = vvod(TextBox3) : x3 = vvod(TextBox5)
        y1 = vvod(TextBox2) : y2 = vvod(TextBox4) : y3 = vvod(TextBox6)
        S(x1, y1, x2, y2, x3, y3, Пло)
        vivod(Пло, TextBox7)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Вернуться к обсуждению:
Составление программы Visual Basic .NET

Другие темы раздела
Visual Basic .NET Отследить наличие Graphics на контроле Доброго всем времени суток! Есть проблема: рисую (CreateGraphics) на контроле циферку (счётчик). Выглядите примерно так: В какой-то непонятный момент она стирается, а нужна она мне там всегда.... В какой-то непонятный момент она стирается, а нужна она мне там всегда. потому что вы рисуете не по битмапу. https://www.cyberforum.ru/ vb-net/ thread958919.html	Обычное нелинейное уравнение (решением методом половинного деления) Visual Basic .NET Люди подскажите, вроде ошибки не выдает ,просто происходит всего 1 итерация в цикле ,не пойму в чем проблема. Option Strict On Imports System.Math Public Class Form1 Function Urav(ByVal x... при а=7 b=9 eps=0,003 количество итераций равно 10 :rtfm:
Visual Basic .NET Написать программу для перевода из км/ч в миль/ч Написать программу для перевода из км/ч в миль/ч. 1 миля в час = 1,609344 километров в час Берешь значение у пользователя и делишь на 1,609344... https://www.cyberforum.ru/ vb-net/ thread960608.html	Visual Basic .NET Ошибка параллельной конфигурации https://www.cyberforum.ru/ vb-net/ thread959424.html Созданное мною приложение на VB.NET прекрасно работает на моём рабочем и домашнем компьютере (установлена Windows XP). Но если пробую перенести это приложение на компьютеры с 7-ой виндой при запуске...
Visual Basic .NET TreeView чтение и сохранение XML https://www.cyberforum.ru/ vb-net/ thread960525.html На сайте MS есть пример по созданию TreeView из документа XML. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Initialize the... DEM_DWG, этого примера уже нет на сайте MS. Спасибо вам, что сохранили на Киберфоруме. Сейчас попробую его применить. Может будет работать.	Открытие окна с формы Visual Basic .NET Добрый день. Подскажите, пожалуйста, можно ли открыть новое окно (новую форму) с формы. Чтобы, например, пользователь кликнул на кнопку и появилось окно с, например, несколькими запрограммированными... Alradalion, создайте новую форму, добавьте на нее свои кнопки и потом показывайте ее Form2.Show()
Visual Basic .NET Поиск самого длинного слова https://www.cyberforum.ru/ vb-net/ thread960997.html Помогите написать программу поиска самого длинного слова в предложении, введенного с клавиатуры. Вот простой код, можно легко переделать, будут вопросы пиши! https://www.cyberforum.ru/vb-net/thread725621.html	Visual Basic .NET Варианты баз для VB https://www.cyberforum.ru/ vb-net/ thread960320.html Вопрос - какие существуют типы и варианты базы для работы с VB? Например, когда я пишу приложение для мобильника, то подключаю SQLite - один файлик, 10 строк кода - и далее - просто SQL-запросы. ... PowerCat, начни отсюда
Visual Basic .NET Про VB.NET забыли? Нет свежей литературы День добрый. Когда в очередной раз искал литературу по vb.net понял, что новой (позже 2010 года) просто нет. Неужели по vb больше не пишут книг, язык-то развивается, новые версии выходят, так в чем... https://www.cyberforum.ru/vb-net/thread343195.html https://www.cyberforum.ru/ vb-net/ thread959496.html	Visual Basic .NET Перевести программу с C# на Visual Basic https://www.cyberforum.ru/ vb-net/ thread960644.html Перевести программу с C# на Visual Basic private void button1_Click(object sender, EventArgs e) { double km; km = float.Parse(textBox1.Text.ToString()); ... Borland, Конвертер Добавлено через 4 минуты Borland, И вообще там ничего сложного в переводе, по другому переменную обьявить и ; поубирать
Visual Basic .NET Где скачать библиотеку System.Data.SQLite.dll Где можно это скачать? На официальном сайте для скачки предлагается архив с кучей файлов, а не отдельная библиотека. А везде в проекто-примерах предлагается сначала эту библиотеку подключить...как... PowerCat, скачай архив, там будет нужная dll ;)	Visual Basic .NET Запись данных в БД Здравствуйте, подскажите, как сделать так, чтобы по нажатию к примеру на кнопку информация записывалась в БД из textbox? https://www.cyberforum.ru/vb-net/thread343195.html Пост 5 https://www.cyberforum.ru/ vb-net/ thread959511.html

Новые блоги и статьи Все статьи Все блоги /
Winforstrap или красявый дизайн своими руками на HTML+JS+Winforms anomal6 04.03.2025 Сидел тут вечером ковырял проект на MAUI, и как же глупо создаются пакеты MSIX и система обновлений пакета публикации, но не об этом. Бывает нужен современный дизайн программы а писать на MAUI,. . .	Формат данных для симуляции физики, посредством распространённых не обученных моделей. Hrethgir 04.03.2025 Что-то как-то снова потерялось, зато катангенсы закатангесились в одном сообщении. На днях писал, что планирую для работы апгрейдить (на этот раз удачно) девайс для работы (конкретно - здоровья для,. . .	Концепция variadic CoderHuligan 04.03.2025 Мне не очень нравится (а кому это нравится?) что у нас есть отдельно компилятор, отдельно линковщик, причем со своим собственным командным языком. При этом усложнении надо знать помимо языка. . .	Java Record или Kotlin Data Class: что лучше для неизменяемых данных Wired 04.03.2025 Java Record и Kotlin Data Class — два мощных инструмента для обуздания неизменяемых структур данных, каждый со своим уникальным подходом к решению этой задачи. История их появления весьма. . .	Создание производительных API с Java и gRPC Wired 04.03.2025 В мире микросервисной разработки вопрос производительности часто становится краеугольным камнем. И хотя REST API давно завоевал сердца разработчиков своей простотой и интуитивностью, при высоких. . .
Что нового в JDK 24 Wired 04.03.2025 JDK 24 — это настоящий прорыв в эволюции Java, который кардинально меняет правила игры. В этом релизе разработчики Oracle наконец-то довели до ума множество критически важных улучшений в. . .	Разработка блокчейн с использованием Java: смарт-контракты и dApp Wired 04.03.2025 Погружаясь в мир блокчейн-разработки на Java, разработчик получает доступ к внушительному арсеналу инструментов. В отличие от Solidity, который "заперт" в экосистеме Ethereum, Java предоставляет. . .	WebAssembly в Kubernetes stackOverflow 03.03.2025 В современной экосистеме облачных технологий WebAssembly (Wasm) становится все более значимым компонентом, предлагая уникальный подход к выполнению кода в распределенных системах. Эта технология. . .	GitHub Actions или Jenkins: Выбираем CI/CD платформу stackOverflow 03.03.2025 Непрерывная интеграция и развертывание (CI/ CD) изменили подход к разработке программного обеспечения, превратив его в бесшовный процесс от написания кода до развертывания в продакшн. GitHub Actions и. . .	Автоматизация тестирования Pull Request в Kubernetes: Интеграция с GitHub Actions и GKE stackOverflow 03.03.2025 Масштабные проекты с использованием Kubernetes требуют надежной системы тестирования изменений перед их внедрением в продакшн-среду. Традиционный подход с ручной проверкой Pull Request не справляется. . .