Yeni Kayıt
Konudaki Resimler
önceki
|
|
_____________________________
|
Hızlı 
Bildirim
***/// PIC DÖKÜMANLARI-PROGRAMLARI \\\*** Güncellenmektedir... (3. sayfa)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
3 Misafir (1 Mobil) - 2 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
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 > -
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..._____________________________ Yenilgiyi kabul et ama asla PES etme.
-
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.
Daha gelişmiş programcıların linklerini de yavaş yavaş koyarız._____________________________ -
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..._____________________________
-
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 _____________________________ -
İ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_____________________________ Yenilgiyi kabul et ama asla PES etme. -
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..... _____________________________ -
hemen paylaşta bir alay dosya vardı hiç olmuş... 
_____________________________ -
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._____________________________ Yenilgiyi kabul et ama asla PES etme. -
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. _____________________________ -
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[simage][/simage]
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 >_____________________________ Yenilgiyi kabul et ama asla PES etme.
-
eyw.. saolsunnn aradıkalrımı buldum gibiii ade size hayırlıı geceler alahın sefkatii üstünüzde ollsunnn _____________________________ -
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.
_____________________________ Yenilgiyi kabul et ama asla PES etme. -
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.
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..._____________________________ şu an askerdeyim... 6. J. KMD. ALAY K.LIĞI / KIRKAĞAÇ
-
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 >_____________________________ Yenilgiyi kabul et ama asla PES etme.
-
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...
-
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 ?_____________________________ Yenilgiyi kabul et ama asla PES etme.
-
İ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 > -
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
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
