Помогите с задачкой

@ilesher · Регистрация: 15.03.2010

Author24 — интернет-сервис помощи студентам

Суть задачи такова, сделать приложение аля бензоколонка. Сделал все меню но вот с самим подсчетом возникли трудности, не смог разобратся с присваиванием элементам чисел. Если кому не трудно то можете кинуть нечто похожее или подсказать что по теме почитать.

@gitarillo · 20.09.2011, 15:18

ilesher, Это приложение в учебных целях, или для реального внедрения. В любом случае помогу.

Не по теме:

На скрине выделил строку, которая вызвала у меня недоумение. Что это за деталь такая? И что ей подшибают?)))

@ilesher · 20.09.2011, 23:09 **[ТС]**

В учебных разумеется, задали задачку на дом. Это просто я опечатался) не безоколонка а мастерская) ну вобщем как будут заполнены поля значения не имеет) тут мысли появились по поводу подсчета, но в коде я не очень силен. вроде зделал подсчет в listbox'ах, но вот с combobox'ами и выводом в lable проблемы(

@gitarillo · 21.09.2011, 09:15

ilesher, Куда хочешь выводить итоговые данные? На лист? Или на форму.?

@Alex77755 · 21.09.2011, 22:12

В учебных разумеется, задали задачку на дом.

Начал бы с задания!
Как оно звучит?

@ilesher · 22.09.2011, 00:17 **[ТС]**

Ответ в lable, задание таково - чтобы при выборе определенных настроек(из того что я зделал) в lable записывалась цена с учетом выбора параметров

@Alex77755 · 22.09.2011, 10:06

Если в сопутствующих товарах не установлен мультивыбор, то примерно так:

Visual Basic

Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim f As Integer
Dim Z()
Z = Array(10, 20, 30, 40, 50) 'цены бензина
If ListBox2.ListIndex >= 0 Then a = Val(Z(ListBox2.ListIndex) * Val(ComboBox1.Text))
b = IIf(CheckBox2.Value = True, 15, 0)
c = IIf(CheckBox1.Value = True, 12, 0)
Z = Array(15, 25, 32, 48, 56) 'цены сопутсвующих товаров
If ListBox1.ListIndex >= 0 Then d = Val(Z(ListBox2.ListIndex))
Select Case ComboBox2.ListIndex
Case 0
f = Val(TextBox2.Text) * 25
Case 1
f = Val(TextBox2.Text) * 30
End Select
 
Label1.Caption = f + b + c + d + f
 
End Sub

если установить мультивыбор - надо добавить цикл переборки списка

@ilesher · 22.09.2011, 19:11 **[ТС]**

Спасибо, но работу уже доделал и сдал)

@gitarillo 753 / 552 / 48 Регистрация: 17.06.2010 Сообщений: 1,041 Записей в блоге: 1
	20.09.2011, 15:18	2
	ilesher, Это приложение в учебных целях, или для реального внедрения. В любом случае помогу. Не по теме: На скрине выделил строку, которая вызвала у меня недоумение. Что это за деталь такая? И что ей подшибают?))) Миниатюры 0

@gitarillo 753 / 552 / 48 Регистрация: 17.06.2010 Сообщений: 1,041 Записей в блоге: 1
	21.09.2011, 09:15	4
	ilesher, Куда хочешь выводить итоговые данные? На лист? Или на форму.? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	21.09.2011, 22:12	5
	В учебных разумеется, задали задачку на дом. Начал бы с задания! Как оно звучит? 0

@ilesher 0 / 0 / 0 Регистрация: 15.03.2010 Сообщений: 7
	22.09.2011, 00:17 [ТС]	6
	Ответ в lable, задание таково - чтобы при выборе определенных настроек(из того что я зделал) в lable записывалась цена с учетом выбора параметров 0

@ilesher 0 / 0 / 0 Регистрация: 15.03.2010 Сообщений: 7
	22.09.2011, 19:11 [ТС]	8
	Спасибо, но работу уже доделал и сдал) 0