На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Программа для заказа планшетов на 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.
Купить 500,00 
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

admin

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Другие работы автора
Тип Название Рейтинг Категория Стоимость
Курсовая АИС "Авиакасса" (C#, WPF, WinForms, SQLite, SQL Server, Access) new 0 .NET (C#) 5 500,00
Курсовая АИС База данных "Регистратура поликлиники" (C#, WPF,WinFroms, SQLite, Access ) 0 .NET (C#) 5 000,00
Исходник АИС Кинотеатр (C#, WPF, Windows Forms, SqLite, SQL Server) new 0 .NET (C#) 2 000,00
Исходник Анализ данных на Python 0 Python 10 000,00
Курсовая АРМ декана C# 0 .NET (C#) 3 500,00
Купить

500,00 

Покупается впервые!
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
TabletPC.rar
5213834
Оцени работу

рейтинг

Поделись работой с друзьями

Категории
Программа для заказа планшетов на Visual Basic.NET
Разработка простого приложения для заказа планшетов на Visual Basic.NET
Категория: Образование
Стоимость: 500,00