cnc-club.ru

Код: Выделить всё

//Опустить лапу

main()
{
timer=0;

		i6=portget(6);//измерение
if (i6!=0)
{
exit(99);
};
		i7=portget(7);//измерение
if (i7==0)
{
exit(99);
};

portset(1);

	texit=timer+6000;
	do
	{
		timer++;
		i6=portget(6);//измерение
		i7=portget(7);//измерение

if (i7==0)
{
		if (i6!=0) 
		{

t=gvarget(5400);
gvarset(1400,t);
gvarset(5400,22);

exit(99);
		};
};
	}while(timer<texit);

exit(99);

};

Код: Выделить всё

main()
{
  portset(1);
  timer=1000;do { timer--;}while(timer>0);//Пауза на 1 секунду на опускание лапы

  t=gvarget(5400);  //Посмотреть, какой инструмент сейчас текущий
  gvarset(1400,t);   //Запомнить его в регистре #1400, чтобы вернуть в исходное состояние при поднятии лапы
  gvarset(5400,22); //Установить номер 22 - номер для лапы

  exit(99);

};

Код: Выделить всё

main()
{
  portclr(1);
  timer=1000;do { timer--;}while(timer>0);//Пауза на 1 секунду на поднятие лапы

  t=gvarget(1400);  //Посмотреть, какой инструмент был до лапы
  gvarset(5400,t);   //Установить его как номер инструмента

  exit(99);
};

Код: Выделить всё

main()
{
  t=gvarget(5400);
  if (t==22)
  {
    gvarset(0xffffff,0);
  };
  exit(99);
};