Mcu vlf projesi

[asenkron]

  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.
Linkback: Mcu vlf projesi

[asenkron]

  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.

[ahmets]

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

Kod Seç Genişlet


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.

[asenkron]

   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.

[mollax]

Bende bunu yapmaya karar verdim.
Andy_F nin şanse'den sonra en ciddiği VLF projesi
http://fandy.hut2.ru/Quasar/Quasar.html

[asenkron]

  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.

[mollax]

buyur arkadaş
bu linkten indirebilirsin
https://hotfile.com/dl/160416016/f0eb69e/quazar-vlf.zip.html

[asenkron]

   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 .

[pro-TR]

tamam ustam ben önceden üzerinde çalıştığım vlf projemin şemasını müsait bir zamanda buraya ekleyeyim.

[Karadağ]

MErhaba Arkadaşlar,

Bu konuda beni de unutmayın. Seve seve elimi taşın altına koyarım.

Saygılar

[Karadağ]

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?

[asenkron]

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 .

[Karadağ]

Varsa bildiğin sağlam osilatör spice analizini yapayım ben

[asenkron]

   ektekı oscler verımlıdır.sımılasyonlarada bakalım.

[a.samet]

tüm bu devreler sıcaklık kompanzasyonu olmayan devreler bunlar ile dijital devre yapmak için her seferinde frekansı da ölçmek gerekecektir.

[asenkron]

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.

[a.samet]

şema yok ama fikir var ilk fikir geri beslemeli osilatör yapmak ikincisi malzemeleri military class seçmek sonuncusu osilatörü mcudan yapmak.

[asenkron]

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

[a.samet]

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.

[asenkron]

  calısacagımız frekanslarıda sectıkmı .alıcı senkron dedektoru dusunebılırız.