摩尔斯电码闪灯 [复制链接]

刚弄了几片8脚的51单片机，做个小东西试试
接下来想把所有元件换成贴片的，加上检波器做成来电闪。

哈哈 不错 学习~~

记     。。。。。。

好东西！bhc同学！看看这个能不能触动您点什么！

没有明白，难道是闪烁来电号码？

'

好东西！bhc同学！看看这个能不能触动您点什么！

'

这个创意真的挺有意思。

崔老师的那个是不是按一下，闪灯和喇叭报一遍n9bor？

小崔老师那个真不错~ 播放莫尔斯码音频的也写过，程序在下面，合并一下就可以了。可以用贴片的单片机加上比较薄的pcb做。
其实还想做个大号的闪灯放在天线顶上的，但是还没动工，也没想好怎样供电。
至于别的，暂时还没有想法。。

'

复制代码

1. #include "reg15f104e.h"
3. sbit led = p3^3;
5. #define dittime 2500
7. void delay(int t)
8. {
9.      int i;
10.      char j;
12.      for(i=0; i<t; i++)
13.      {
14.            for(j=0; j<110; j++);
15.      }
16. }
18. void dit()
19. {
20.      led = 0;
21.      delay(dittime);
22.      led = 1;
23.      delay(dittime);      
24. }
26. void dah()
27. {
28.      led = 0;
29.      delay(dittime*3);
30.      led = 1;
31.      delay(dittime);      
32. }
34. void charspace()
35. {
36.      delay(dittime*2);
37. }
39. void play(char text[])
40. {
41.      int i=0;
42.      
43.      while(text[i] != '\0')
44.      {
45.            switch (text[i])
46.            {
47.                  case 'a': dit();dah();charspace();break;
48.                  case 'b': dah();dit();dit();dit();charspace();break;
49.                  case 'c': dah();dit();dah();dit();charspace();break;
50.                  case 'd': dah();dit();dit();charspace();break;
51.                  case 'e': dit();charspace();break;
52.                  case 'f': dit();dit();dah();dit();charspace();break;
53.                  case 'g': dah();dah();dit();charspace();break;
54.                  case 'h': dit();dit();dit();dit();charspace();break;
55.                  case 'i': dit();dit();charspace();break;
56.                  case 'j': dit();dah();dah();dah();charspace();break;
57.                  case 'k': dah();dit();dah();charspace();break;
58.                  case 'l': dit();dah();dit();dit();;charspace();break;
59.                  case 'm': dah();dah();charspace();break;
60.                  case 'n': dah();dit();charspace();break;
61.                  case 'o': dah();dah();dah();charspace();break;
62.                  case 'p': dit();dah();dah();dit();charspace();break;
63.                  case 'q': dah();dah();dit();dah();charspace();break;
64.                  case 'r': dit();dah();dit();charspace();break;
65.                  case 's': dit();dit();dit();charspace();break;
66.                  case 't': dah();charspace();break;
67.                  case 'u': dit();dit();dah();charspace();break;
68.                  case 'v': dit();dit();dit();dah();charspace();break;
69.                  case 'w': dit();dah();dah();charspace();break;
70.                  case 'x': dah();dit();dit();dah();charspace();break;
71.                  case 'y': dah();dit();dah();dah();charspace();break;
72.                  case 'z': dah();dah();dit();dit();charspace();break;
73.                  case 'a': dit();dah();charspace();break;
74.                  case 'b': dah();dit();dit();dit();charspace();break;
75.                  case 'c': dah();dit();dah();dit();charspace();break;
76.                  case 'd': dah();dit();dit();charspace();break;
77.                  case 'e': dit();charspace();break;
78.                  case 'f': dit();dit();dah();dit();charspace();break;
79.                  case 'g': dah();dah();dit();charspace();break;
80.                  case 'h': dit();dit();dit();dit();charspace();break;
81.                  case 'i': dit();dit();charspace();break;
82.                  case 'j': dit();dah();dah();dah();charspace();break;
83.                  case 'k': dah();dit();dah();charspace();break;
84.                  case 'l': dit();dah();dit();dit();;charspace();break;
85.                  case 'm': dah();dah();charspace();break;
86.                  case 'n': dah();dit();charspace();break;
87.                  case 'o': dah();dah();dah();charspace();break;
88.                  case 'p': dit();dah();dah();dit();charspace();break;
89.                  case 'q': dah();dah();dit();dah();charspace();break;
90.                  case 'r': dit();dah();dit();charspace();break;
91.                  case 's': dit();dit();dit();charspace();break;
92.                  case 't': dah();charspace();break;
93.                  case 'u': dit();dit();dah();charspace();break;
94.                  case 'v': dit();dit();dit();dah();charspace();break;
95.                  case 'w': dit();dah();dah();charspace();break;
96.                  case 'x': dah();dit();dit();dah();charspace();break;
97.                  case 'y': dah();dit();dah();dah();charspace();break;
98.                  case 'z': dah();dah();dit();dit();charspace();break;
99.                  case Ƈ': dit();dah();dah();dah();dah();charspace();break;
100.                  case ƈ': dit();dit();dah();dah();dah();charspace();break;
101.                  case Ɖ': dit();dit();dit();dah();dah();charspace();break;
102.                  case Ɗ': dit();dit();dit();dit();dah();charspace();break;
103.                  case Ƌ': dit();dit();dit();dit();dit();charspace();break;
104.                  case ƌ': dah();dit();dit();dit();dit();charspace();break;
105.                  case ƍ': dah();dah();dit();dit();dit();charspace();break;
106.                  case Ǝ': dah();dah();dah();dit();dit();charspace();break;
107.                  case Ə': dah();dah();dah();dah();dit();charspace();break;
108.                  case Ɔ': dah();dah();dah();dah();dah();charspace();break;
109.                  case '.': dit();charspace();break;
110.                  case ':': dah();dah();dah();dit();dit();dit();charspace();break;
111.                  case ',': dit();dit();dah();dah();charspace();break;
112.                  case '': dah();dit();dah();dit();dah();dit();charspace();break;
113.                  case '?': dit();dit();dah();dah();dit();dit();charspace();break;
114.                  case '=': dah();dit();dit();dit();dah();charspace();break;
115.                  case '\'': dit();dah();dah();dah();dah();dit();charspace();break;
116.                  case '/': dah();dit();dit();dah();dit();charspace();break;
117.                  case '!': dah();dit();dah();dit();dah();dah();charspace();break;
118.                  case '-': dah();dit();dit();dit();dit();dah();charspace();break;
119.                  case '_': dit();dit();dah();dah();dit();dah();charspace();break;
120.                  case '"': dit();dah();dit();dit();dah();dit();charspace();break;
121.                  case '(': dah();dit();dah();dah();dit();charspace();break;
122.                  case ')': dah();dit();dah();dah();dit();dah();charspace();break;
123.                  case '$': dit();dit();dit();dah();dit();dit();dah();charspace();break;
124.                  case '&': dit();charspace();dit();dit();dit();break;
125.                  case '@': dit();dah();dah();dit();dah();dit();charspace();break;
126.                  case ' ': charspace();charspace();break;
127.            }
128.            i++;
129.      }
130. }
132. void main()
133. {
134.      char code text[] = "bg2bhc ";
135.      
136.      p3m1 = 0x08;
137.      p3m0 = 0x08;
139.      while(1)
140.      {
141.            play(text);
142.      }
143. }

