J
janosandi
Guest
Sveiki fiends turiu maža programa, bet įvesties uoste degančioje su PIC16F84 15min laikmatis, vairuoti, bet išvesties LED Bet kuri pagalba bus appricciated
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
programa Timer_15min mikrokontroleris: Microchip PIC 16F84A "Kompiliatorius: mikroBASIC Pro v3.20 IPS" sistemos laikrodis: 4MHz "Laikrodis Šaltinis:" Crystal ", kai paspaudžiate mygtuką, šviesos diodas šviečia tada laukia 15 minučių, tada LED yra išjungtas simbolis TriggerPin = PORTA.B0 simbolis LEDPin = PORTB.B0 const Penkiolika = 900000 '900 000 miliseconds = 15 minučių Pagrindinis: TRISA = $ FS "Visos įvesties TRISB = 0" Visi išėjimas PORTB = 0, jei (TriggerPin = 0), tada "Jei mygtuko LEDPin = 1 delay_ms (penkiolika)" 15 minučių LEDPin = 0 pabaigos, jei, o tiesa Eiti pabaigos.
programa Timer_15min mikrokontrolerių: Microchip PIC 16F84A "sistemos laikrodis: 4MHz" Laikrodis Šaltinis: "Crystal", kai paspaudžiate mygtuką, šviesos diodas šviečia, tada laukti 14 minučių, antrą LED lemputė, tada boths LED yra išjungtas simbolis TriggerPin = PORTA.B0 simbolis LEDPin = PORTB.B0 simbolis LED2Pin = PORTB.B1 konstanta FourteenMin = 840.000 '840 000 miliseconds = 14 minučių konstanta OneMin = 60.000 '60, 000 miliseconds = 1 minutę Pagrindinis: TRISA = $ FF 'Visi įvesties TRISB = 0 'visos produkcijos, PORTB = 0, jei (TriggerPin = 0), tada "Jei mygtuko LEDPin = 1 delay_ms (FourteenMin)" 14 minučių LED2Pin = 1 delay_ms (OneMin) "1 minutę PORTB = 0' Įjungti LED prie pabaigos, jei o tiesa Eiti pabaigos.