[原创] 终于成功了，可以把歌词发送到单片机的软件，可以边上网边看歌词了 [附程序]

zxttgg · 发表于 2007-8-5 03:51:57

[压缩包名称] uhart player.exe

[解压前大小] 2.5M

[安装后大小] 6.25M

[支持系统] 2K/XP

[通信方式] 串口

[生产日期] 2007/8/5

[受权方式] 共享

[其他] 不可以转载

点击此处下载armok01165169.rar

效果图：

TTLife · 发表于 2007-8-5 04:10:42

楼主:你的压缩技术还不错,可以否说说是什么类压缩,它根据什么原理?

很多游戏也是这样压缩的,二张CD盘解压后变成了3到4G.

zxttgg · 发表于 2007-8-5 04:14:21

呵呵，打错了

文件没问题吧？这种毛病范第二次了.....自责中

zxttgg · 发表于 2007-8-5 04:23:28

至于压缩^-^

估计光盘里的是16位BIN文件,然后

3000000/16=b

其实程序只要用32k，后面`````

for x=1 to b

[文件] b，&hff

next x

呵呵

wxfhw · 发表于 2007-8-5 05:44:57

什么东西？

wj414 · 发表于 2007-8-5 12:33:28

好东西。

怎么没程序和原理图呀！

能不能把原理图和PCB以及程序贴出来呀。

zxttgg · 发表于 2007-8-5 13:30:30

对不起，pcb那玩意我真的不会画。

里面不是有手绘的连接图吗？

============================ST7920============================================

                           (+)---[VO                ]

                           GND---[R/W             ]

      [---\/---]pc5--------------[d7                ]

      [-o------]pc4--------------[d6                ]

      [--------]pc3--------------[d5    st7920 LCM  ]

      [--------]pc2--------------[d4                ]

      [--------]pc1--------------[e                ]

      [-Mega8--]pc0--------------[rs                ]

      [--------]          (+)---[VCC             ]

      [--------]          (-)---[GND             ]

      [--------]

      [--------]

      [--------]

      [--------]

      [--------]

      [--------]

============================1602==============================================

                           (+)---[VO                ]

                           GND---[R/W             ]

      [---\/---]pc5--------------[d7                ]

      [-o------]pc4--------------[d6                ]

      [--------]pc3--------------[d5    1602 LCM  ]

      [--------]pc2--------------[d4                ]

      [--------]pc1--------------[e                ]

      [-Mega8--]pc0--------------[rs                ]

      [--------]          (+)---[VCC             ]

      [--------]          (-)---[GND             ]

      [--------]

      [--------]

      [--------]

      [--------]

      [--------]

      [--------]

zxttgg · 发表于 2007-8-5 16:31:54

每人提意见吗？

amrok? 彩虹？都到哪去了？

armok · 发表于 2007-8-5 16:34:07

很好! cool !

zxttgg · 发表于 2007-8-5 16:36:22

终于穿裤子了......

wj414 · 发表于 2007-8-5 21:00:56

有程序吗？

怎么那个EXE文件无法打开。

提示为无效端口。

是什么原因呢？

谢谢了

zxttgg · 发表于 2007-8-6 00:14:15

默认串口是COM1（你有COM1吗？），115200不要搞错；

1.没有串口或使用USB转COM或者，到资源管理器改端口；

2.端口不支持115200，这种比较少见。；

wj414 · 发表于 2007-8-6 20:32:08

谢谢

我正是用得USB转串口

还有

大哥

还是把源程序也贴出来吧

我用的M16而你用的是M8。

谢谢

zxttgg · 发表于 2007-8-7 01:01:42

'=========================中森翔太2000-2007===========================

'                         ナカモロシヨゥタ

'          劳动成果                         请勿抄袭

$crystal = 7372800

$baud = 115200

$regfile = "m32def.dat"

Dim A As String * 30 , V As String * 30 , F As Bit

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0

Config Lcd = 16 * 4

'Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 4 , Cd = 3 , Wr = 6 , Rd = 5 , Reset = 2 , Fs = 7 , Mode = 6

'Cursor Off

Waitms 500

F = 0

A = " 中森翔太"

Waitms 2000

Cls

Gosub Sdoux

End

Sdoux:

Do

Input A

If A = "unfresh" Then

A = ""

F = 1

End If

If A = "keep fresh" Then

A = ""

F = 0

End If

If A = "locate 2" Then

Locate 3 , 1

A = ""

End If

If A = "locate 1" Then

Locate 1 , 1

A = ""

End If

If A = "locate 3" Then

Locate 1 , 9

A = ""

End If

If A = "locate 4" Then

Locate 3 , 9

A = ""

End If

If A = "cls" Then

Cls

A = ""

End If

If A = V Then Gosub Sdoux

If A <> "" Then

If V <> A Then

If F = 0 Then Cls

Locate 1 , 1 : Lcd A

End If

V = A

A = ""

End If

Loop

End

starli · 发表于 2007-8-7 08:41:42

液晶很明显不是1602嘛

俺是新手，可不要吓我啊........

lcd128x64 · 发表于 2007-8-7 15:01:29

你是日本人？：（

zxttgg · 发表于 2007-8-7 16:02:06

'Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Ce = 4 , Cd = 3 , Wr = 6 , Rd = 5 , Reset = 2 , Fs = 7 , Mode = 6

'Cursor Off

这两句前面加了注释符，表示使用t6963也可以，另外经过试验，st7920完全可以使用1602的四线指令。明白了吗？

我是日本人，怎么了，日本Z.F.有错，日本人民没有错。

zxttgg · 发表于 2007-8-7 16:28:30

什么原理？

wj414 · 发表于 2007-8-7 20:51:11

不管你来自世界的哪里，我们讨论的是技术问题。

谢谢分享你的程序。

zxttgg · 发表于 2007-8-7 21:05:44

并没有把LRC歌词传送到弹片机SRAM里，只是通过软件歌词拆分，将歌词一句一句发送到单片机SRAM，然后通过比较字串长度再PRINT.

Hjoan · 发表于 2007-8-8 10:56:39

やはりマイコンのファンスだ！優秀な作品を提供いただきましては、おおきいに！

学术无国界，多谢ZXTTGG提供好的作品，共勉。

banyan_city · 发表于 2009-2-18 09:15:57

顶起

Heavin · 发表于 2009-2-18 09:22:03

顶一个。。不错不错，有时间试试！

hanbao0371 · 发表于 2009-2-18 20:11:48

好东西呀，但对于我来说难度系数还很大呀

imyth88 · 发表于 2009-2-18 20:30:36

我是日本人，怎么了，日本Z.F.有错，日本人民没有错。
---------------------------------------------------
对极！！
再次谢谢，楼主分享！

ddaitt999 · 发表于 2009-2-19 21:11:38

强帖，支持

luojunzhou · 发表于 2009-2-19 21:38:22

支持一个

caplsc · 发表于 2009-2-19 21:47:27

给zxttgg SDoux提个建议，
把液晶的光标去除吧！应该比现在有光标看着舒服。个人看法而已……
ST7920有相应的指令，初始化的时候改一下设置就行了。

dujun168 · 发表于 2010-12-21 14:04:00

厉害

chengyang79 · 发表于 2010-12-21 21:22:07

原来ZXTTGG是个叫中森翔太的日本学生，楼主表现还是不错的，我们应该不卑不亢。

xieguangye · 发表于 2010-12-22 10:55:03

传送的是汉字内码？

manhere · 发表于 2010-12-22 11:32:18

回复【1楼】TTLife
楼主:你的压缩技术还不错,可以否说说是什么类压缩,它根据什么原理?
很多游戏也是这样压缩的,二张cd盘解压后变成了3到4g.
-----------------------------------------------------------------------
文本类的文件压缩率都高没有什么多媒体压缩才是难的

你说的游戏盘那种超高的压缩率多为使用UHarc压缩软件实现的当然高压缩率是以解压时间为代价的

rlogin · 发表于 2010-12-22 11:46:32

嗯，好，关注压缩

MeSleve · 发表于 2010-12-22 12:34:18

支持一个，这是技术的交流地

sytu_xww · 发表于 2010-12-22 12:38:32

mark

lixupeng · 发表于 2010-12-25 21:00:26

学习了！！！！！！！

ROBOT520 · 发表于 2011-1-19 17:45:59

dexidzdexidz · 发表于 2011-6-15 14:37:48

支持，

baobaocunzhang · 发表于 2011-6-20 13:37:27

回复【16楼】zxttgg Thomas
-----------------------------------------------------------------------

超同意楼上的说法，呵呵

yibunihao · 发表于 2011-7-20 13:57:51

顶楼主，我还以为你是日本留学呢，呵呵，你中文怎么这么好啊啊？好吧我又八卦了。。。

yongbo7411 · 发表于 2011-7-20 19:41:14

羡慕

[原创] 终于成功了，可以把歌词发送到单片机的软件，可以边上网边看歌词了 [附程序]

阿莫论坛20周年了！感谢大家的支持与爱护！！