Страница: 1 |
Вопрос: Задача с использованием массивов и меню... | Добавлено: 03.05.10 13:10 |
Автор вопроса: ![]() |
Добрый день, уважаемые Форумчане !!!
На этом замечательном сайте я впервые и... так уж сложилось, что вынужден попросить Вашей профессиональной помощи вот в таком вопросе... У меня есть задание: Создать программу, которая позволяет обработать такие данные, составить блок-схему решения алгоритмич. процессов (в форме дать возможность пользователю ввести 5 информационных строчек) [img]http://i057.radikal.ru/1005/59/e3c7c1d62a48.jpg[/img] И вот я создал 2 формы (1 - главная с таблицей и меню, другая - информация про автора) Написал код для Главной формы с таблицей и меню: Dim KV1, KV2, KV3, KV4, Rik
Private Sub mnuClear_Click() For i = 0 To 4 txtN(i).Text = "" txt1(i).Text = "" txt2(i).Text = "" txt3(i).Text = "" txt4(i).Text = "" txtU(i).Text = "" txtN(i).Enabled = True txt1(i).Enabled = True txt2(i).Enabled = True txt3(i).Enabled = True txt4(i).Enabled = True Next mnuRik.Enabled = False mnuPids.Enabled = False End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuInfo_Click() frmMain.Hide frmAbout.Show End Sub Private Sub mnuPids_Click() Pids = 0 For i = 0 To 4 Pids = Pids + Rik(i) Next lblPids.Caption = Str(Pids) + " грн." (наверное, не правильно...) End Sub Private Sub mnuRik_Click() For i = 0 To 4 (вообще не знаю, как дальше делать...) End Sub Написал код для формы с информацией про автора: Private Sub Ok_Click()
frmAbout.Hide frmMain.Show End Sub Мои переменные: KV1 - KV4 - Кварталы 1-4... (не знаю, нужно ли было их объявлять) lblZ - 1 этикетка (массив) для Наименования, кварталов, суммы за год... txtN - текстовые поля для "наименование продукции" txt1-4 - текстовые поля для "кварталов" txtU - текстовые поля для "Всего за год" lblPids - этикетка (массив) для "Итога" Моё Меню: Окно: 1) mnuClear - очистить таблицу 2) mnuExit - выход Расчет: 1) mnuRik - Всего за год 2) mnuPids - Итог Информация: 1) mnuInfo - Информация про Автора И вот не могу сделать код для расчета по нажатию на кнопки Расчёт-Всего за год, Расчёт - Итог... Я ни в коем случае не прошу "тупо решить д.з", я просто прошу помочь в конкретном месте. Я застрял и не могу найти выхода... Не на кого больше надеяться... Заранее - Спасибо Вам большое за понимание и помощь! |
Ответы | Всего ответов: 11 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 80 Ответов: 476 |
Профиль | Цитата | #1 | Добавлено: 03.05.10 16:52 |
Сначала по очереди считай значения за каждый из кварталов, а после сложи их. Либо я не понял твою проблему, поясни. |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 8911661 Вопросов: 3 Ответов: 3 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 03.05.10 20:52 |
Код уже сам подправил, есть другой вопрос...
Вот код:
Теперь вопрос: 1. Что нужно объявлять в разделе объявления переменных..? Скорее всего, я объявил вообще не нужное... 2. Что дописать в этом коде, чтобы к результату в "Всего за год" и "Итог" (в этикетки и текст.поля) добавлялась надпись " грн." - а то я не могу... ((. У меня сейчас просто цифры, а мне нужно цифры и надпись рядом "грн." |
Номер ответа: 3 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 03.05.10 21:59 |
если у тебя текст в переменной - As String, если ты делаешь так: Val(...) то не обявляй. если у тебя (как в подправленном коде) нет переменных - не обявляй ничего (у тебя тут функуий нет так что далее не пишу). |
Номер ответа: 4 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 03.05.10 22:00 |
(если текстовое поле то не .Caption, а .Text) |
Номер ответа: 5 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 03.05.10 22:09 |
ну кароче вот:
ну и так везде - заменяешь своё примое (lblPids(5) = Val(lblPids(5).Caption) + Val(txtU(i).Text)) на способ через переменную.
и тыры пыры - остовляешь так как есть |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 8911661 Вопросов: 3 Ответов: 3 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 04.05.10 10:41 |
VbStarter, понял, спасибо!
Скажи пожалуйста - очень прошу - как блок-схема выглядеть будет? Вообще ума не приложу ![]() |
Номер ответа: 7 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 04.05.10 16:55 |
на счёт блок-схемы - там кода нет. нарисуй на форме фигуры этой схемы, сделай лэёблы,в них пиши всё что надо, как - я тебе объяснил уже. ![]() |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 8911661 Вопросов: 3 Ответов: 3 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 04.05.10 18:15 |
Нет, дело не в этом....
Мне Блок-схема Отдельно (как картинка в Word'e) нужна, её в форму засовывать не просили... Я просто НЕ ПОНИМАЮ - как она в принципе выглядеть будет? (именно для данной работы...) |
Номер ответа: 9 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 04.05.10 18:46 |
понял. |
Номер ответа: 10 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 04.05.10 18:51 |
ввести данные (можешь расписать), (сохранить их в переменну), суммировать, вывести итог в лэйбл. за правильность как дз по инфе не могу отвечать, но такой вариант в принципе правилен. |
Номер ответа: 11 Автор ответа: ![]() ![]() ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 04.05.10 18:55 |
всё это ты можешь расписать подробно, но а принцепе особое расписывание каждого элемента по-моему не требуется. ![]() |
Страница: 1 |
|