为何以下两段BASCOM代码，一段正常，另一段A端口不闪烁？
最近才知有BASIC编程的AVR,在看《AVR单片机BASIC语言编程及开发》,有几个问题困扰了我三天,希望阿莫、马潮老师、其它师傅能于指点,先谢谢了!问题如下:
$regfile = "m128def.dat"
$crystal = 8000000
$baud = 19200
Config Porta = Output
Dim A As Byte , B As Byte , C As Byte
C = &H0F
Do
Porta = C
' Waitms 200
For A = 0 To 255
For B = 0 To 255
Next B
Next A
C = Not C
Loop
End
以上程序调试、下载后，硬件A口闪烁显示正常。
而
$regfile = "m128def.dat"
$crystal = 8000000
$baud = 19200
Config Porta = Output
Dim A As Byte , B As Byte , C As Byte
C = &H0F
Do
Porta = C
Waitms 500
'For A = 0 To 255
'For B = 0 To 255
'Next B
'Next A
C = Not C
Loop
End
程序调试正常、下载后硬件A口只显示不闪烁。
开始我怀疑BASCOM的版本有问题，试了1.11.7.2；1.11.8.7，在不同的电脑上，还是一样。
请高人赐教！
以下蓝色文字由站长：armok 于：2008-02-01,08:09:52 加入。你的原标题：“<font color=black>BASCOM问题请教” 不合符规定。请更改成能说明帖子大意的标题
试想一下，如果本论坛的帖子标题清一色的‘帮助!’，‘ADC求救!’等笼统的标题，你在阅读的过程中会造成许多麻烦。
所以本论坛规定：一定要起一个能说明帖子大意的标题。不允许“关于 AVR 的 ADC 使用!”这种笼统标题。作为标题，必须说明清楚：
①你是在请教问题，还是在介绍有关的知识？
②ADC的问题有许多，你是想说那方面的内容？
注意以上两点，标题应该改成如：“请教：ADC 可以不使用中断吗？”。
起一个能说明帖子大意的标题，除了减轻我们的帖子分类整理工作，还方便其它人阅读，节省大家的时间。
注：使用合格的标题，对你来说只是举手之劳，但却会为我们的管理工作提供很大的便利。谢谢你的支持。
./bbs_upload/files_6/armok01122228.gif 加上一句$hwstack = 50试一试。 首先检查你AVR真实的系统时钟频率,如果是1M的话,那么你LED的闪烁周期就是4秒了. 谢谢,ecat!加了$hwstack = 50,试了还是一样。
马老师,我等了长时间，就是没有闪烁。我用的是双龙公司SL-MEGA128的试验板，用A口的数码管来试的；相同硬件为什么一段程序会闪，用Waitms就不行呢？请马老师及高人指点。 $regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Dim A As Byte , B As Byte , C As Byte
C = &H0F
Do
Porta = C
Waitms 500
C = Not C
Loop
End
==============================================
以上代码我在M16上试过了,没有问题,WAITMS肯定好用.(1.11.8.7 DEMO版)
另外检查你M128的熔丝,是否配置成M128的工作模式,芯片出厂为M103模式,这样调用子程序会出问题的. 马老师:在SL ISP下，配置熔丝设置下，去掉＂ATmega103 Compatibility Mode ＂选项前的√。
写入后，试验板竟然不亮了；从新打勾写入后，试验板恢复原来一样；
是这样配置M128的工作模式的吗，只去掉＂ATmega103 Compatibility Mode ＂选项前的√。？ 对,将＂ATmega103 Compatibility Mode ＂选项前的"√"去掉。 马老师:去掉＂ATmega103 Compatibility Mode ＂选项前的√,
写入后，试验板竟然不亮了；那又是什么原因?是SL-MEGA128试验板问题?
闪烁不闪烁的问题要从那方面去想呢?
现在我一直在站内拜读有关贴子,.... 1，首先要保证M128不在ATmega103模式。
2，保证系统的时钟源频率正确。（注意内部时钟和外部时钟）
3，确认芯片不在JTAG模式。
4，程序先用bascom软件仿真一下，确保程序正确。 听马老师的话！
我就把这片M128当M16用，把
$regfile = "m128def.dat"
改成
$regfile = "m16def.dat"
结果，Wairms 500是正确的,A口会闪烁。
说明BAScom-AVR 1.11.8.7 DEMO 编译烧写M128有问题!
谢谢，马老师和热心的ecat!
TSC_HZ&163.com于2008，02，01 $regfile = "m128def.dat"
$crystal = 8000000
Config Porta = Output
Dim A As Byte , B As Byte , C As Byte
C = &H0F
Do
Porta = C
Waitms 500
C = Not C
Loop
End
以上代码我在M128上也试过了,没有问题,WAITMS肯定好用.(1.11.8.7 DEMO版,使用片内RC 8M)
如果你使用并口的ISP,可直接在BASCOM-AVR中查看M128的熔丝,为M128工作模式.如果我改成M103模式,LED就不闪动了.
我也使用了SLISP软件,也是去掉＂ATmega103 Compatibility Mode ＂选项前的√,LED就正常闪动了.
马老师,我试了你说的,在M103模式,LED是不闪动了；
我使用SLISP串口软件,去掉＂ATmega103 Compatibility Mode ＂选项前的√,LED就不亮了！！！。
是不是我的SL-MEGA128试验板有问题?
把 $regfile = "m128def.dat" 改成 $regfile = "m16def.dat"、$regfile = "m32def.dat" ；在M103模式就可以！
$regfile = "m64def.dat"、$regfile = "m128def.dat"不管在不在M103模式，都不行，请明示！ 在BASCOM-AVR环境中的BASCOM-AVR OPTIONS中,选中m128def.dat,然后重新编译代码下载试试. 马老师你好：
我已经把所有情况都整理了一下，用邮件先发给你看一下。实在不能解决问题的话，我想要不我把试验板用快递发给你，你给我试一下板子是否为好的。马老师你应该在上海吧，因为华东师大好象在上海的；我在杭州下辖的桐庐县，我现年36岁，中专学历，2002年下岗，现在在工地上当电工，由于天气的雨雪，今年放假比较早；想趁这段时间，包括春节来学习一下，我向往的单片机；因为BASIC、VB有所接触，所以对BASCOM—AVR更深情向往。
昨晚用 ”M32def.dat” 头文件试X=GetKbd（） ，又发现：在硬件下也不是按键弹起后才有效的，而是一直有效；所以在试《AVR单片机BASIC语言编程及开发》中P85页S0=A(X)与Loop之间只能加Waitms 500才能有书上的效果（虽然在贴子上我有耳闻，仿真会这样，下载后硬件是正常）。
我想照这样下去的话，“看书和做实验”还不知道会碰上什么问题呢！还是将已发现的问题弄清楚，再学习下去的好。我本想把试验板发回卖试验板的上海双龙公司去的，但他们今天放假了，我又实不想放弃春节这么长的学习机会，想了想或许马老师能帮我；不知马老师来过桐庐旅游没有，有机会来玩的话，我给你当向导。
请告诉我你的邮箱。
祝万事如意！
童水春13958007759
TSC_HZ@163.com
2008-2-2
还有，MCU下载程序——广州双龙电子有限公司V1.6.0.7，串口波特率只能选19200，其它不行。（可看图片）
我怀疑是不是试验板“ISP串行下载管理”芯片ATTINY2313V里面的程序，双龙公司的人给弄错了。 M128不适合初学者使用,建议你从阿莫购买AVR-51多功能实验板,先从M16开始.
如果下一步要做实际的东西的话,还是使用C语言比较好.另外,我编写的《AVR单片机嵌入式系统原理与应用实践》一书可以参考.
其他方面请你直接询问双龙的技术支持人员. 知道了，谢谢。
页:
[1]