Cevap: ***/// PIC DÖKÜMANLARI-PROGRAMLARI \\\*** Güncellenmektedir...

E

eloko

19 yıl

Yarbay

8 satır kullan.aslında 16 satır alışılmadık bir rakam.genelde bir karakter için 7x5 kullanılır.

K

karauydu

19 yıl

Er

arkadaşlar lütfen sahibinden izin almadan ve kaynak göstermeden buraya proje eklemeyelim...

...emeğe saygı lütfen...

< Bu mesaj bu kişi tarafından değiştirildi karauydu -- 5 Kasım 2006; 4:15:41 >
Bu mesaja 1 cevap geldi.

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

quote:

Orjinalden alıntı: karauydu

arkadaşlar lütfen sahibinden izin almadan ve kaynak göstermeden buraya proje eklemeyelim...
...emeğe saygı lütfen...

Evet bu görüşe katılıyorum. Lakin internette karşılaştığınız, açık kaynak olarak sunulan bilgileri bizimle paylaşmanın bir sakincası yoktur diye düşünüyorum.

Ve ayrıca topiğimiz üst konu oldu ve bunu göz önüne alarak hareket etmenizi rica ediyorum. Bu söylememden topik benim, siz bana uyun, çıkmasın. Topiği açtım, çünkü kendi zorlandıklarımı başklarıda yaşamasın ve tek başlık altında bilabilsin istedim. Yani topik herkezin. Teşekkür edrim...

Bu mesaja 1 cevap geldi.

B

bjv16

19 yıl

Binbaşı

Bu topik çok iyi oldu zamanında biz de uğraşmıştık PIC konusunun üst konu olması için fakat sonuç alınamamıştı.

PIC' e başlayanlar için önemli olduğunu düşündüğüm bi konu pic programmer. En basitinden pic16f84 programlamak için gereken devre şeması aşağıda.

< Resime gitmek için tıklayın >

Daha gelişmiş programcıların linklerini de yavaş yavaş koyarız.

Bu mesaja 1 cevap geldi.

R

r2d2droids

19 yıl

Yarbay

bunlarda benden

-PIC programlama
http://www.geocities.com/r2d2droids/downloads/appnotes/pic.zip
-örnekler
*8 kanal IR kontrol
http://www.geocities.com/r2d2droids/mycircuits/ir.htm
verici kısmında osc olmadan yapılmış bir ikinci versiyonu mevcut siteye daha koyamadım ama isteyen olursa paylaşabilirim.
*koşan ışık
http://www.geocities.com/r2d2droids/mycircuits/kospic.htm
*PIC eepromuna yazma
http://www.geocities.com/r2d2droids/mycircuits/epprompic.htm
*şifreli kilit
http://www.geocities.com/r2d2droids_continued/mycircuits/sifrelikilit.htm
*sony kumandalar için ürün ve komut kodlarını bulma
http://www.geocities.com/r2d2droids_continued/mycircuits/sonycodes.htm
*HI-TECH PIC C örnekleri
http://www.geocities.com/r2d2droids_continued/hitech/hitechpicc.htm
*süpriz

http://www.geocities.com/r2d2droids/mycircuits/irplayer.htm
herkese iyi çalışmalar...

Bu mesaja 1 cevap geldi.

Y

yaramazcocuk35

19 yıl

Çavuş

arkdaslar banada bi yardım benn sizden bi istekte bulunacağı melinde picpbasic ile yazılmıs sifre kilit programı biras daha acmak gerekirse sifreyi kendimiz değiştirebilcez 3 kez yanlıs sifre girildğinde alarm veren işte falan filan cevapp bekliyorum cokk acill yarın proje raporu wermem lazzımm wede bununda o raporda olmasıı gerekiyo benn aradım bulamadım yapmaya calıstım olmadıı en son care sizsinizz ne olur yardımm

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

İyi aramamışsın

. İncelemedim ama forumda aşağıdaki topikte bahsetmişler. İncele, işine yarar sanırım.
http://forum.donanimhaber.com/m_6419011/mpage_1/key_%3Fifreli+kilit/tm.htm

