chailuck
Üye
- Katılım
- 27 Eyl 2008
- Mesajlar
- 15
- Puanları
- 1
arkadaşlar merhaba,
ilk önce bir uyarı ile başlamak istiyorum: lütfen bu devreyi ticari amaç ile kullanmayınız !
evet devre tarafımdan denemiştir.
dosya içerisinde
birçok resim, proteus 7.4 isis ares dosyları ve bir adet video bulunuyor.
şimdi biraz açıklama yapayım.
tpic kullanmayan arkadaşlar için bunun nasıl bir avantaj olduğunu şöyle anlatmak uygun olur: büyük displaylar pahalıdır, normal boydaki bir 7 seg. displayin tanesını 10 kuruşlara bulabilirken 100mm civarındakileri ise 1-2 dolarlara sattın alırız.
bu kadar para verdiğimiz bir displayı ise tarama metodu ile parlaklıgından ve performansından çalarak kullanırsak sanırım gulerler bıze =))
cunku o kadar para bosa gıder daha uygun fıyatlı dısplaylar kullanmak daha mantıklı olur.
ayrıca bır shıft regıster olan bu entegre segman basına 150mA gıbı bır surme akımına sahıptır.
arkadaşlar ayrıca belirteyim ki tüm ön dirençler 330 ohm.
j1 ve j2 birbirine paraleldir aynından bir tane daha yapılıp sırt sırta yapıştırılabılsın ve kolay olsun dıye..
belirtmem gereken bir nokta daha var oda j1 e bakarak okursanız daha ıyı anlasılır,
j1 de 7 tane pın vardır.
gnd den baslayarak
GND
+5v (tpic için )
+12v ( displaylar için )
CLK ( clock pals )
RCL ( işlemcide hıgh yapılmıs bır pıne yada dogrudan +5v ye baglanacak )
STR (aktarma strobe )
SDI ( serial data input )
bağlantılar bu şekildedir, yapan arkadasa sımdıden basarılar=)
deneme içinde basic open source code aşağıdadır.
ha arkadaslar bu arada bır tesekkuru cok gormeyın
TRISB=0
OPTION_REG.7=0
SYMBOL CLK=PORTB.0
SYMBOL DTA=PORTB.4
SYMBOL AKTAR=PORTB.2
'****************************************************************
BR VAR BYTE
ONL VAR BYTE
YZ VAR BYTE
BN VAR BYTE
AA VAR BYTE
CLEAR
'****************************************************************
TEKRAR:
BR=BR+1
IF BR=10 THEN BR=0 : ONL=ONL+1
IF ONL=10 THEN ONL=0 : YZ=YZ+1
IF YZ=10 THEN YZ=0 : BN=BN+1
IF BN=10 THEN BN=0
PAUSE 500
GOSUB DISPLAY
GOTO TEKRAR
'****************************************************************
DISPLAY:
LOOKUP BR,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
LOOKUP ONL,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
LOOKUP YZ,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
LOOKUP BN,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
HIGH AKTAR : PAUSEUS 1 : LOW AKTAR
RETURN
ilk önce bir uyarı ile başlamak istiyorum: lütfen bu devreyi ticari amaç ile kullanmayınız !
evet devre tarafımdan denemiştir.
dosya içerisinde
birçok resim, proteus 7.4 isis ares dosyları ve bir adet video bulunuyor.
şimdi biraz açıklama yapayım.
tpic kullanmayan arkadaşlar için bunun nasıl bir avantaj olduğunu şöyle anlatmak uygun olur: büyük displaylar pahalıdır, normal boydaki bir 7 seg. displayin tanesını 10 kuruşlara bulabilirken 100mm civarındakileri ise 1-2 dolarlara sattın alırız.
bu kadar para verdiğimiz bir displayı ise tarama metodu ile parlaklıgından ve performansından çalarak kullanırsak sanırım gulerler bıze =))
cunku o kadar para bosa gıder daha uygun fıyatlı dısplaylar kullanmak daha mantıklı olur.
ayrıca bır shıft regıster olan bu entegre segman basına 150mA gıbı bır surme akımına sahıptır.
arkadaşlar ayrıca belirteyim ki tüm ön dirençler 330 ohm.
j1 ve j2 birbirine paraleldir aynından bir tane daha yapılıp sırt sırta yapıştırılabılsın ve kolay olsun dıye..
belirtmem gereken bir nokta daha var oda j1 e bakarak okursanız daha ıyı anlasılır,
j1 de 7 tane pın vardır.
gnd den baslayarak
GND
+5v (tpic için )
+12v ( displaylar için )
CLK ( clock pals )
RCL ( işlemcide hıgh yapılmıs bır pıne yada dogrudan +5v ye baglanacak )
STR (aktarma strobe )
SDI ( serial data input )
bağlantılar bu şekildedir, yapan arkadasa sımdıden basarılar=)
deneme içinde basic open source code aşağıdadır.
ha arkadaslar bu arada bır tesekkuru cok gormeyın
TRISB=0
OPTION_REG.7=0
SYMBOL CLK=PORTB.0
SYMBOL DTA=PORTB.4
SYMBOL AKTAR=PORTB.2
'****************************************************************
BR VAR BYTE
ONL VAR BYTE
YZ VAR BYTE
BN VAR BYTE
AA VAR BYTE
CLEAR
'****************************************************************
TEKRAR:
BR=BR+1
IF BR=10 THEN BR=0 : ONL=ONL+1
IF ONL=10 THEN ONL=0 : YZ=YZ+1
IF YZ=10 THEN YZ=0 : BN=BN+1
IF BN=10 THEN BN=0
PAUSE 500
GOSUB DISPLAY
GOTO TEKRAR
'****************************************************************
DISPLAY:
LOOKUP BR,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
LOOKUP ONL,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
LOOKUP YZ,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
LOOKUP BN,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],AA
SHIFTOUT DTA,CLK,1,[AA]
HIGH AKTAR : PAUSEUS 1 : LOW AKTAR
RETURN
