如題,代碼如下:
$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
注釋掉的恢復了,可以了
上一篇:avr mega8 PWM 超聲發射試驗程序
下一篇:BASCOM AVR 版 RC5紅外發射與接收遙控
推薦閱讀
史海拾趣
1995年,Fabrimex GmbH成立,作為電子組裝和電源生產的生產公司。這一舉措標志著公司進一步向國際化發展邁進。通過設立生產公司,Fabrimex AG能夠更好地控制產品質量和生產成本,提高市場競爭力。同時,公司還加強了在全球范圍內的銷售活動,進一步擴大了市場份額。
為了擴大市場份額,CLC開始實施全球化戰略。他們在世界各地尋找優質的原材料供應商,并與當地的合作伙伴建立長期合作關系。同時,他們還積極參加國際展覽和貿易活動,展示自己的產品和技術實力。這些努力使CLC的品牌影響力逐漸擴大,產品也走進了更多的國家和地區。
CLC非常重視客戶服務。他們設立了專門的客戶服務部門,為客戶提供咨詢、售后支持和定制服務。無論客戶遇到什么問題或需求,CLC都會盡全力解決和滿足。這種貼心的服務贏得了客戶的信任和忠誠,也促進了品牌的持續發展。
Cynergy 3注重企業的社會責任和文化建設。公司積極參與公益事業和環保活動,致力于為社會做出貢獻。同時,Cynergy 3還注重員工的培養和發展,為員工提供良好的工作環境和福利待遇。這種注重社會責任和企業文化建設的做法使得Cynergy 3在行業中樹立了良好的形象,也為公司的長期發展奠定了堅實的基礎。
以上五個故事框架涵蓋了Cynergy 3在電子行業中的發展歷程、技術創新、國際化戰略、客戶需求驅動以及社會責任與企業文化等方面。每個框架都可以進一步擴展為完整的故事,詳細描述Cynergy 3在不同階段的發展情況和取得的成就。
在1924年,大金工業株式會社成功合成了碳氟化合物,并在隨后的18年里,這項技術逐漸成熟并開始批量生產。這一突破性的技術不僅為大金在化學領域奠定了堅實的基礎,也為公司后續在家用空調市場的進軍提供了技術支持。
在發展過程中,B&B公司注重與上下游企業的合作與共贏。公司與多家知名的芯片制造商、原材料供應商建立了長期穩定的合作關系,確保了產品的質量和供應鏈的穩定性。同時,公司也積極與集成商、解決方案提供商等合作伙伴開展深度合作,共同為客戶提供更加完善的服務。
演講筆錄:完全不用電解電容的LED驅動方案 演講嘉賓:創意電子中國區技術支持工程師 龍金節 龍金節2009年加入創意電子有限公司。擔任中國區的技術支持工程師。在 ...… 查看全部問答∨ |
|
Wince 5.0 如何設置使文件夾選項-->高級設置項不選中 Wince 5.0 如何設置使文件夾選項-->高級設置項不選中 默認是選中的,修改那些地方可以使其不選中? 什么值設為0?… 查看全部問答∨ |
請請大家幫個忙!我在DXP 里畫的原理圖拷到WORD格式,復制到WORD顯示不全,我就需要復制原理圖,有什么辦法能把原理圖完全復制過去呢! 謝謝你們了… 查看全部問答∨ |
使用ScrollWindowEx時出現比較明顯的拖滯現象,怎么處理。 在拖動滾動條時,頁面出現了拖影,應該怎么處理呀, 看系統內即使文件很多也沒有這現象呢。? void C2MSetting::OnVScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) { int nDelta = 0; ...… 查看全部問答∨ |
編譯老是出現這樣的錯誤,該如何解決? region onchip_memory2 is full (uart_232.elf section .text). Region needs to be 3824 bytes larger.… 查看全部問答∨ |
uint16 dat;...if (dat&0xff00) {....}編譯后就只有mov A,R2jz c:xxxx確實只要判高八位是否非0就可以了 編譯原理我也學過,作編譯器的真是高哇… 查看全部問答∨ |
介于自己沒有這套開發板不能詳盡了解,這套開發板的CAN通訊。 不過通過研究例程發現:CAN通訊用于LM3S2110與LM3S8962兩者之間的的CAN通訊。但是僅有LM3S2110的燒錄程序,卻沒有,8962的例程?當然,可能有分析錯誤,期待您的指正。 希望哪位用過 ...… 查看全部問答∨ |