我很少搞图形的，图形屏幕也就用那两句get,put来保存了， 我只是说说文本方式的保存。 因为以前为自己做程序的时候老是不知道该怎么办， 因为全屏幕需要处理的数据比较少,就先说说全屏幕处理了. Ａ 我第一次做的程序是用screen语句的 保存 dim s(25,80,1) for i=1 to 25 for j=1 to 80 s(i,j,0)=screen(i,j,0) s(i,j,1)=screen(i,j,1) next j,i 恢复 locate 1,1 for i=1 to 25 for j=1 to 80 color s(i,j,1) mod 16, s(i,j,1)\16 print chr$(s(i,j,0); next j,i B 后面,我知道了&HB800,我就利用BSAVE,BLOAD了 sub scrf(f$) def seg =&HB800 if f$="" then f$="~"+ltrim$(str$(timer)) bsave f$,0,4000 else bload f$,0 if left$(f$,1)="~" then kill f$ f$="" endif endif def seg end sub 为了加快文件的速度,我用了虚拟磁盘. C 为了更快更灵活的使用保存和恢复全屏幕(要注意是文本方式) 我后来算了一下,一页数据也就大概4K,一个字符串可以到32K 于是我又改用更快更方便的字符串来保存屏幕信息了: sub scrc (s$) def seg =&HB800 if s$="" then for d%=0 to 3999 s$=s$+chr$(peek(d%) next else for d%=1 to len(s$) poke d%-1,asc(mid$(s$,d%,1) next endif def seg end sub D 也有很多情况下,需要用到一个子窗口,而不是整个屏幕 特别是在需要移动某个窗口的时候要用到. 这种情况下,能用数组当然比较方便快捷.只是有点繁琐, 而且通用起来会有一定困难.我就不举数组的例子了, 我还是用字符串来做,不过需要增加一些数据的转换来减少一些参数的传递: SUB Scrs (s$) DEF SEG = &HB800 IF RTRIM$(s$) = "" THEN s$ = "0 1 1 25 80 1 1 " o% = VAL(MID$(s$, 1, 1)) x% = VAL(MID$(s$, 3, 3)) y% = VAL(MID$(s$, 6, 3)) h% = VAL(MID$(s$, 9, 3)) l% = VAL(MID$(s$, 12, 3)) x2% = VAL(MID$(s$, 15, 3)) y2% = VAL(MID$(s$, 18, 3)) IF o% = 0 THEN s$ = LEFT$(s$ + SPACE$(20), 20) FOR i% = x% TO (x% + h% - 1) FOR j% = y% TO (y% + l% - 1) d% = ((i% - 1) * 80 + j% - 1) * 2 s$ = s$ + CHR$(PEEK(d%)) + CHR$(PEEK(d% + 1)) NEXT j%, i% MID$(s$, 1, 1) = "1" ELSE m% = 19 IF x2% < 0 THEN x2% = x% IF y2% < 0 THEN y2% = y% FOR i% = x2% TO (x2% + h% - 1) FOR j% = y2% TO (y2% + l% - 1) d% = ((i% - 1) * 80 + j% - 1) * 2 m% = m% + 2 POKE d%, ASC(MID$(s$, m%, 1)) POKE d% + 1, ASC(MID$(s$, m% + 1, 1)) NEXT j%, i% END IF DEF SEG END SUB
评论