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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.822 RSS
←   Январь 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
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.822 подписчиков
0 за неделю
←   Все выпуски   →

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


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 693
от 18.01.2008, 13:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 265, Экспертов: 43
В номере:Вопросов: 2, Ответов: 5
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 118162: Помогите решить задачку. Дан массив d(30) вывести значение элементов которые попадают в интервал от 5 до 15 а также общее количество таких элементов....
Вопрос № 118164: При использовании функций библиотеки winmm.dll, с помощью API, саму библиотеку не надо добавлять в проект ( если установлен WindowsMediaPlayer на компьютер, то она должна быть уже зарегистрирована в Windows ? )?Напомните плиз, какие библиотеки надо с...

Вопрос № 118.162
Помогите решить задачку. Дан массив d(30) вывести значение элементов которые попадают в интервал от 5 до 15 а также общее количество таких элементов.
Отправлен: 12.01.2008, 19:45
Вопрос задала: Leka2008 (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 10)
Отвечает: AlexanderZh
Здравствуйте, Leka2008!
После определения и заполнения массива нужно вставить следующие строки:

dim cnt as integer ' счетчик элементов, попадающий под условие
dim i as integer ' счетчик цикла

for i=0 to 30
if d(i)>=5 and d(i)<=15 then
debug.print i & " - " & d(i)
cnt=cnt+1
end if
next
debug.print "Всего элементов:" & cnt

---------
Людей можно поделить на 10 типов: тех, кто понимает двоичную систему и тех, кто нет... © народное
Ответ отправил: AlexanderZh (статус: Практикант)
Ответ отправлен: 12.01.2008, 21:42
Отвечает: Черников Игорь Владимирович
Здравствуйте, Leka2008!

Dim d(30)' Объявляем переменные
Dim Количество As Integer
Dim значения As String

For i = 0 To 30 'задаём цикл
If d(i) > 5 And d(i) < 15 Then'Ставим условие
Количество = Количество + 1'Считаем, если условие выполняется
значения = значения & d(i) & Chr(10)'Записываем в переменную
End If
Next i'Конец цикла
MsgBox (значения & Chr(10) & "Всего: " & Количество & " шт.")'Выводим на экран
---------
От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 13.01.2008, 14:29

Вопрос № 118.164
При использовании функций библиотеки winmm.dll, с помощью API, саму библиотеку не надо добавлять в проект ( если установлен WindowsMediaPlayer на компьютер, то она должна быть уже зарегистрирована в Windows ? )?Напомните плиз, какие библиотеки надо с собой таскать,чтобы прога,написанная на Basiс,работала на другом компе?При добавлении компонента WindowsMediaPlayer на форму, он принимает вид свернутого проигрывателя на панели задач, как управлять проигрыванием mp3 при помощи его кнопочек )))
Еще задал вопрос № 118161 , по API функциям в этой тематике,у кого есть желание, можете глянуть )))
Отправлен: 12.01.2008, 19:48
Вопрос задал: Sapozhnikov Vladimir (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Sapozhnikov Vladimir!
Запустите мастер "Package & Deployment Wizard" и в процессе создания дистрибутива он покажет список файлов которые "надо с собой таскать".
"...как управлять...?" - после подключения библиотеки к проекту, вызовите "Object Browser"(F2), с его помощью можно посмотреть все доступные в проекте объекты, события, свойства, методы...
Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 12.01.2008, 21:55
Оценка за ответ: 5
Комментарий оценки:
вроде начал разбираться потихоньку )))
Отвечает: Черников Игорь Владимирович
Здравствуйте, Sapozhnikov Vladimir!
Я как-то таскал с собой msdxm.oca
и управлял так:
Form1.MediaPlayer1.Play
Form1.MediaPlayer1.Stop
а воспроизводимый файл прописывал в свойствах
---------
От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 13.01.2008, 14:39
Оценка за ответ: 5
Комментарий оценки:
только у меня добавляеться wmp.dll и приходиться писать WindowsMediaPlayer1
Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, Sapozhnikov Vladimir!
winmm.dll - это обычная АПИ и, начиная с Виндовс Миллениум, она входит в состав ОС (во всяком случае, я не видел Виндовс после Миллениума, гдебы она отсутствовала даже при отсутствии Медиа Плеера). Регистрации она не требует - это не библиотека классов. Можно же, в конце концов, и самому включить в инсталлятор ее либо поставлять отдельно...
Теперь о дополнительных файлах. В большинстве случаев хватает MSVBVM60.DLL в системной директории, но, с того же миллениума, она входит в состав ОС. Остальные файлы - смотрите по подключенным в проект библиотекам и декларациям АПИ-функций в своем проекте. Стандартный мастер инсталляшек, поставляемый вместе с Бейсиком, сунет в пакет множество разных, порой ненужных вещей, хотя иногда они бывают очень и нужны. Из сторонних Инсталляторов могу посоветовать FreeInstaller - взял его как-то на Realcoding.ru. Он маленький по размеру (около 900Кб) и самостоятельно включает в изготавливаемый инсталлятор файлы, нужные для функциорнирования бейсиковых программ. Мне понравился...
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (мь!тарь) (статус: Студент)
Ответ отправлен: 13.01.2008, 15:27
Оценка за ответ: 5
Комментарий оценки:
Пасибки )

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

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

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное