مشکل در استفاده از پورت a هم بعنوان adc هم بعنوان ورودی خروجی(atmega16)

[azadmard]

سلام خدمت دوستان عزیز
من دارم یه مدار می بندم که توی اون به پایه a.0,a.1 یه سنسور sht وصل کردم و از a.6,a.7 دارم ورودی adc میگیرم
نمیدونم چرا در حالت عادی دو تا adc جواب میده ولی وقتی همراه sht میذارم توی مدار،سنسور درست کار میکنه ولی دیگه مقدار Adc نمیده... :eek:
دوستان اگه کمک کنن ممنون میشم
اینم کد برنامه:

Do

Enable Adc
Start Adc
Waitms 10
 Hc1 = Getadc(6)
Tc1 = Getadc(7)

Tc2 = Tc1 / 1023
Hc2 = Hc1 / 1023
 Tc3 = Tc2 * 80
 Hc3 = Hc2 * 90
 Tc = Round(tc3)
 Hc = Round(hc3)
 Waitms 10
 Stop Adc
 Disable Adc

Locate 4 , 1
Lcd Tc ; " "

Locate 4 , 8
Lcd Hc ; "% "

 Gosub Sht1
loop

[SAMAN.ASADI]

پاسخ : مشکل در استفاده از پورت a هم بعنوان adc هم بعنوان ورودی خروجی(atmega16)

سلام خدمت دوستان عزیز
من دارم یه مدار می بندم که توی اون به پایه a.0,a.1 یه سنسور sht وصل کردم و از a.6,a.7 دارم ورودی adc میگیرم
نمیدونم چرا در حالت عادی دو تا adc جواب میده ولی وقتی همراه sht میذارم توی مدار،سنسور درست کار میکنه ولی دیگه مقدار Adc نمیده... :eek:
دوستان اگه کمک کنن ممنون میشم
اینم کد برنامه:

Do

Enable Adc
Start Adc
Waitms 10
 Hc1 = Getadc(6)
Tc1 = Getadc(7)

Tc2 = Tc1 / 1023
Hc2 = Hc1 / 1023
 Tc3 = Tc2 * 80
 Hc3 = Hc2 * 90
 Tc = Round(tc3)
 Hc = Round(hc3)
 Waitms 10
 Stop Adc
 Disable Adc

Locate 4 , 1
Lcd Tc ; " "

Locate 4 , 8
Lcd Hc ; "% "

 Gosub Sht1
loop

سلام
میکروی شما چیه؟

[azadmard]

پاسخ : مشکل در استفاده از پورت a هم بعنوان adc هم بعنوان ورودی خروجی(atmega16)

سلام روی عنوان موضوع نوشتم.....atmega16

[vahidabedi]

پاسخ : مشکل در استفاده از پورت a هم بعنوان adc هم بعنوان ورودی خروجی(atmega16)

من با بیسیک کار نکردم ولی به این دقت کن که پایه های a.7 و a.6 که بعنوان adc ازشون استفاده میکنی حتما ورودی تعریف شده باشند نه خروجی. توی زبان سی از این مشکلات پیش میاد ولی بیسیک رو نمیدونم/

[sadegh.parokh]

پاسخ : مشکل در استفاده از پورت a هم بعنوان adc هم بعنوان ورودی خروجی(atmega16)

عجب :eek: :eek:

[SAMAN.ASADI]

پاسخ : مشکل در استفاده از پورت a هم بعنوان adc هم بعنوان ورودی خروجی(atmega16)

این رو یه تستی بزن ...
[code=qbasic]$regfile = "m16def.dat"
$crystal = 8000000
$hwstack=30
$swstack=30
$framesize=30

Config Adc = Single , Prescaler = Auto
Enable Adc
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 20 * 4 'configure lcd screen

Dim Hc1 As Word , Hc2 As Single , Hc As Word , _hc As Word
Dim Tc1 As Word , Tc2 As Single , Tc As Word , _tc As Word

Locate 4 , 10
lcd "%"

Do

Start Adc
Hc1 = Getadc(6)
Tc1 = Getadc(7)
Stop Adc
Tc2 = Tc1 / 1023
Hc2 = Hc1 / 1023
Tc = Tc2 * 80
Hc = Hc2 * 90
If _tc <> Tc
Locate 4 , 1
Lcd " "
Locate 4 , 1
Lcd Tc
End If
If _hc <> Hc
Locate 4 , 8
Lcd " "
Locate 4 , 8
Lcd Hc
End If
Waitms 100
_hc = Hc
_tc = Tc

Loop
End[/code]