Bu mesaja 1 cevap geldi.

Y

yaramazcocuk35

19 yıl

Çavuş

saoll hemenn cevabı yapıstırmsın ama bi dewamına baksaydıınn dahaa dorsuu keşke bşirass kurcalasaydın linkler hemen-paylas dostumm öle laf sölemekle olmuyoo ksura bakmaaa.....

Bu mesaja 2 cevap geldi.

R

r2d2droids

19 yıl

Yarbay

hemen paylaşta bir alay dosya vardı hiç olmuş...

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

Gerginliğe gerek yok diye düşünüyor ve sadece iyimser tarafım ile sana yol göstermeye çalışıyorum. Şunları yapabilirsin :
1. O topikte paylaşımı yapan arkadaşa pm atarak yardım isteyebilirsin. Mesala örnekleri tekrar koymasını!
2. Forumda sadece o topiğin olamdığını düşünerek arattırma yapabilirsin. ( Şifreli Kilit diye...)
3. Dahada olmadı sana burada bir program yazarız. Sonuçta yardımcı olmaya çalışıyoruz.

Bu mesaja 2 cevap geldi.

Y

yaramazcocuk35

19 yıl

Çavuş

saolsınn bildeyazilim yüzbasım ksura bakma özr dilerim hitabımdan doalyıı olmada canınız saolsunn gende zamn ayırp ingilendğiniz için tsk ama gercektende lazım bu pro.

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

http://www.eproje.com/modules.php?name=News&file=article&sid=72
http://forum.donanimhaber.com/m_6296955/mpage_1/key_%25FEifreli+kilit//tm.htm#6296955
http://www.profahmet.com.tr.tc/

http://www.fileupyours.com/files/67239/16f877sklt.zip (LCD li)

ve birde aşağıdaki. Bunlarda yetmez ise bakarız yine

quote:

arkadaslar bu code'u microcode studio ile compile edin ve semayı boarda hazırlayın
Proteusta denemeyin calısmaz cunku ilk sifreyi propic2 de programlarken ''EE WRİTE'' menusunden girilecek.

PAUSE 200
' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1

[ 0, 1, 2, 3,................................................]
burada puf nokta ''0'' icin ''215'' i propic2 programının ''EEWRİTE'' menusunde 1. haneye yaz

'****************************************************************
'* Name : SIFRE1.BAS *
'* Author : [************HEN*********] *
'* Notice : Copyright (c) 2002 [set under view...options] *
'* : All Rights Reserved *
'* Date : 31.07.2002 *
'* Version : 1.0 *
'* Notes : *
'* : *
'

Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTD
Define LCD_RSBIT 0
Define LCD_EREG PORTD
Define LCD_EBIT 1
Define LCD_LINES 2
Define LCD_BITS 4

B0 VAR BYTE
B1 VAR BYTE
B2 VAR BYTE
B3 VAR BYTE
B4 VAR BYTE
B5 VAR BYTE
' A1 VAR BYTE
' A2 VAR BYTE
' A3 VAR BYTE
' A4 VAR BYTE
' A5 VAR BYTE
C2 VAR BYTE
C3 VAR BYTE
C4 VAR BYTE
C5 VAR BYTE
A VAR BYTE
I VAR BYTE
C VAR BYTE
D VAR BYTE
D1 VAR BYTE
D2 VAR BYTE
D3 VAR BYTE
D4 VAR BYTE
E VAR BYTE
LED VAR PORTD.2
LED1 VAR PORTD.3
LED2 VAR PORTA.0

TRISD=0
TRISA=0
TRISB=$F0
INTCON=$88
Option_reg.6=0
Option_reg.7=0
I=0
E=0 'Hata girisi sayısı

'C2=235 EB 'master sifre degerleri TUS TAKIMINDA 1 ALTTA ISE
'C3=219 DB
'C4=187 BB
'C5=237 ED