'

编的不错
简单明了
通俗易懂
设计成随机的就好了

'

崔老师的那个是不是按一下，闪灯和喇叭报一遍n9bor？

'
恩恩！ham的电报呼号牌！ :d

'

好东西！bhc同学！看看这个能不能触动您点什么！

'
这个好玩！买两个，不行你diy也行，额收购！

'

这个好玩！买两个，不行你diy也行，额收购！ [表情]

'
估计是自己i做的！电池用的大饼样的钮扣

如果用一排贴片的led，出现“划”的时候不仅时间延长而且空间上也显示“划”，效果会不会好一点？或者用流水灯的形式呢？
实践发现未对视觉morse做过专门训练识别起来还是有点难度的。

多找几个发光管，有圆的，有矩形的，dit、das分别显示，有声音有图形。

用三个led吧

好想法，我想可以做到风筝上，用闪光莫尔斯码显示温度，气压，电压灯等信号，
====================================
我设计了一个莫尔斯电码练习器是学习的利器。
我的呼号 bg9cwj
我的淘宝店 http://shop59795123.taobao.com/
视频文件 http://www.tudou.com/v/j3wenqb38hu
博客 http://pcscope.blog.163.com/
电子邮箱 pcscope@163.com
skype bgzhuzzzd

case '.': dit();charspace();break;
                 case ':': dah();dah();dah();dit();dit();dit();charspace();break;
                 case ',': dit();dit();dah();dah();charspace();break;
                 case '': dah();dit();dah();dit();dah();dit();charspace();break;
                 case '?': dit();dit();dah();dah();dit();dit();charspace();break;
                 case '=': dah();dit();dit();dit();dah();charspace();break;
                 case '\'': dit();dah();dah();dah();dah();dit();charspace();break;
                 case '/': dah();dit();dit();dah();dit();charspace();break;
                 case '!': dah();dit();dah();dit();dah();dah();charspace();break;
                 case '-': dah();dit();dit();dit();dit();dah();charspace();break;
                 case '_': dit();dit();dah();dah();dit();dah();charspace();break;
                 case '"': dit();dah();dit();dit();dah();dit();charspace();break;
                 case '(': dah();dit();dah();dah();dit();charspace();break;
                 case ')': dah();dit();dah();dah();dit();dah();charspace();break;
                 case '$': dit();dit();dit();dah();dit();dit();dah();charspace();break;
                 case '&': dit();charspace();dit();dit();dit();break;
                 case '@': dit();dah();dah();dit();dah();dit();charspace();break;
                 case ' ': charspace();charspace();break;

'

好想法，我想可以做到风筝上，用闪光莫尔斯码显示温度，气压，电压灯等信号，
====================================
我设计了一个莫尔斯电码练习器是学习的利器。
我的呼号 bg9cwj
我的淘宝店 http://shop59795123.taobao.com/
视频文件 http://www.tudou.com/v/j3wenqb38hu
博客 http://pcscope.blog.163.com/
电子邮箱 pcscope@163.com
skype bgzhuzzzd

'
我也想过做一个简单的气象站，使用莫尔斯码在v段上发送数据呢~

放在天线顶上用大瓦数二级管，在飞机上可以看到你的呼号。