proton basic sd kart kodu

 


Proton basic sd kart uygulaması örnek kodlar ve dokümanı aşağıdaki linkten indiriliebilir.:

https://drive.google.com/file/d/1vx1Pq2zB1WFzBxl9psjUuUWb6yNXrExB/view?usp=sharing

Ayrıca antrak.org sd karttan proton basic ile waw dosyası çalma örnekleri:

 18F4620 ile SD Kart Kullanarak WAV Player Program

mp3.jpg 18F4620 ile SD Kart Kullanarak WAV Player Program

Yazar: Tarık Konca

Mikro denetleyici uygulamalarında bence en mantıklı olan son çözüm sd (mmc) kart kullanmak. Daha önceki yazımda i2c eeprom kullanmıştım. 24C512 kolay bulunabiliyor.
Daha yüksek hafızası olan 24C serilerinden 8196 kadar var fakat zor bulunuyor ve fiyat hafıza karşılaştırması yapıldığında SD kart her zaman daha avantajlı. SD kart kullanmanın tek dezavantajı sd kart yuvasının zor bulunması ve 15 lira civarında olması. SD kart yuvasını yeni aramaktansa USB den kullanılan sd kart okuyucu alıp kart yuvasını sökmek daha iyi bir çözüm. Yada eski PC boardlarına bulunan isa kart yuvasını sokup keserek kullanabilirsiniz

Aslında mikro denetleyici ile hard disk okunup yazılabiliyor. Fakat bu tip bir uygulamada sadece hard disk bağlantısı için 30 yakin port kullanılıyor. PCB çizimi zor ve uğraştırıcı ayrıca hard disk çalışırken sd karta göre çok fazla güç harcıyor.

SD kart wav player uygulamasında proton basic , Swordfish basic ve mikro basic derleyicileri kullandım.
ccs c ve ansii c tabanlı diğer diğer derleyiciler için olan SD kart kütüphanelerini denedim fakat tam net sonuçlar alamadım. Bazıları SD kartı kurarken bazıları da fat dosya sisteminden okurken hata verdi fakat proton , Swordfish ve mikro basic derleyicilerinde herhangi bir sorun olmadı.
Mikro basic de SD kartı kurarken devreye ilk elektrik bağlantısı yapıldığında kuramıyor fakat mclr ucuna bağlayacağınız reset tuşuna bastığınızda kuruyor fat okumada sorun yok.

Program mikro denetleyicinin donanımsal spi veri yolu üzerinden sd(mmc) kartı kurar ve verilen dosya ismindeki dosyayı fat dosya sisteminde bulup ilk baytından okumaya başlayıp
portd ye okunan baytı eşitler. Portd üzerine bağlayacağınız r2r devreside dijital bilgiyi analog bilgiye dönüştürür. Sesi dinlemek için lm386’lı basit yükselteç yapmanız gerekiyor. Programda dosya sonu kontrolü vardır. Mikro denetleyicide 10 mhz kristal kullanılıp x4 pll açılıp mikro denetleyici 40 mhz de çalıştırılmıştır. Kullanılan komutlarla ilgili açıklama yazmadım derleyicilerin yardım dosyalarında açıklamalar var.

Proton basic’de dahili sd kart ve fat kütüphanesi bulunmuyor. Derleyicinin sitesinde plugin olarak veriliyor. Sitesinden gerekli plugini ve plugin için gerekli eklentileri kurmanız gerekiyor. Swordfish ve mikro basicde bu sorun yok. Dosya isimleri program ve sd kart üzerinde 7 karakter nokta wav formatında olmalı ve büyük harflerle yazılmalıdır. SD kartınızı fat olarak formatlamalısınız. Ses dosyasının formatı 8 bit 8 khz pcm mono olmalıdır. Ses dosyası formatını hazırlamakla ilgili Antrak Gazetesi temmuz 2012 sayısındaki yazımı okuyunuz.

