پاسخ : مشکل در اولین گام کار با Attiny13
فکر نکنم مشکلی پیش بیاد. بزنید :smile:
نوشته اصلی توسط behzad666
[FONT=Yekan]$regfile= "attiny13.dat"[/FONT]$crystal=1000000
$hwstack = 32
$swstack = 8
$framesize = 16
dim A as Byte
dim B as Byte
Dim C as Byte
CONFIG ADC = single, PRESCALER = AUTO, REFERENCE = INTERNAL
start ADC
config PORTB.0=INPUT,portb.1=OUTPUT
set portb.0
reset portb.1
print A
do
A= getadc(1)
select case A
case is <2 :gosub label
case 2 to 3 : gosub label1
case is > 3 :gosub label
end select
loop
end
label:
set portb.0
reset portb.1
return
label1:
set portb.1
reset portb.0
return
دیدگاه