پاسخ : شهاب سنگ led
قابش رو چی گذاشته .؟؟
نوشته اصلی توسط مهران چمنی
$regfile = "m8def.dat" $crystal = 8000000 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1 Config Portd = Output Dim I As Byte , J As Byte Dim D As Byte Dim Pwm(8) As Byte 'tanzime mizane roshanayi har LED Pwm(1) = 0 Pwm(2) = 0 Pwm(3) = 0 Pwm(4) = 0 Pwm(5) = 32 Pwm(6) = 64 Pwm(7) = 128 Pwm(8) = 255 D = 1 Do '-------------------------------------------- For J = 0 To 100 'control sorat '-------------------------------------------- For I = 1 To 8 'gharar dadane PWM moshakhas ruye paye moshakhas '-------------------------------------------- Portd = D Compare1a = Pwm(i) Waitus 500 Compare1a = 0 Waitus 500 D = D * 2 If D = 0 Then D = 1 Next '-------------------------------------------- Next '-------------------------------------------- Rotate D , Left , 1 'sheft dadane paye '-------------------------------------------- Loop End
دیدگاه