Форум РадиоКот

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

	GPIOA->BSRR = GPIO_Pin_15; // BACKLIGHT ON

	lcd_init();
	lcd_clear();

	lcd_gotoxy(0,0);lcd_putstr("  RLC ver 6.03  ");
	lcd_gotoxy(0,2);lcd_putstr("   Neekeetos    ");
	lcd_gotoxy(0,3);lcd_putstr("   @yahoo.com   ");
	lcd_gotoxy(0,4);lcd_putstr(" big thanks to  ");
	lcd_gotoxy(0,5);lcd_putstr(" TESLight, Link ");
	lcd_gotoxy(0,7);lcd_putstr(" play by slav0n");

//	while( buttons()  != 0 );// wait BUTTON release
/*
	if( (cstatus & 0xFFFFFF00) != 0x80000000 )
	{
		cstatus = 0x80000000;findex = 0;
	}
*/
	if(findex <0 || findex >= FCNT ) findex = 0;
	freq = flist[findex];
	fillSine(freq);

	measure(&Z,16);

	lcd_clear();

	lcd_gotoxy(0,1);lcd_putstr("________________");
	lcd_gotoxy(0,6);lcd_putstr("----------------");

	R.Re = SHUNT;
	R.Im = 0;

	while (1)
	{
//----------------------------------------------------------------------------
		btn = buttons();

		if( btn & PWR_BTN )	bl_status = !bl_status;	//pwr/backligt
		if( btn & SP_BTN )	rsrp = ! rsrp;			//ser/par
		if( btn & REL_BTN )	rel = !rel;

		if( btn & SP_BTNL )
		{
			findex++;
			if(findex>= FCNT ) findex = 0;
			freq = flist[findex];
			fillSine(freq);

			rsrp = ! rsrp;
		}
		if( btn & REL_BTNL )
		{
			calibrate();
			rel =0;
			cstatus |= (1<<findex);
		}
		if( btn & PWR_BTNL )
		{
			lcd_clear();
			lcd_gotoxy(3*6,4);print(" Bye Bye..");
			measure(&Z,10);
			powerOff();
		}

		if(bl_status)GPIOA->BSRR = GPIO_Pin_15; // BACKLIGHT ON
		else		GPIOA->BRR = GPIO_Pin_15; // BACKLIGHT OFF
//----------------------------------------------------------------------------

		lcd_gotoxy(0,0);lcd_putstr("                ");
		sputdec(s,freq);
		lcd_gotoxy(0,0);lcd_putstr(s);lcd_putstr("k  ");

		lcd_gotoxy(13*6,0);
		if(rsrp)lcd_putstr("PAR");
		else	lcd_putstr("SER");

		lcd_gotoxy(9*6,0);
		if(rel) lcd_putstr(">.<");
		else	lcd_putstr("   ");

		lcd_gotoxy(6*5,0);
		if(cstatus & (1<<findex)) lcd_putstr("CAL");
		else					  lcd_putstr("---");

//---------------------------------------------------------------------------

		measure(&Z,1);

		// zx = zom * (zsm-zxm)/(zxm-zom)

		if( (cstatus & (1<<findex)))
		{
			cplx tmp1,tmp2;
			tmp1.Re = Zs[findex].Re - Z.Re;
			tmp1.Im = Zs[findex].Im - Z.Im;

			tmp2.Re = Zo[findex].Re;
			tmp2.Im = Zo[findex].Im;

			cplxMul(&tmp2,&tmp1);

			tmp1.Re = Z.Re - Zo[findex].Re;
			tmp1.Im = Z.Im - Zo[findex].Im;

			cplxDiv(&tmp2,&tmp1);

			Z.Re = tmp2.Re;
			Z.Im = tmp2.Im;
		}

		Z.Re = filter(0,Z.Re);
		Z.Im = filter(1,Z.Im);

		if(rel)	{
			Z.Re -= base.Re;
			Z.Im -= base.Im;
		}else{
			base.Re= Z.Re ;
			base.Im = Z.Im;
		}

		float ls = Z.Im/6.283185307/(freq*1000.0);
		float cs = -1/6.283185307/(freq*1000.0)/Z.Im;
		float d = Z.Re/Z.Im;
		float d2 = d*d;
		float q = 1/d;

		if(rsrp)		//PAR
		{
			ls = ls*(1+d2);
			cs = cs/(1+d2);
			Z.Re = Z.Re*(1.0+d2)/d2;
		}

		round++;
		if(round>2)
		{
			round = 0;

			printFloat(12,2,Z.Re,"Ohm");
		//	lcd_gotoxy(0,2);lcd_putstr("  ");
			lcd_gotoxy(0,3);lcd_putstr("R>");

			if(Z.Im > 0)
			{
				printFloat(12,4,ls,"H  ");
			//	lcd_gotoxy(0,4);lcd_putstr("   ");
				lcd_gotoxy(0,5);lcd_putstr("L>");
			}else{
				printFloat(12,4,cs,"F  ");
			//	lcd_gotoxy(0,4);lcd_putstr("   ");
				lcd_gotoxy(0,5);lcd_putstr("C>");
			}

			int qq = 10000*( 1.0+absolute(d));	if(qq >19999) qq = 19999;
			sputdec(s,qq);
			lcd_gotoxy(0,7);lcd_putstr("D .");lcd_putstr(&s[1]);lcd_putstr("    ");

			qq = absolute(q);	if(qq >9999) qq = 9999;
			sputdec(s,qq);
			lcd_gotoxy(8*6,7);lcd_putstr("Q ");lcd_putstr(s);lcd_putstr("    ");

		//	lcd_gotoxy(0,1);lcd_putstr("________________");
		//	lcd_gotoxy(0,6);lcd_putstr("----------------");

		}
	}
}

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

static int oldbtn =-1;
	while (1)
	{
		btn = buttons();

		if(btn == oldbtn)goto M1;
		else 			oldbtn = btn;

		if( btn & PWR_BTN )	bl_status = !bl_status;	//pwr/backligt
		if( btn & SP_BTN )	rsrp = ! rsrp;			//ser/par
		if( btn & REL_BTN )	rel = !rel;

		if( btn & SP_BTNL )
		{
               
                 *
                 *
                 *

      M1:
		measure(&Z,1);

		// zx = zom * (zsm-zxm)/(zxm-zom)

		if( (cstatus & (1<<findex)))
		{

                 *
                 *
                 *

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

TIM2->ARR = 71;///63;