' VEYA TUS TAKIMINA GORE
'C2=238 EE 'master sifre degerleri TUS TAKIMINDA 1 ÜSTTE ISE
'C3=222 DE
'C4=190 BE
'C5=237 ED

READ 1,C2
READ 2,C3
READ 3,C4
READ 4,C5

B2=0
B3=0
B4=0
B5=0

LED=0
LED1=0
LED2=0
D=0

LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"
PAUSE 50

GOSUB LCD_1

ON INTERRUPT GOTO ALT
X:
GOSUB YENILE
GOTO X

ALT:

DISABLE
PAUSE 1

B0=PORTB

IF B0=231 AND E=<5 THEN
I=0
C=0
D=0
LED2=1
LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"
PAUSE 1000
LED2=0
ELSE

IF B0=183 AND C=0 THEN
LED2=1
PAUSE 3000 'MASTER SIFREYE GECIS
LED2=0
IF PORTB=183 THEN
LED2=1
C=1
ENDIF
ENDIF
IF C=1 THEN
D=D+1
IF D=1 THEN
LCDOUT $FE,1
LCDOUT " ESKI SIFREYI"
LCDOUT $FE,$C0
LCDOUT " GIRINIZ"
PAUSE 400
I=0

ENDIF

IF D>=2 AND D<7THEN

PAUSE 200
' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1
IF I=1 THEN
B2=B0
LCDOUT $FE,1
LCDOUT " *"
ENDIF
IF I=2 THEN
B3=B0
LCDOUT $FE,1
LCDOUT " **"
ENDIF
IF I=3 THEN
B4=B0
LCDOUT $FE,1
LCDOUT " ***"
ENDIF
IF I=4 THEN
B5=B0
LCDOUT $FE,1
LCDOUT " ****"
PAUSE 500
ENDIF
IF I=5 THEN
IF B2=C2 AND B3=C3 AND B4=C4 AND B5=C5 AND B0=183 THEN
LCDOUT $FE,1
LCDOUT " YENI SIFREYI "
LCDOUT $FE,$C0
LCDOUT " GIRINIZ "
I=0
LED1=0
PAUSE 500
ELSE
LCDOUT $FE,1
LCDOUT " ESKI SIFREYI "
LCDOUT $FE,$C0
LCDOUT " YANLIS GIRDINIZ "
PAUSE 2000
GOSUB LCD_1
ENDIF
ENDIF
ENDIF

IF D>=7 THEN

PAUSE 200
' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1
IF I=1 THEN
D1=B0
LCDOUT $FE,1
LCDOUT " *"
ENDIF
IF I=2 THEN
D2=B0
LCDOUT $FE,1
LCDOUT " **"
ENDIF
IF I=3 THEN
D3=B0
LCDOUT $FE,1
LCDOUT " ***"
ENDIF
IF I=4 THEN
D4=B0
LCDOUT $FE,1
LCDOUT " ****"
WRITE 1,D1
WRITE 2,D2
WRITE 3,D3
WRITE 4,D4
PAUSE 300
LCDOUT $FE,1
LCDOUT " SIFRE "
LCDOUT $FE,$C0
LCDOUT " DEGISTIRILDI "
PAUSE 2000
LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"

C=0
D=0
I=0
E=0
LED2=0
LED1=0
ENDIF
ENDIF

ELSE

IF B0<>183 AND B0<>231 AND E<5 THEN
LED2=1
PAUSE 100

' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1
IF I=1 THEN
B2=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " *"
ENDIF
IF I=2 THEN
B3=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " **"
ENDIF
IF I=3 THEN
B4=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " ***"
ENDIF
IF I=4 THEN
B5=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " ****"
PAUSE 300
' ENDIF
'IF I=5 THEN
READ 1,C2
READ 2,C3
READ 3,C4
READ 4,C5
IF C2=B2 AND C3=B3 AND C4=B4 AND C5=B5 THEN
LCDOUT $FE,1
LCDOUT " HOS GELDINIZ"
LED=1
E=0
PAUSE 3500

ELSE
E=E+1
IF E<5 THEN
LCDOUT $FE,1
LCDOUT " YENIDEN DENEYINIZ"
PAUSE 2000
ENDIF

IF E>=5 THEN
LED1=1
LCDOUT $FE,1
LCDOUT " ALARM "

ENDIF

ENDIF
B2=0
B3=0
B4=0
B5=0
LED=0

IF E<5 THEN
GOSUB LCD_1
ENDIF
I=0
C=0
D=0
ENDIF
ENDIF
ENDIF
ENDIF
PAUSE 175 'tuslar arası bekleme

PORTB=0
INTCON=$88

ENABLE

RESUME

LCD_1:
I=0
C=0
D=0
LED2=0
LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"
PAUSE 50
RETURN

YENILE:

PORTB=$F7
PAUSE 5
PORTB=$FE
PAUSE 5
PORTB=$FD
PAUSE 5
PORTB=$FB
PAUSE 5

RETURN< Resime gitmek için tıklayın >

Başa dön

kesmez
Emektar

Kayıt: Oct 21, 2002
Mesajlar: 529
Nereden: ankaradan
Tarih: Sal Nis 22, 2003 5:08 am Mesaj konusu:

--------------------------------------------------------------------------------

yetki:
y1 VAR BYTE 'şifre 8106
y2 VAR BYTE
y3 VAR BYTE
y4 VAR BYTE
y5 VAR BYTE
y6 VAR BYTE
y7 VAR BYTE
y8 VAR BYTE
y5 = "8"
y6 = "1"
y7 = "0"
y8 = "6"
Pause 100
LCDOut $fe, 1
Pause 100
LCDOut $fe, $80, " Bu fonksiyon "
Pause 10
LCDOut $fe, $c0, " icin yetki kodu"
Pause 10
LCDOut $fe, $90, " gereklidir.!"
Pause 200

LCDOut $fe, $d0, " [ ] "
Pause 10

For kp=0 TO 3
GoSub getkey
Pause 200
ke = key - 1
LookUp ke, ["123F456K789SA0BY"], keyl

