gifts2017

Лучший подарок для бухгалтера - счёты 8.2 (со звуком)

Опубликовал Юрий Тимофеев (Tatitutu) в раздел Программирование - Работа с интерфейсом

(Толстый клиент)
Подарите бухгалтеру счеты, и он(а) Вас никогда не забудет.

Обработка -шутка, имитирующая работу деревянных счЁт.


Приколитесь над бухгалтерией (удалите калькуляторы)
Производительность возрастает на 30%
Всего Вам самого лучшего и удачи.

Для самого смаку - нужен звук (почти вся фишка в нем)

Шутки - шутками, но меня заинтересовал вопрос, как присвоить звук костяшкам ?

Чтобы быстро откликались со звуком удара ?

сам до этого ни разу не сталкивался, посмотрел на форумах, много чего предлагают и разными способами, но меня это не устроило - или медленно или внешняя компонента...

Что делать ? И тут я вспомнил про звуки в Windows !!! Ведь они проигрываются без вызова, каких либо окон - то что нужно. Смотрите что получилось.

Наберите на счетах : 130511 (сегодняшняя дата) - обещаю тебе понравится.

Код открыт - пользуйтесь на здоровье.Без вредных привычек.

 

Кто очень хочет(8.2), но еще не может... вот версия для 7.7

Если появляется ошибка "класс не найден" - читаем, думаем, действуем 

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
Бухгалтерские_Счеты_82.epf
.epf 352,74Kb
06.06.15
830
.epf 352,74Kb 830 Скачать
Библиотека
.zip 6,09Kb
13.02.12
87
.zip 6,09Kb 87 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Сергей Рудаков (fishca) 13.05.11 11:27
Наберите на счетах : 130511 (сегодняшняя дата) - обещаю тебе понравится.

У тебя в коде:
Если Строка(ИтогСчет)="130511" Тогда
		DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+"3.wav", 1);
	Иначе 
		DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+"1.wav", 1);
	КонецЕсли;      	

...Показать Скрыть


Ошибка ;)

Надо сравнивать без учета разделителя триад числа, т.е.

Если Формат(ИтогСчет,"ЧЦ=15; ЧГ=0")="130511" Тогда
		DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+"3.wav", 1);
	Иначе 
		DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+"1.wav", 1);
	КонецЕсли;      	

...Показать Скрыть
2. Юрий Тимофеев (Tatitutu) 13.05.11 11:33
(1) :D ты не поверишь, так и было (этих конфигураторов столько развелось, паралельно и в 7.7 хотел сделать)
но спасибо ;)
3. Сергей Рудаков (fishca) 13.05.11 11:38
(2) параллельная работа с 77 и 8х порой приводит "ляпам и багам", но это только поначалу, первые 5 лет тяжело, потом привыкаешь :) :D
4. Сергей Рудаков (fishca) 13.05.11 11:41
(2) у тебя и в "вечном календаре 8.2" тоже есть "ляпчики":
Код
ЭлементыФормы.КнНазад.Заголовок=Строка( Формат(тГод-1,"ЧГ=0"))+" <"; 
Показать полностью


Функция Формат и так возвращает строку, ее не надо приводить к строке.
Вот интересно кстати 1С делает в тупую преобразование строки к строке или нет?
5. Юрий Тимофеев (Tatitutu) 13.05.11 11:42
(4) ничего что уже 8-й пошел :oops: 8-)
так я ж, не программист, я так для души можно сказать..
6. Сергей Рудаков (fishca) 13.05.11 11:48
так я ж, не программист, я так для души можно сказать..

1. ну если только так :)

ничего что уже 8-й пошел smile:oops: smile8-)

2. см. пункт 1.
7. Юрий Тимофеев (Tatitutu) 13.05.11 11:50
(6) 8-й (это про конфигуратор, а не год :D :D :D )
8. Сергей Рудаков (fishca) 13.05.11 11:55
(7) год кстати тоже уже восьмой пошел, если не изменяет память первая торговля на восьмерке вышла в конце 2003 года
9. Андрей Д. (detec) 13.05.11 13:39
Спасибо, позабавило. Жаль только, что я не умею пользоваться данным инструментом :D
10. Игорь Исхаков (Ish_2) 13.05.11 14:33
С чего-то надо начинать. Не робей !
11. sound sound (sound) 13.05.11 16:28
12. Lara.Builova 13.05.11 16:29
13. Lara.Builova 14.05.11 17:40
Немножко добавила :oops:
(Наберите число 114033,44)
Прикрепленные файлы:
Бухгалтерские_Счеты_82.epf
Tatitutu; +1 Ответить
14. Юрий Тимофеев (Tatitutu) 14.05.11 18:26
(14) Смотрию понравился и освоился метод ))
а попробуй написать процедуру по нажитию на кнопку
фишки становились в заданном порядке (хотя бы определенное число)
15. Lara.Builova 14.05.11 20:32
16. Игорь Дайнеко (Dnki) 14.05.11 23:15
Как меня штука позабавила!

Давай теперь насчет звука. Я не силен в устройстве Win, но понимаю так, что dynwrapx - это посредник для обращения к ф-им ОС. Чем такой механизм лучше ВК. Разве они не ту же роль играют.
17. Юрий Тимофеев (Tatitutu) 16.05.11 09:45
Dnki пишет:
Как меня штука позабавила!
Давай теперь насчет звука. Я не силен в устройстве Win, но понимаю так, что dynwrapx - это посредник для обращения к ф-им ОС. Чем такой механизм лучше ВК. Разве они не ту же роль играют.


я в этом тоже не большой специалист. Я же написал - задался вопросом , как
винда быстро и без задержек проигрывает свои звуки - вот и решил ей подсунуть свои звуки.

"вчера немного "баловался" - как можно "применить"
- замена или скажем так подмена "стандартных звуков"
нашел как получить - звуки и события по умолчанию , ну и соответственно ,как заменить :-)))
такой прикол получается и никто не знает "кто этоооооооооооо сделал ?"
18. gnataly (gnataly) 18.05.11 15:33
Не работает под Win 7. Как лечить?
19. Ийон Тихий (cool.vlad4) 18.05.11 15:41
20. Ийон Тихий (cool.vlad4) 18.05.11 15:43
(16) ВК и dynwrapx разные вещи, хотя обе используют COM механизм. dynwrapx это враппер для вызова внешних ф-ций, необязательно ОС.
21. Юрий Тимофеев (Tatitutu) 18.05.11 15:49
(18) в шапке же написано и ссылка дана

Если появляется ошибка "класс не найден" - читаем, думаем, действуем

Как правило этого достаточно для Windows XP, для ОС Windows Vista и Windows 7 необходимо зарегистрировать компоненту другим способом.

Шаг 3. В административной записи (права Администратора не в 1С, а на компьютере) выполняем следующие операции:
Панель управления -> Учетные записи пользователей -> Включение или отключение контроля учетных записей (UAC) -> Отключаем UAC.
Перезагрузка ПК
Выполняем действия, описанные в Шаге 2.
Включаем UAC.
Еще раз перезагружаем компьютер.
22. gnataly (gnataly) 18.05.11 15:49
(19) 32-битная, не может создать СОМОБъект, каждый раз при открытии регистрирует и всегда успешно... И вручную тоже зарегистрировано...
23. Ийон Тихий (cool.vlad4) 18.05.11 15:58
(22) попробуй зарегистрировать вот так regsvr32.exe /i dynwrapx.dll
24. Юрий Тимофеев (Tatitutu) 18.05.11 16:12
(23) не взлетит, только как в (21)
Отключаем UAC (можно не перезагружаться)
потом как в (23)
Включаем UAC и наслаждаемся.
25. Сергей Рудаков (fishca) 18.05.11 21:22
26. Илья Козлов (Dem1urg) 19.05.11 22:37
(21) Можно без отключения UAC. Пуск -> Программы -> Стандартные -> Командная строка. Запуск делать правой кнопкой с выбором "Запустить от имени администратора". Далее пишем regsvr32 ... и всё замечательно регистрируется. Проверял лично.
27. анна79 (Анна79) 20.02.12 13:25
Забавная штука!!!Мне так понравилась, сидела играла оторваться не могла!!!
29. Александр Горбачёв (SanyaGrek) 24.02.12 15:44
Класс!!! Автору спасибо! Нашёл себе развлекуху.

Надо дождаться очередного ляпа бухов. Тогда прикручу им ЭТО! )))) Благо, ждать недолго! )))
30. Александр Щемелёв (zavyzka) 07.03.12 15:29
31. Юрий Тимофеев (Tatitutu) 12.03.12 11:58
(30) zavyzka,
Не зарегистрировалась компонента (скорее всего не хватает прав)
прочитайте в шапке
Если появляется ошибка "класс не найден" - читаем, думаем, действуем
32. Tirael (tropin_a@mail.ru) 15.03.12 23:50
Супер! Бухи будут в восторге!
33. Дмитрий Кокотов (m2d3) 18.04.12 09:09
34. Кирилл Панфилов (PanKir) 07.06.12 08:36
а у нас бухи не пользуются встроенным калькулятором (((
у них у каждого на столе лежит большая бандура "горожанина" которая умеет всё, что нужно буху...
35. Александр Орефков (orefkov) 07.06.12 10:47
(34)
Сколько не видел бухов, у всех калькулятор "железный" под рукой. И всегда на нем считают.
36. Юрий Тимофеев (Tatitutu) 07.06.12 11:00
(35) точно, и даже не смотря на калькулятор нажимают клавиши)))
37. Александр Орефков (orefkov) 07.06.12 11:10
(36)
На прошлой работе у ГБ даже с кнопок уже все надписи стерлось, говорит - "а мне и не надо"
38. Кирилл Панфилов (PanKir) 08.06.12 17:23
(35) orefkov,
что-то не могу сообразить марки "железного" калькулятора... :(
он круче "горожанина" или та же вариация клавиш?..
39. Andrey Dyak (electronik) 30.07.12 12:45
а у нас бухи не пользуются встроенным калькулятором ((( + головой и фантазией
40. search search (search) 30.07.13 00:15
41. Юрий Тимофеев (Tatitutu) 21.11.13 17:12
Уважаемые и ДОРОГИЕ БУХГАЛТЕРА - С ДНЕМ БУХГАЛТЕРА !
С ПРАЗДНИКОМ !
Если бы не вы - где бы были мы ?
iris_reda; +1 Ответить
42. Сергей Кудашкин (sikuda) 30.12.13 17:02
Идея класс! Скромная реализация в тонком и web-клиентах http://infostart.ru/public/248770/
43. Елена Пименова (Bukaska) 30.12.13 17:08
(42) sikuda, Публикация неактивна
44. Матвей Кудашкин (Patriot1C) 02.04.15 16:47
Жаль вчера (1 апреля ) не нашел эту обработку...
45. Юрий Тимофеев (Tatitutu) 02.04.15 16:50
(44) Patriot1C,

Вот хотел сделать рассылку )))
Вместо этого "рекламировал"
Вот эту - посмотри - гарантирую понравиться
http://infostart.ru/public/339805/
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа