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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Ноябрь 2019   →
 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


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


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

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

Статистика

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

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


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

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

Gluck
Статус: 7-й класс
Рейтинг: 937
∙ повысить рейтинг » 		solowey
Статус: Бакалавр
Рейтинг: 216
∙ повысить рейтинг » 		mklokov
Статус: 8-й класс
Рейтинг: 160
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1139
Дата выхода:19.11.2019, 06:45
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:15 / 14
Вопросов / ответов:3 / 7

Консультация # 37003: Здравствуйте. 1. Такой вопрос: Например в Qbasic можно начиртить так круг: circle (x,y), можно начертить линии, а как это сделать в Visual Basic 6.0. Мне нужно нарисовать мишень из десяти кругов, а как это сделать на Visual Basic 6.0 не знаю. 2. Как сгенерировать случайное число на Visual Basic 6.0? 3. Вот различные заставки для рабочег...
Консультация # 38116: Уважаемые эксперты! У меня есть bmp рисунок, который не может загрузиться в Image. PictureBox. но графическими просмотрщиками отображается. Выдаёт ошибку "Неверный рисунок". В чём причина? Формат вроде такой же. В заголовке файла стоит BM. Как юзеру объяснить, что этот bmp не подходит, а этот да?...
Консультация # 178144: Уважаемые эксперты подскажите в следующем имеется процедура Sub А() ………. End Sub В её теле есть указание на исполнение функции В теле функции есть всевозможные проверки Например, по проверке нужно выйти из Sub А, но написать Exit Sub я не могу, могу лишь Exit Function. Но это немного не то, потому что с функции выхожу в процедуру ...

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

Здравствуйте.
1. Такой вопрос: Например в Qbasic можно начиртить так круг: circle (x,y), можно начертить линии, а как это сделать в Visual Basic 6.0. Мне нужно нарисовать мишень из десяти кругов, а как это сделать на Visual Basic 6.0 не знаю.
2. Как сгенерировать случайное число на Visual Basic 6.0?
3. Вот различные заставки для рабочего стала рисуют, например вечный двигатель, или шар там крутиться. Как сделать такую простейшую на Visual Basic 6.0.
Заранее благодарю.

Дата отправки: 08.03.2006, 00:42
Вопрос задал: Неизвестнов Том
Всего ответов: 4
Страница онлайн-консультации »

Консультирует Чурсанов Евгений Ильич:

Здравствуйте, Неизвестнов Том!
1. Можно стандартными элементами Shape со свойством Shape=Circle.
2. Функция RND.
3. Довольно таки трудно осуществить на VB6 стандартными способами. Если Шар например OpenGL то тут вообще лучше(ИМХО) не VB6 а С++ .
Удачи.

Консультировал: Чурсанов Евгений Ильич
Дата отправки: 08.03.2006, 02:55
Рейтинг ответа:

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

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

Здравствуйте, Неизвестнов Том!

1. Если хочешь именно ручками - то нужно:
a) поставь свойство формы autoredrav в true
например: Form1.AutoRedraw = True
b) и рисуй, например:
Form1.Circle (100, 100), 50
Form1.Line (100, 100)-(200, 200), vbRed
2. Функцией Rnd, например
a=Rnd
a=Rnd(100)

Консультировал: EPDSota
Дата отправки: 08.03.2006, 09:51
Рейтинг ответа:

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

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

Здравствуйте, Неизвестнов Том!
2. Функция rnd(<число из которого надо выбрать>)
Описание(обязательно читайте):
http://msdn.microsoft.com/library/rus/default.asp?url=/library/rus/vblr7/html/vafctrnd.asp
3. Смотрите примеры создания простых скринсейверов:
http://vbnet.ru/samples/download.aspx?id=145
http://www.bousoft.com/articles/art10.php

Консультировал: Dushin Igor
Дата отправки: 08.03.2006, 10:18
Рейтинг ответа:

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

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

Здравствуйте, Неизвестнов Том!
Здравствуйте, Неизвестнов Том!
1.
Метод Circle [Step] (x, y), radius, [color, start, end, aspect] рисует окружность, дугу или эллипс
x, y - координаты центра;
radius - радиус окружности;
color - цвет окружности;
start, end - начало и конец дуги в радианах (по умолчанию start=0, end=6.28);
aspect определяет степень сжатия эллипса. По умолчанию aspect=1. Если aspect>1, эллипс будет вытянут по вертикали, если aspect<1 - по горизонтали. При этом максимальный диаметр эллипса будет равен 2*radius

2. Инициируем гениратор случайных чисел
Randomize
debug.print Rnd \'получаем случайное число от 0 до 1

3. Тут стандартными средствами не обойти.
Подойдет DirectX(DirectDraw и Direct3D)

Консультировал: Not Defined
Дата отправки: 08.03.2006, 14:11
Рейтинг ответа:

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

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

Уважаемые эксперты! У меня есть bmp рисунок, который не может загрузиться в Image. PictureBox. но графическими просмотрщиками отображается. Выдаёт ошибку "Неверный рисунок". В чём причина? Формат вроде такой же. В заголовке файла стоит BM. Как юзеру объяснить, что этот bmp не подходит, а этот да?

Дата отправки: 21.03.2006, 15:11
Вопрос задал: Александр А.А.
Всего ответов: 2
Страница онлайн-консультации »

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

Здравствуйте, Александр А.А.!
У меня была очень похожая ситуация - все дело оказалось в цветовой схеме (CMYK - не понимает, RGB - понимает).

Консультировал: AlexanderZh
Дата отправки: 21.03.2006, 15:30
Рейтинг ответа:

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

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

Здравствуйте, Александр А.А.!
Форматы действительно отличаются, хоть вроде и один и тот же формат. Я это на иконках обнаружил: делаю в МайкроАнжело - не хочет грузить, Открываю ее же в VisualStudio 2003 редакторе и просто сохраняю файл - читает. Причина скорее всего в измененном формате BMP файла - как это было при переходе на Windows 3.11. Походите в нете и поищите описание, но...

Консультировал: Залетин Виталий Викторович
Дата отправки: 25.03.2006, 16:23
Рейтинг ответа:

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

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

Уважаемые эксперты подскажите в следующем имеется процедура
Sub А()
……….
End Sub
В её теле есть указание на исполнение функции
В теле функции есть всевозможные проверки
Например, по проверке нужно выйти из Sub А, но написать Exit Sub я не могу, могу лишь Exit Function. Но это немного не то, потому что с функции выхожу в процедуру А, процедура продолжает делать далее по коду, как же указать чтобы выйти из процедуры А???
Спасибо Эндрю

Дата отправки: 01.05.2010, 11:16
Вопрос задал: Ципихович Эндрю
Всего ответов: 1
Страница онлайн-консультации »

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

Здравствуйте, Ципихович Эндрю!
Самый простой способ объявить эту функцию как Boolean, а в А сделать проверку на ее результат и выход при неудовлетворительном результате. Пример:

Sub A()
If Проверка_Условия Then
MsgBox "Принудительный выход из главной процедуры"
Exit Sub
End If
MsgBox "Главная процедура успешно выполнена"
End Sub

Function Проверка_Условия() As Boolean
Проверка_Условия = False
If 1 > 0 Then
Проверка_Условия = True
Exit Function
End If
MsgBox "Функция успешно выполнена"
End Function

Консультировал: Измалков Эдуард Леонидович
Дата отправки: 01.05.2010, 11:31

5
нет комментария
-----
Дата оценки: 01.05.2010, 12:16
Рейтинг ответа:

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

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

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

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