欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: INA168電流檢測BASCOM AVR單片機程序 [打印本頁]

作者: taotie 時間: 2022-7-17 21:34
標題: INA168電流檢測BASCOM AVR單片機程序
電路原理圖如下：

avr單片機程序代碼：
rem Main.bas file generated by New Project wizard
rem
rem Created: 周日 7月 17 2022 taotie
rem Processor: ATmega32
rem Compiler:  BASCOM-AVR

rem Write your code here

$crystal = 16000000
$regfile = "m32def.dat"

'$baud = 9600                   '串行接口

Dim S As String * 15 , Z As String * 15 '字符串轉換變量

'...............................................................................
'ssd1306液晶屏設置
Config Scl = Portc.0                               ' 用I2C引腳Scl = Portc.0 ，Sda = Portc.4
Config Sda = Portc.1
Config Twi = 400000                               ' i2c 的速度

I2cinit
$lib "i2c_twi.lbx"                                  ' 不使用模擬的軟I2C，而是使用twi
$lib "glcdSSD1306-I2C.lib"                         ' 用glcdSSD1306-I2C庫替換默認庫要添加在bascom avr庫中

Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306" '配置圖形顯示器

'*****************************************************************
'ADC控制器設置    呵呵~~~直接針對控制寄存器操作
Admux = &B11000000             '內部，2.56V，在AREF處有一個電容器,結果為10位,通道0.
Adcsra = &B11101111             ''ADC使能，開始轉換，自動觸發使能
                                 '，ADIF = 0
                                 'AD int使能，111 =預分頻128

'ADC自動觸發源設置
Set Sfior.7                      '101 =Timer1 匹配B
Reset Sfior.6
Set Sfior.5
'******************************************************************
On Adcc Adcinterrupt

Dim Wadc As Word
'訪問低字節和高字節:
Dim Wadcl As Byte At Wadc Overlay
Dim Wadch As Byte At Wadc + 1 Overlay
'您可以使用Overlay覆蓋來輕松訪問WORD的低字節和高字節
'（同樣的方法也適用于LONG）
'這就是將其存儲在SRAM中的方式
'+ ----------- + ---------- +
'| 低字節|高字節|
'+ ----------- + ---------- +

Dim Value As Single
Dim Adkorr1 As Single
Dim Adkorr2 As Single
Dim Adc_complete As Bit
Adkorr1 = 2500 / 2501 '沒有補償。應根據實物調試情況修改
Adkorr2 = 0.0065       '這個是不是有點多余？

'......................................................
'Timer1比較->每秒中斷”比較器B被使用，因為它必須用于ADC自動觸發“但是：比較B，比較值必須在Compare1A中！
Dim Seconds As Long
Compare1a = 10'15625

'盡管發生了COMPARE B事件，但仍使用COMPARE1A！

Config Timer1 = Timer , Prescale = 1024 , Clear Timer = 1 , Compare B = Disconnect
On Compare1b Timer1_isr
'Enable Compare1b
TIMSK.OCIE1B=1    '等同Enable Compare1b
'Enable Interrupts
Sreg.7 = 1       '等同Enable Interrupts
'..............................................................................
'ADC準備就緒時，標志Adc_complete為1 '，然后獲取并打印值
Do
If Adc_complete = 1 Then
Adc_complete = 0
Gosub Getvalue
Gosub Printvalues
End If
Loop
'---------------------------------------------------------------
Getvalue:             'Wadc由ADC完整中斷更新，因此我們只需獲取該值
Value = Wadc * 2.56
Value = Value / 1023
Value = Value * Adkorr1 'Adkorr1 2.5v補償系數
Value = Value + Adkorr2 'Adkorr2  0v顯示補償值

Return
'-------------------------------------------------------------------------------
Printvalues:
'cls
Setfont csdy
Lcdat 1, 6 , chr(33);chr(34);chr(35);chr(36);chr(37)
s=Str(Value)
z=Left(s , 6)    '截取采集值前6位數值
Setfont font12x16
'Lcdat 4, 1 ,Value
Lcdat 5, 32 ,z;"A ";"  "
'"間隔1秒記錄"：
'Lcdat 7, 6 ,"S :";" ";Seconds
Return
'--------------------------------------------------------------------------------

Timer1_isr:
'寄存器ADCSRA和SFIOR中的“增量秒” ADC由硬件自動觸發，由初始化設置
Incr Seconds
Return
'-------------------------------------------------------------------------------
Adcinterrupt:
'在ADC準備就緒時執行更新Wadc并設置標志Adc_complete
Wadcl = Adcl
Wadch = Adch
Adc_complete = 1
Return

$include "../font12x16.font"

$include "../369.font"

歡迎光臨 (http://www.raoushi.com/bbs/)