Программа для заказа планшетов на Visual Basic.NET

Назначение и цели создания системы

Разрабатываемое приложение могут применять в своей деятельности различные магазины или салоны связи.  Приложение создается с целью упрощения процесса заказа планшетов.

Использованные технологии:

• Visual Basic Net + WinForms

Требования и возможности:

• настройка параметров заказа

Фрагмент программного кода:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'MsgBox(TextBox1.Text)
        'MsgBox(TextBox2.Text)
        'MsgBox(TextBox3.Text)

        Dim msg As String

        msg = "Производитель: " + TextBox1.Text + vbCrLf + "Наименование: " + TextBox2.Text + vbCrLf + "Модель:  " + TextBox3.Text + vbCrLf + "Цвет корпуса: "

        If RadioButton1.Checked Then
            msg += "синий"
        End If
        If RadioButton2.Checked Then
            msg += "жёлтый"
        End If
        If RadioButton3.Checked Then
            msg += "фиолетовый"
        End If

        If CheckBox1.Checked And ComboBox1.SelectedIndex <> -1 Then
            msg = msg + vbCrLf + "Размер дисплея: " + ComboBox1.SelectedItem
            TextBox4.Size = New Size(250, 80)
        Else
            TextBox4.Size = New Size(250, 79)
        End If
        TextBox4.Text = msg
        If CheckBox2.Checked And ComboBox2.SelectedIndex <> -1 Then
            msg = msg + vbCrLf + "Цена: " + ComboBox2.SelectedItem
            TextBox4.Size = New Size(250, 100)
        Else
            TextBox4.Size = New Size(250, 90)
        End If
        TextBox4.Text = msg
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        Me.BackColor = SystemColors.ActiveCaption
        CheckBox1.Checked = True
        CheckBox2.Checked = True
        ComboBox1.SelectedIndex = -1
        ComboBox2.SelectedIndex = -1
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        Me.BackColor = Color.Blue
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        Me.BackColor = Color.Yellow
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        Me.BackColor = Color.Violet
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        Label5.Visible = CheckBox1.Checked
        ComboBox1.Visible = CheckBox1.Checked
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        Label6.Visible = CheckBox2.Checked
        ComboBox2.Visible = CheckBox2.Checked
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        'MsgBox(ComboBox1.SelectedItem)
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        'MsgBox(ComboBox2.SelectedItem)
    End Sub

    Private Sub ОПрограммеToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОПрограммеToolStripMenuItem.Click
        MsgBox("Автор программы: Галкин С.И., Дата релиза: 2020 г.")
    End Sub

    Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click
        Close()
    End Sub
End Class

Содержание архива:

• Исходный проект программы с кодом в Visual Studio.