|
Основной форум Сюда все проблемы связанные с программированием. |
16.07.2010, 21:09
|
#1
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Рендомная картинка
Нужно чтобы при случайном выборе ставала картинка(одна из . Не могу осуществить. А без репит прога не так работает.
Procedure desk;
begin
if random(8)=1 then drawImage(a,0,0);
if random(8)=2 then drawImage(a1,0,0);
if random(8)=3 then drawImage(a2,0,0);
if random(8)=4 then drawImage(a3,0,0);
if random(8)=5 then drawImage(a4,0,0);
if random(8)=6 then drawImage(a5,0,0);
if random(8)=7 then drawImage(a6,0,0);
if random(8)=8 then drawImage(a7,0,0);
repeat
drawImage(today,0,getheight-26);
drawImage(pan,0,0);
drawImage(start,0,0);
if (x>0) and (x<38) and (y>0) and (y<26) then drawImage(start2,0,0);
//////
setcolor(255,255,255);
time:=getCurrentTime;
times:=''+getHour(time);
times:=times+':'+ getMinute(time);
drawText(times,getwidth-38,5);
//////
mouseX;
repaint;
until bulOff=true;
end;
__________________
G502, GT S5230w user!
|
(Offline)
|
|
17.07.2010, 08:57
|
#2
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Рендомная картинка
Одна картинка должна рисоваться без repeat untill
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
17.07.2010, 12:15
|
#3
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Рендомная картинка
а пример кода можно?
__________________
G502, GT S5230w user!
|
(Offline)
|
|
17.07.2010, 12:19
|
#4
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Рендомная картинка
На данный момент заметил один недочет
0<=random ( 8 )<8
было бы лучше
Procedure desk;
var a:array [0..7]of image;
begin
...
drawimage(a[random( 8 )]),x,y);
|
А что именно от программки требуется?
Поподробнее напиши.
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
17.07.2010, 12:27
|
#5
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Рендомная картинка
огромное спасибо
__________________
G502, GT S5230w user!
|
(Offline)
|
|
17.07.2010, 12:29
|
#6
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Рендомная картинка
нужно чтобы одно из восьми картинок ставилась на фон. Это картинки а(от просто а до а7)
__________________
G502, GT S5230w user!
|
(Offline)
|
|
17.07.2010, 12:31
|
#7
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Рендомная картинка
А зачем тогда весь остальной код? (repeat и далее)
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
17.07.2010, 12:32
|
#8
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Рендомная картинка
нужно кроме фоновой картинки ещё поверх этого пару картинок + типа стрелочка что бегает при нажатии на кнопки
__________________
G502, GT S5230w user!
|
(Offline)
|
|
17.07.2010, 12:36
|
#9
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Рендомная картинка
А тебе не кажется, что картинку придется заново отрисовывать?
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
17.07.2010, 12:37
|
#10
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Рендомная картинка
каким образом?
__________________
G502, GT S5230w user!
|
(Offline)
|
|
17.07.2010, 12:56
|
#11
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: Рендомная картинка
Не хочу тебя удивлять, но рандом нужно считать в переменную и уже дальше с ним работать, иначе ты каждый раз генеришь число заново и картинка может вообще не загрузиться
|
(Offline)
|
|
17.07.2010, 13:03
|
#12
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Рендомная картинка
У меня грузилась, но в цыкле бешено менялась на одну из 8! Было весело. Смотришь, а вместо фона меняются 8 картинок))
З.Ы. я уже решил проблему
__________________
G502, GT S5230w user!
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 07:16.
|