Proton ile örnek PIC devreleri

| Mayıs 18, 2023 Tarihinde güncellendi
Proton ile örnek PIC devreleri

Not: Bu Notların Hazırlanmasında Seçil KARABIYIK ve bütün ROBOGAZİ Ekibinin Emeği Geçmiştir.

1.Butona basınca ledi yakan bırakınca söndüren program (PIC16F84A)

2.Butona basınca ledleri yakan, tekrar basınca söndüren program (PIC16F84A)

3.Karaşimşek ( ledleri sırayla yakan program) (PIC16F84A)

4. Üç Buton kullanılacak ; 1. butona basınca toggle , 2. butona basınca karaşimşek , 3. butona basınca da önce ilk dört biti yakıp sonra tersleyen program (PIC16F84A)

5. Yedi Segment displayde butona bastikça 0-f arası saydıran program (PIC16F628A)

6. LCD uygulaması (PIC16F628A)

7.While Wend döngüsüyle karaşimşek programı (PIC16F84A)

8.Tuş takimindan girilen süreye göre geri sayan program for-next döngüsü (PIC16F877A)

9.Keypad’den girilen koda göre bağlı olduğu ledi yakan program (PIC16F877)

10.Keypad’den girilen koda göre bağlı olduğu ledi yakan program (case-select) (PIC16F877A)

11.LCD ve keypad uygulaması(bisküvi-matik) (PIC16F877)

12.RB0 interruptının kullanımı (PIC16F628A)

13.RB4-RB7 değişim interruptının kullanımı (PIC16F84A)

14.Timer1 interruptının kullanımı (PIC16F877A)

15.PWM’in kullanımı (PIC16F877)

Uygulama devrelerinden Örnekler

keypad_kod_devresi_f877pwm_kullanimi_protonledleri_yak_sondur_pic16f84pic16f84_buton_bas_birakproton_display_uygulamasi

proton_keypad_pic16f84proton_ledli_karasimsekproton_ledli_karasimsekproton_makina_pic16f877proton_pic_lcd_uygulama

proton_timer1proton_toggle_led_efektproton_toggle_led_efektproton_while_wend

Kaynak: http://w3.gazi.edu.tr/~fduran/pdfler/PROTON.doc

Proton ile PIC Programlayan ,yeni başlayan kişiler için Proteus isis devre şemaları ve açıklamalı kaynak kodları ile örnek PIC Devreleri;

proton-ile-ornek-pic-devreleri

Şifre-Pass: 320volt.com

Yayım tarihi: 2008/07/14 Etiketler: , , , , , , , , , ,



14 Yorum “Proton ile örnek PIC devreleri

    1. gevvgevv Yazar

      Kaynak kodlar verildi hex kodlarını kendiniz derleyici program ile oluşturabilirsiniz

      CEVAPLA
  1. mehmetmehmet

    sanal ortamda gerçekten ne kadar değerli saygı değer abilerimiz kardeşlerimiz var böyle değerli paylaşımlarda bulunan 7den 70 şine hepinize teşekkürler…..

    CEVAPLA
  2. Özcan ÖzkanÖzcan Özkan

    bende mi hata var bilmiyorum ama ;

    2.Butona basınca ledleri yakan, tekrar basınca söndüren program (PIC16F84A) ‘da

    BASLA:

    If BUTON=1 Then ‘BUTON’a basıldı mı?

    BUTONDUR: ‘buton basılı kaldığı sürece döngü oluşturur.

    If BUTON=1 Then GoTo BUTONDUR ‘Buton arkını önler.

    DURUM=0 Then ‘DURUM bitine bak 0’sa

    ifadeler var bir kere buton 1 ken kendini kısır döngüye alıyor 2.si durum=0 then diye bir ifade yok kendimce ark yapmasını şu şekilde çözdüm ancak daha düzgün ve doğrusunu yanıtlarsanız güzel olur çünkü 4 if için 3 endif kullandım anlamadım.

    Device=16F877A
    Xtal=4
    TRISB=%00000001
    TRISC=%00000000
    Dim BUTON As PORTB.0
    Dim LEDLER As PORTC
    Dim DURUM As Bit
    Dim DURUM2 As Bit
    PORTB=0
    PORTC=0
    BASLA:
    If BUTON=1 Then
    If DURUM2=1 Then GoTo BASLA
    DURUM2=1
    If DURUM=1 Then
    LEDLER=%00000000
    DURUM=0
    Else
    LEDLER=%11111111
    DURUM=1
    EndIf
    EndIf
    If BUTON=0 Then
    DURUM2=0
    EndIf
    GoTo BASLA

    CEVAPLA
  3. atikatik

    sayfa calışıyormu bi devre kurcam da yardım alabılcegım

    CEVAPLA
  4. atikatik

    Device 16F628A
    Xtal 4
    All_Digital true
    TRISA=%00000000
    TRISB=%00000001
    PORTA=0
    PORTB=0

    Dim btn As PORTB.0
    Dim yuk As PORTB.5
    Dim asa As PORTB.6
    Dim led As PORTB.4

    Dim a As Byte
    Dim b As Byte
    Dim s As Byte

    a=0
    s=0
    b=0

    baslai:
    If btn=1 Then GoTo basla
    GoTo baslai

    basla:
    If btn=1 Then GoTo basla
    led=1
    a=Counter btn, 1000
    s=ERead 0
    If a=1 And s=4 And s<9 Then GoTo azalt
    led=0
    GoTo baslai

    yukselt:
    DelayMS 50
    yuk=1:led=1
    DelayMS 1100
    yuk=0:led=0
    DelayMS 50
    b=ERead 0
    b=b+1
    EWrite 0,[b]
    DelayMS 50
    GoTo baslai

    azalt:
    DelayMS 50
    asa=1:led=1
    DelayMS 1100
    asa=0:led=0
    DelayMS 50
    b=ERead 0
    b=b+1
    If b=8 Then b=0
    EWrite 0,[b]
    DelayMS 50
    GoTo baslai

    dıger gönderdıgımde ıf a=1 azaltma cıkmamıs yenıden attım kusura bakmayın rahatsız ettım .. yardımcı olabılırsenız

    CEVAPLA
  5. atikatik

    If a=1 And s>=4 And s<9 Then GoTo azalt
    bunlar alt alta duru aslında lınk de cıkmamıs yapa yapa ögrendım

    CEVAPLA
  6. atikatik

    sayfa calışıyormu bi proton ıde kullanan varmı
    gevv
    muhıttın hocam

    CEVAPLA

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir