bu bölumde tersıne muhendıslık bıraz yapacagız.nasıl yapılmış ,bız yapsak nasıl yaparız ne ekleyebırırız öngörulerıyle projemızı olusturacagız.her seyden önce yayınlamış oldugum arastırmaları özumsemenız gereklıdır.programcılar acısından devrenın calışması anlasılmadan program yazılması .bır cuval samanda ıgne aramaya benzer.öncelıkle mcu vlf örneklerını yukleyıp ınceleyelım.
ben projede baslangıc olarak tgsl kullanmanın dogru olduguna ınanıyorum.semayı uygun sekılde revıze edıp hayata gecırelım ne dersınız.
ıdx vdı yazılımı yazdım kımseden ses cıkmadı .bak yaparım gösterırım vermem .öyle kalırsınız.
Hexi olan projeleri inceleyerek başlasak anlaması daha kolay olmaz mı?
Örneğin PIC16F628'li bu proje basit gözüküyor.
http://alltech.unoforum.ru/?0-0 (http://alltech.unoforum.ru/?0-0)
(https://www.teknolojiekibi.com/yeni/proxy.php?request=http%3A%2F%2Fi45.tinypic.com%2Fprk1v.jpg&hash=9efdf299c3a39cb342419f029ca03218516c9580)
list p=16f628A
#include p16f628A.inc
errorlevel -302 ; suppress message 302 from list file
__config _HS_OSC & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _BODEN_ON & _LVP_OFF & _CP_OFF & _CPD_OFF
d37 equ 0x37
d38 equ 0x38
d50 equ 0x50
d51 equ 0x51
d52 equ 0x52
d70 equ 0x70
d74 equ 0x74
d77 equ 0x77
d78 equ 0x78
d79 equ 0x79
d7A equ 0x7A
goto start
nop
nop
nop
nop
btfsc d79,7
goto L2
btfsc d78,4
goto L3
btfsc d78,1
goto L4
btfsc d78,2
goto L5
btfsc d78,3
goto L6
L2
btfsc d79,4
goto L7
btfsc d79,1
goto L8
btfsc d79,2
goto L9
btfsc d79,3
goto check_butons
start
clrf PORTA
bsf STATUS,RP0
movlw 0xA4
movwf TRISB
movlw 0x07
movwf TRISA
movlw 0x00
movwf OPTION_REG
bcf STATUS,RP0
clrf PORTA
clrf PORTB
movlw 0x01
movwf T1CON
clrf d77
clrf d78
clrf d79
clrf d7A
movlw 0x33
movwf CMCON
call pause_1s
clrf d37
clrf d38
btfss PORTB,2
goto L12
btfss PORTB,7
goto L12
movlw 0x00
call eeprom_read
movwf d70
movlw 0x00
xorwf d70,W
btfsc STATUS,Z
goto reset_190
movlw 0xFF
xorwf d70,W
btfsc STATUS,Z
goto reset_190
decf d70,F
L3: bsf PORTB,1
bcf d78,4
bsf d78,1
call setup_timer
loop: btfss PORTB,7
goto L16
btfss PORTB,2
goto L17
goto loop
L4: bsf PORTB,0
bcf d78,1
bsf d78,2
call setup_timer
btfss PORTB,5
goto beep3
goto $
L5: bcf PORTB,1
bcf d78,2
bsf d78,3
call setup_timer
goto $
L6: bcf PORTB,0
bcf d78,3
bsf d78,4
call setup_timer
goto L2122
wait_timer: goto $
wait_tmr2: goto wait_timer
wait_tmr3
bcf PORTB,3
clrf d38
bcf 0x36,1
goto wait_timer
setup_timer
movf d70,W
movwf TMR0
bcf INTCON,T0IF
bsf INTCON,GIE
bsf INTCON,T0IE
return
L2122
btfss CMCON,C2OUT
goto wait_tmr3
btfsc 0x36,1
goto L25
btfss d37,1
goto L25
incf d38,F
movlw 0xFA
xorwf d38,W
btfss STATUS,Z
goto wait_tmr2
bsf 0x36,1
L25:
btfsc CMCON,C1OUT
goto L900
btfss CMCON,C1OUT
goto L901
L901: btfsc d77,1
goto wait_timer
btfss PIR1,0
goto wait_timer
movlw 0x00
movwf TMR1L
movlw 0xCD
movwf TMR1H
bcf PIR1,0
btfsc d74,1
goto L902
bsf PORTB,3
bsf d74,1
goto wait_timer
L902: bcf PORTB,3
bcf d74,1
goto wait_timer
L900: btfss PIR1,0
goto wait_timer
movlw 0x00
movwf TMR1L
movlw 0xF5
movwf TMR1H
bcf PIR1,0
btfsc d74,2
goto L903
bsf PORTB,3
bsf d74,2
goto wait_timer
L903: bcf PORTB,3
bcf d74,2
goto wait_timer
L16:
bcf PORTB,0
bcf PORTB,1
bcf INTCON,GIE
call buton_plus_minus
btfsc d77,1
goto L904
btfss d77,1
goto L905
L904: bcf d77,1
call set_sound
call pause_100ms
call set_sound
call pause_1s
goto L3
L905: bsf d77,1
call set_sound
call pause_1s
goto L3
L17: bcf PORTB,0
bcf PORTB,1
bcf INTCON,GIE
call buton_plus_minus
btfsc d37,1
goto L36
btfss d37,1
goto L37
L36: bcf d37,1
call set_sound
call pause_100ms
call set_sound
call pause_1s
goto L3
L37: bsf d37,1
call set_sound
call pause_1s
goto L3
L12: call set_sound
call buton_plus_minus
state_begin
bsf d79,7
movlw 0x00
call eeprom_read
movwf d70
L7: bsf PORTB,1
bcf d79,4
bsf d79,1
call setup_timer
goto $
L8: bsf PORTB,0
bcf d79,1
bsf d79,2
call setup_timer
goto $
L9: bcf PORTB,1
bcf d79,2
bsf d79,3
call setup_timer
goto $
check_butons
bcf PORTB,0
bcf d79,3
bsf d79,4
call setup_timer
btfss PORTB,7
goto buton_plus
btfss PORTB,2
goto buton_minus
goto $
;-> L7
buton_plus
bcf INTCON,GIE
call set_sound
movlw 0xED
xorwf d70,W
btfsc STATUS,Z
goto L7
incf d70,F
movf d70,W
call save_ee00
goto L7
buton_minus
bcf INTCON,GIE
call set_sound
movlw 0x05
xorwf d70,W
btfsc STATUS,Z
goto L7
decf d70,F
movf d70,W
call save_ee00
goto L7
save_ee00
bsf STATUS,RP0
bcf STATUS,RP1
movwf EEDATA
movlw 0x00
movwf EEADR
call eeprom_write
movlw 0x00
call eeprom_read
movwf d70
return
reset_190
movlw 0xBE
call save_ee00
goto state_begin
buton_plus_minus
clrwdt
call pause_15ms
btfss PORTB,2
goto buton_plus_minus
btfss PORTB,7
goto buton_plus_minus
return
eeprom_read
bsf STATUS,RP0
movwf EEADR
bcf EECON1,WREN
bsf EECON1,RD
movf EEDATA,W
bcf STATUS,RP0
return
eeprom_write
movlw 0x00
movwf INTCON
bsf STATUS,RP0
bsf EECON1,WREN
movlw 0x55
movwf EECON2
movlw 0xAA
movwf EECON2
bsf EECON1,WR
bcf STATUS,RP0
btfss PIR1,EEIF
goto $-1
bcf PIR1,EEIF
clrf INTCON
clrf PIR1
bsf STATUS,RP0
clrf EECON1
clrf EECON2
bcf STATUS,RP0
call pause_100ms
call pause_100ms
return
set_sound
call set_pwm
call pause_15ms
call pause_15ms
clrf CCP1CON
bcf PORTB,3
return
beep3
bcf PORTB,0
bcf PORTB,1
bcf INTCON,GIE
call set_pwm
call pause_100ms
call pause_100ms
clrf CCP1CON
call pause_100ms
call set_pwm
call pause_15ms
call pause_15ms
clrf CCP1CON
call pause_100ms
call set_pwm
call pause_100ms
call pause_100ms
clrf CCP1CON
bcf PORTB,3
call pause_1s
call pause_1s
call pause_1s
goto L3
set_pwm
bsf STATUS,RP0
movlw 0xFF
movwf PR2
bcf STATUS,RP0
movlw 0x7D
movwf CCPR1L
movlw PORTB
movwf T2CON
movlw 0x0C
movwf CCP1CON
return
pause_1s ; 1037449.60us
movlw 0xC0
movwf d50
movwf d51
movlw 0x14
movwf d52
;
clrwdt
decfsz d50,F
goto loop_pause_100ms
decfsz d51,F
goto loop_pause_100ms
decfsz d52,F
goto loop_pause_100ms
return
pause_100ms ; 91880.80us
movlw 0xC0
movwf d50
movwf d51
movlw 0x02
movwf d52
loop_pause_100ms:
clrwdt
decfsz d50,F
goto loop_pause_100ms
decfsz d51,F
goto loop_pause_100ms
decfsz d52,F
goto loop_pause_100ms
return
pause_15ms
movlw 0xFF
movwf d50
movlw 0x49
movwf d51
loop_pause_15ms:
clrwdt
decfsz d50,F
goto loop_pause_15ms
decfsz d51,F
goto loop_pause_15ms
return
end
Bu arada mesaja dosya eklemek için yetki mi gerekiyor? Bana kapalı olduğu için bu şekilde gönderebildim.
bu tıp projelerde hazırı kullanmak yerıne ustune bırseyler koyup ortaya bılındık projelerden gıdersek ellerınde parca olanlar kullanabılsın
amacı tasıyorum.bır cok arkadasın sarılmıs bobınıde vardır.verdıgın lınkı bır arkadas guzelce ıncelerse makına ıyımıdır kotumudur sorunu nedır.verılen hexle calısmayacagı bellı zaten.mesele yazılım degıl analogta hata olmasın .fıkırlerınızı beklıyorum bır kac modelde calısırız problem degıl.
Bende bunu yapmaya karar verdim.
Andy_F nin şanse'den sonra en ciddiği VLF projesi
http://fandy.hut2.ru/Quasar/Quasar.html (http://fandy.hut2.ru/Quasar/Quasar.html)
mollax verdıgın lınkı ınceledım dedıgın gıbı cıddı calısma yapılmıs fakat semasını ındıremedım acılmadı.sana zahmet yuklersen sevınırım.
buyur arkadaş
bu linkten indirebilirsin
https://hotfile.com/dl/160416016/f0eb69e/quazar-vlf.zip.html (https://hotfile.com/dl/160416016/f0eb69e/quazar-vlf.zip.html)
selami vlf de sen nereye kadar geldin .prototıpın ne asamada bunları bır anlat .bunların ısıgında yenı projeler uretelım.
analog olarak benım bır projem var .testının ardından yayınlıycam.bu devre ıcın vdı projem var denencek .
tamam ustam ben önceden üzerinde çalıştığım vlf projemin şemasını müsait bir zamanda buraya ekleyeyim.
MErhaba Arkadaşlar,
Bu konuda beni de unutmayın. Seve seve elimi taşın altına koyarım.
Saygılar
TX bobindeki gücü hesaplayarak osilatör tasarlayanınız oldu mu? Ayrıca RLC osilatördeki C ve R leri anahtarlayarak değişken frekansta osilasyon ile aynı metalin farklı frekanslardaki tepkimeleri üzerinde çalışma yapan oldu mu?
Alıntı yapılan: Karadağ - 01 Temmuz 2012, 18:48:10
TX bobindeki gücü hesaplayarak osilatör tasarlayanınız oldu mu? Ayrıca RLC osilatördeki C ve R leri anahtarlayarak değişken frekansta osilasyon ile aynı metalin farklı frekanslardaki tepkimeleri üzerinde çalışma yapan oldu mu?
tx ıcın bobın hesabı yaptımda dedıgınden yapmadım.ben alaylı tasarımcıyım.olursa olur suyu,olmazsa bulgur suyu.
hesabı kıtabı sen yapcan ,onuda bız yaparsak sen ne yapcan. ppacv yuksek bır tx iş yapar.whıtesın,fısher tx ıyıdır.
ıstersen bır kac tx sımule edıp arasından secelım .
Varsa bildiğin sağlam osilatör spice analizini yapayım ben
ektekı oscler verımlıdır.sımılasyonlarada bakalım.
tüm bu devreler sıcaklık kompanzasyonu olmayan devreler bunlar ile dijital devre yapmak için her seferinde frekansı da ölçmek gerekecektir.
Alıntı yapılan: a.samet - 02 Temmuz 2012, 11:11:25
tüm bu devreler sıcaklık kompanzasyonu olmayan devreler bunlar ile dijital devre yapmak için her seferinde frekansı da ölçmek gerekecektir.
guzel konuya degındın.varmı sıcaklık kontrollu seman.
şema yok ama fikir var ilk fikir geri beslemeli osilatör yapmak ikincisi malzemeleri military class seçmek sonuncusu osilatörü mcudan yapmak.
Alıntı yapılan: a.samet - 02 Temmuz 2012, 13:57:15
şema yok ama fikir var ilk fikir geri beslemeli osilatör yapmak ikincisi malzemeleri military class seçmek sonuncusu osilatörü mcudan yapmak.
mcudan surmeyı uygulamıslıgım var o cepte zaten.geri beslemeli osc fıkrı guzel karadagı bıraz zorluyalım.fark anfili veya 4046 pll osc örnegı olan varsa onun uzerınden gıderız.sagolun arkadaslar guzel gıdıyoruz.
arge calısmaları ıcın frekans ayarlı tx surucu devresı yapılmalı.benım tarıflerımle yaptıgın devreyı herkesın kullanabılecegı modda duzenleyıp yayınla derım selami.mısal ıkı tusla artırma eksıltme ,hafızaya alma ,hafıza onayı ıcın led ıkaz ilk aklıma gelenler.mcu lu tx surucumuzu elımızde olan vlf devrelerı ıyılestırme ve denemeler ıcın kullanırız.senın baslangıc projen olsun.
ben bu gun antepten dönuyorum bursaya.netım baglanana kadar aranızda olmayabılırım .
zaten işin hoş olanı mcu ile sürmek ve bunu yaparken de rezonans kondansatörlerini güzel bir anahtar ile değiştirerek farklı frekanslar elde edebilmek. bu sayede aynı metalin farklı frekanslara tepkisi görülür ki bunu yaptınmı zaten denizli horozu gibi gezmeye hak kazanmışın demektir.
calısacagımız frekanslarıda sectıkmı .alıcı senkron dedektoru dusunebılırız.
s.a.
dalıştan şimdi geldim yalçın abi siteye bakam dedim,
sizin çok önceleri verdiğiniz tr ile yapılan vlf tx katını ben denedim güzel çalışıyor. yani pwm den verilen frekansa göre akort cond. ve bobin değerine uyumlu frekansta güzel sinüs oluşuyor, onda tek sıkıntı şu; frekans çok kritik, yani pwm de birkaç herztlik yüksek veya düşük olmasında sinüsün formu bozuluyor ama uyduğundada oluşan ac gayet güzel.şemayı müsait olur olmaz eklerim
Merhaba Arkadaşlar,
Öncelikle ne yapmak istediğimiz önemli. Bu osilatörlerin sıcaklık kompanzasyonu olmadığı doğru ama önelikle ne yapmak istiyoruz bu önemli. Bu osilatörleri kulanılan kondnsatölerini sıcaklık ile değişimi az olanlardan seçerek rahatlıkla kullanabiliriz(yani military class malzme ;) ) Ama bence hedef LC osilatörün C sini anahtarlayarak frekansı ayarlanabilen bir osilatör yapmak yada devre ile hiç uğraşmadan hazır bir entegre bulmak olmalı. Bunu yaparsak aynı metalin farklı frekanslardaki tepkisine bakarak çok daha net ayrım yapabiliriz. Ve bu ayrım birçok dedektör gibi hava ayrımı değil gerçek ayrım olabilir. Bu sıralar elim çok dolu olduğundan somut devre yapamıyorum.
Saygılar
s.a.
asekron ustam sizden aldığım TX katı ve işlemci ile oluşturduğum sinüs, ben bu şekilde devreyi dizayn ettim ve 1-1 çalıştı devre bir sorun yok,uyguladığım şemanın isis cizimi (simüle de görebilmeniz için)
[IMG]http://www.yukleresim.com/dt-COJ00P5Y.jpg[/img] (http://www.yukleresim.com/pt-COJ00P5Y.html)
http://www.dosya.tc/server17/ngHxlg/TXkat_.rar.html (http://www.dosya.tc/server17/ngHxlg/TXkat_.rar.html)