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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Декабрь 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
15.12.2009
18:05:27
18:52:19
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю
←   Все выпуски   →

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

Чемпионы рейтинга экспертов в этой рассылке

Vasiliy83
Статус: Практикант
Рейтинг: 838
∙ повысить рейтинг » 		Megaloman
Статус: Бакалавр
Рейтинг: 809
∙ повысить рейтинг » 		Botsman
Статус: Профессионал
Рейтинг: 512
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Basic/VBA

Номер выпуска:951
Дата выхода:08.12.2009, 18:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:370 / 100
Вопросов / ответов:2 / 2

Вопрос № 174828: Уважаемые эксперты подскажите в следующем создаю например Макрос1 в его теле всего одна строка Beep Создаю текстовое поле в параметрах текстового поля устанавливаю галочку Вычислить при выходе Затем в поле Выполнить макрос при выходе устанав...

Вопрос № 174829: Уважаемые эксперты подскажите в следующем: Если, открыв Мой компьютер мы увидим, например, много дисков, в том числе и съемных А затем вставив строку кода: If Len(Dir("D:", vbDirectory)) > 0 Then .... благодаря, которой можно уз...
Вопрос № 174828:

Уважаемые эксперты подскажите в следующем создаю например Макрос1
в его теле всего одна строка Beep
Создаю текстовое поле в параметрах текстового поля устанавливаю галочку Вычислить при выходе
Затем в поле Выполнить макрос при выходе устанавливаю Макрос1
Пользуюсь полем покидаю его сигнал не происходит
Странно
Действую методом народным, против логики на всякий случай в поле поля Выполнить макрос при входе устанавливаю Макрос1
Пользуюсь полем вхожу в него, покидаю его сигнал не происходит
Как же правильно сделать, чтобы был звук??
Спасибо Эндрю


Отправлен: 03.12.2009, 18:14
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Vasiliy83, Практикант :
Здравствуйте, Ципихович Эндрю.
здесь обсуждалась эта тема.
в частности:
© Цитата:
Раньше (в Windows98/Me) работала встроенная в VBA функция Beep В WinXP эта функция оказалась на 3-м Ring-е OC (все низкоуровневые функции упрятали подальше от пользователей), и, соответственно, без использования API-функции Beep уже не обойтись.

Код:
Вот весь код:
Private Sub Worksheet_Calculate()
    I
 f [a1] > 5 Then Beep 440, 500
End Sub
Для формирования звука через встроенный динамик компа присутствует дополнительный модуль с кодом:
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Ответ отправил: Vasiliy83, Практикант
Ответ отправлен: 03.12.2009, 19:08

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 257263 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 174829:

    Уважаемые эксперты подскажите в следующем:
    Если, открыв Мой компьютер мы увидим, например, много дисков, в том числе и съемных
    А затем вставив строку кода: If Len(Dir("D:", vbDirectory)) > 0 Then ....
    благодаря, которой можно узнать существует ли диск на компьютере
    И в случае если диск "D:" съемный, в Мой компьютер якобы существует, а физически его нет, не подключен, тогда получается ошибка № 52
    Как можно её избежать, как точно узнать подключен ли диск фактически??
    Спасибо Эндрю

    Отправлен: 03.12.2009, 18:16
    Вопрос задал: Ципихович Эндрю, Посетитель
    Всего ответов: 1
    Страница вопроса »

    Отвечает Evgenijm, 10-й класс :
    Здравствуйте, Ципихович Эндрю.

    Советую обратить внимание на семейство объектов FileSystemObject. Правда, я сейчас не смог добиться удобной работы с ним, хотя точно помню, что 10 лет назад пользовался им с большим удовольствием. И все операции он выполнял гораздо быстрее, чем встроенные функции типа dir. Вот пример кода. Он некрасивый, но рабочий. Дисковод, если он есть, наверняка будет жужать, но это уже недостаток их конструкции.

    На форму добавьте список list1.

    Приложение:

    Ответ отправил: Evgenijm, 10-й класс
    Ответ отправлен: 05.12.2009, 03:29

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 257338 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.12 от 30.11.2009
    В избранное