Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Завдання №1.Розробити додаток згідно із завданням у варіанті. При його побудові використати елементи управління ListBox, ComboBox, CheckedListBox, NumericUpDown, DomainUpDown та потрібні раніше вивчені елементи управління. Для нових елементів управління використати по максимуму перераховані в теоретичній частині властивості та методи. Всі списки мають бути відсортованими. На формі має бути присутній малюнок, наприклад логотип фірми. Приклад оформлення додатку наведено нижче.
Створений програмний код має наступний вигляд:
PublicClass Form1
PrivateSub Form1_Paint(ByVal sender AsObject, ByVal e As System.Windows.Forms.PaintEventArgs) HandlesMe.Paint
Me.Width = 700
Me.Height = 600
EndSub
Sub Одяг() 'створила нову процедуру'
TextBox1.Text = "0.0"
SelectCase ComboBox1.Text
CaseIs = "Куртка"
TextBox1.Text = Double.Parse(300 * NumericUpDown1.Value)
CaseIs = "шапка"
TextBox1.Text = Double.Parse(70 * NumericUpDown1.Value)
CaseIs = "колготи"
TextBox1.Text = Double.Parse(40 * NumericUpDown1.Value)
CaseIs = "штани"
TextBox1.Text = Double.Parse(120 * NumericUpDown1.Value)
CaseIs = "майка"
TextBox1.Text = Double.Parse(50 * NumericUpDown1.Value)
CaseIs = "комбінізон"
TextBox1.Text = Double.Parse(140 * NumericUpDown1.Value)
CaseIs = "носочки"
TextBox1.Text = Double.Parse(20 * NumericUpDown1.Value)
EndSelect
EndSub
PrivateSub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Одяг()
EndSub
PrivateSub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
Одяг()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(ComboBox1.Text &" - "& NumericUpDown1.Text &" шт"&" - "& TextBox1.Text &" грн")
TextBox5.Text = Double.Parse(TextBox5.Text) + Double.Parse(TextBox1.Text)
ComboBox1.Text = ""
NumericUpDown1.Value = 1
TextBox1.Text = "0.0"
EndSub
Sub ПродуктиХарчування() 'створила нову процедуру'
TextBox2.Text = "0.0"
Dim a, b AsSingle
SelectCase ComboBox2.Text
CaseIs = "малюк"
a = Double.Parse(20.5 * NumericUpDown2.Value)
CaseIs = "вівсянакаша"
a = Double.Parse(6 * NumericUpDown2.Value)
CaseIs = "стариймолочник"
a = Double.Parse(12.8 * NumericUpDown2.Value)
CaseIs = "маннакаша"
a = Double.Parse(12 * NumericUpDown2.Value)
CaseIs = "простоквашино"
a = Double.Parse(9.75 * NumericUpDown2.Value)
CaseIs = "Діно-йогурт"
a = Double.Parse(7.65 * NumericUpDown2.Value)
CaseIs = "Барні"
a = Double.Parse(7 * NumericUpDown2.Value)
EndSelect
SelectCase DomainUpDown1.Text
CaseIs = "серветки"
b = Double.Parse(3 * NumericUpDown2.Value)
CaseIs = "носовички"
b = Double.Parse(2.5 * NumericUpDown2.Value)
CaseIs = "ватніпалички"
b = Double.Parse(3.25 * NumericUpDown2.Value)
CaseIs = "присипка"
b = Double.Parse(3.5 * NumericUpDown1.Value)
CaseIs = "крем"
b = Double.Parse(5.25 * NumericUpDown2.Value)
CaseIs = "крем для рук"
b = Double.Parse(4 * NumericUpDown2.Value)
EndSelect
TextBox2.Text = Double.Parse(a + b)
EndSub
PrivateSub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
ПродуктиХарчування()
EndSub
PrivateSub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
ПродуктиХарчування()
EndSub
PrivateSub DomainUpDown1_SelectedItemChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainUpDown1.SelectedItemChanged
ПродуктиХарчування()
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Add(ComboBox2.Text &" "& DomainUpDown1.Text &" -"&" по "& NumericUpDown2.Text &" шт"&" - "& TextBox2.Text &" грн")
TextBox5.Text = Double.Parse(TextBox5.Text) + Double.Parse(TextBox2.Text)
ComboBox2.Text = ""
NumericUpDown2.Value = 1
DomainUpDown1.Text = ""
TextBox2.Text = "0.0"
EndSub
SubПобутоваХімія() 'створилановупроцедуру'
TextBox3.Text = "0.0"
SelectCase ComboBox3.Text
CaseIs = "Памперс"
TextBox3.Text = Double.Parse(102 * NumericUpDown3.Value)
CaseIs = "Ліберо"
TextBox3.Text = Double.Parse(98.25 * NumericUpDown3.Value)
CaseIs = "Вашмалюк"
TextBox3.Text = Double.Parse(87 * NumericUpDown3.Value)
CaseIs = "Зіспец. застібками"
TextBox3.Text = Double.Parse(120 * NumericUpDown3.Value)
EndSelect
EndSub
PrivateSub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
ПобутоваХімія()
NumericUpDown3.Value = 1
EndSub
PrivateSub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
ПобутоваХімія()
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Add(ComboBox3.Text &" - "& NumericUpDown3.Text &" шт"&" - "& TextBox3.Text &" грн")
Double.Parse(TextBox5.Text)
TextBox5.Text = Double.Parse(TextBox5.Text) + Double.Parse(TextBox3.Text)
ComboBox3.Text = ""
NumericUpDown3.Value = 1
TextBox3.Text = "0.0"
EndSub
Sub ЗасобиГігієни() 'створила нову процедуру'
TextBox4.Text = "0.0"
SelectCase ComboBox4.Text
CaseIs = "Гала"
TextBox4.Text = Double.Parse(14.5 * NumericUpDown4.Value)
CaseIs = "Тайд"
TextBox4.Text = Double.Parse(11 * NumericUpDown4.Value)
CaseIs = "Рекс"
TextBox4.Text = Double.Parse(17.5 * NumericUpDown4.Value)
CaseIs = "Ушастийнянь"
TextBox4.Text = Double.Parse(8.75 * NumericUpDown4.Value)
EndSelect
EndSub
PrivateSub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
ЗасобиГігієни()
NumericUpDown4.Value = 1
EndSub
PrivateSub NumericUpDown4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
ЗасобиГігієни()
EndSub
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox1.Items.Add(ComboBox4.Text &" - "& NumericUpDown4.Text &" шт"&" - "& TextBox4.Text &" грн")
TextBox5.Text = Double.Parse(TextBox5.Text) + Double.Parse(TextBox4.Text)
ComboBox4.Text = ""
NumericUpDown4.Value = 1
TextBox4.Text = "0.0"
EndSub
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Tzina AsString
Dim Znach AsDouble
Dim n, k AsInteger
If ListBox1.SelectedIndex = -1 Then
MsgBox("Виберіть рядок для видалення", , "Online магазин")
Else
Tzina = ListBox1.Text
n = InStr(Tzina, "шт - ") 'пошук входження підрядка "шт - " в рядок Tzina, вказуючи номер першого символу підрядка у рядку
k = Len(Tzina) 'визначення довжини усього рядка Tzina
Tzina = Microsoft.VisualBasic.Right(Tzina, k - n - 4) 'обрізання зправа рядка Tzina починаючи з числа n та враховуючи вираз "шт - " --4
n = InStr(Tzina, " грн") 'пошук входження підрядка " грн" в рядок Tzina, вказуючи номер першого символу підрядка у рядку
Tzina = Microsoft.VisualBasic.Left(Tzina, n - 1) 'обрізання зліва рядка Tzina починаючи з числа n та враховуючи ще один пробіл --1
Znach = Double.Parse(Tzina) 'призначення обрізаному тексту числового значення
TextBox5.Text = Double.Parse(TextBox5.Text) - Znach 'віднімання від загальної суми видаленого продукту
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 'видалення із списку виділеного продукту
EndIf
EndSub
PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
ListBox1.Items.Clear()
TextBox5.Text = ""
EndSub
PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
MsgBox("Дякуємо за замовлення", , "Online магазин")
EndSub
EndClass