[ Struja01 @ 21.05.2008. 23:30 ] @
Pozdrav svima, Napisao sam (skromni) program koji bi trebao da simulira semafor. Radim ga za PIC 16F627. Razmisljao sam da postavim potenciometar koji bi skracivao ili povecao vremenski interval sa prelaska crveno na crveno,zuto pa na zeleno.. znaci kada skracivam vreme npr za 20 % ili za 50%... Radim u PBP-u. Zna li neko kako bi se to moglo izvesti? Evo programa: i var byte B0 VAR BYTE B1 var byte TRISB = 0 'Postavi sve pinove porta B kao izlazne Pocetak: B0 = 1 'Promenljivu B0 postavi na visoki nivo B1 = 0 'Promenljivu B1 postavi na niski nivo PORTB.0 = B0 'Vrednost B0 posalji na pin RB.0 - pali se crvena led PORTB.1 = B0 'Vrednost B0 posalji na pin RB.1 - pali se zuta led PORTB.5 = B1 'Vrednost B1 posalji na pin RB.5 - zelena ugasena pause 100 'Zadrzi program 100 ms tj. 0.1 sekunda B0 = 1 B1 = 0 PORTB.5 = B0 ' zelena PORTB.0 = B1 'crvena PORTB.1 = B1 'zuta PAUSE 1000 B0 = 1 B1 = 0 PORTB.1 = B0 PORTB.0 = B1 PORTB.5 = B1 PAUSE 100 B0 = 1 B1 = 0 PORTB.0 = B0 PORTB.1 = B1 PORTB.5 = B1 PAUSE 1000 GOTO POCETAK 'Vrati se na pocetak programa END |