IE 2016

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

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

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

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


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

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

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

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

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

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

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

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

 

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

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

Файлы

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

См. также

Лучшие комментарии

13. Lara.Builova (файл скачал) 14.05.2011 17:40
Немножко добавила :oops:
(Наберите число 114033,44)
+ 1 [ Tatitutu; ]
# Ответить
23. cool.vlad4 (файл скачал) 18.05.2011 15:58
(22) попробуй зарегистрировать вот так regsvr32.exe /i dynwrapx.dll
Ответили: (23) (24)
+ 1 [ CratosX; ]
# Ответить
41. Tatitutu 21.11.2013 17:12
Уважаемые и ДОРОГИЕ БУХГАЛТЕРА - С ДНЕМ БУХГАЛТЕРА !
С ПРАЗДНИКОМ !
Если бы не вы - где бы были мы ?
+ 1 [ iris_reda; ]
# Ответить

Комментарии

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


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

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

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

2. см. пункт 1.
Ответили: (7)
# Ответить
7. Tatitutu 13.05.2011 11:50
(6) 8-й (это про конфигуратор, а не год :D :D :D )
Ответили: (8)
# Ответить
8. fishca (файл скачал) 13.05.2011 11:55
(7) год кстати тоже уже восьмой пошел, если не изменяет память первая торговля на восьмерке вышла в конце 2003 года
# Ответить
9. detec (файл скачал) 13.05.2011 13:39
Спасибо, позабавило. Жаль только, что я не умею пользоваться данным инструментом :D
# Ответить
10. Ish_2 13.05.2011 14:33
С чего-то надо начинать. Не робей !
# Ответить
11. sound (файл скачал) 13.05.2011 16:28
прикольно ага
# Ответить
12. Lara.Builova (файл скачал) 13.05.2011 16:29
Прелесть!
# Ответить
13. Lara.Builova (файл скачал) 14.05.2011 17:40
Немножко добавила :oops:
(Наберите число 114033,44)

Прикрепленные файлы:

Бухгалтерские_Счеты_82.epf
+ 1 [ Tatitutu; ]
# Ответить
14. Tatitutu 14.05.2011 18:26
(14) Смотрию понравился и освоился метод ))
а попробуй написать процедуру по нажитию на кнопку
фишки становились в заданном порядке (хотя бы определенное число)
Ответили: (14) (15)
# Ответить
15. Lara.Builova (файл скачал) 14.05.2011 20:32
(14) Ну вот как то так :)

Прикрепленные файлы:

Бухгалтерские_Счеты_82_Larissa.epf
# Ответить
16. Dnki (файл скачал) 14.05.2011 23:15
Как меня штука позабавила!

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


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

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

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

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

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

Надо дождаться очередного ляпа бухов. Тогда прикручу им ЭТО! )))) Благо, ждать недолго! )))
# Ответить
30. zavyzka 07.03.2012 15:29
Не работает звук.
Ответили: (31)
# Ответить
31. Tatitutu 12.03.2012 11:58
(30) zavyzka,
Не зарегистрировалась компонента (скорее всего не хватает прав)
прочитайте в шапке
Если появляется ошибка "класс не найден" - читаем, думаем, действуем
# Ответить
32. Tirael 15.03.2012 23:50
Супер! Бухи будут в восторге!
# Ответить
33. m2d3 18.04.2012 09:09
класс!
# Ответить
34. PanKir 07.06.2012 08:36
а у нас бухи не пользуются встроенным калькулятором (((
у них у каждого на столе лежит большая бандура "горожанина" которая умеет всё, что нужно буху...
Ответили: (35)
# Ответить
35. orefkov 07.06.2012 10:47
(34)
Сколько не видел бухов, у всех калькулятор "железный" под рукой. И всегда на нем считают.
Ответили: (36) (38)
# Ответить
36. Tatitutu 07.06.2012 11:00
(35) точно, и даже не смотря на калькулятор нажимают клавиши)))
Ответили: (37)
# Ответить
37. orefkov 07.06.2012 11:10
(36)
На прошлой работе у ГБ даже с кнопок уже все надписи стерлось, говорит - "а мне и не надо"
# Ответить
38. PanKir 08.06.2012 17:23
(35) orefkov,
что-то не могу сообразить марки "железного" калькулятора... :(
он круче "горожанина" или та же вариация клавиш?..
# Ответить
39. electronik 30.07.2012 12:45
а у нас бухи не пользуются встроенным калькулятором ((( + головой и фантазией
# Ответить
40. search (файл скачал) 30.07.2013 00:15
ностальгия )))
# Ответить
41. Tatitutu 21.11.2013 17:12
Уважаемые и ДОРОГИЕ БУХГАЛТЕРА - С ДНЕМ БУХГАЛТЕРА !
С ПРАЗДНИКОМ !
Если бы не вы - где бы были мы ?
+ 1 [ iris_reda; ]
# Ответить
42. sikuda (файл скачал) 30.12.2013 17:02
Идея класс! Скромная реализация в тонком и web-клиентах http://infostart.ru/public/248770/
Ответили: (43)
# Ответить
43. Bukaska 30.12.2013 17:08
(42) sikuda, Публикация неактивна
# Ответить
44. Patriot1C 02.04.2015 16:47
Жаль вчера (1 апреля ) не нашел эту обработку...
Ответили: (45)
# Ответить
45. Tatitutu 02.04.2015 16:50
(44) Patriot1C,

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






IE 2016