Profil: don.vito

D

don.vito (don vito)
Elektronik altına konu açtı.

16 yıl

Selamlar arkadaşlar, serin2 komutuyla başım dertte. 12F675 ve RF modüllü tek kanal verici-alıcı yaptım. Program normalde çalışıyor. Bunun yanında alıcıya artı olarak buton ekleyip, alıcıdaki ledi vericiden bağımsız kontrol etmeye çalışıyorum ama bir türlü başaramadım. Önce vericideki butona basmadan, alıcıdaki buton çalışmıyor. serin2 komutunu kaldırınca alıcıdaki buton normal çalışıyor. Yardım ederseniz sevinirim.
Kod:
verici:

@   device  pic12f675, intrc_osc_noclkout, wdt_on, pwrt_on, mclr_off, protect_off           
           cmcon = %00000111 
           ansel = 0 
           OPTION_REG.7=0 
           trisio = %111101 
            
           SYMBOL CIKIS=GPIO.1 
           SYMBOL TUS=GPIO.0 
             gpio=0  
              BILGI VAR Byte 
               
              PAUSE 200 
  BASLA: 
  BILGI=0 
      IF TUS=0 then 
      BILGI=1 
      GOSUB GONDER 
      WHILE TUS=0 :WEND 
      ENDIF 
             PAUSE 100 
             GOTO BASLA 
   
  GONDER: 
        serout2 CIKIS,396,[REP$AA\5,REP$00\5,REP$FF\5]  
        serout2 CIKIS,396,[("O"),("Z"),("B"),BILGI] 
        serout2 CIKIS,396,[("O"),("Z"),("B"),BILGI] 
        serout2 CIKIS,396,[("O"),("Z"),("B"),BILGI] 
          return 
  END

alıcı:

@   device  pic12f675, intrc_osc_noclkout, wdt_on, pwrt_on, mclr_off, protect_off 
           cmcon=%00000111 
           ansel=0 
           trisio=%000110 
           GPIO=0 
          BILGI VAR Byte 
          GIRIS VAR GPIO.1 
          LED VAR GPIO.0 
          TUS VAR GPIO.2 
          PAUSE 100         
  BASLA: 
  serIN2 GIRIS,396,1,ZAMAN,[WAIT ("OZB"),BILGI] 
      IF BILGI=1 then 
      TOGGLE LED 
      PAUSE 50 
      ENDIF 
  ZAMAN: 
      IF TUS=0 THEN 
      TOGGLE LED 
      WHILE TUS=0 :WEND 
      PAUSE 50 
      ENDIF 
      GOTO BASLA 
      END

şema:

http://img205.imageshack.us/my.php?image=semazd1.jpg

D

don.vito (don vito)
Teknik Yardım altına konu açtı.

17 yıl

pc açılma sorunu

selam arkadaşlar, bi sorum olucak. gece bilgisyarı kapatıp fişini çekiyorum, sabah açmak istediğimde yaklaşık 5 dakika sonra açılıyor. bazende düğmeye uzun basınca 1 dakika sonra kendiliğinden açılıyor. daha önce böyle bi sorun yoktu. neden kaynaklanıyor olabilir?

D

don.vito (don vito)
Elektronik altına konu açtı.

17 yıl

butonla kayan yazı

selam arkadaşlar, aşağıdaki linkte 16F84 kayan yazı uygulaması var, devrenin açıklamasında 250 karaktere kadar desteklediği yazıyor. devrenin bi özelliği pic'in sadece porta kısmı kullanılmış, portb boşta.
acaba kodları değiştirilerek, buton eklesek, kayan metni değiştirmek için. pic'i tekrar bilgisayarda programlamaya gerek kalmasa. bu yapılabilir mi? benim asm bilgim hiç yok (gerçi diğer dilleride bilmiyorum ya neyse) yardım edebilir misiniz? şimdiden teşekkürler. kolay gelsin....

devre indirme linki:

http://rapidshare.com/files/9963382/mdsp1503ds2-1.rar

http://www.transferbigfiles.com/Download.aspx?id=3a5ac6b2-4762-420e-94a5-af47b5bf2513

D

don.vito (don vito)
Elektronik altına konu açtı.

18 yıl

proteus ares yardımı

selamlar arkadaşlar, areste yaptığımız baskı devre çizimini, word'e nasıl atabiliriz?

D

don.vito (don vito)
Elektronik altına konu açtı.

18 yıl

proteus yardımı....

selam arkadaşlar, proteusta 16F84'le devre çizdim ama simule ederken şöyle hata veriyor, çözemedim

Instantiating SPICE models...
[U1] PIC16 model release 6.7 SP0 simulating PIC1684 device.
[U1] Loaded 64 bytes of persistent EEPROM data.
[U1] Loading HEX file 'LED.HEX'.
[U1] Read total of 360 bytes from file 'LED.HEX'.
[U1] Loaded 180 program words and 0 data bytes.
[SPICE] Error 106 - TRAN: Timestep too small; time = 0.015487, timestep = 1.25e-019: trouble with node "#00001"
.
Real Time Simulation FAILED.

pic hakkında pek bilgim yok, ne yapmam gerekir?

D

don.vito (don vito)
Elektronik altına konu açtı.

18 yıl

PICBasic pro yardımı...

selam arkadaşlar, elimde PICBasic pro dili kullanılarak yapılmış, PC'den rf sms devre şemaları var, devrenin alıcı kısmında 16F84 kullanılmış. PIC programı olarak;

Include "Modedefs.Bas" 'seri iletişim için gerekli

DEFINE LCD_EREG PORTB 'lcd enable biti b.3
DEFINE LCD_EBIT 3
DEFINE LCD_DREG PORTA 'lcd data bitleri a.0, a.1, a.2, a.3
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB 'lcd rs biti b.4
DEFINE LCD_RSBIT 4

TRISA=%00000000 'tirsA
PORTA=0
TRISB=%00100100 'trisB: b.2 ve b.5 giriş, diğerleri çıkış
PORTB=0

gelen var byte[32] 'gelen dizisi için 32 yer ayır
'CHR VAR BYTE '
i var byte 'for döngüleri için değişken

LCDOUT $FE ,1 ,"RF-SMS PROGRAMI" 'lcd 1. satıra RF-SMS PROGRAMI yaz
LCDOUT $FE ,$C0 ,"SADAN DONMEZ" 'lcd 2. satıra SADAN DONMEZ yaz
PAUSE 500 '500ms bekle
LCDOUT $FE ,1 'ekranı temizle
ANADONGU:

SERIN2 PORTb.2, 3313, [wait ("Q","Q","Q","Q",45,45,45,45), str gelen\32\"."]
'portb.2 den 300 baudrate ile önce QQQQ---- ifadesini bekler
'bu ifade gelmişse arkadan gelen karakterleri sırayla gelen dizisinin içine yazar
'. karakteri gelince okuma biter

SOUND PORTB.1,[119,30,0,13,119,30] 'portb.1'deki buzzerdan biiip-biipppp sesi çıkar

LCDOUT $FE ,1 ,"MESAJ GELDI" 'lcd'ye MESAJ GELDI yazdır
LCDOUT $FE ,$C0 ,"Oku" 'lcd 2. satıra Oku yazdır
PAUSE 500 '500 ms bekle

buton: 'bekle rutini
if portb.5=1 then buton 'portb.5 deki okuma butonuna basılıncaya kadar bekle

LCDOUT $FE ,1 'lcd ekranı temizle
for i=0 to 31 'sırayla
LCDOUT gelen 'gelen dizisindeki verileri yaz

if i=15 then 'indis 15 olduysa
LCDOUT $FE ,$C0 'lcd'de 2. satıra geç
endif

NEXT i

GOTO ANADONGU 'tekrar başa dön

END

yazılmış, acaba doğru yazılmış mı? doğruysa bunu Hex'e nasıl çevirebilirim? yada çevirip burada paylaşabilir misiniz? Pic programlama dillerini hiç bilmiyorum yardım ederseniz sevinirim...

D

don.vito (don vito)
Elektronik altına konu açtı.

18 yıl

seriport ve pic 16F84

pic'le (16F84) winamp kontrol projesini yapmak istiyorum ama pic'i harici beslemeyle değil de seri porttan beslemeyi nasıl yapabilirim acaba?

D

don.vito (don vito)
Elektronik altına konu açtı.

18 yıl

16F84

Elinde 16f84 devre örnekleri olan varsa paylaşabilir mi acaba? amatör olarak ilgileniyorum, her türlü devre olabilir pic'i öğrenmek istiyorum (özellikle 16F84)... teşekkürler...

D

don.vito (don vito)
Elektronik altına konu açtı.

18 yıl

Selam arkadaşlar...

merhabalar arkadaşlar, ben turizm ve otel işletmeciliği son sınıftayım, hobi olarak elektronikle uğraşıyorum. küçük, basit, kibrit kutusuna yada daha büyük boyutta bir kaba sığacak, sıkıcı derslerde zaman geçirtecek bir devre yapmak istiyorum ama aklıma birşey gelmiyor. düşüncesini paylaşmak isteyen var mı?
çokta önemli değil ama elektronik bişeyler yapmak istiyorum takılıp kalıyorum ne yapim ne yapim diye.

(kayan yazı devresi yaptım ama sigara kutusundan biraz daha büyük boyutta oldu, fakat istenen yazının yazılması için PC'ye ihtiyaç olduğu için kullanışlı olmadı. klavyeli yapim dedim devrenin boyutu klavyeyle eşit oldu:))