用COMX-35计算机作电视信号发生器

🏠 首页 《无线电》杂志 1987年 🔗 第221期 🔗 第6页 分类:应用电子仪器 🔗 陈晓光 🔗

COMX-35电子计算机价格较低,很多学校用它作为教学机。由于它有彩色图形功能,因此无线电爱好者可以利用它的射频信号来检修彩色电视机。

下面就介绍产生彩条、棋盘格、及单色信号的BASIC语言程序。为了使初学者便于理解,把每种图形的程序分别叙述。但行号是按整个程序排的,所以这些程序能单独运行,也能组合运行。

首先介绍产生彩条图形的程序:

50 SHAPE(192, “FF FF FF FF FF FF FF FF FF”)

51 SHAPE(64,“F FF FF FF FF FF FF FF FF F”)

300 CPOS(0,0):CLS:SCREEN(1)

310 FOR A=1 TO 23

320 PRINT CHR$(192,192,192,192,192,192,235,235,235,235,235,64,64,64,64,64,107,107,107,107,107);

330 PRINT CHR$(236,236,236,236,236,237,237,237,237,108,108,1O8,1O8,108)

340 NEXT A

程序打好后,检查一下有无错误,然后打RUN运行,这时屏幕上将得到一个由白、黄、青、绿、紫、红、蓝组成的彩条图象。

下面是棋盘格信号的程序:

52 SHAPE(238,“F8F8F8F8F8F8F8F8F8”)

53 SHAPE(239, C7C7C7C7C7C7C7C7C7”)

400 COPOS(0,0):CLS:SCREEN(1)

410 FOR B=1 TO 6

420 FOR S=1 TO 16

430 PRINT CHR$(192,192,238,109,109);

440 NEXT S

450 FOR L=1 TO 16

460 PRINT CHR$(109,109,239,192;192);

470 NEXT L

480 NEXT B

方格信号可采用下列程序产生:

54 SHAPE(240,“FFCCCCCCCCCCCCCCCC”)

55 SHAPE(241,“CCCCCCCCCCCCCCCCFF”)

56 SHAPE(242,“FFCOCOCOCOCOCOCOCO”)

57 SHAPE(243,“COCOCOCOCOCOCOCOFF”)

500 CPOS(0,0):CLS:SCREEN(1)

510 FOR C=1 TO 12

520 FOR M=1 TO 8

530 PRINT CHR$(144,242,240,242,145);

540 NEXT M

550 FOR N=1 TO 8

560 PRINT CHR$(148,243,241,243,154);

570 NEXT N

580 NEXT C

如果以上三个程序已运行成功。可进一步试验下面的程序:

100 K=KEY

110 IF K<57 GOTO 200

120 IF K=65 GOTO 300

130 IF K=66 GOTO 400

140 IF K=67 GOTO 500

160 IF K<>69 GOTO 100

170 END

200 IF K>48 THEN CPOS(0,0):CLS:SCREEN(K)

210 GOTO 100

350 GOTO 100

490 GOTO 100

590 COTO 100

上面程序打好后,请打RUN运行,然启分别按1~8键,这时屏幕上的颜色将随按键的数值发生变化,分别按A、B、C,键就能得到彩条、棋盘格和方格信号了。按E键就停止运行。

至此,图形程序已基本完成,但若要使用方便,加上一个说明就更好了。下面是说明程序:

1O CPOS(0,0):CLS:SCREEN(1)

20 CPOS(3,0):PR“<1>BLACK”

21 PR“〈2〉GREEN”

22 PR“〈3〉BLUE”

23 PR“〈4〉CYAN”

24 PR“〈5〉RED”

25 PR“〈6〉YELLOW”

26 PR“〈7〉MAGENAT”

27 PR“〈8〉WHITE”

30 PR“〈A〉COLOURED STRIPE”

31 PR“〈B〉CHESS TRAY SQUARE”

32 PR“〈C〉SQUARE”

33 PR“〈D〉PICTURE NUMBER”

34 PR“〈E〉END

35 CPOS(22,0):PR“PRESS THE PICTUR-E’S NUMBER YOU WANT PLEASE!”

150 IF K=68 GOTO 10

下面再来运行程序,屏幕上先出现图形编号,您可以根据需要按下所需图形编号就能得到您需要的图形。(陈晓光)