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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Июль 2020   →
 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.825 подписчиков
0 за неделю
←   Все выпуски   →

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


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

Лучшие эксперты в разделе

solowey
Статус: Профессионал
Рейтинг: 221
∙ повысить рейтинг » 		Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 10
∙ повысить рейтинг » 		Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1145
Дата выхода:07.07.2020, 12:15
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:15 / 12
Вопросов / ответов:3 / 6

Консультация # 81177: Есть модем. Набираем номер. После того, как человек возьмет трубку необходимо проиграть ему аудиофайл. Возможно ли подобное реализовать?...
Консультация # 172280: Здраствуйте Уважаемые эксперты. Программирую VBA. Не могу понять в чем моя ошибка, что у меня выполяется не то что надо. Есть форма, обьявлены несколько пременных в модуле. И по нажатию на одну из кнопок действие(Смотрите приложение). Я хочу сделать так, чтобы если число в textbox1.text больше чем textbox4.text то выводится число из textb...
Консультация # 52161: Добрый день, уважаемые эксперты! Возник вопрос, прошу помощи. Суть такова: (VB6, Access97) . Имеются две главные таблицы: "Abiturient" и "Abiturient_V" При проведении приема документов данные абитуриентов заносятся в табл. "Abiturient" . После вступительных экзаменов, данные абитуриентов, не прошедших испытани...

Консультация # 81177:

Есть модем. Набираем номер. После того, как человек возьмет трубку необходимо проиграть ему аудиофайл. Возможно ли подобное реализовать?

Дата отправки: 05.04.2007, 14:04
Вопрос задал: Furfurol
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Menand:

Здравствуйте, Furfurol!

Можно через API модема \ WinAPI (по этому принципу все проги типа ВентаФакс) работают

Консультировал: Menand
Дата отправки: 05.04.2007, 15:28
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует NRJ:

Здравствуйте, Furfurol!
Врятли кто-то подгонит Вам готовую программу да ещё и на VB. Вот инфа по теме может что и получится.

http://doc.permnet.ru/hardw/modem.zip "всё что вы хотите знать о модемах" (статья)

http://bbs.vbstreets.ru/viewtopic.php?t=31572&sid=8b19594fb764fe68c154797470114791 Форум с примерами как работать с модемом испальзуя API и AT команды

http://rusdoc.df.ru/material/hardware/atmodem.zip AT команды модема

http://wm-help.net/down_book.php?id=42 Управление модемом, объяcняет, как управлять модемом c помощью AT-команд и как модем должен отвечать на эти команды.

http://megalib.com/books/923/508.htm тут пример на дэлфи и описание АТ команд и S регистров

http://articles.org.ru/cfaq/index.php?qid=1100&catid=102 Модемы: Наиболее часто задаваемые вопросы и ответы на них

Консультировал: NRJ
Дата отправки: 05.04.2007, 16:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 172280:

Здраствуйте Уважаемые эксперты.
Программирую VBA. Не могу понять в чем моя ошибка, что у меня выполяется не то что надо.
Есть форма, обьявлены несколько пременных в модуле. И по нажатию на одну из кнопок действие(Смотрите приложение).
Я хочу сделать так, чтобы если число в textbox1.text больше чем textbox4.text то выводится число из textbox4.text в метке.
Проблема:
К примеру пишу такие числа 100 > 55
В метке ничего не выводится.
Если пишу 100 > 0,9 то все выводится. Как будто бы сравнение идет по первой цифре.
Пробовал еще и такую конструкцию:
Private Sub Button1_Click()
t1 = Formm.TextBox1.Text
t2 = Formm.TextBox4.Text
Label12.Caption = t1
Label13.Caption = t2
If t1 > t2 Then
Label14.Caption = t2
End If
End Sub

Не помогло. Тотже результат.
Помогите решить проблему.

Дата отправки: 17.09.2009, 19:44
Вопрос задал: Dimon4ik
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Витер Александр Анатольевич:

Здравствуйте, Dimon4ik.
Вы пытаетесь сравнивать строки. Сравнение происходит по ASCII кодам первых символов строк. Если вы хотите сравнивать числа, то нужно преобразовать строку в число, а затем сравнивать. Например, так

Private Sub Button1_Click()
  Dim t1 As Single, t2 As Single
  t1 = CSng(Formm.TextBox1.Text)
  t2 = CSng(Formm.TextBox4.Text)
  Label12.Caption = CStr(t1)
  Label13.Caption = CStr(t2)
  If t1 > t2 Then
    Label14.Caption = CStr(t2)
  End If
End Sub

Переменные я объявил как Single, а не как Double, потому что никакой необходимости в повышенной точности нет. Переменные типа Single могут иметь значения от -3.402823•1038 до -1.401298•-45 для отрицательных значений и от 1.401298•-45 до 3.402823•38 для положительных. Думаю, что для вашей задачи этого хватит за глаза.

Консультировал: Витер Александр Анатольевич
Дата отправки: 17.09.2009, 20:40

5
Спасибо. Теперь все работает!
-----
Дата оценки: 17.09.2009, 20:49
Рейтинг ответа:

НЕ одобряю +2 одобряю!

Консультация # 52161:

Добрый день, уважаемые эксперты!
Возник вопрос, прошу помощи. Суть такова: (VB6, Access97) . Имеются две главные таблицы: "Abiturient" и "Abiturient_V"
При проведении приема документов данные абитуриентов заносятся в табл. "Abiturient" . После вступительных экзаменов, данные абитуриентов, не прошедших испытаний удаляют во вторую табл. "Abiturient_V", где они хранятся в течении 5 лет.
Надо построить SQL-запрос и вывести количество записей в двух этих таблицах (т.е. сколько всего было подано заявлений), примерно так:
[code=vb]
SELECT Count(Abiturient.GlavID) AS Count_G
FROM Abiturient
UNION
SELECT Count(Abiturient_V.GlavID) AS Count_V
FROM Abiturient_V
[/code]
Выводится:
Count_G=некоторое число
Count_V=некоторое число
Но надо найти общее число одним запросом
Может создать временную таблицу с данными двух таблиц и потом находить уже общее число? Только как?
И еще: выше указанный запрос работает в Access\'е , а в программе нет
Подскажите путь решения данной проблемы,
Всего доброго.

Дата отправки: 15.08.2006, 09:18
Вопрос задал: Робатько Анатолий Васильевич
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Александр Шевченко:

Здравствуйте, Робатько Анатолий Васильевич!
1. select count(abit.id) from (select id from abiturient union select id from abiturient_v) as abit
2. Как именно в программе не работает? Ошибку выдает? Какую?

Консультировал: Александр Шевченко
Дата отправки: 15.08.2006, 10:31
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Кокорич Вадим Леонидович:

Здравствуйте, Робатько Анатолий Васильевич!

Если в VB 6.0 не работают запросы, а в Access-97 работают - проверьте, не используете ли Вы ADO вместо DAO, возможно, ошибка кроется в этом. Все записи об абитуриентах я бы хранил в одной таблице, из которой записи о неудачниках удалялись бы после определенной даты - Александр Шевченко дал ответ, как их сортировать. Только я бы еще ввел поле - счетчик, чтобы всегда иметь возможность просмотреть общее количество записей.

Консультировал: Кокорич Вадим Леонидович
Дата отправки: 17.08.2006, 09:55
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Залетин Виталий Викторович (мь:

Здравствуйте, Робатько Анатолий Васильевич!
Попробуйте вот так:
Select COUNT(a.GlavId) AS COUNT_G, COUNT(ag.GlavId) AS COUNT_V
FROM abiturient a, abiturient_v ag
В идеале у Вас будет 2 столбца и одна строка.

Или так:
Select COUNT(a.GlavId) + COUNT(ag.GlavId) AS VSE
FROM abiturient a, abiturient_v ag
Тут получится 1 строка и один столбец с общей суммой.

Консультировал: Залетин Виталий Викторович (мь
Дата отправки: 19.08.2006, 17:39
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное