Proyecto EP Final (1)

#include // includes the LiquidCrystal Library LiquidCrystal lcd(1, 4, 5, 6, 7, 8! // Creates an LC" b$ect. %ara&eters' (rs, enable, d4, d5, d6, d7 #include #include h> //Li //Librer brer� a )ara )ara *ener *eneraci aci� n de %+ #include h> //Librer //Librer� a )ara actiar actiar interru)ci interru)cines nes #de-ine "C "C 0 //si*n //si*n n&bre n&bre )ara la detecci detecci� n cruce )r )r cer #de-ine #de-ine 2 2 3 //s //si*n i*n n&bre n&bre )ara )ara el )in )in dnde dnde se se btendr btendr� la se� al int i48! #de-ine selec 10 -lat nu&eradr! #de-ine btn 1 //////////barre -recuencias int cn  ! int cnt 1! int %t1 %t1  ! // Cnei Cnei� n del )ten )tenci ci� &etr &etr ariar -recuencia. int %t0 %t0  1! // Cnei Cnei� n del )ten )tenci ci� &etr &etr cicl de traba$. unsi*ned ln* "%t1! // "ats leids en la entrada unsi*ned ln* "%t0! // "ats leids en la entrada

en el )in anal anal� *ic *ic , )ara )ara en el )in anal anal� *ic *ic 1, )ara )ara anal� *ica 1. anal� *ica 0.

