پاسخ : طراحی مدار
bascom
نوشته اصلی توسط electroactive
$regfile = "m8def.dat" $crystal = 1000000 Ddrd = 3 Dim A As Eram Byte , B As Byte Waitms 100 B = A And 1 If B = 1 Then Portd = 2 Else Portd = 1 End If B = A Incr B A = B Waitms 5 End
$regfile = "attiny26.dat" $crystal = 1000000 $hwstack = 20 $swstack = 20 $framesize = 20 Config Portb.0 = Output Config Portb.1 = Output Out1 Alias Portb.0 Out2 Alias Portb.1 Dim A As Eram Byte , B As Byte Waitms 200 B = A And 1 If B = 1 Then Out1 = 1 Out2 = 0 Else Out1 = 0 Out2 = 1 End If B = A Incr B A = B Waitms 5 End
دیدگاه