سلام دوستان
یه میکرو مگا32 دارم که یه خروجیledداره ویه ولتاژ متغیر به adcوصله ..میخوام وقتی ولتاژ زیر 400 دیجیتال که حدودا 2ولت هست اومد ledخاموش بشه ،واگه بالای 400 اومد روشن بشه...وقتی ولتاژ بالای 2 ولت(400) اومد ledروشن میشه و ولتاژ دو سر led ، حدودا 2.5 ولته ودرسته اما موقعی که ولتاژ به زیر 2 ولت میرسه .ولی led بازم روشنه ولی کم نور تر از حالت قبلی....و ولتاژ دو سر ledهم 1.5 ولته وچرا خاموش نمیشه برنامه تو چروتئوس کار میکنه
$regfile = "m32def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Enable Adc
Config Portc.0 = Output
Dim A As Word
Start Adc
Q:
A = Getadc(7)
If A < 400 Then
Gosub W
Else
Gosub E
End If
Goto Q
End
W:
Reset Portc.0
Return
E:
Set Portc.0
Return
یه میکرو مگا32 دارم که یه خروجیledداره ویه ولتاژ متغیر به adcوصله ..میخوام وقتی ولتاژ زیر 400 دیجیتال که حدودا 2ولت هست اومد ledخاموش بشه ،واگه بالای 400 اومد روشن بشه...وقتی ولتاژ بالای 2 ولت(400) اومد ledروشن میشه و ولتاژ دو سر led ، حدودا 2.5 ولته ودرسته اما موقعی که ولتاژ به زیر 2 ولت میرسه .ولی led بازم روشنه ولی کم نور تر از حالت قبلی....و ولتاژ دو سر ledهم 1.5 ولته وچرا خاموش نمیشه برنامه تو چروتئوس کار میکنه
$regfile = "m32def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Enable Adc
Config Portc.0 = Output
Dim A As Word
Start Adc
Q:
A = Getadc(7)
If A < 400 Then
Gosub W
Else
Gosub E
End If
Goto Q
End
W:
Reset Portc.0
Return
E:
Set Portc.0
Return

دیدگاه