Отчет по практике по ТРИЗБД в работе с языками C# и Visual basic. Отчет по практике. Оглавление 1 Изм. Лист докум. Подп. Дата 1 Проверил Гатауллина Ф. Ф. 1

• Название: Оглавление 1 Изм. Лист докум. Подп. Дата 1 Проверил Гатауллина Ф. Ф. 1
• Анкор: Отчет по практике по ТРИЗБД в работе с языками C# и Visual basic
• Дата: 16.12.2020
• Размер: 1.49 Mb.
• Имя файла: Отчет по практике.doc
• Тип: Документы; #161096
• страница: 5 из 11

Лабораторно-практическая работа №2

Окно главного меню

Рис 11. Окно главного меню

Практическая 1

Цель: Создать программу для вычисления стоимости астероида


Рис 12. Запущенное окно задания №1
Перечень используемых объектов:

Button, GroupBox, TextBox,
Public Class Form1

“расчёт

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

Dim x1, x2, x3

Dim z As Double

Dim a As Double

x1 = Convert.ToDouble(TextBox1.Text)

x2 = Convert.ToDouble(TextBox1.Text)

x3 = Convert.ToDouble(TextBox1.Text)

z = Convert.ToDouble(TextBox4.Text)

a = (x1 * 1000000 + x2 * 1000 + x3) * z

TextBox5.Text = Convert.ToString(a)

End Sub

End Class

Практическая 2-ч1

Цель: Создать программу для вычисления объёма куба


Рис 13. Запущенное окно задания №2-часть 1
Перечень используемых объектов:

Button, Label, TextBox, PictureBox,
Public Class Form1

“расчёт по теxtbox ам

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

Dim a, b, h, v As Integer

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

h = Val(TextBox3.Text)

v = a * b * h

TextBox4.Text = v

End Sub

End Class

Практическая 2-ч1

Тема: Ввод, вывод и присвоение в программе

Цель работы: получить навыки разработки приложений для вычислительных задач



Рис 14(а). Запущенное окно задания №2- часть2(обмен значениями)


Рис 14(б). Запущенное окно задания №2- часть2(Обмен цветом)
Список используемых объектов: Button, TextBox

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

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

Dim a, b As Boolean

a = TextBox1.Font.Italic

b = TextBox2.Font.Italic

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

Dim a, b As String

a = TextBox1.Text

b = TextBox2.Text

TextBox1.Text = b

TextBox2.Text = a

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

Dim a, b As Color

a = TextBox1.ForeColor

b = TextBox2.ForeColor

TextBox1.ForeColor = b

TextBox2.ForeColor = a

End Sub

Практическая 3

Тема: Ввод, вывод и присвоение в программе

Цель: работы: получить навыки разработки приложений для вычислительных задач


Рис 15(а). Запущенное окно задания №3(Sin + Cos)


Рис 15(а). Запущенное окно задания №3(Корень)


Рис 15(а). Запущенное окно задания №3(tx(x)^2-|y|)
Перечень используемых объектов:

Button, HScrollBar, GroupBox, TextBox
Код программы:

Public Class Form1

Dim X, Y As Integer

Private Sub HScrollBar1_ValueChanged(sender As Object, e As EventArgs) Handles HScrollBar1.ValueChanged

TextBox1.Text = HScrollBar1.Value

End Sub

Private Sub HScrollBar2_ValueChanged(sender As Object, e As EventArgs) Handles HScrollBar2.ValueChanged

TextBox2.Text = HScrollBar2.Value

End Sub

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

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = X - Y

End Sub

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

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = X * Y

End Sub

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

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = X / Y

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = Math.Sin(X) + Math.Cos(Y)

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = Math.Sqrt(X + Y)

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = Math.Pow(Math.Tan(X), 2) - Math.Abs(Y)

End Sub

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

X = Convert.ToInt32(TextBox1.Text)

Y = Convert.ToInt32(TextBox2.Text)

TextBox3.Text = X + Y

End Sub

End Class

Практическая 4

Тема: Встроенные функции

Цель: работы: получить навыки использования математических функций


Рис 16. Запущенное окно задания №4
Перечень используемых объектов:

Button, GroupBox, TextBox,
Код программы:

Public Class Form1

“вычесляем

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

Dim x As Integer

x = Rnd() * 10

TextBox1.Text = x

TextBox2.Text = Math.Sin(x)

TextBox3.Text = Math.Tan(x)

TextBox4.Text = Math.Cos(x)

TextBox5.Text = Math.Sqrt(x)

TextBox6.Text = Math.Pow(x, 2)

End Sub

End Class

Практическая 5

Тема: Встроенные функции

Цель: Получить навыки использования функций обработки строк


Рис 17. Запущенное окно задания №5
Список используемых объектов: GroupBox, label, Button, TextBox

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

