Administrace komentářů

DOBA byla jeste v puvodnim zdroji, nejak to tam zustalo a melo to fungovat jako nastaveni rozliseni (ruzne dlouhe intervaly mereni, pro vetsi presnost) - asi to predelam, napr. zmeny na CTS detekovat xkrat, z toho vysledek.

KALIBRACE slouzila opravdu jako kalibrace mereni - prevodnik bude pracovat ve venkovnich podminkach a rozdil teplot pak pusobi na keramiky (asi i na samotny prevodnik), jestli se nepletu. Ta se ale nahradi foliovym kondenzatorem.

Chyba v ctsvalue() je mi znama byl to zbytek. AD654 kmita az na 500kHz, coz na seriaku nezmerim - piny 6,7 se da pomoci C ovlivnovat kmitocet: 10n / 10kHz / 1V.

Dekuji za TIOCMIWAIT, nikde jsem na to nenarazil, opravdu se to velmi libi .

/*	2005. written for reading voltage from optical link iface	*/
/*	Ronja by U/"f convertor AD654. Program doesn't coming under any	*/
/*	lincense or warranty. If you have any questions, let write them	*/
/*	to me sith@wifistar.net. Mny thks to J. Pribramsky for his help	*/

#include < stdio.h>
#include < fcntl.h>
#include < termios.h>
#include < sys/ioctl.h>
#include < time.h>

#define SERIAK "/dev/ttyS1"
//#define DEBUG
//#define JEDNOTKA

int ctsvalue (int fd);
long frekvence (int fd);

int
ctsvalue (int fd)
{
	int status;

	ioctl (fd, TIOCMGET, &status);

	return (status & TIOCM_CTS);
}

long
frekvence (int fd)
{
	int tiku = 0, cas = 0;
	clock_t start, end;

	ioctl (fd, TIOCMIWAIT, TIOCM_CTS);	//az Hi

	start = clock ();	// stav hodin pred spustenim citace

	do
	{
		if (ctsvalue (fd))	// pokud CTS Hi
		{
			tiku++;
			while (ctsvalue (fd)) ;	// cekam na CTS Low.
		}

		end = clock ();

		cas = (end - start);	// celkovy cas mereni

	}
	while (cas < CLOCKS_PER_SEC);	//... pocet tiku/sec



#ifdef DEBUG

	printf ("Pocet tiku:%d ", tiku);

#endif

	return tiku;		// frekvence v Hz
}


int
main (void)
{
	int napeti = 0;

	int fd = open (SERIAK, O_RDWR | O_NOCTTY);

	if (fd < 0)
	{
		printf ("Port \"%s\" nelze zinicializovat.", SERIAK);
		return 0;
	}

	napeti = (frekvence (fd)) / 10;

	printf ("%d", napeti);

#ifdef JEDNOTKA

	printf ("mV\n");

#endif

	close (fd);		//zavri seriak

	return 0;
}