سلام دوستان :biggrin:
من یه برنامه کوچولو نوشتم که اونجوری که باید کار کنه کار نمیکنه :sad: :sad:
کسی میدونه مشکل از چی هست؟ :nerd:
من یه برنامه کوچولو نوشتم که اونجوری که باید کار کنه کار نمیکنه :sad: :sad:
کسی میدونه مشکل از چی هست؟ :nerd:
کد:
$regfile = "m8def.dat" $crystal = 8000000 Config Timer0 = Timer , Prescale = 1 Dim Direct As Bit Config Portb.0 = Output Enable Interrupts Enable Timer0 On Timer0 Nader Timer0 = 108 Do Loop End 'end program Nader: If Direct = 0 Then Set Portb.0 Direct = 1 Else Reset Portb.0 Direct = 0 End If Return
دیدگاه