Нужно сохранить результаты работы программы Qbasic - то есть сам экран работы?

28.04.2011, 20:25. **Показов** 2206. **Ответов** 3

Комментарий модератора

Вопрос перемещён из темы графика на бейсике, запросы по реализации задаём не в закреплённые темы, там конкретная тема, читаем шапку.

Не подскажите как сделать - нужно сохранить результаты работы программы Qbasic - то есть сам экран работы?

@Quiet Snow · 29.04.2011, 06:09

Если работа идёт в режиме 13.

Смотрим тут

Если работа идёт в режиме 12.

PureBasic

DECLARE SUB MakeBmp (NameBmp$)
SCREEN 12
LINE (0, 0)-(639, 479), 14
MakeBmp "TEST"
 
bgdt: DATA 66,77,54,254,0,0,0,0,0,0,54,4,0,0,40,0,0
DATA 0,128,2,0,0,224,1,0,0,1,0,8,0,0,0,0,0,0
DATA 250,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0
 
SUB MakeBmp (NameBmp$)
'    Создаём *.BMP*
 OPEN NameBmp$ + ".Bmp" FOR BINARY AS #3
    RESTORE bgdt
    FOR byte& = 1 TO 54
     READ Zglv%: PUT #3, byte&, Zglv%
    NEXT byte&: byte& = 55
    FOR ii% = 0 TO 255
      OUT &H3C7, ii%: R% = INP(&H3C9) * 4: G% = INP(&H3C9) * 4: B% = INP(&H3C9) * 4
      bt1% = CVI(CHR$(B%) + CHR$(G%)): bt2% = CVI(CHR$(R%) + "№")
      PUT #3, byte&, bt1%: PUT #3, byte& + 2, bt2%
      byte& = byte& + 4
    NEXT ii%
      FOR y% = 479 TO 0 STEP -1
       FOR x% = 0 TO 639
        cve% = POINT(x%, y%)
        PUT #3, byte&, cve%: byte& = byte& + 1
       NEXT x%
      NEXT y%
 CLOSE #3
END SUB

29.04.2011, 18:56

Сообщение от >Quiet Snow<

Если работа идёт в режиме 13.

Смотрим тут

Если работа идёт в режиме 12.

PureBasic

DECLARE SUB MakeBmp (NameBmp$)
SCREEN 12
LINE (0, 0)-(639, 479), 14
MakeBmp "TEST"
 
bgdt: DATA 66,77,54,254,0,0,0,0,0,0,54,4,0,0,40,0,0
DATA 0,128,2,0,0,224,1,0,0,1,0,8,0,0,0,0,0,0
DATA 250,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0
 
SUB MakeBmp (NameBmp$)
'    Создаём *.BMP*
 OPEN NameBmp$ + ".Bmp" FOR BINARY AS #3
    RESTORE bgdt
    FOR byte& = 1 TO 54
     READ Zglv%: PUT #3, byte&, Zglv%
    NEXT byte&: byte& = 55
    FOR ii% = 0 TO 255
      OUT &H3C7, ii%: R% = INP(&H3C9) * 4: G% = INP(&H3C9) * 4: B% = INP(&H3C9) * 4
      bt1% = CVI(CHR$(B%) + CHR$(G%)): bt2% = CVI(CHR$(R%) + "№")
      PUT #3, byte&, bt1%: PUT #3, byte& + 2, bt2%
      byte& = byte& + 4
    NEXT ii%
      FOR y% = 479 TO 0 STEP -1
       FOR x% = 0 TO 639
        cve% = POINT(x%, y%)
        PUT #3, byte&, cve%: byte& = byte& + 1
       NEXT x%
      NEXT y%
 CLOSE #3
END SUB

А если работа идет в режиме 9?

@Quiet Snow · 02.05.2011, 13:33

А если работа идет в режиме 9?

Прога для 12-го с лёгкостью снимет скрин(он будет чуть больше, чем нужно ну и палитра будет кривая).
Если требуется грамотно, то основываясь на программе для режима 12, изменить код\дату под разрешение 640x350 и рыть справочники по регистрам EGA\VGA на вопрос корректировки чтения палитры. У меня была инфа по данному вопросу, поищу.

@Quiet Snow 4961 / 1633 / 409 Регистрация: 25.04.2010 Сообщений: 4,497 Записей в блоге: 1
	02.05.2011, 13:33	4
	А если работа идет в режиме 9? Прога для 12-го с лёгкостью снимет скрин(он будет чуть больше, чем нужно ну и палитра будет кривая). Если требуется грамотно, то основываясь на программе для режима 12, изменить код\дату под разрешение 640x350 и рыть справочники по регистрам EGA\VGA на вопрос корректировки чтения палитры. У меня была инфа по данному вопросу, поищу. 0

Опции темы