'--------------------------------------------------------------------------------------------------------------------------------------
1)DEFINE OSC 10???????????????????????????? Я же писал что при частоте 20 МHz , максималка измерения 120 kHz
---------------------------------------------------------------------------------------------------------------------------------------
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 2
define LCD_RWREG PORTA
DEFINE LCD_RWBIT 1
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 0
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 4000
DEFINE LCD_DATAUS 250
TRISB=0
TRISA=%11111100
fout var word
START :
count PORTB.6, 1000, fout
'-----------------------------------------------------------------------------------------------
2)Формула для расчета где ?????????????????????????????????? Fout = Fout / 100
'-----------------------------------------------------------------------------------------------
lcdout $FE, 1
'-----------------------------------------------------------------------------------------------
3)Здесь как оно покажет на экран ,#fout," гц:PAUSE 100 в частности ,"гц?????????,а должно быть Lcdout $FE,$16, # Fout , " kHz " : PAUSE 100
'-------------------------------------------------------------------------------------------------
goto START
ENDДобавлено (27.12.2012, 21:34)
---------------------------------------------
Вот Ваши ошибки,невнимательность,и в книге все написано про этот оператор.
Добавлено (27.12.2012, 21:37)
---------------------------------------------
И если планируете изучать дальше написание программ переходите на Proton
Добавлено (27.12.2012, 21:43)
---------------------------------------------
Могу Вам скинуть исходник на протоне,если Вас интересует,я Вашу прогу делал в нем
Добавлено (27.12.2012, 21:56)
---------------------------------------------
И у Вас еще есть ошибки.
Добавлено (27.12.2012, 23:10)
---------------------------------------------
И переделал Ваш проект под 2 канала измерения.