Маленький_слоник | Дата: Вторник, 21.05.2013, 15:06 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| В прилагаемой в архиве программе не работает оператор Palette Программа его полностью игнорирует. Выводит казюку. Чтобы убедиться в этом достаточно активировать строку 29 и убрать строку 30. Почему, может кто нибудь знает? В чем ошибка? Как правильно? Про функцию вывода из файла BMP знаю Хочется чтоб в этой программе заработало. Что должно получиться: - вывод BMP файла квадратиками 4*4Palette
'Объявляем массив под bmp изображение Dim As byte BUFF_PICT(46078)
'Читаем файл no_Palette.bmp в массив Open "no_Palette.bmp" For Binary Access Read As #1 Dim As Integer count For count=1 to 46078 GET #1,count,BUFF_PICT(count-1),1 Next count
Screen 21 'Объявляем окно
DIM as INTEGER x,y,countt DIM as byte i
' загружаем палитру ??? For i=0 To 255 ' Palette i, BUFF_PICT(54+i*4), BUFF_PICT(55+i*4), BUFF_PICT(56+i*4) Palette i, 128, 128, 128 ' ЕСЛИ РАСКОМЕНТАРИТЬ ТО НИЧЕГО НЕ ПРОИЗОЙДЕТ !!!!!!????????? Next i 'вывим квадратикм по цветам countt=1078 FOR y=0 to 150-1 FOR x=0 to 300-1 'Input #fp, title(y,x) Line (x*4,(149-y)*4)-(x*4+4,(149-y)*4+4), BUFF_PICT(countt),BF countt=countt+1 NEXT x NEXT y
Sleep
Изображение bmp файл 300*150 8 бит цветности
Сообщение отредактировал Маленький_слоник - Вторник, 21.05.2013, 15:19 |
|
| |
haav | Дата: Вторник, 21.05.2013, 19:38 | Сообщение # 2 |
Генералиссимус
Группа: Администраторы
Сообщений: 1366
Статус: Offline
| Привет!
В цикле FOR поставь переменную i с типом Integer и все будет работать.
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
|
| |
Маленький_слоник | Дата: Среда, 22.05.2013, 11:43 | Сообщение # 3 |
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Действительно, палитра стала восприниматься. (УРА!) Хотя и неправильно. Но с этим уже можно разобраться. Спасибо. :)
|
|
| |