Private Sub CmdNam1_Click(sender As Object, e As EventArgs) Handles CmdNam1.Click

TxtNam1.Text = UCase(TxtFam.Text) + " " + UCase(TxtName.Text) + " " + UCase(TxtOt.Text)

End Sub
Private Sub CmdNam2_Click(sender As Object, e As EventArgs) Handles CmdNam2.Click

lblNam2.Text = LCase(TxtFam.Text) + " " + LCase(TxtName.Text) + " " + LCase(TxtOt.Text)

End Sub
Private Sub CmdNam3_Click(sender As Object, e As EventArgs) Handles CmdNam3.Click

lblNam2.Text = LCase(TxtFam.Text) + Chr(13) + Chr(10) + LCase(TxtName.Text)

End Sub
Private Sub CmdFIO_Click(sender As Object, e As EventArgs) Handles CmdFIO.Click

Dim f, n, o As String

f = TxtFam.Text

n = TxtName.Text

o = TxtOt.Text

TxtFIO.Text = Mid(f, 1, 1) + "." + Mid(n, 1, 1) + "." + Mid(o, 1, 1)

End Sub
Private Sub СьвЫршак_Click(sender As Object, e As EventArgs) Handles СьвЫршак.Click

Dim S, Shifr As String

Dim K As Integer

S = TxtFIO.Text

Shifr = ””

K = Asc(Mid(S, 1, 1))

Shifr = Shifr + Str(K) + ” “

K = Asc(Mid(S, 3, 1))

Shifr = Shifr + Str(K) + ” “

K = Asc(Mid(S, Len(S), 1))

Shifr = Shifr + Str(K)

TxtShifr.Text = Shifr

End Sub

Практическая 6

Тема: Встроенные функции

Цель: Получить навыки использования функций преобразования типов


Рис 18. Запущенное окно задания №6
Перечень используемых объектов:

Label, TextBox, VScrollBar
Код программы:

Public Class Form1

Private Sub VScrollBar1_ValueChanged(sender As Object, e As EventArgs) Handles VScrollBar1.ValueChanged

Dim tempC, tempF As Integer

tempC = CInt(VScrollBar1.Value)

TextBox1.Text = Str(tempC)

tempF = CInt(tempC * 9 / 5 + 32)

TextBox2.Text = Str(tempF)

Label1.Text = VScrollBar1.Value

Label2.Text = CInt(tempC * 9 / 5 + 32)

End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

VScrollBar1.Value = TextBox1.Text

End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

End Sub

End Class

Практическая 7

Тема: Встроенные функции

Цель работы: Получить навыки использования встроенных системных функций.


Рис 19.(а) Запущенное окно задания №7



Рис 19(б).(Окно “Знакомства”) Рис 19(б).(Окно “Знакомства”)
Перечень используемых объектов:

Button, PictureBox
Код программы:

Public Class Form1

“вода

Dim MyFam, MyNam, MyOt, y, x, s As String

Dim k As Integer

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

MsgBox("Это вода", 0, "Справка")

End Sub

“выход

Private Sub CmdExit_Click(sender As Object, e As EventArgs) Handles CmdExit.Click

s = MsgBox("Вы хотите выйти", 4, "Выход")

If s = 6 Then

s = MsgBox("Хотите остаться", 32 + 4, "Просьба")

If s = 6 Then

MsgBox("Ну правильно", 48, "Мы очень рады")

Else

MsgBox("Ну и иди отсюда", 16, "Мы не обиделись")

Close()

End If

End If

End Sub

“снег

Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click

MsgBox("Это снег", 0, "Справка")

End Sub

“солнце

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click

MsgBox("Это солнце", 0, "Справка")

End Sub

“молния

Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click

MsgBox("Это молния", 0, "Справка")

End Sub

“вводим свою фамилию

Private Sub CmdHello_Click(sender As Object, e As EventArgs) Handles CMDhello.Click

MyFam = InputBox("Ваша фамилия", "Скажите пожалуйста")

MyNam = InputBox("Ваше имя", "Скажите пожалуйста")

MyOt = InputBox("Ваше отчество", "Скажите пожалуйста")

'выделим последнюю букву отчества и определим пол человека

k = Len(MyOt)

x = Mid(MyOt, k, 1)

If x = "а" Then

y = "Здравствуйте, укажаемая"

Else y = "Здравствуйте, укажаемый"

End If

MsgBox(MyNam + Chr(10) + MyOt + Chr(10) + MyFam, , y)

End Sub

End Class

Практическая 8 Ч1

Тема: Встроенные функции

Цель: Получить навыки использования функций времени и даты


Рис 20. Запущенное окно задания №8-часть 1
Перечень используемых объектов:

Button, TextBox, Timer
Код программы:

Public Class Form1

“начало таймера

Dim starttime As DateTime, endtime As DateTime, itogtime As TimeSpan

