Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Donanım / Hardware
  • Elektronik ve Mekanik
  • Elektronik
  • Bu Konuda
Şimdi Ara

programa süre ayarlayıcısı????

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
5
Cevap
0
Favori
398
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Herkeze slmlar aşağıdaki devreyi proje ödevim olarak yapmam gerekiyo bunun için uğraşıyorum fakat bana ledlerin yanma hızını kontrol edicek bi eleman gerekli yani bir kontrol elemanı ile led lerin yanıp sönme hızını arttırıp yawaşlatmam gerekiyor manuel olarak devre üzerinden bunu nasıl yapabilirim ?

    ve bunun için programda ne gibi değişiklikler yapmam gerekiyor??

    şimdiden herkeze teşekkürler..





    DEVRENİN AÇIK ŞEMASI


    DEVRENİN ASM PROGRAMI

    ;****************************************************************************
    ;PIC0003.ASM PIC16F84 4 PROGRAMLI 8 LEDLI ISIK SOVU UYGULAMASI
    ;01.2000 HUSEYIN SERIMER
    ;****************************************************************************
    ;****************************************************************************
    ; PROGRAM BASLANGICINDA ISLEMCI ILE ILGILI TANIMLAMALAR YAPILMALIDIR
    ;****************************************************************************
    TANIMLAMALAR:
    list p=16F84 ; DERLEYICIYE ISLEMCI TANITILIR
    #include <p16F84.inc> ; PIC16F84 TANIMLAMA DOSYASI


    __CONFIG _CP_OFF & _WDT_ON & _PWRTE_ON & _XT_OSC

    ;****************************************************************************
    ; PROGRAMDA KULLANILAN DEGISKENLER TANIMLANMALIDIR
    ; DEGISKEN TANIMLARKEN DESISKENIN ALACAGI DEGER VEYA HANGI
    ; RAM HUCRESI OLDUGUNU GOSTERMEK YETERLIDIR
    ; EQU... ESITLE ANLAMINDADIR
    ;****************************************************************************
    DEGISKENLER:
    lsb equ H'0020'
    msb equ H'0021'


    BASLANGIC:
    ;****************************************************************************
    ; ISLEMCI RESETLENDIGINDE TUM UCLARI GIRIS DURUMUNDADIR
    ; ISLEMCI UCLARINI ISTENILEN DURUMA AYARLAMAK GEREKIR
    ; BU ISLEM GEREKTIGINDE PROGRAMIN BASKA ADIMLARINDA DA YAPILABILIR
    ; TRISA VE TRISB KAYDEDICILERI PIC16F84 UN RAM HAFIZA BOLGESININ IKINCI
    ; PORTA VE PORTB NIN UCLARININ HANGISININ GIRIS HANGISININ CIKIS
    ; OLACAGINI BELIRTIR 0=CIKIS, 1=GIRIS.
    ;****************************************************************************
    PORTLARI_AYARLA:
    CLRF PORTB ; RESET portb
    CLRF PORTA ; RESET portA

    BSF STATUS, RP0 ; BANK 1 GECILIR
    MOVLW B'00000000' ; RB0..7=CIKIS
    MOVWF TRISB
    MOVLW B'00011111' ; RA0-5=GIRIS
    MOVWF TRISA
    BCF STATUS, RP0 ; BANK 0 GECILIR



    ;****************************************************************************
    ; 4 KONUMLU ISIK SOVU PROGRAMI
    ;****************************************************************************

    PROGRAM:

    TEST_PORTA:
    BTFSS PORTA,0
    GOTO ALG1 ;PORTA,0="0" ISE ALG1 PROGRAMINA GIDER
    NOP

    BTFSS PORTA,1
    GOTO ALG2 ;PORTA,0="0" ISE ALG2 PROGRAMINA GIDER
    NOP

    BTFSS PORTA,2
    GOTO ALG3 ;PORTA,0="0" ISE ALG3 PROGRAMINA GIDER
    NOP

    BTFSS PORTA,3 ;PORTA,0="0" ISE ALG4 PROGRAMINA GIDER
    GOTO ALG4
    NOP

    ; PORTA NIN HICBIR UCU "0" DEGILSE SADECE 1.LED YANIK BEKLER
    MOVLW B'00000001' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CLRDWT
    GOTO PROGRAM ;ALGORITMA TEKRARLANIR


    ALG1:
    ;*********************************************************************
    ; SAGDAN SOLA YURUYEN ISIK ALGORITMASI
    ;*********************************************************************
    ;1.ADIM
    MOVLW B'00000001' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;2.ADIM
    MOVLW B'00000010' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;3.ADIM
    MOVLW B'00000100' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;4.ADIM
    MOVLW B'00001000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;5.ADIM
    MOVLW B'00010000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;6.ADIM
    MOVLW B'00100000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;7.ADIM
    MOVLW B'01000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;8.ADIM
    MOVLW B'10000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    GOTO PROGRAM ;ALGORITMA TEKRARLANIR
    ALG2:
    ;*********************************************************************
    ; SOLDAN SAGA YURUYEN ISIK ALGORITMASI
    ;*********************************************************************
    ;1.ADIM
    MOVLW B'10000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;2.ADIM
    MOVLW B'01000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;3.ADIM
    MOVLW B'00100000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;4.ADIM
    MOVLW B'00010000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;5.ADIM
    MOVLW B'00001000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;6.ADIM
    MOVLW B'00000100' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;7.ADIM
    MOVLW B'00000010' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;8.ADIM
    MOVLW B'00000001' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    GOTO PROGRAM ;ALGORITMA TEKRARLANIR

    ALG3:
    ;*********************************************************************
    ; ALG3 ISIK ALGORITMASI
    ;*********************************************************************
    ;1.ADIM
    MOVLW B'00000001' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;2.ADIM
    MOVLW B'00000011' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;3.ADIM
    MOVLW B'00000111' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;4.ADIM
    MOVLW B'00001111' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;5.ADIM
    MOVLW B'00011111' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;6.ADIM
    MOVLW B'00111111' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;7.ADIM
    MOVLW B'01111111' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;8.ADIM
    MOVLW B'11111111' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;9.ADIM
    MOVLW B'11111110' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;10.ADIM
    MOVLW B'11111100' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME


    ;11ADIM
    MOVLW B'11111000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;12.ADIM
    MOVLW B'11110000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;13.ADIM
    MOVLW B'11100000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;14.ADIM
    MOVLW B'11000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;15.ADIM
    MOVLW B'10000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;16.ADIM
    MOVLW B'00000000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    GOTO PROGRAM ;ALGORITMA TEKRARLANIR

    ALG4:
    ;*********************************************************************
    ; ALG4 ISIK ALGORITMASI
    ;*********************************************************************
    ;1.ADIM
    MOVLW B'10000001' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;2.ADIM
    MOVLW B'01000010' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;3.ADIM
    MOVLW B'00100100' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;4.ADIM
    MOVLW B'00011000' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;5.ADIM
    MOVLW B'00100100' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    ;6.ADIM
    MOVLW B'01000010' ;AKU YE SABIT BIR SAYI YUKLENIR
    MOVWF PORTB ;AKUDEKI SAYI PORTB YE YUKLENIR
    CALL BEKLET_100MS ; 0.1Sn BEKLETME

    GOTO PROGRAM ;ALGORITMA TEKRARLANIR


    ;****************************************************************************
    ; 4MHz CLOCK ICIN BEKLETME RUTINLERI
    ;****************************************************************************
    BEKLET_100MS:
    DLY_100MS ;YAKLASIK 100 MILI SANIYE
    CLRWDT
    movlw D'200'
    movwf msb
    GOTO DLY1
    DLY1
    movlw D'168'
    movwf lsb
    DLY2 ;YAKLASIK 3 MICRO SANIYE
    decfsz lsb,F ;1 INS
    goto DLY2 ;2 INS
    decfsz msb,F ;1 INS
    goto DLY1 ;2 INS
    RETURN

    ;****************************************************************************
    ; PROGRAMI SONLANDIRMAK ICIN PROGRAM SONUNA END YAZILIR
    ;****************************************************************************
    END


    MALZEME LİSTESİ
    Malzeme Değeri Adet

    Direnç[R1,R9] 470 %5, 1/4W 09

    Kondansatör[C1,C2] 22pF 02

    Kondansatör[C3] 470uF/16V 01

    Diyot[D1..D8] LED 08

    Kristal[X1] 4 Mhz 01

    S1[Program seçim anahtarı] 4 konumlu komitatör 01

    IC[U2] LM78L05 01

    IC[U1] PIC16F84 01







  • PIC i external osc ile çalıştır programı da external osc ye göre derle.
    kolay gelsin...
  • benim o kadar bilgim yok ki :)

    programlama ile ilgili pek bişi bilmiyorum bu programın üzerine onu ekliyemezmiyim?
  • programmı derlerken sadece ext osc seçeneğini tıklayacaksın o kadar. programda bir değişiklik olmayacak bunun yanında bir de xtal osc devresi yapacaksın. farklı hızlar için osc devresi çıkşını bir sayıcı ile bölerek ledlerin yanıp sönme hızlarnı değiştirebileceksin...
  • hımm bakalım bi deneme yapim yarın sonucu bildiririm :) çok saol :)
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız