Сейчас работаем

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

admin

/ /

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

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

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Тип Название Рейтинг Категория Стоимость
Курсовая Курсовой проект "Ведение заказов" -1 .NET (C#) 3 500,00
Исходник Сборник программ C# WinForms Visual Studio 2015 19 .NET (C#) 960,00
Курсовая АИС Учёта заказов станции технического обслуживания (C#,WinForms,SQL Server) new 0 .NET (C#) 3 000,00
Курсовая Программа "Кроссворд" на С++ 12 C/C++ 1 500,00
Статья Рассылка SMS. Пример работы с событиями (events) на C# в Visual Studio 2015 9 .NET (C#) бесплатно
Другие работы автора
Тип Название Рейтинг Категория Стоимость
Курсовая АИС База данных "Регистратура поликлиники" (C#, WPF,WinFroms, SQLite, Access ) 0 .NET (C#) 2 500,00
Исходник Анализ данных на Python new 0 Python 10 000,00
Исходник Архив сотрудников предприятия 0 .NET (C#) 1 500,00
Исходник Интернет-магазин головных уборов для ателье 0 .NET (C#) 3 000,00
Исходник Магазин автозапчастей на C# 0 .NET (C#) 1 000,00
Новые работы
Тип Название Рейтинг Категория Стоимость
Исходник Учет продаж (NET 5.0, C#, WPF, SQL Server) new 0 .NET (C#) 1 000,00
Исходник Стековый калькулятор C# new 0 .NET (C#) 700,00
Курсовая Автоматизированная информационная система «Поиск пропавших людей» C# new 0 .NET (C#) 2 500,00
Курсовая Распределение учебной нагрузки C# new 0 .NET (C#) 5 000,00
Исходник Нахождение кратчайшего пути в графе. Алгоритм Дейкстры C# new 0 .NET (C#) 600,00
Программа для заказа планшетов на Visual Basic.NET
Разработка простого приложения для заказа планшетов на Visual Basic.NET
Категория: Образование
Стоимость: 500,00