Информатика_2 / Описание / 4-3

Таблица описания объектов

Объект	Имя объекта	Свойство	Значение свойства
Форма	Form4_3	Text	4.3 Определить площади правильных n-угольников, вписанных в окружность
Кнопка	Button1	Text	Назад
Кнопка	Button2	Text	Выполнить
Кнопка	Button3	Text	Очистить
Текстовое	PictureBox1	Size	(613, 140)
Метка	Label1	Text	Задание:
		Color	Red
Метка	Label2	Text	Определить площади правильных n-угольников, вписанных в окружность радиуса R
Метка	Label3	Text	Количество углов:
Метка	Label4	Text	Внешний радиус:
Метка	Label5	Text	a=2*R*Sin(180/n)=
Метка	Label6	Text	r=R*Cos(180/n) =
Метка	Label7	Text	S=1/2*a*n*r =
Текстовое	TextBox1	Name	TextBox1
Текстовое	TextBox2	Name	TextBox2
Текстовое	TextBox3	Name	TextBox3
Текстовое	TextBox4	Name	TextBox4
Текстовое	TextBox5	Name	TextBox5

Программный код

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form4_3

'Ввод значений в переменные из Textbox

Function vvod(tb As TextBox) As Single

Return CSng(Val(tb.Text))

End Function 'Ввод значений в переменные из Textbox

Function vvod_int(tb As TextBox) As Integer

Return CInt(Val(tb.Text))

End Function

'Вывод значений в Textbox

Sub vivod(ByVal text As Single, ByRef tb As TextBox)

tb.Text = CStr(text)

End Sub

'Вычисление площади многоугольника

Sub Argument(ByVal R As Single, ByVal n As Integer, ByRef S As Single)

S = CSng(1 / 2 * (2 * R * Sin(PI / n)) * n * (R * Cos(PI / n)))

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Form1.Show()

Me.Close()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim Radius As Single

Dim number1, number2, number3 As Integer

Dim S1, S2, S3 As Single

number1 = vvod_int(TextBox1)

number2 = vvod_int(TextBox2)

number3 = vvod_int(TextBox3)

Radius = vvod(TextBox7)

Argument(Radius, number1, S1)

Argument(Radius, number2, S2)

Argument(Radius, number3, S3)

vivod(S1, TextBox4)

vivod(S2, TextBox5)

vivod(S3, TextBox6)

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Form4_4.Show()

Me.Close()

End Sub

End Class