Private Sub CmdStart_Click(sender As Object, e As EventArgs) Handles CmdStart.Click

starttime = Date.Now

TxtStart.Text = Format(starttime, "hh:mm:ss")

TxtStop.Text = "" : TxtItog.Text = ""

End Sub

“конец времени

Private Sub CmdStop_Click(sender As Object, e As EventArgs) Handles CmdStop.Click

endtime = Date.Now

itogtime = endtime - starttime

TxtStop.Text = Format(endtime, "hh:mm:ss")

TxtItog.Text = (Str(itogtime.Hours) + ":" + (Str(itogtime.Minutes) + ":" + (Str(itogtime.Seconds))))

End Sub

End Class

Практическая 8 Ч2

Тема: Встроенные функции

Цель: Получить навыки использования функций времени и даты


Рис 21. Запущенное окно задания №8-часть 2
Перечень используемых объектов:

Button, Label, GroupBox, TextBox
Код программы:

Public Class Form1

“заполнение и вычисление

Private Sub CmdPusk_Click(sender As Object, e As EventArgs) Handles CmdPusk.Click

Dim dr As Date

Dim y As Integer

Dim j As TimeSpan

dr = TxtDataR.Text

j = dr - DateTime.Now

LblDay.Text = DateTime.Now

LblD.Text = dr.Day

LblM.Text = Month(dr)

LblY.Text = Year(dr)

y = DateTime.Now.Year - dr.Year

If DateTime.Now.Month < dr.Month Or (DateTime.Now.Month = dr.Month And DateTime.Now.Day < dr.Day) Then

y = y – 1

“+ один день

End If

LblResult.Text = (Str(j.Days) + " дней")

LblLet.Text = Format(y)

End Sub

End Class

Практическая 9

Тема: Встроенные функции

Цель: Получить навыки использования финансовых функций


Рис 22. Запущенное окно задания №9
Перечень используемых объектов:

Button, GroupBox, TextBox
Код программы:

Public Class Form1

Dim r As Single

Dim p, v As Single

Dim n As Integer

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

r = Val(TextBox1.Text)

n = Val(TextBox2.Text)

v = Val(TextBox3.Text)

r = r / 1200

p = -p

v = PV(r, n, p)

TextBox3.Text = Str(v)

End Sub

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

r = Val(TextBox1.Text)

n = Val(TextBox2.Text)

v = Val(TextBox3.Text)

p = -p

r = 1200 * Rate(n, p, v)

TextBox1.Text = Str(r)

End Sub

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

TextBox1.Text = " "

TextBox2.Text = " "

TextBox3.Text = " "

TextBox4.Text = " "

End Sub

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

r = Val(TextBox1.Text)

n = Val(TextBox2.Text)

v = Val(TextBox3.Text)

r = r / 1200

p = -Pmt(r, n, v)

TextBox4.Text = Str(p)

End Sub

End Class

Самостоятельные работы

Самостоятельная 1

Цель: Расположите на форме командную кнопку и линию. Разработайте приложение, работающее следующим образом: при щелчке по кнопке линия перемещается в новое положение в пределах формы, при этом координаты линии определяются случайными числами, а также случайным образом меняется цвет линии и ее толщина.


Рис 23. Запущенное окно самостоятельной работы №1

Перечень используемых объектов:

Button
Public Class Form1

“Создаем линию разного цвета в случайном месте

Dim g As Graphics

Dim p As Pen

Dim x1, x2, y1, y2 As Integer

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint

Randomize()

g = e.Graphics

p = New Pen(Color.Black)

Dim r As Random

r = New Random

p.Width = r.Next(1, 15)

p.Color = Color.FromArgb(r.Next(0, 255), r.Next(0, 255), r.Next(0, 255))

x1 = r.Next(0, Width)

x2 = r.Next(0, Width)

y1 = r.Next(0, Height)

y2 = r.Next(0, Height)

g.DrawLine(p, x1, y1, x2, y2)

End Sub

“Обновляем форму

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

Me.Refresh()

End Sub

End Class

Самостоятельная 10

Цель: Разработать приложение, которое определяет номер дня недели для введенной даты, а также определяет дату следующего дня. Исходная дата вводится в три текстовых окна (день, месяц, год соответственно).


Рис 24. Запущенное окно самостоятельной работы №4-
Перечень используемых объектов:

Button, Label, GroupBox, TextBox

‘вывод в TextBox день недели и дату следующего дня

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

Dim x, y, z As Integer

Dim DateValue As DateTime

x = TextBox1.Text

y = TextBox2.Text

z = TextBox3.Text

DateValue = New DateTime(z, y, x)

TextBox4.Text = DateValue.ToString("dddd")

DateValue = New DateTime(z, y, x + 1)

TextBox5.Text = DateValue.ToShortDateString()

End Sub