-lat u1  ! id setu)(  lcd.be*in(16, 0! // 9nitiali:es the inter-ace t the LC" screen, and s)eci-ies the di&ensins (;idth and hei*ht - the dis)lay // si* si*na naci ci� n de )ines )ines )inde("C, 9%=! //"etecta el cruce )r cer di*ital+rite("C, 92! //abilita la ?esistencia de %ull@u) )inde(2 )inde(2, , A=%= A=%=! ! // %in %in del &icrc &icrcntr ntrlad ladr r )r dnde dnde se btend btendr r� la se� al )inde(selec, 9%=! // %in de seleccin ti) de cntrladr )inde(btn, 9%=! di*ital+rite(selec, 92! //abilita la ?esistencia de %ull@u) // Cn-i*urar i&er 1 //AC?1  1! //9niciali:a el c&)aradr 9B1 9B1  6! //abilita //abilita el el c&)aradr c&)aradr  y DnD la interru)ci interru)ci� n )r desbrde CC?1  ! //si*naci //si*naci� n del re*istr re*istr del ti&er ti&er CC?1E  ! //A)eracin nr&al, ti&er deshabilitad // CC?1 CC?1  FEG(CA11 FEG(CA11  H FEG(CA1E1 FEG(CA1E1 ! // Cn-i*urac Cn-i*uraci i� n %+ %+ &d &d -ase y -recuencia crrecta. //CC?1  FEG(CA11 H FEG(CA1E1 H FEG(CA1 H FEG(CA1E ! // d 9nertid. //CC?1E //CC?1E  FEG(+21 FEG(+21 H FEG(CB11H FEG(CB11H FEG(CB1! FEG(CB1! // Belecci� n del &d 8 de %+ y )rescaladr )ara 64. // Cn-i*urar Cn-i*urar la interru)ci interru)ci� n de cruce cruce )r cer. attach9nterru)t(,:erCrssin*9nterru)t, C2! attach9nterru)t(1,:erCrssin*9nterru)t%, C2! //9?I is )in 0. Lla&ar Lla&ar a la interru)ci interru)ci� n de cruce )r cer cer )ara -lanc -lanc de subida

J

//?utina //?utinas s de de inter interru)c ru)ci i� n id :erCrssi :erCrssin*9nterr n*9nterru)t( u)t( //"etecc //"etecci i� n de cruce cruce )r cer 9B1  6! //abilita //abilita el c&)aradr c&)aradr  y DnD la interru)ci interru)ci� n )r desbrde desbrde

CC?1  ! //si*naci� n del re*istr del ti&er CC?1E  ! //A)eracin nr&al, ti&er deshabilitad

CC?1Eb1! //9niciar ti&er diidid )ara entrada de 056 C1  ! //?eset ti&er � 9nicia el cntadr en cer J id :erCrssin*9nterru)t%( //"etecci� n de cruce )r cer // CC?1  FEG(CA11 H FEG(CA1E1 ! // Cn-i*uraci� n %+ &d -ase y -recuencia crrecta. CC?1  FEG(CA11 H FEG(CA1E1 H FEG(CA1 H FEG(CA1E ! // d 9nertid. CC?1E  FEG(+21 H FEG(CB11H FEG(CB1! // Belecci� n del &d 8 de %+ y )rescaladr )ara 64. C1  ! //?eset ti&er � 9nicia el cntadr en cer J

9B?(9?1FCA%Fect //C&)arada el alr del ti&er cn el alr establecid c& l� &ite i- (di*ital?ead(selec //B9?9CA di*ital+rite(2,92! //Clca en 1L a la ariable 2 J else i- (Kdi*ital?ead(selec //CA%%? J J 9B?(9?1FCA%EFect //C&)arada el alr del ti&er cn el alr establecid c& l� &ite i- (di*ital?ead(selec //B9?9CA di*ital+rite(2,LA+! //Clca en L a la ariable 2 CC?1E  ! CC?1E  ! J else i- (Kdi*ital?ead(selec //CA%%? J J

/////////////////////////////////////////////////////////////////////////////////// ///////////////////// id l)( i- (di*ital?ead(selec //B9?9CA

detach9nterru)t(1! // Cn-i*urar la interru)ci� n de cruce )r cer. attach9nterru)t(,:erCrssin*9nterru)t, C2! lcd.clear(! int )tanal*?ead(%t1! )t)t/4! // i- ()t > 56 //  )t56! // Be asi*na un alr a la salida J

i- ()t <  //  )t! // J i)t! AC?1  i! //si*nar el alr del c&)aradr a un re*istr. AC?1E  (510@i! nu&eradr.1416@(0DiD.47D.175sin(0DiD.47D.175! lcd.setCursr(,! lcd.)rint(MBi&etric M! lcd.setCursr(1,! lcd.)rint(Ma'M! lcd.)rint(iD.47! lcd.setCursr(,1! lcd.)rint(MGr&s' M! lcd.setCursr(5,1! lcd.)rint(10Dsqrt(nu&eradr/.1416! delay(5!

J

else i- (Kdi*ital?ead(selec //CA%%? detach9nterru)t(! // Cn-i*urar la interru)ci� n de cruce )r cer. attach9nterru)t(1,:erCrssin*9nterru)t%, C2! lcd.clear(! cn  di*ital?ead(btn! i-(cn92  delay(5! cnt  cnt1! delay(5! J else i-(cnLA+ cntcnt! J i-(cnt1//10: 9C?110! // est es l que hay que ariar l de arriba n le )ares bla era )ara &eter el )ulsadr )er n &e sale &uy bien J i-(cnt0//04: 9C?1510! // est es l que hay que ariar l de arriba n le )ares bla era )ara &eter el )ulsadr )er n &e sale &uy bien J i-(cnt//6: 9C?141! // est es l que hay que ariar l de arriba n le )ares bla era )ara &eter el )ulsadr )er n &e sale &uy bien J i-(cnt4//48: 9C?1056! // est es l que hay que ariar l de arriba n le )ares bla era )ara &eter el )ulsadr )er n &e sale &uy bien J i-(cnt5//6: 9C?105! // est es l que hay que ariar l de arriba n le )ares bla era )ara &eter el )ulsadr )er n &e sale &uy bien J i-(cnt6//10:

9C?110! // est es l que hay que ariar l de arriba n le )ares bla era )ara &eter el )ulsadr )er n &e sale &uy bien J i-(cnt7//10: cnt1! J // Gariaci� n del cicl de traba$ cn el )tenci&etr 0. "%t0  anal*?ead(%t0! // )tenci�&etr en 1. i- ("%t0 >  NN "%t0 < 10  // de 1bits. AC?1 int(.1D9C?1! // el 1O del alr ttal del // (104 cn la relaci� n' // 1O del cicl de traba$.

Lee el alr anal� *ic de 1bits del L� &ite de .1 )ara la entrada anal� *ica 1 Bi la cndici� n anterirr se cu&)le se enia re*istr de 16bits AC?1 )rescalad a 1bits (.1D0P16/(0P1  6.4! crres)ndiente al

J else i- ("%t0 > 300 NN "%t0 < 104  AC?1  int(.3D9C?1! // Bi la cndici� n anterirr se cu&)le se enia el 3O del alr ttal del // re*istr de 16bits AC?1 )rescalad a 1bits (104 cn la relaci� n' // (.3D0P16/(0P1  57.6! crres)ndiente al 3O del cicl de traba$. // Bi la cndici� n anterirr se cu&)le se enia el 3O. .3D0P16/104 // del duty cycle al )in %+ c& l� &ite, de l cntrari. J else enia al u1 u1 re*istr



// Bi nin*una cndici� n anterir se cu&)le se

 -lat("%t0!  u1 D9C?1! ttal de 16bits de AC?1

// "e i*ual &anera se trata de )rescalar el // a 1bits )ara l*rar ariar su alr cn ls

dats del )in 1 de 1bits u1  u1/104! aricaci� n de @1O. AC?1  int(u1! J lcd.setCursr(,! lcd.)rint(MCh))er M! lcd.setCursr(,1! lcd.)rint(M"elta' M! lcd.)rint("%t0D.873! delay(5!

// Be diide )ara 104 )ara tener una

// Be enia el resultad al re*istr AC?1.

J J /////////////////////////////////////////////////////////////////////////////////// ////////////////////////

Proyecto EP Final (1)

Recommend Documents