roboforum.ru

вот кодик

Код: Выделить всё • Развернуть

$regfile = "m128def.dat"
$crystal = 14745600                                         

Config Lcd = 16 * 1a
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2

Config Timer0 = Counter , Edge = Falling
Config PortE.0 = Input                                      
PortE.0 = 1                                                 


Do
   Cls
   Lcd Timer0
   Waitms 100
Loop
End

Но он чет отрабатывает не верно. Пишит чифры но не спорта ???
Помагите подправить код или переписать его чтоб чтитывалось значение с порта E пин 0...

Было

Config Timer0 = Counter , Edge = Falling
Config PortE.0 = Input
PortE.0 = 1

нужно

Config Timer0 = Counter , Edge = Falling
Config PortE.0 = Input
Config PinE.0 = Input
PortE.0 = 1

Правильно я понял?

EdGull писал(а):нет. нужно
Config Timer0 = Counter , Edge = Falling
Config PinE.0 = Input
тебе подтяжка по входу нужна, ты зачем туду единицу шлешь?

я просто еше плохо знаю етот язык я нашол пример и подумал что он подойдет для измерения частоты точнее пока от кварцевого генератора на 7 мгц

Добавлено спустя 2 минуты 6 секунд:
народ ес не тяжело кинте сылку или пример где можно почитать и посмотреть исходники кода на васике про измерения количества импульсов поданый на вход...

Мне нужно измерение количества импульсов за промежуток времени...

Кинь кодик ес не задруднит....
А так меня васик пропер

Добавлено спустя 2 минуты 11 секунд:
Через пень колоды знаю васик.... писал проги под досом лет 10 назат .

Вот кодик....

Код: Выделить всё • Развернуть

$regfile = "m128def.dat"
$crystal = 14745600
$lib "glcdKS108.lib"
' configure lcd display
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
Setfont Font8x8

Config Portd = Input
Const Reload = 62500


Dim Count As Integer
Dim Rez As Single
'Oaeia? n?aaaouaaao ea?ao? naeoiao
Config Timer1 = Timer , Prescale = 64
Ocr1ah = High(reload)
Ocr1al = Low(reload)
Tccr1a = 0
Set Tccr1b.3

On Compare1a Timer1_isr
On Int0 Countimp

Enable Compare1a
Enable Int0
Enable Interrupts

Cls

Do

Loop
'===== залетаем каждую секунду=========
Timer1_isr:
Disable Int0
Rez = 1 / Count
Count = 0
Cls
Lcdat 3 , 1 , Rez
Enable Int0
Return

'============ сюда при приходе импульса на PD2
Countimp:
Incr Count
Return
'============================================

Теперь проблема в том что подключен генератор на 7.372800МГЦ ана дисплее отображается 0.00004321..... Вчем ошибка?

Добавлено спустя 2 минуты 12 секунд:

EdGull писал(а):не... я не программист.
я писать коды не умею, так если тока ногами подёргать

Верю тебе что ток нагами дергаеш А я снежный человек Пишу с вершин гималайских гор