Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с прогой. Графика и логика / 5 сообщений из 5, страница 1 из 1
08.12.2008, 17:34
    #35700745
Plombir
Plombir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с прогой. Графика и логика
Добрый день)))))
Нужно доделать прогу, мозгов не хватает.
на форме PictureBox в котором должны рандомно появляться флаги государств ( около 23 шт)
сдесь же OptionButton с названиями стран. при выборе одной из них, появляется окно, в котором написано верно или не верно, вообщем прога для тестирования знаний человека на знание флагов государств.
Вопрос 1. как сделать что б картинки появлялись рандомно в PictureBox.
Вопрос 2. как сделать, что б при выборе страны в OptionButton, появлялось окошко Верно или Не верно.
Заранее благодарен)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2008, 20:56
    #35701107
Michael Melvin
Michael Melvin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с прогой. Графика и логика
Код: plaintext
msgbox "Текст сообщения", "Заголовок"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2008, 20:59
    #35701112
Michael Melvin
Michael Melvin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с прогой. Графика и логика
Код: plaintext
1.
2.
3.
'получить рандомное число
dim x as integer
x=(picture1.width-Flag.Width)*RND()
y=(picture1.height-Flag.height)*RND()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2008, 21:06
    #35701118
Michael Melvin
Michael Melvin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с прогой. Графика и логика
бейсика у меня давненько уже нет, не помню, как влепить заготовленную картинку в picture
но я бы рисовал вручную, т.к. красивее получилось бы.
Операторы: line, pset, circle - рисовать линию, точку и круг соответственно.
RGB - взять цвет, смешав три: Red, Green и Blue (каждый в диапазоне 0-255)
Line (x1,y1)-(x2,y2),color,B - Рисовать прямоугольник
а если BF - то закрашенный прямоугольник.
Если рисовать будешь ими, то каждый раз к координате прибавляй x и y, напр.
Код: plaintext
1.
pset ( 50 +x, 30 +y)
line( 20 +x, 10 +y)-( 50 +x, 70 +y),RGB( 30 , 255 , 255 )
А вообще, оформить лучше так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
private sub drawing(x as integer, y as integer,flag as integer)
   select case flag
   case  1 : 'Рисовать рус.флаг
       line (...
       ....
   case  2 : 'рисовать англ.флаг 
       line
       line
   case ... ...
   ... 
   ...
   end select
end sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2008, 21:09
    #35701122
Michael Melvin
Michael Melvin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с прогой. Графика и логика
учти ещё тот факт, что по умолчанию BASIC какого-то х использует по умолчанию ТВИПы. Это его собственные единицы измерения, которые ровно в 15 раз меньше пикселя))
это можно поправить в окне properties для picture1 (чтобы внутри всё в пикселях измерялось), и в Form1 (чтобы ширина и высота самого picture1 тоже в пикселях измерялась).
Свойство называется как-то так: scalemode. Поставь 3 - пиксел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с прогой. Графика и логика / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 330ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161544]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 67ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 202ms
total:  330ms
x
x
Закрыть


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