VBNet - Форум - информирующая программа для windows

Вопрос: информирующая программа для windows Добавлено: 07.07.10 20:46

Автор вопроса: Миленочка

Дорогие друзья, help me! что-то моцк мой нагрелся видно слишком, не могу решить простую вроде проблемку. Мой любимый старший братик убедительно попросил меня создать ему чудо таблицу, информирующую его о том, когда нужно посылать транспорт для заправки газом (пропан-бутан) на объекты с установленными емкостями. Это типа ф.и.о. клиента, адрес, объём ёмкости под газ, последняя заправка(фактическая), следующая заправка ... Ну нарисовать это дело в таблице понятно дело не сложно, а вот как и с помощью чего установить оповещение на последний пункт, что бы в нужный день и час сигнальчик на компе появлялся, что нужно позвонить такому-то и поинтересоваться о необходимости заправки газом? В microsoft office я чего-то не нашла такой полезной проги... ...или просто перегрелась...

Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #1	Добавлено: 07.07.10 21:23
	в MS Office в системной папке ищи приложение с именем типа"shdlr32.exe" вообщем должно быть чтото от слова sheduler или както так. иконка - будильник на листочках. есть вероятность что в 7 этого нет, я это отрывал в 2003. там расписание, дела, оповещения, события, календарь и тп. Ответить

Номер ответа: 2 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #2	Добавлено: 07.07.10 21:25
	(этот компонент остался от 98 офиса, официально невходит в новые. но он там есть. будут проблемы с ним, MS Office Project) Ответить

Номер ответа: 3 Автор ответа: Миленочка Вопросов: 1 Ответов: 3	Профиль \| \| #3	Добавлено: 07.07.10 21:37
	так чего делать-то, старый офис ставить? у меня щаз office 2010 установлен. А реально в VB написать код для такой задачи? Ответить

Номер ответа: 4 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #4	Добавлено: 07.07.10 22:21
	нет, но оно есть в новых версия, это недокументированно, я глянул - подправили в 2010. Ответить

Номер ответа: 5 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #5	Добавлено: 07.07.10 22:26
	реально, очень даже реально. одно скажу сейчас используем в качестве таблицы DataGrid (с ним базу данных Access придётся тоскать) или сами руками из тесктбоксов, функция пищания компа - Beep, смотри в API Viewer. а вообще писать надо чтоли? скачать нельзя? Ответить

Номер ответа: 6 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #6	Добавлено: 07.07.10 22:34
	код для алерта: Private Sub Timer1_Timer() Timer1.Interval = 1000 If Hour(Time$) & Minute(Time$) = 2132 Then Beep() End Sub декларацию для апи биип найдёшь и сама наверное 2123 - время ЧЧММ (без разделителя) можно поставить время из тексбокса, следовательно имя_бокса.Text ну а текстбокс(ы) с с остальными данными можно просто растянуть, и сделать кнопочку очистить, и ещё можно сделать укнопку продвигающёю список вперёд (просто копировать тект из предыдущего текстбокса в первый (по строчкам)) ну и тп и тд. Ответить

Номер ответа: 7 Автор ответа: Миленочка Вопросов: 1 Ответов: 3	Профиль \| \| #7	Добавлено: 07.07.10 23:38
	Спасибки! Вообще-то самой таблицы в exel ещё нет, это как вариант если можно воткнуть оповещение на дату следующей заправки. Как быть мне, заполнить таблицу в exel и прикрутить скрипт на оповещение или лучше в код написать и создать как отдельное приложение? Ответить

Номер ответа: 8 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #8	Добавлено: 08.07.10 10:39
	Предлагаю такой вариант. Делаешь таблицу table.xlsx (на 3й строчке я вспомнил мультик царь горы __(A)___________________________(B)_______ 1_Фруктозавод___________________2010-07-08 2_ОвощерезПром__________________2011-07-08 3_Арлен Пропан__________________2010-07-08 4_Администрация округа Хаймлих__2010-07-09 5_Alamo Beer Manufactures_______2010-07-08 Делаешь скрипт blabla.vbs и сохраняешь в папку с таблицей. Dim objXl, i, tmp, res, cDate, Path 'Извращенный способ узнать текущую папку, но я другого не знаю 'Берем путь к файлу скрипта и удаляем из него имя файла Path = Replace(WScript.ScriptFullName, WScript.ScriptName, "") Set objXl = CreateObject("Excel.Application") objXl.Workbooks.Open Path & "table.xlsx", , True 'Открыть таблицу ReadOnly cDate = Date() 'Чтобы каждый раз не вызывать функцию Date i = 1 Do tmp = objXl.Cells(i,2) If LenB(tmp) = 0 Then Exit Do 'Пустая ячейка - конец таблицы If cDate = tmp Then _ res = res & vbNewLine & objXl.Cells(i,1) i = i + 1 'Следующая строка Loop If LenB(res) = 0 Then MsgBox "No clients", vbInformation, "Today" _ Else MsgBox "Clients:" & res, vbInformation, "Today" objXl.Workbooks.Close 'Закрыть таблицу И последний шаг - добавить ярлык на файл скрипта в папочку Автозагрузка меню Пуск Ответить

Номер ответа: 9 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #9	Добавлено: 08.07.10 10:43
	Если нужна точность до часа, то получается надо модифицировать таблицу и скрипт, и запускать его каждый час с помощью отдельно написанной программы, либо какого-то планировщика Ответить

Номер ответа: 10 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #10	Добавлено: 08.07.10 13:33
	Жаль времени нет, прога элементарная. ODBC стандартный DSN Файлы DBF, ДАТАГРИД и фсё. Ответить

Номер ответа: 11 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #11	Добавлено: 08.07.10 17:23
	Smith пишет: ДАТАГРИД о чём я и говорил в первых постах Ответить

Номер ответа: 12 Автор ответа: Миленочка Вопросов: 1 Ответов: 3	Профиль \| \| #12	Добавлено: 08.07.10 23:39
	спасибочки всем. Winand как сделаю, отпишусь. Спасибо. Ответить

Страница: 1 |