"Убить" конкурента

[valerij]

В своей торговой практике возникла идея "Убить" конкурента!!
Суть идеи:
В торговой точке ставлю ПК, самый простенький, с одной прогой Excel 2003.
Нужна написать макрос "Бесплатная Лотерея".
На экране моника будут "бегущие" числа "0 1 2 5 10 20 50 100 200" это деньги в гривнах, причем скорость "бегущих" чисел должна быть относительно, высокой.
К клаве присоединяется внешняя кнопка (от дверного звонка) и подключена к любой клавиши, скажем "А" и эта кнопка выносится на прилавок. Покупатель, купивший у меня товар, получает право нажать на кнопку, в момент, как он считает, на какой купюре будет курсор.
Если он угадал, получает деньги.
У меня все продумано, защита от случайного клацанья, учет нажатия кнопок и результа выигрыша......
Как написать такой макрос, даже не знаю с чего начать?

[дмидми]

Для начала согласуй идею со своей "крышей".

[vladtr]

Сообщение от valerij

К клаве присоединяется внешняя кнопка (от дверного звонка) и подключена к любой клавиши, скажем "А" и эта кнопка выносится на прилавок.
[/COLOR][/B]

Можно использовать генератор случайных чисел СЛЧИС(). Но повесить лучше на кнопку (F9). Если ее нажимать, то будет происходить вычисление и макроса не надо (всех открытых листов, в том числе таблиц данных, и обновление всех открытых листов диаграмм). У вас будет менятся значения.

[valerij]

Сообщение от дмидми

Для начала согласуй идею со своей "крышей".

Это не проблемма

Сообщение от vladtr

Можно использовать генератор случайных чисел

Его использовать нельзя, т. к. выигрыш всегда будет НОЛЬ, тут фишка такая, скажем для начало выигрыш в день составит 10 грн., разбиваем десятку на "1 0 0 0 1 0 0 0 0 0 1 2 1 1 1....." на второй день выигрыш 0, на тритий 20.......
Кому выиграть решает продавец. ~ так, купил товар, продавец жмет пробел и запускается программа, до нажатия внешней кнопки, после программа зацикливается на "бегущих" числах, пока не нажат пробел.
Если нужно "выдать" покупателю выигрыш, продавец жмет кл. 1,2,5
Ей не дано право дать выигрыш большой суммы, это смогу только я, нажав определенную комбинацию клавиш, представьте стоит в очереди мой человек, подходит его очередь, я жму кл. и выигрыш 200 грн., ну и т. д.
Да, самое главное, должна прозвучать победная, одноголосая музыка, когда произошел выигрыш, Excel может "сочинять" музыку?

[VictorM]

Excel может "сочинять" музыку?

ну, сочинять не сочинять, а проиграть когда нужно, может хоть симфонию

[valerij]

ну, сочинять не сочинять, а проиграть когда нужно, может хоть симфонию

А можно пример?

[VictorM]

А можно пример?

можно

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub Alarm()
    Dim WAVFile As String
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
        WAVFile = ThisWorkbook.Path & "\sound.wav"
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

в данном примере файл sound.wav должен находиться в одной папке с программой

[valerij]

Сообщение от VictorM

в данном примере файл sound.wav должен находиться в одной папке с программой

Фаил sound.wav, любой муз. фаил с этим именем?
И код располагать в модуле или в книге

[vladtr]

Сообщение от valerij

Это не проблемма
Его использовать нельзя, т. к. выигрыш всегда будет НОЛЬ...

Вам же надо получать определенные числа, так можно написать как надо...и использовать функцию не только CЛЧИС() (она гернерит от 0-1), но и СЛУЧМЕЖДУ(Число1,Число2).

[VictorM]

Фаил sound.wav, любой муз. фаил с этим именем?

это пример и, соответственно, имя файла тоже пример. Имя может быть любым. Естественно его нужно прописать в коде.

И код располагать в модуле или в книге

код можно разместить в любом программном модуле и вызывать его, например, из модуля формы при наступлении определенного события.
Можно создать несколько "музыкальных" кодов, разместить их в отдельном модуле, к примеру, sound и вызывать по мере необходимости тот, что нужно.