Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Gluck
Статус: 5-й класс
Рейтинг: 158
∙ повысить рейтинг »
solowey
Статус: Профессор
Рейтинг: 128
∙ повысить рейтинг »
Sergey V. Gornostaev
Статус: Профессионал
Рейтинг: 17
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1149
Дата выхода:03.01.2021, 14:15
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:15 / 13
Вопросов / ответов:3 / 5

Консультация # 183213: smile Уважаемые эксперты! Пожалуйста, помогите с одним заданием: Информационная система создается для объекта склад. Переиодически по запросу должны выдаваться данные о названии товаров, их количестве на складе....
Консультация # 106325: Люди подскажите где в Visual Basice 6.0 находиться табличный список, не могу найти чтобы на форму разместить. Подробней как до него добраться... У меня Меню на Русском языке... ...
Консультация # 178638: В небоскребе N этажей и всего один подъезд; на каждом этаже по три квартиры; лифт может останав ливаться только на нечетных этажах. Человек садится в лифт и набирает номер квартиры M. На какой этаж лифт должен доставить пассажира? 1.В работе необходимо выполнить алгоритмические задачи с использованием базовых типов данных и основных опера...

Консультация # 183213:

smile Уважаемые эксперты! Пожалуйста, помогите с одним заданием:

Информационная система создается для объекта склад.
Переиодически по запросу должны выдаваться данные о названии товаров, их количестве на складе.

Оператор ЭВМ должен иметь возможность проделывать следующие операции обработки данных:
-Включение нового товара в перечень товаров на складе;
-удаление ненужного товара из списка;
-просмотреть информацию о наличии товаров;

А также выдачу документов:
инвентаризации склада;
накладную на получение товаров со склада;
ведомость пересортировки товаров.

(Выполнить необходимо в MS Access)

Очень нужна ваша помощь.
Заранее благодарю smile s
 mile

Дата отправки: 17.05.2011, 18:10
Вопрос задал: Петров Игорь Андреевич
Всего ответов: 1
Страница онлайн-консультации »


Консультирует lamed (Академик):

Здравствуйте, Игорь Андреевич! Здесь я выложил пример подобной программы по складу на Ms Access.
183213.zip (117.1 кб)
Если требуются комментарии - задавайте вопросы в мини-форуме.
Удачи!

Консультировал: lamed (Академик)
Дата отправки: 20.05.2011, 15:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 106325:

Люди подскажите где в Visual Basice 6.0 находиться табличный список, не могу найти чтобы на форму разместить. Подробней как до него добраться... У меня Меню на Русском языке...

Дата отправки: 22.10.2007, 06:53
Вопрос задал: Аверин АС
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Черников Игорь Владимирович:

Здравствуйте, Аверин АС!
У меня тоже VB6 на Русском языке.
Табличные списки можно подключить, добавив компоненты:
Microsoft DadaGrid Control 6.0 (OLEDB)
или
Microsoft FlexGrid Control 6.0
соответственно MSDATGRD.OCX и msflxgrd.ocx. Если этих файлов у Вас нет, поищите в Интернете.
Удачи!

Консультировал: Черников Игорь Владимирович
Дата отправки: 22.10.2007, 17:13
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Аверин АС!
В VB6 кроме Grid Controls для отображения табличных данных можно использовать ListView входящий в состав библиотек Common Controls (mscomctl.ocx, comctl32.ocx).

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 22.10.2007, 19:43
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 178638:

В небоскребе N этажей и всего один подъезд; на каждом этаже по три квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер квартиры M. На какой этаж лифт должен доставить пассажира?


1.В работе необходимо выполнить алгоритмические задачи с использованием базовых типов данных и основных операторов языка программирования VBA.
2. Задачи прислать в виде файлов Word либо Excel, с кодом программы, выполненном в среде VBA соответствующего компонента Office.
3. В программах обязательно наличие комментариев, поясняющих основные алгоритмические шаги.

Дата отправки: 26.05.2010, 00:01
Вопрос задал: Ананьев Рудольф Олегович
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Megaloman (Мастер-Эксперт):

Здравствуйте Ананьев Рудольф Олегович! Вот код макроса, Excel-файл можно загрузить z178638.xls (25.5 кб).

Sub z178638()

Dim N As Integer        ' Количество этажей
Dim M As Integer        ' Номер квартиры
Dim Nroom As Integer    ' Кол-во квартир на этаже
Dim Floor As Integer    ' Номер этажа для указанной квартиры

Nroom = 3           ' Количество квартир на этаже

N = CInt(InputBox("Введите количество этажей"))         ' Ввод данных и их преобразование из символьного к целому типу
M = CInt(InputBox("Введите номер квартиры"))

If N > 0 And M <= N * Nroom Then                        ' Если число этажей и номер квартиры корректно

    Floor = Int((M + Nroom-1) / Nroom)                        'Подсчёт номера этажа
    If (Floor Mod 2) = 0 Then                           ' Если этаж четный
        Floor = Floor + 1                                ' Вычисляем верхний нечётный этаж
        
        If Floor > N Then Floor = Floor - 2     ' Если верхний нечётный этаж вне диапазона
                                                        ' Вычисляем нижний нечётный этаж
    End If
    
    Msg = "Количество этажей=" + CStr(N) + vbCrLf       ' Формирование сообщения с ответом
    Msg = Msg + "Номер квартиры=" + CStr(M) + vbCrLf
    Msg = Msg + "Номер этажа=" + CStr(Floor)
    MsgBox Msg, vbOKOnly, "Ответ"
   
Else
    Msg = "Количество этажей=" + CStr(N) + vbCrLf       ' Формирование аварийного сообщения
    Msg = Msg + "Номер квартиры=" + CStr(M)
    MsgBox Msg, vbOKOnly, "Некорректные данные"
End If

End Sub

Консультировал: Megaloman (Мастер-Эксперт)
Дата отправки: 26.05.2010, 12:48

5
большое спасибо)
-----
Дата оценки: 28.05.2010, 15:43

Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Andrew Kovalchuk:

Здравствуйте, Ананьев Рудольф Олегович.
Код в приложении.

Приложение:

Консультировал: Andrew Kovalchuk
Дата отправки: 26.05.2010, 13:03

5
спасибо
-----
Дата оценки: 28.05.2010, 15:46

Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное