با سلام و عرض ادب
می خوام یه دیمر دیجیتال رو با استفاده از RF کنترل کنم
اول از همه این مدار دیمر دیجیتال آقای مهندس لاچینی خوب هست یا نه؟ تاحالا کسی تستش کرده و عمر طولانی داره یا نه؟
http://www.hlachini.elewiz.com/Projects/Dimer-Digital-Atmega8/Dimer-Digital-Atmega8.htm
من بدون تست این برنامه رو نوشتم ،ببینید درسته؟
فرستنده:
گیرنده: (ویرایش شده)
به جز این برنامه قراره تغذیه خود میکرو رو هم از همون برد بگیرم
آیا این مدار به در من میخوره ؟؟؟
می خوام یه دیمر دیجیتال رو با استفاده از RF کنترل کنم
اول از همه این مدار دیمر دیجیتال آقای مهندس لاچینی خوب هست یا نه؟ تاحالا کسی تستش کرده و عمر طولانی داره یا نه؟
http://www.hlachini.elewiz.com/Projects/Dimer-Digital-Atmega8/Dimer-Digital-Atmega8.htm
من بدون تست این برنامه رو نوشتم ،ببینید درسته؟
فرستنده:
کد:
$regfile = "M8Def.dat" $crystal = 8000000 $baud = 9600 Config Portc = Input Dim SW1 As String * 13 Dim SW2 As String * 13 Dim NOIZ As String * 13 SW1 = "UP" SW2 = "DOWN" NO_NOYZ = "456789" Do Debounce PinB.0 , 1 , UP_ON , Sub Debounce PinB.1 , 1 , DN_ON , Sub Debounce PinB.0 , 0 , NOIZ_1 , Sub Debounce PinB.1 , 0 , NOIZ_1 , Sub Loop End UP_ON: Print SW1 ; Chr(13); Return DN_ON: Print SW2 ; Chr(13); Return NOIZ_1: Print NO_NOYZ ; Chr(13); Return
کد:
$regfile = "m8def.dat"
$crystal = 4000000
Config Pinb.1 = Output ' Gate Triac
Config Pind.7 = Input ' Key Up
Config Pinb.0 = Input ' Key Dn
Config Int0 = Rising
On Int0 Int0_int
Enable Interrupts
Enable Int0
Dim S As String * 13
Dim E As Eram Byte
Dim B As Byte
Dim D As Byte
If E > 9 Then E = 9
B = E
D = 0
Set Portb.1
Do
Input S
If S = "UP" Then Decr B : Waitms 10 'RF برای
If S = "DOWN" Then Incr B : Waitms 10 'RF برای
If Pind.7 = 0 Then
If B > 1 Then Decr B
Waitms 10
E = B
End If
If Pinb.0 = 0 Then
If B < 9 Then Incr B
Waitms 10
E = B
End If
Loop
End 'end program
Int0_int:
Set Portb.1
For D = 0 To B
Waitus 200
Next D
Reset Portb.1
Return
آیا این مدار به در من میخوره ؟؟؟
دیدگاه