论坛风格切换切换到宽版
  • 3622阅读
  • 2回复

bg3rj请进 [复制链接]

上一主题 下一主题
离线BD6OV
 
发帖
4134
只看楼主 倒序阅读 0楼 发表于: 2003-01-08
我前一段时间得了一个东西,kenwood的,名字叫做“call sign display”,型号cd-10 是和电台配合使用的,有说明书,但是是日语的。用电台的音频输入到里面。还需要连接电脑,有一个点阵lcd显示,看说明书是用来显示呼号的,通电后屏幕显示“nexi 01” “next 02”.........“next 20”而且还随说明书配了一个程序,不知道干什么的。请您帮忙分析一下。

程序如下:

10 clear 100, &h8fff
20 defint a-z: defusr0 = &h9000
30 width 36, 25: console0, 24, 0, 1: color 5
40 for i = &h9000 to &h9049: read a$: poke i, val("&h" + a$): next
50 print chr$(12)
60 locate 0, 7
70 print "*****kenwood call sign display system******"
80 line (1, 11)-(34, 17), "*", b: line (2, 12)-(33, 16), "*", b
90 locate 18, 14: print " (这里是日语,看不懂)"
100 a = usr0(0):                   ais dummy
110 a = peek(&h9300)
120 if a = asc("a") or a = asc("b") then locate 15, 14: print chr$(a); elesegoto; 100
130 locate 6, 14: for i = 1 to 6
140 a = peek(&h9300 + i)
150 if (a>=asc("a")and a<=asc("z") or (a>=asc("0")and a<=asc("9"))
  or a=asc("-") or a=asc(" ") then print chr$(a);:else goto 100
160 next
170 for i = 0 to 5: beep1: a = a: beep0: netx
180 goto 100
190 data 21,00,92,11,00,93,06,40,db,80,cb,4f,28,fa,10,f8
200 data db,80,cb,47,20,fa,06,46,db,80,cb,4f,20,fa,77,23
210 data db,80,cb,4f,28,fa,10,f0,21,08,92,af,cb,1e,cb,17
220 data c6,41,12,13,23,23,23,0e,06,06,08,cb,1e,cb,17,23
230 data 10,f9,12,13,23,23,0d,20,f0,c9
离线BD4EQ
发帖
1756
只看该作者 1楼 发表于: 2003-01-09
就是显示cw中的呼号的
离线BD3RJ
发帖
18845
只看该作者 2楼 发表于: 2003-01-09
比赛辅助设备,你可以找一cw频率试一试。