Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.06.2017, 18:14   #21
седьмой
Форумчанин
 
Регистрация: 17.07.2012
Сообщений: 140
По умолчанию

Код:
#include <stdio.h>
#include <dos.h>
#include <conio.h>
#include <ctype.h>
#include <stdlib.h>
#include <time.h>


	int main(void)
{
   unsigned char result;
   int port = 0x378; //LPT

   int flag=1;
   int i8=0;

  while (1)
   {
   result=inportb(port+1);
   if (	result & 0x40)
      {
	if (flag==1)
	{
	outportb(port+2,0xF8);
	delay(10);
	outportb(port+2,0xF0);
	flag=0;
		if (i8/3*3==i8)  //каждый 3й импульс
		{
		outportb(port+2,0xF2);
		delay(10);
		outportb(port+2,0xF0);
		}
	}
      }
      else
      {
      flag=1;
      i8++;
      }
    }


}
Изображения
Тип файла: jpg x3.jpg (51.6 Кб, 117 просмотров)
седьмой вне форума Ответить с цитированием
Старый 14.06.2017, 18:25   #22
седьмой
Форумчанин
 
Регистрация: 17.07.2012
Сообщений: 140
По умолчанию

Цитата:
Сообщение от waleri Посмотреть сообщение
Может там есть дребезг?
Спасибо, мысль интересная, попробую поставить развертку шире и посмотрю, но смущает то, что Зеленый сигнал который по фронту стабильный, такое ощущение что формула расчета кратности счетчика не успевает выполнить свой подсчет.
седьмой вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
com-порт счетчик импульсов Ciganqwer Компоненты Delphi 2 10.11.2016 09:37
Счетчик импульсов с ком-порта, глюк ? z-wer Общие вопросы Delphi 13 07.07.2011 15:33
Счетчик импульсов через ком-порт z-wer Компоненты Delphi 10 21.05.2011 11:01
Счетчик импульсов на LPT. Delphi clone_ Общие вопросы Delphi 7 29.04.2011 01:29
Счетчик импульсов stanik123 Общие вопросы Delphi 11 09.10.2009 10:10