rem Main.bas file generated by New Project wizard
rem
rem Created: 周六 11月 18 2023 taotie
rem Processor: ATmega8
rem Compiler: BASCOM-AVR
rem Software name: 摩尔斯电码自动发送仿真
rem Write your code here
$regfile = "m8def.dat"
$hwstack = 32
$swstack = 32
$framesize = 32
$crystal =8000000
$baud = 9600
Config Portb.0 = Output
Speaker Alias Portb.0
Dim I As Byte ' 临时用作循环计数器
Dim M As Byte ' 我们表中当前摩尔斯电码的索引
Dim L As Byte ' 表示摩尔斯电码按位生成中最低有效位
Dim P As Byte '用于端口查询速度和字符集
Dim char_location As Byte '字符位
Dim char_string As String * 26 '字符串
Dim char_string_length As Byte '字符串长度
Dim char_name As String * 1 '单字符名
Dim ASC_byte As Byte At char_name Overlay '覆盖变量(单词 char 的字节值)
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Main:
' 选择(码与码之间、字与字之间、词与词之间)时间间隔
CONST D_D = 100 '滴滴答答间隔时间
CONST MA_MA = 200 ' 电码之间间隔时间
CONST DL_DL = 100*20 '段落间隔时间
Wait 1
Write_char:
Do
char_string = "1234567890abcdefghijk" '在这里写入要发送的字符
p=len(char_string) '获取字符串长度
Gosub pouxi_danchi
Loop
pouxi_danchi: '剖析单词
char_string_length = Len(char_string) '单词长度=Len(返回字符串的长度)。
For char_location = 1 To char_string_length '字符位=1 到 单词长度
char_name = Mid(char_string , char_location , 1 ) 'char_name = Mid(字符串 , 字符位 , 要获取/设置的字符数。)
print char_name
Gosub Text_out '调用纯文本输出
Next
if char_string_length=P then waitMS DL_DL '如果字符串已发送到末尾则暂停x秒
Return
Text_out: ' 过滤掉坏字符;查找有用的字符
If ASC_byte > 123 Then ' 重定向坏字符以暂停
ASC_byte = 32
End If
If ASC_byte > 94 Then ' 小写 -> 大写
ASC_byte =ASC_byte - 32
End If
ASC_byte = ASC_byte - 32 ' 本ascii表的字符只有以32开头的部分
M = Lookup(ASC_byte , DIANMA_BIAO) ' 从表中获取莫尔斯字符
Gosub Morse
Return
'摩尔斯电码生成:
Morse:
If M = 0 Then ' 特殊情况:空格而不是不可溢出的ASCII字符
Goto char_end
End If
For I = 1 To 8
If M = 1 Then ' 该字节只有值1;绘图结束!
Goto char_end '字符结束
End If
L = M And& B00000001 ' 读取最低阶位
If L = 1 Then
Sound Speaker , 360, 550 ' 发出嗒声
Else
Sound Speaker , 120, 550 ' 发出嘀声
End If
Waitms D_D ' 在摩尔斯电码中暂停
Shift M , Right , 1 ' 将位向右移动一位
' wait 1
Next I
char_end:
Waitms MA_MA ' 在摩尔斯电码之间暂停
Return
End
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DIANMA_BIAO: ' 用于纯文本输出
' Ascii 32 - 47 -> _!"#$%&'()*+,-./
Data 0 , 0 ,& B01010010 , 0 , 0 , 0 ,& B00101010 , 0 ,& B00101101 ,& B01101101 , 0 ,& B00101010 ,& B01110011 ,& B01100001
Data& B01101010 ,& B00101001
' Ascii 48 - 57 -> 0123456789
Data& B00111111 ,& B00111110 ,& B00111100 ,& B00111000 ,& B00110000 ,& B00100000 ,& B00100001 ,& B00100011 ,& B00100111 ,& B00101111
' Ascii 58 - 64 -> :;<=>?@
Data& B01000111 ,& B01110011 ,& B00101101 ,& B00110001 ,& B01101101 ,& B01001100 , 0
' Ascii 65 - 90 ABCDEFGHIJKLMNOPQRSTUVWXYZ
Data& B00000110 ,& B00010001 ,& B00010101 ,& B00001001 ,& B00000010 ,& B00010100 ,& B00001011 ,& B00010000 ,& B00000100
Data& B00011110 ,& B00001101 ,& B00010010 ,& B00000111 ,& B00000101 ,& B00001111 ,& B00010110 ,& B00011011 ,& B00001010
Data& B00001000 ,& B00000011 ,& B00001100 ,& B00011000 ,& B00001110 ,& B00011001 ,& B00011101 ,& B00010011
' ASCII 91 -95 ???s (s statt ?
Data& B00011010 ,& B00010111 ,& B00011100 ,& B00001000