For i=0 to 64
 For j=1 to 129
 Dim stronepixel,bytonepixeldec		
//переменные, содержащие значение цвета
 onepixeldec=0
 //меняем местами пикселы для получения шестнадцатеричного значения цвета
 onepixel=display(j+3,65-i)+display(j+2,65-i) 
 //переведем из двоичной системы в десятичную (двоичное число задается строкой)
 If Mid(onepixel,4,1)=»1» then onepixeldec=onepixeldec+1
 If Mid(onepixel,3,1)=»1» then onepixeldec=onepixeldec+2
 If Mid(onepixel,2,1)=»1» then onepixeldec=onepixeldec+4
 If Mid(onepixel,1,1)=»1» then onepixeldec=onepixeldec+8 
  //перевод из десятичной системы в шестнадцатеричную и вывод в поток
 Response.Write Hex(onepixeldec)
 // аналогично повторяем для второго полубайта
 onepixeldec=0
 onepixel=display(j+1,65-i)+display(j,65-i)
 If Mid(onepixel,4,1)=»1» then onepixeldec=onepixeldec+1
 If Mid(onepixel,3,1)=»1» then onepixeldec=onepixeldec+2
 If Mid(onepixel,2,1)=»1» then onepixeldec=onepixeldec+4
 If Mid(onepixel,1,1)=»1» then onepixeldec=onepixeldec+8 

  Response.Write Hex(onepixeldec)
  j=j+3
 next
 next

назад

Поделитесь материалом с коллегами и друзьями