***/// PIC DÖKÜMANLARI-PROGRAMLARI \\\*** Güncellenmektedir... (3. sayfa)

quote:

Orijinalden alıntı: bilgeyazilim

quote: Orjinalden alıntı: Elektron74 152 sütundan 96 sütuna düşürdünüz öylemi. Ekran tarama kısmını asm ile yazsanız sanırım problem gidecek gibi geliyo bana. Programda en çok zaman kaybına sebep olan kısım burası.

Hocam ASM yi 2 yıl önce bıraktım. Ama haklılık payınız yüksek.

Alıntıları Göster

quote:

Orijinalden alıntı: karauydu

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

quote:

Orjinalden alıntı: karauydu

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

quote:

Orijinalden alıntı: bilgeyazilim

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...

Alıntıları Göster

quote:

Orijinalden alıntı: bjv16

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.

Alıntıları Göster

quote:

Orijinalden alıntı: r2d2droids

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...

Alıntıları Göster

quote:

Orijinalden alıntı: bilgeyazilim

İ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

quote:

Orijinalden alıntı: yaramazcocuk35

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.....

Alıntıları Göster

quote:

Orijinalden alıntı: yaramazcocuk35

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.....

Alıntıları Göster

quote:

Orijinalden alıntı: bilgeyazilim

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.

Alıntıları Göster

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[image][/image]

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.

quote:

Orijinalden alıntı: bilgeyazilim

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[image][/image] 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.

quote:

Orijinalden alıntı: yaramazcocuk35

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

Alıntıları Göster

quote:

Orjinalden alıntı: yaramazcocuk35

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

quote:

Orijinalden 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.***hemenpaylas.com/download/1449171/pic_tonkontrol-2.zip.html

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

quote:

Orijinalden alıntı: bilgeyazilim

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...)

quote:

Orijinalden alıntı: zer0ne

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...

Alıntıları Göster

quote:

Orijinalden alıntı: bilgeyazilim

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 ?

Alıntıları Göster

quote:

Orijinalden alıntı: zer0ne

İ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...

Alıntıları Göster