فرکانسمتر

[mohsenjooon]

با سلام خدمت همه دوستان.
میشه لطفا بگید کجای این برنامه ایراد داره. این برنامه مربوط به یه فرکانسمترهکه برای مگا32 بود من تو مگا 8 کامپایلش کردم ولی کار نمی کنه.

$regfile = "M8def.dat"
$crystal = 16000000
$baud = 9600

'--------------------------------------------------------------------------
'                Dim Variable
Dim Count As Long
Dim I As Long
Dim J As Long

'--------------------------------------------------------------------------
'                Timer Setting
Config Portb = Output
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = _
Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Config Timer1 = Counter , Edge = Falling
Counter1 = 0

Count = 0
I = 0

Config Timer2 = Timer , Async = On , Prescale = 1      '
Enable Interrupts
Enable Timer2
On Ovf2 Timer2_isr

Stop Timer2
Start Timer2

Do
Loop

End

'--------------------------------------------------------------------
Timer2_isr:

  Stop Timer2
  Count = Count + Counter1
  Counter1 = 0
  I = I + 1


  If I = 128 Then

   Cls
   Upperline
   Lcd " FREQ = " ; Count ; " HZ"

   Print " FREQ = " ; Count ; " HZ"

   Counter1 = 0
   Count = 0
   I = 0
   Timer2 = 0

  End If

  Start Timer2

Return

[saeed bagherani]

پاسخ : فرکانسمتر

قسمت $baud = 9600 رو حذف کن

[mohsenjooon]

پاسخ : فرکانسمتر

قسمت $baud = 9600 رو حذف کن

داش سعید دستتون درد نکنه مشکل همونجا بود . ولی میشه بگید چرا تو مگا هشت بایستی اونو حذف کرد.

[saeed bagherani]

پاسخ : فرکانسمتر

اون قسمت ارتباطی به میکرو نوع نداره

وقتی که از اون دستور داری استفاده می کنی میکرو خود بخود داره از تایمر 1 برای پورت سریال استفاده می کنه
در صورتی که شما تایمر 1 رو جای دیگه هم استفاده کردی :mrgreen: :mrgreen: :mrgreen: