Proton ile örnek PIC devreleri

14 Yorum “Proton ile örnek PIC devreleri”

1. turgay 2009/04/23

   hex kodları nerde acaba

   CEVAPLA ↓
   1. gevv Yazar2009/04/23

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

      CEVAPLA ↓
2. adil 2009/08/30

   Emeğinize sağlık

   CEVAPLA ↓
3. mehmet 2010/02/20

   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 ↓
4. mutefekkir 2011/07/08

   Elinize ve yüreğinize sağlık, teşekkürler.

   CEVAPLA ↓
5. yusuf 2012/02/05

   kıymetli bilgiler için,teşekkürler

   CEVAPLA ↓
6. Özcan Özkan 2014/06/03

   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 ↓
   1. atik 2019/12/25

      kolay gelsin özcan burdamısın

      CEVAPLA ↓
7. atik 2019/09/21

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

   CEVAPLA ↓
   1. gevv Yazar2019/09/21

      Kaynak dosya için link verildi oradan indirebilirsiniz

      CEVAPLA ↓
8. atik 2019/12/24

   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 ↓
9. atik 2019/12/24

   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 ↓
10. atik 2020/01/14

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

    CEVAPLA ↓
    1. gevv Yazar2020/01/15

       @muhittin hoca picproje.org forumlarında aktif

       CEVAPLA ↓