Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Подсчёт введенных в строку символов на лету https://www.cyberforum.ru/ vb-net/ thread1324119.html
Здравствуйте. Есть программа написана на VB. Мне нужно добавить небольшой функционал. на скрине при выборе темплейта из списка (1). Появляется таблица предопределенных полей. Эти поля...
Как сделать раскрывающееся меню? Visual Basic .NET
Как в Visual Basic 2008/2010 создать такую конструкцию (стрелка, отмеченная на рисунке, которая при нажатии открывает дополнительные пункты меню)? Всё облазил, не могу найти. Добавлено через 1...
Visual Basic .NET Сервис (служба) Windows обслуживания альтернативной клавиатуры
Существует следующая задача: Создать службу Windows (XP,7,8 ... ) обслуживающую альтернативную клавиатуру подключенную через COM порт. В общем то проблемы с созданием простой программы нет и она...
Visual Basic .NET Как продумать логику столкновения объектов в игре Недавно начали изучать Visial Basic и тут сразу же дали курсач (((Помогите очень прошу. Нужно сделать программу "Рогатка" при нажатии на кнопку она стреляет шариком в другие объекты(Причем эти... https://www.cyberforum.ru/ vb-net/ thread1323114.html
Visual Basic .NET Найти корни уравнения методом хорд https://www.cyberforum.ru/ vb-net/ thread1323034.html
Нужна помощь спецов в программировании. Есть задачка: Найти корни уравнения f(x)=3arctg(3-x), методом хорд. Написал в VB2010 вижу что считает но выдает бесконечность. Где я напортачил, или что не...
Получение даных, которые вернула функция запущенная в потоке Visual Basic .NET
Здравствуйте. Перерыл довольно много инфы, но дельного выхода не нашел. Суть: Private Sub Start_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim Thread As...
Использование внешнего хранилища для хранений части кода Visual Basic .NET
Уважаемые форумчане, Есть необходимость хранить методику расчета (программный код с приоритетами расчета и функциями) в отдельном хранилище (файл, таблица БД или что-то иное). То есть задаем...
Visual Basic .NET Сортировка значений в sql Может кто знает как сделать сортировку. Есть таблица , в ней должно сортироваться по названию через listBox З.Ы Есть лекция по сортировки , но там код не пашет почему то :( https://www.cyberforum.ru/ vb-net/ thread1322724.html
Visual Basic .NET Как уменьшить форму до слишком маленьких размеров https://www.cyberforum.ru/ vb-net/ thread1322052.html
Посмотрите на картинку. Слева форма, которая мне нужна, а справа форма в процессе отладки. Я убирал надпись, но размер формы оставался прежним, синяя часть. Почему? и как исправить?
Visual Basic .NET Не запускается программа на виндовс ХР? При запуске программы на ХР пишет "unable to find a version of the runtime to run this application" Как я понимаю, это из-за версии Net Framework? Это выскакивает на ХР сервис пак 3, с Net Framework... https://www.cyberforum.ru/ vb-net/ thread1321889.html
26 / 25 / 9
Регистрация: 17.09.2011
Сообщений: 143
09.12.2014, 09:50 0

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

09.12.2014, 09:50. Показов 1216. Ответов 5
Метки (Все метки)

Ответ

Пользуйтесь поискам и гуглам
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Public Class Form1
    Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Red, 2)
    Dim Pen2 As New Pen(Color.Blue, 2)
    Dim Pen3 As New Pen(Color.Red, 1)
    Dim drawBrush As New SolidBrush(Color.Black)
    Dim drawFont As New Font("Arial", 7)
    Dim x, y, x1, y1, x2, y2, x3, y3 As Integer
    Dim l1, l2, l3 As Integer
    Dim p, s As Single
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        M_sk()
        If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" _
     And TextBox4.Text = "" And TextBox5.Text = "" And TextBox6.Text = "" Then
            MsgBox("Введите координаты")
        Else
            x1 = Val(TextBox1.Text) : y1 = Val(TextBox2.Text)
            x2 = Val(TextBox3.Text) : y2 = Val(TextBox4.Text)
            x3 = Val(TextBox5.Text) : y3 = Val(TextBox6.Text)
            Graph1.DrawEllipse(Pen2, x1 - 2, y1 - 2, 4, 4)
            Graph1.DrawLine(Pen2, x1, y1, x2, y2)
            Graph1.DrawEllipse(Pen2, x2 - 2, y2 - 2, 4, 4)
            Graph1.DrawLine(Pen2, x2, y2, x3, y3)
            Graph1.DrawEllipse(Pen2, x3 - 2, y3 - 2, 4, 4)
            Graph1.DrawLine(Pen2, x1, y1, x3, y3)
        End If
        ' Вычисление длин сторон треугольника
        l1 = Math.Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
        l2 = Math.Sqrt((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
        l3 = Math.Sqrt((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
        ' вычисление периметра
        p = l1 + l2 + l3
        Label4.Text = Str(p)
        ' Вычисление площади треугольника по формуле Герона
        p = p / 2
        s = Math.Sqrt((p - l1) * (p - l2) * (p - l3))
        Label5.Text = Str(s)
 
    End Sub
    'Процедура для построения математической системы координат
    Private Sub M_sk()
        Graph1 = Me.PictureBox1.CreateGraphics()
        Graph1.Clear(Color.White)
        'Печать шкал математической системы координат
        'в компьютерной системе координат
        For x = -100 To 100 Step 50
            Graph1.DrawString(x, drawFont, drawBrush, x + 100, 105)
        Next x
        For y = 0 To 200 Step 50
            Graph1.DrawString(y - 100, drawFont, drawBrush, 80, 200 - y)
        Next y
        'Преобразование компьютерной СК в математическую СК
        'Поворот оси Y
        Graph1.ScaleTransform(1, -1)
        'Сдвиг по осям X и Y
        Graph1.TranslateTransform(100, -100)
        'Рисование осей         'Ось X
        Graph1.DrawLine(Pen1, -150, 0, 150, 0)
        'Ось Y
        Graph1.DrawLine(Pen1, 0, -100, 0, 100)
        'Засечки на оси X
        For x = -100 To 100 Step 10
            Graph1.DrawLine(Pen3, x, -5, x, 5)
        Next x
        'Засечки на оси Y
        For y = -100 To 100 Step 10
            Graph1.DrawLine(Pen3, -5, y, 5, y)
        Next y
    End Sub


Вернуться к обсуждению:
Написать программу, которая будет рассчитывать площадь треугольника по различным формулам
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2014, 09:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Написать программу, которая вычисляет площадь равностороннего треугольника, периметр которого равен p
Написать программу, которая вычисляет площадь равностороннего треугольника, периметр которого равен...

Написать программу, которая вычисляет площадь треугольника, если известны координаты его углов
Написать программу, которая вычисляет площадь треугольника, если известны координаты его углов....

Написать программу, которая вычисляет площадь правильного треугольника, вписанного в окружность заданного радиуса
Написать программу, которая вычисляет площадь правильного треугольника, вписанного в окружность...

Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин
Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин?

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.