ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вызов процедуры
5 сообщений из 5, страница 1 из 1
вызов процедуры
    #32247062
shyulia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shyulia
Гость
Не могу выполнить процедуру с параметрами, помогите кто может...
...
Рейтинг: 0 / 0
26.08.2003, 09:58
| Ответить | Цитировать | Написать  
вызов процедуры
    #32247083
Pestov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pestov
Участник
Откуда вызываешь процедуру?
...
Рейтинг: 0 / 0
26.08.2003, 10:16
| Ответить | Цитировать | Написать  
вызов процедуры
    #32247098
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tpg
Участник
Ну, что за слезы? По нормальному спросить нельзя? Что? Где? Когда?... понимашь!
...
Рейтинг: 0 / 0
26.08.2003, 10:23
| Ответить | Цитировать | Написать  
вызов процедуры
    #32247119
shyulia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shyulia
Гость
Хочу выполнить процедуру в VB, не знаю как обьявит параметры...
...
Рейтинг: 0 / 0
26.08.2003, 10:38
| Ответить | Цитировать | Написать  
вызов процедуры
    #32247129
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tpg
Участник
Вот процедура
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Public Sub BeepExt(ByVal w As Integer)
Dim f As Boolean
Dim lFreq As Long
    lFreq = CLng(sSupFrequency)
    Select Case w
        Case  1  'Ok
            f = BeepEx(lFreq * 5, CLng(60))
        Case 2 'Error
            f = BeepEx(lFreq *  4 , CLng( 80 ))
            f = BeepEx(lFreq *  4 , CLng( 80 ))
            f = BeepEx(lFreq *  4 , CLng( 80 ))
            f = BeepEx(lFreq *  2 . 5 , CLng( 160 ))
        Case  3  'Atantion
            f = BeepEx(CLng(lFreq * 8), CLng(30))
            f = BeepEx(CLng(lFreq * 8 * 16 / 12), CLng(30))
            f = BeepEx(CLng(lFreq * 8 * 19 / 12), CLng(30))
        Case 4 'duble
            f = BeepEx(CLng(lFreq *  6 ), CLng( 100 ))
            f = BeepEx(CLng(lFreq *  4 ), CLng( 100 ))
            f = BeepEx(CLng(lFreq *  6 ), CLng( 100 ))
            f = BeepEx(CLng(lFreq *  4 ), CLng( 100 ))
    End Select
End Sub
А вот её вызов
Код: plaintext
1.
2.
3.
BeepExt  4 
BeepExt  2 
BeepExt  3 
BeepExt  1
...
Рейтинг: 0 / 0
26.08.2003, 10:45
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вызов процедуры
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]