bascom avr tiny45驱动74hc595

2020-09-16来源: 51hei关键字:bascom  avr  tiny45  驱动74hc595

如题,代码如下:
$regfile = "attiny45.dat"                                   '指定单片机型号
$crystal = 8000000                                          '指定频率
$hwstack = 2
$swstack = 8
$framesize = 24                                             
Config Portb = Output                                       '定义B口为输出
Config Portb.4 = Input                                      '定义C.0口为输入
Config Adc = Single , Prescaler = Auto , Reference = Avcc   '配置AD转换器
Enable Adc                                                  '使能AC转换器
Dim Leddig(10) As Byte
Dim I As Word , P As Integer , V As Word , B As Word , N As Word , M As Word
Dim K As Single , G As Byte , S As Long , A As Word , C As Byte
Latch Alias Portb.1
Config Spi = Soft , Dout = Portb.3 , Ss = None , Clock = Portb.0
Restore Leddata                                             '读LED 显示位码(0-9)
For P = 1 To 10
   Read Leddig(p)
Next
Do
A = 0
C = 1
For C = 1 To 64                                             '取64次adc的平均值
Start Adc
I = Getadc(2)
Stop Adc
A = I + A
Next
A = A / 64
S = A * 5000
K = S / 1023
A = K
A = A / 2                                                   '设置最大量程为25V                                                   '
V = A / 1000                                                '千位
B = A / 100                                                 '百位
N = A / 10                                                  '十位
M = A Mod 10
Waitms 20

Spiinit                                                     '个位
   P = M
   Spiout Leddig(p + 1) , 1                                 '显示个位

   P = N
     If N > 9 Then
       P = P Mod 10
     End If
   Spiout Leddig(p + 1) , 1
   P = B
      If B > 9 Then
        P = P Mod 10
      End If
   Spiout Leddig(p + 1) , 1                                 '显示小数点
   P = V
     If V > 9 Then
       P = P Mod 10
     End If
   Spiout Leddig(p + 1) , 1

Latch = 0                                                   '使能显示
Waitus 10
Latch = 1
Loop
Leddata:                                                    'LED数字码 (0-9)
Data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110
Data &B01101101 , &B01111101 , &B00000111 , &B01111111 , &B01101111
注释掉的恢复了,可以了

关键字:bascom  avr  tiny45  驱动74hc595 编辑:什么鱼 引用地址:http://news.eeworld.com.cn/mcu/ic510372.html 本网站转载的所有的文章、图片、音频视频文件等资料的版权归版权所有人所有,本站采用的非本站原创文章及图片等内容无法一一联系确认版权者。如果本网所选内容的文章作者及编辑认为其作品不宜公开自由传播,或不应无偿使用,请及时通过电子邮件或电话通知我们,以迅速采取适当措施,避免给双方造成不必要的经济损失。

上一篇:avr mega8 PWM 超声发射试验程序
下一篇:BASCOM AVR 版 RC5红外发射与接收遥控

关注eeworld公众号 快捷获取更多信息
关注eeworld公众号
快捷获取更多信息
关注eeworld服务号 享受更多官方福利
关注eeworld服务号
享受更多官方福利

推荐阅读

BASCOM-AVR 驱动数码管简洁代码
''''''''''''''''''''''  BASCOM-AVR 驱动一个数码管显示数字 0-9 下载附件查看原理图 代码 实物照片 '''''''''''''''''''''''''''''''
发表于 2020-09-17
BASCOM-<font color='red'>AVR</font> 驱动数码管简洁代码
能显示温度及时间(能调时闹时)的bascom-avr程序
$regfile = "m16def.dat"$crystal = 8000000Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0Config Lcd = 16 * 2Config 1wire = Porta.0'*************************************************Dim Id(8) As ByteDim I As ByteDim C(2) As ByteDim T As Word&nb
发表于 2020-09-17
BASCOM AVR 版 RC5红外发射与接收遥控
单片机源程序如下:rem Main.bas file generated by New Project wizardrem  RC5编码发射rem Created:   周六 12月 21 2019   taotierem Processor: ATmega8rem Compiler:  BASCOM-AVRrem Write your code here$regfile ="m8def.dat"$crystal =8000000DDRD=&B00000000PORTD=&B11111111  main:  do&nb
发表于 2020-09-16
BASCOM <font color='red'>AVR</font> 版 RC5红外发射与接收遥控
BASCOM-AVR利用AVR-DOS库读写SD卡
试验了用BASCOM读写SD卡,完全可以把SD卡当作磁盘来操作,与VB/QB语法兼容,编程非常简单。  AVR-DOS介绍  Features:           ·  Read and writeASCII-Files·  Read and writeBinary-Files·  Drivers available forCompact Flash Cards, Hard disk, MMC, SD etc.·  Completly integrated
发表于 2020-09-15
bascom avr 数字电位器控制仿真
rem Main.bas file generated by New Project wizardremrem Created:   周二 5月 12 2020     TAOTIErem Processor: ATmega8rem Compiler:  BASCOM-AVR控制数字电位器AD5206仿真rem Write your code here$regfile = "m8def.dat"  $crystal = 8000000  Dim c As Byte   
发表于 2020-09-07
<font color='red'>bascom</font> avr 数字电位器控制仿真
AVR单片机熔丝位的设置及拯救方法
AVR单片机需要设置合适的熔丝位才能实现其功能,如果熔丝位设置的不对将有可能导致单片机自锁,这是我整理的AVR单片机熔丝位的设置及拯救方,希望对大家有帮助。 
发表于 2020-09-17
<font color='red'>AVR</font>单片机熔丝位的设置及拯救方法
小广播
何立民专栏 单片机及嵌入式宝典

北京航空航天大学教授,20余年来致力于单片机与嵌入式系统推广工作。

换一换 更多 相关热搜器件
电子工程世界版权所有 京ICP证060456号 京ICP备10001474号 电信业务审批[2006]字第258号函 京公海网安备110108001534 Copyright © 2005-2020 EEWORLD.com.cn, Inc. All rights reserved