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
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;
hex kodları nerde acaba
Kaynak kodlar verildi hex kodlarını kendiniz derleyici program ile oluşturabilirsiniz
Emeğinize sağlık
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…..
Elinize ve yüreğinize sağlık, teşekkürler.
kıymetli bilgiler için,teşekkürler
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
kolay gelsin özcan burdamısın
sayfa calışıyormu bi devre kurcam da yardım alabılcegım
Kaynak dosya için link verildi oradan indirebilirsiniz
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
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
sayfa calışıyormu bi proton ıde kullanan varmı
gevv
muhıttın hocam
@muhittin hoca picproje.org forumlarında aktif