|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2012, 19:37 | #1 |
Регистрация: 15.04.2012
Сообщений: 2
|
Приложение «Магазин бытовой техники» vs 2010
Приложение «Магазин бытовой техники». Товар выбирается из элемента ListBox, который содержит 6 строк. Единицы измерения – только штуки.
Dim n As Integer 'количество покупок Dim ilst1(0 To 6) As Integer 'моссив измерении едениц Dim price(0 To 9) As Single ' массив цен Dim sum() As Single ' моосив стоимости продуктов Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 'заполняем поле со списком товара cmbltem.Items.Add("Стиральная машина C-1") cmbltem.Items.Add("Стиральная машина Ф-2") cmbltem.Items.Add("Телевизор LG - 2000") cmbltem.Items.Add("Телевизор Samsung SG-10R") cmbltem.Items.Add("Микроволновая печь LG -S") cmbltem.Items.Add("Газовая плита Indesit T1") ' зополняем массив цен price(0) = 25000 price(1) = 30000 price(2) = 70000 price(3) = 120000 price(4) = 3500 price(5) = 6000 'заполняем массив едениц измерений ilst1(0) = 0 ilst1(1) = 1 ilst1(2) = 2 ilst1(3) = 3 ilst1(4) = 4 ilst1(5) = 5 'настраиваем лист listVew T1 T1.Columns.Add("n", 30) T1.Columns.Add("нименование товара", 200) T1.Columns.Add("ед. измерения", 80) T1.Columns.Add("цена", 80) T1.Columns.Add("Ед.Изм", 80) T1.Columns.Add("кол", 80) T1.Columns.Add("сумма", 100) T1.Width = 30 + 200 + 80 + 80 + 80 + 80 + 100 + 5 ' начальное количество покупок равна нулю n = 0 'определяем начальное размер массива сумм за товары ReDim sum(0) End Sub Private Sub cmbltem_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbltem.SelectedIndexChanged Dim k As Integer, k1 As Integer ' В k заполняем выпроного продукта, ' а в k1 - номер соотвествующей еденицы измерения k1 = ilst1(k) ' выбераем в список ед.изм. нужную строку lst1.SelectedIndex = k1 'покажем цену выброного продукта lblprice.Text = CStr(price(k)) & "руб." ' очистем поля для кол -ва и суммы, ' переведем фокус на поле количество TxtKol.Text = "" lblsum.Text = "" TxtKol.Focus() End Sub Private Sub TxtKol_KeyPress(sender As Object, key As System.Windows.Forms.KeyPressEventA rgs) Handles TxtKol.KeyPress Dim k As Integer ' если нажать клавиша интерб, то перевести оброботку If key.KeyChar = ChrW(Keys.Return) Then ' получить номер выброного продукта ' посчитать сумму за товар (сумма=цена*количество) sum(n) = price(k) * CInt(TxtKol.Text) End If End Sub Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click End Sub End Class не получается((((помогите плиз |
16.04.2012, 14:50 | #2 |
Регистрация: 15.04.2012
Сообщений: 2
|
Помогите плиз я вообще хоть так делаю???
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как скомпилировать приложение под линукс из visual studio 2010 | i.pas | Qt и кроссплатформенное программирование С/С++ | 1 | 22.07.2010 14:08 |
БД Access фирма по продаже бытовой техники | maksat_a | Microsoft Office Access | 3 | 27.03.2010 20:17 |
Создать БД ACCESS магазин бытовой техники | maksat_a | Помощь студентам | 4 | 01.12.2009 12:14 |
Новый блок питания для бытовой техники: минус провод | Levsha100 | Компьютерное железо | 6 | 06.10.2009 00:42 |
Электронный каталог техники. | mihali4 | Софт | 4 | 24.04.2008 09:27 |