易码技术论坛

 找回密码
 加入易码
搜索
查看: 129318|回复: 10

[求助]本人想搞个滚屏 IN 3000 GVBASIC,看了教程(1020的)还是不会,请大家教教

[复制链接]
发表于 2005-4-2 18:50:00 | 显示全部楼层
没人????
 楼主| 发表于 2005-4-3 11:18:00 | 显示全部楼层
那是1020用的,我要将它移植到3000上
问题是我不会按那个方法,所以请教
发表于 2005-4-3 12:17:00 | 显示全部楼层
(做个广告先)下一个有滚屏的,用偶的XASMBAS反汇编出来研究,再用它的汇编功能编写代码,很方便,我用这种方法,已从不少BIN文件中获得了各样的代码!
 楼主| 发表于 2005-4-3 13:40:00 | 显示全部楼层
我是要在BAS中滚屏~
发表于 2005-4-3 16:04:00 | 显示全部楼层
首先~3000要能够POKE 和 CALL~然后~6592对应16进制19C0~应该和上面举例的PC1300是一样的~
发表于 2005-4-3 16:15:00 | 显示全部楼层
说不清楚啊,你下了我的金字塔就知道了.(星软上传)
 楼主| 发表于 2005-4-3 17:13:00 | 显示全部楼层
以下是引用混乱羽翼在2005-4-3 16:04:42的发言:
首先~3000要能够POKE 和 CALL~然后~6592对应16进制19C0~应该和上面举例的PC1300是一样的~


不行啊,我试过了,在GVBASIC+中
 楼主| 发表于 2005-4-3 22:09:00 | 显示全部楼层
以下是引用cc90042938在2005-4-3 16:15:49的发言:

说不清楚啊,你下了我的金字塔就知道了.(星软上传)


我懂了!你的金字塔好强呀!!!!!!!!!!!
发表于 2005-4-8 19:01:00 | 显示全部楼层
easy!
将图片转为DAT,将它的载入地址设为显存开头就行了。
发表于 2005-4-9 20:45:00 | 显示全部楼层
10 H$="你的文字"
20 FOR X=1 TO LEN(H$):IF (X+2)/3=INT((X+2)/3) THEN 28

25 N=N+1OKE 703+N,ASC(MID$(H$,N,1))

28 NEXTRINT
30 FOR X=1 TO 50:READ POKE 12287+X,P:NEXT
40 DATA 160,0,169,192,133,64,169,9,133,65,169,212,133,66,169,9,133,67
50 DATA 177,66,145,64,165,64,201,255,208,7,165,65,201,15,208,1,96
60 DATA 230,64,208,2,230,65,230,66,208,2,230,67,76,18,48
70 FOR X=1 TO 80:CALL 12288INE 0,80,160,80,0:NEXT

1.找到你的图片缓存,一般为0xXXC0-----0xYYFF
2.把前两处169,9,133改为169,XX,133。这里XX为对应的10进制的数
3.把201,15,208,1改为201,YY,208,1。YY的意义同上


FOR NC3000  

169,19,133  

201,25,208,1

我已经试过了,完全可以   

 楼主| 发表于 2005-4-2 17:49:35 | 显示全部楼层 |阅读模式
以下为引用:

[GvBasic]最快滚屏(逐个像素)

  雪山剑神

  以下代码适合Nc1020

10 H$="你的文字"
20 FOR X=1 TO LEN(H$)OKE 703+X,ASC(MID$(H$,X,1)):NEXTRINT
30 FOR X=1 TO 50:READ POKE 12287+X,P:NEXT
40 DATA 160,0,169,192,133,64,169,9,133,65,169,212,133,66,169,9,133,67
50 DATA 177,66,145,64,165,64,201,255,208,7,165,65,201,15,208,1,96
60 DATA 230,64,208,2,230,65,230,66,208,2,230,67,76,18,48
70 FOR X=1 TO 80:CALL 12288INE 0,80,160,80,0:NEXT

如果你得文曲星不是1020,那么照我的方法改:

1.找到你的图片缓存,一般为0x0XC0-----0xYYFF
2.把前两处169,9,133改为169,X,133。这里X为对应的10进制的数
3.把201,15,208,1改为201,15,YY,1。YY的意义同上

EXAMPLE:
FOR PC1300
169,25,133
201,31,208,1

请问3000如何改?

已知:3000的显存从6592开始,请问大家怎么办?帮忙改好发上来,谢谢!

您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-4-29 12:17 , Processed in 0.012307 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表