BranchL kp,[ ay1,ay2,ay3,ay4 ]
ay1:
y1 = keyl
GoTo belki
ay2:
y2 = keyl
GoTo belki
ay3:
y3 = keyl
GoTo belki
ay4:
y4 = keyl
belki:
LCDOut $fe, 214+kp, "*"
Pause 100
Next kp
IF (y1=y5) AND (y2=y6) AND (y3=y7) AND (y4=y Then art
GoTo yetki
art:
GoSub bitti
Return

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
basit bir şifre sorma alt programı ..
getkey ise tuşlardan bilgi alma alt programı...
şifreyi istediğiniz gibi şeçebilirsiniz..
ben bunu 16f877 ile yaptığım bir trafik cihazının yetki girişi için kullanıyorum.
şifre ok değilse silbaştan, ok ise döngü sonlanıyor ve diğer prg. satırları işlemeye devam ediyor.
tabii lcd define ları yapılmalı ancak yukardaki kod 4x16 lcd içindir.
214 $d6 ya eşittir. lcd 4. satır ($d0) dan başlar.
2 satırlı lcd için gerekli düzenlemeleri yapabilirsiniz.

< Bu mesaj bu kişi tarafından değiştirildi bilgeyazilim -- 5 Kasım 2006; 23:12:20 >
Bu mesaja 1 cevap geldi.

Y

yaramazcocuk35

19 yıl

Çavuş

eyw.. saolsunnn aradıkalrımı buldum gibiii ade size hayırlıı geceler alahın sefkatii üstünüzde ollsunnn

Bu mesaja 1 cevap geldi.

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

quote:

Orjinalden alıntı: yaramazcocuk35

eyw.. saolsunnn aradıkalrımı buldum gibiii ade size hayırlıı geceler alahın sefkatii üstünüzde ollsunnn

Allah razı olsun dostum. Bulduğuna sevindim.

Bu mesaja 7 cevap geldi.

M

memethemyn

19 yıl

Yüzbaşı

quote:

Orjinalden alıntı: İSKORPİT-X

"Devre PIC16F877 ile LM1036 entegresinin birleştirilmesiyle yapılmıştır. BASS,TIZ,DENGE,SES seviye ayarı LCD ekranda görsel olarak 15 ayrı kademeli bişimde yapılıyor.

< Resime gitmek için tıklayın >

Devre PIC16F877 ile LM1036 entegresinin birleştirilmesiyle yapılmıştır. BASS,TIZ,DENGE,SES seviye ayarı LCD ekranda görsel olarak 15 ayrı kademeli bişimde yapılıyor.Ayrıca bu devreye başka tonkontrol entegreleri kolayca adapte edilebilinir yada eqlayzer entegresi bağlanabilir. 4 ayrı kanallı herhangibi devre eklenebilinir.

Çalışma prensibi çok basit. 4 ayrı 4er bitlik dijital veri toplanıp analog sayıya dönüştürülüyor dirençlerin ortak çıkışlarında 0v...5v arası gerilim15 ayrı kademede veriliyor.bu gerilim tonkontrol entegresisnin seviye girişlerine uygulanıyor.LM1036 stero sesin tonunu analog gerilimle kontrol edebilen bir entegredir. seviye giriş vaoltajı 0v...5,4v dur. bu seviye pıc çıkışındaki gerilime uygundur.

ASM VE HEX dosyalarını , devre şemasını , proteus6.9 similasyonunu bu linkten indiriniz:
http://www.*******.com/download/1449171/pic_tonkontrol-2.zip.html

**** yerine hemen paylaş yazdım ama hemen paylaş kapanmış.. rapide yüklermisiniz dökümanlarını.. teşekkürler...

Bu mesaja 5 cevap geldi.

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

Arkadaşlar buyurun size internette bulduğum yaklaşık 15-20 kadar kayan yazı devresi ve programı. Malum, herkez her foruma üye olamıyor. Bende üye olduğum forumlardaki bulduklarımı sizlerle paylaşmak istedim. Satır tarama, sütun tarama ve çeşit çeşit entegreler ile yapılmış onlarca kayan yazı. Biraz karışık toplamış olabilirim. Siz istediğiniz gibi klasörlere ayırın. Bu kaynaklar internette gönüllü verilmiş kaynaklar. Hepinize kolay gelsin.

http://rapid-share.com/files/2193708/Kayan_Yaz__305_lar__305_m.rar.html

Not: - işaretini kaldırarak deneyiniz.

Unutmadan topiği baştan takip ederk gelinki, aralarda gerekli programları ve işe yarar örnekleri bulacaksınız. (mesela saat ve termometre örnekleri...)

< Bu mesaj bu kişi tarafından değiştirildi bilgeyazilim -- 6 Kasım 2006; 11:04:17 >
Bu mesaja 2 cevap geldi.

Z

zer0ne

19 yıl

Er

Selam Arkadaşlar. Öncelikle hepinize kolay gelsin. Malumunuz bir üniversiteyi bitirmek üzereyiz ve haliyle birde bitirme projesi aldık.
Kısaca bahsedeyim isterseniz.
Baskı devre çizen ve matkapla delen bir sistem kurmamız gerekiyor. Kalem renkleri ve matkap çapları birden fazla olacak şekilde tasarlanıyor. Hardware kısmında kontrolör olarak pic kullanıcaz.
Aynı zamanda Visual C#.Net ile bir arayüz tasarlamak istiyoruz. İşte bu noktada sizlerden yardım istediğim konu devreye giriyor.
1- Proteus vb. baskı devre çizim programlarıyla oluşturduğumuz devrenin kordinatlarını ( Yollar ve delinecek noktalar) elde edip C# ile rs232 aracılığıyla piclere göndermek istiyoruz. Bunun olabilirliği ve nasıl yapılabilceği konusunda fikir ve bilgilerinize ihtiyacımız var.
2- Birinci seçeneğin olabilirliği çok düşükse diye düşündüğümüz diğer bir alternatif ise Visual C# ile kendimizmi bir çizim programı yazalım. Daha mı kolay olur. Evet daha kolay olur diyen arkadaşlarım fazla sevinmeyin öyle derseniz çok başınızı ağrıtırım :) Ve yardım isterim.

Yardımcı olabilecek arkadaşlara şimdiden çok teşekkürler.
Selametle...

Bu mesaja 1 cevap geldi.

B

bilgeyazilim

19 yıl

Yüzbaşı

Konu Sahibi

Proteustan çizim için eğer varsa (okunuşu) ji (yazılışını bilmiyorum) kodlarının nasıl alındığını bilmiyorum. Bende kaç gündür bu dediğinizi yapmayı düşünüyordum. Ama bu işi yapabilmem için AUTOCAD düşünüyordum. PIC ve Visual C#.NET ile ilgili bir sorunum yok. AUTOCAD ide çizimin Ji kodlarını alabilecek derecede kullanmadım. Tam kullanıp PLC ile kafama göre bir CNC tezgahı yapacaktım ki, üniversite bitti

Sizin projeyi yapmayı düşünmemde tamamen ihteyacımdan dolayı. Bıktım delik delmekten

. Bir ay sonra nasipse askerim. Ama her izinde foruma girerim. Ve size seve sevede yardım ederim. Zaten banada lazım. Şunuda belirteyi, eğer askerlik olmasaydı, dediğiniz gibi basit bir çizim programınıda kendim yazardım. O zaman işler bir hayli kolaylaşıyor diye düşünüyorum. Çünkü kendi argoritmalarınızla uğraşacaksınız.

Bu yazdıklarıma göre bir fikir edin. AUTOCAD programına bir bak. Hatta bilenlerden yardım isteyelim burada. Olmadı başka bir program. Yok bizim zamanımız bol, eğleniyoruzda diyorsanız kesinlikle kendiniz yazın. Ama ileride piyasada iş görmek içinde önceki söylediğim seçenekleri gözden geçirin derim.

Bu arada hangi üniversite ve bölüm ?

Bu mesaja 1 cevap geldi.

Z

zer0ne

19 yıl

Er

İlgine teşekkür ederim. İstanbul Üniversitesi Elek-Elektronik Mühendisliğinde öğrenciyim. 4+1. senem :) Sitenizede baktım C# ile ilgilenmeniz ve bunu otomasyonla birleştirmeniz çok güzel orayda üye oldum fakat fazla aktif değil sanırsam.
Bu arada ji olarak nitelendirdiğin kodların ne olduğunu araştırcam şimdi. Autocad biliyorum biraz ama dediğim gibi daha önce bu tarz bi ihtiyacımız olmadığı için hiç araştırmadım. Kendimiz yazacak kadar bol zamanımız yok açıkcası. 11 ders alıyorum ve çok ağır derslerim var bu sebeple okulada yeterli zaman ayırmam gerekiyor. Ama bizim özellikle böyle bir çalışma yapma isteğimiz son senemiz, kaile alınır bir projeyle gelecek seneye sağlam bi backround oluşturalım istiyoruz.
Daha detaylı araştırmalaradevam edicem ihtiyacınız olduğunu belirtmişsiniz ve gelişmeleri burdan sizlere bildiririm.
Kolay gelsin.

Selametle...

< Bu mesaj bu kişi tarafından değiştirildi zer0ne -- 7 Kasım 2006; 16:08:33 >
Bu mesaja 1 cevap geldi.

T

tazmania_vn

19 yıl

Teğmen

hersey ıcın cok sagol zaten sıte sıte gezmekten pıc programlarını araya araya sıtelerı ezberlemıstım boyle daha ıyı oldu hersey bır elımızın altında olucak calısmların ıcın gercekten tesekkurler ve baska calısmaların ııcn de kolay gelsın

Bu mesaja 26 cevap geldi.