forum.boolean.name - Рендомная картинка

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Рендомная картинка (http://forum.boolean.name/showthread.php?t=12941)

Rock2roll

16.07.2010 21:09

Рендомная картинка

Нужно чтобы при случайном выборе ставала картинка(одна из 8). Не могу осуществить. А без репит прога не так работает.

Код:

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;

Igor	17.07.2010 08:57

Ответ: Рендомная картинка

Одна картинка должна рисоваться без repeat untill

Rock2roll

17.07.2010 12:15

Ответ: Рендомная картинка

а пример кода можно?

Igor	17.07.2010 12:19

Ответ: Рендомная картинка

На данный момент заметил один недочет
0<=random ( 8 )<8
было бы лучше

Цитата:

Procedure desk;
var a:array [0..7]of image;
begin
...
drawimage(a[random( 8 )]),x,y);

А что именно от программки требуется?
Поподробнее напиши.

Rock2roll

17.07.2010 12:27

Ответ: Рендомная картинка

огромное спасибо

Rock2roll

17.07.2010 12:29

Ответ: Рендомная картинка

нужно чтобы одно из восьми картинок ставилась на фон. Это картинки а(от просто а до а7)

Igor	17.07.2010 12:31

Ответ: Рендомная картинка

А зачем тогда весь остальной код? (repeat и далее)

Rock2roll

17.07.2010 12:32

Ответ: Рендомная картинка

нужно кроме фоновой картинки ещё поверх этого пару картинок + типа стрелочка что бегает при нажатии на кнопки

Igor	17.07.2010 12:36

Ответ: Рендомная картинка

А тебе не кажется, что картинку придется заново отрисовывать?

Rock2roll

17.07.2010 12:37

Ответ: Рендомная картинка

каким образом?

cherepets

17.07.2010 12:56

Ответ: Рендомная картинка

Не хочу тебя удивлять, но рандом нужно считать в переменную и уже дальше с ним работать, иначе ты каждый раз генеришь число заново и картинка может вообще не загрузиться

Rock2roll

17.07.2010 13:03

Ответ: Рендомная картинка

У меня грузилась, но в цыкле бешено менялась на одну из 8! Было весело. Смотришь, а вместо фона меняются 8 картинок))
З.Ы. я уже решил проблему

Часовой пояс GMT +4, время: 21:00.