adc آنلاین

[hsoft2]

سلام من تو این برنامه از adc استفاده کردم ولی مشکل این هست که برنامه تا به آخر نرسه مقدار adc در برنامه اعمال نمیشه یعنی اگر وسط برنامه adc تغیر کنه همون لحظه اعمال نمیشه
$regfile = "m48def.dat"
$crystal = 2000000
Config Portd = Output
Config Pinc.0 = Input
Config Adc = Single , Prescaler = Auto

Dim W As Word
Start Adc
Do
W = Getadc(0)
Portd = 0
Waitms W
Portd = &B00000001
Waitms W
Portd = &B00000011
Waitms W
Portd = &B00000111
Loop
End

[baby_1]

پاسخ : adc آنلاین

سلام
شما باید از وقفه ها برای این منظور استفاده کنین البته به ازای هر تغییری مجبوری که داده هاتون رو مجددا بخونین ، این برنامه هر گاه تبدیل صورت گرفت مقدار w رو بر می گردونه

$regfile = "m48def.dat"
$crystal = 2000000
Config Portd = Output
Config Pinc.0 = Input
'===================
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim W As Word
Start Adc
Enable Interrupts
Enable Adc
'======================
Do
W = Getadc(0)
Portd = 0
Waitms W
Portd = &B00000001
Waitms W
Portd = &B00000011
Waitms W
Portd = &B00000111
Loop
End
'==========================

حالا اگر برنامه خودتون هم بخواین تصحیح کنین خواهیم داشت

$regfile = "m48def.dat"
$crystal = 2000000
Config Portd = Output
Config Pinc.0 = Input
'===================
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim W As Word
Start Adc
Enable Interrupts
Enable Adc
'======================
Do
W = Getadc(0)
Portd = 0
Waitms W
W = Getadc(0)
Portd = &B00000001
Waitms W
W = Getadc(0)
Portd = &B00000011
Waitms W
Portd = &B00000111
Loop
End
'==========================

[hsoft2]

پاسخ : adc آنلاین

منظور از برگردوندنه w در برنامه اولی چیه لطفا توضیح بدید