Proton Basic Kodları:

Reminders = OFF
Device = 18F4620
Xtal = 10
PLL_Req = TRUE
TRISA=0
All_Digital = TRUE
TRISD=0
Symbol SD_CS = PORTC.2 ‘SPI CS to SD CS (SD pin 1)
Symbol SD_DI = PORTC.5 ‘SPI DO to SD DI (SD Pin 2)
Symbol SD_CLK = PORTC.3 ‘SPI CLK to SD CLK (SD Pin 5)
Symbol SD_DO = PORTC.4 ‘SPI DI to SD DO (SD Pin 7)
Include “mmc_lib.pbp” ‘Include managed library file
Dim Response As Byte
DelayMS 200
Main_Prog:

Repeat
Response = SD_Init_FS_MSSP SD_SPI_FOSC_04
Until Response = 0
winamp:
SD_File_Name = “WINAMP_”
SD_File_Ext = “WAV”
Response = SD_Open_File
If Response = 1 Then
Stop
EndIf
PORTA.0=1
While SD_EOF < 1
PORTD = SD_Read_Byte_From_File
DelayUS 115
Wend
Finish:
PORTA.0=0
Stop
Swordfish Basic Kodları:

//Device = 18F452
Device = 18f4620
Clock = 40

Config OSC = HSPLL ‘ Set 4x PLL on (10 MHz crystal * 4x = 40 MHz)
#option SD_SPI = MSSP // use hardware SPI
Include “SDFileSystem.bas”
TRISD = 0
PORTD = 0
DelayMS (1000)
If SD.Init(spiOscDiv4) Then
If SD.OpenFile(“WINAMP_.WAV”) = errOK Then
Repeat
PORTD = SD.ReadByte()
DelayUS (115)
Until SD.EOF
SD.CloseFile
EndIf

Dur:
Goto dur

EndIf

Mikro Basic Kodları:

program mmc_kart
dim
Mmc_Chip_Select as sbit at LATC2_bit ‘ for writing to output pin always use latch (PIC18 family)
Mmc_Chip_Select_Direction as sbit at TRISC2_bit
dim filename as string[14] ‘ File names
dim character as byte
dim size as longint
dim sure as word
main:
trisa=0
porta=0
ADCON1 = ADCON1 or 0x0F ‘ Configure AN pins as digital
‘CMCON = CMCON or 7 ‘ Turn off comparators
trisd=0
SPI1_Init_Advanced(_SPI_MASTER_OSC_DIV4 , _SPI_DATA_SAMPLE_MIDDLE, _SPI_CLK_IDLE_LOW, _SPI_LOW_2_HIGH)
delay_ms (2000)
basla:
if Mmc_Fat_Init() = 0 then
PORTA = 1
goto devam
end if

porta.2=1
delay_ms (500)
porta.2=0
delay_ms (500)
goto basla

devam:

Mmc_Fat_Reset(size)
filename = “WINAMP_.WAV”
Mmc_Fat_Assign(filename, 0)
Mmc_Fat_Reset(size)
while size > 0
portd = character
delay_us (115)
Mmc_Fat_Read(character)
Dec(size)
wend
porta=0

dur:
goto dur

end.

Kullanılan komutlar ve gerekli devre bağlantıları ile açıklamaları derleyicilerin yardim dosyalarında vardır. Yazıda anlatılan komutlarla ve derleyicilerle yapılan wav player uygulamalarını deney setimde denedim. Her hangi bir sorun olmadan çalıştı. r2r nin bağlantı şekli Antrak Gazetesi ağustos 2012 sayısında ki yazımda var.

Yazar: Tarık Konca

Yorumlar

Popüler Yayınlar:

grup priz ara kablo yapımı

gsm sinyal seviyesi asu dbm nedir

chrome ile programsız video nasıl indirilir

dc motor yönü değiştirme devresi

elektrikli fırın devre bağlantı şeması

fm radyo alıcı