سلام دوستان میخوام اطلاعات دما و تاریخ و ساعت رو به صورت یک فایل TXT در مموری ذخیره کنم. از مهندسین محترم میخوام هرچی بلدن بذارن تو انجمن. پیشاپیش هم از همکاریتون تشکر میکنم.
اطلاعیه
Collapse
No announcement yet.
ساخت فایل TXT در مموری اس دی با AVR
Collapse
X
-
پاسخ : ساخت فایل TXT در مموری اس دی با AVR
نوشته اصلی توسط meysamjetسلام دوستان میخوام اطلاعات دما و تاریخ و ساعت رو به صورت یک فایل TXT در مموری ذخیره کنم. از مهندسین محترم میخوام هرچی بلدن بذارن تو انجمن. پیشاپیش هم از همکاریتون تشکر میکنم.
اما سی اصلا نه > :cry2:
sigpic
-
پاسخ : ساخت فایل TXT در مموری اس دی با AVR
اگر در قسمت کانفیگ و سخت افزار مشکلی نداری از کد زیر استفاده کن
در قسمت 4 یک فایل متنی ساخته شده و اطلاعاتی داخلش نوشته میشه
منبع سایت یزد کیت است.
کد:'*********************************************************** 'besmellahe rahmane rahim * 'in barname az site yazdkit.com download shode ast * '*********************************************************** '*********************************************************** 'Website : Http://www.yazdkit.com * 'Email: info@yazdkit.com * ' * ' * 'other our website: * 'Http://Planet.yazdkit.com * 'Http://Video.yazdkit.com * 'http://admin.yazdkit.com * ' * 'Ver Of Compailer : 1.11.9.8 * ' * 'Ba tashkor az aghay : aminchiz * 'dars 4 * '*********************************************************** ' '------------------------------------------------------------------------------- $regfile = "mm128def.dat" $crystal = 11059200 'outpt crystal is better ' $hwstack = 150 ' default use 32 for the hardware stack $swstack = 100 ' default use 10 for the SW stack $framesize = 360 ' default use 40 for the frame space '------------------------------- glcd ------------------------------------------ $lib "glcdKS108.lib" Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Porta , Cd = 2 , Rd = 7 , Enable = 6 , Ce2 = 5 , Ce = 4 , Reset = 3 'The dataport is the portname that is connected to the data lines of the LCD 'The controlport is the portname which pins are used to control the lcd 'CE =CS1 Chip select 'CE2=CS2 Chip select second chip 'CD=Data/instruction 'RD=Read 'RESET = reset 'ENABLE= Chip Enable Config Pinb.4 = Output Led_mmc Alias Portb.4 '*****************************************dim************************************************ Dim Eror As Byte , Temp1 As Byte Dim S As String * 60 , Fl As String * 12 , Ff As Byte Dim B As Byte Dim L As Byte Dim H As Byte Dim Diskf_yazdkit As Long Dim Disks_yazdkit As Long Dim Size_si As Single Dim Size_st As String * 20 Dim Z1 As String * 1 Dim Z4 As String * 4 '***************************************library*********************************************** 'وارد کردن برنامه 'گاین فایل ها باید در کنار فایل اصلی قرار بگیرد $include "CONFIG_AVR-DOS.Bas" $include "config_mmc.bas" '******************************************************************************************** '=============================================================================== '=============================================================================== '=============================================================================== '=============================================================================== '=============================================================================== '********************************************************************************************* Cls Showpic 0 , 0 , Besm Wait 5 Cls Initlcd Setfont Font8x8 Cls Lcdat 2 , 1 , "www.yazdkit.com " , 1 Lcdat 6 , 1 , "info@yazdkit.com" , 1 Wait 5 Cls Lcdat 1 , 1 , " AVR-DOS Library" , 1 Lcdat 5 , 40 , "ver= " ; Ver() Wait 5 Cls '********************************************************************************************* Ff = Drivereset() Ff = Driveinit() '********************************************************************************************* Lcdat 1 , 1 , "Set Port & Reset" , 1 If Drivecheck() <> 0 Then Lcdat 3 , 1 , "Card drive is" Lcdat 5 , 1 , "not ready to use" End End If Lcdat 5 , 1 , "Card drive is OK" '********************************************************************************************* Wait 4 Cls '********************************************************************************************* Lcdat 1 , 1 , " Check Driver " , 1 If Driveinit() <> 0 Then ' Print "Card not inserted, check Card!" 'مرحله 2 Lcdat 3 , 1 , " Card not " Lcdat 5 , 1 , " inserted" Lcdat 7 , 1 , " Check Card!" End End If Lcdat 5 , 1 , "Drive cheked Ok" '********************************************************************************************* Wait 7 Cls '********************************************************************************************* Lcdat 1 , 1 , "Init File System" , 1 'مرحله 3 If Initfilesystem(1) <> 0 Then Lcdat 3 , 1 , "File system is" Lcdat 4 , 1 , "not suported" End End If Lcdat 5 , 1 , "File system is" Lcdat 7 , 50 , "OK" Wait 2 '********************************************************************************************* Disks_yazdkit = Disksize() Diskf_yazdkit = Diskfree() Cls Size_si = Disks_yazdkit Size_si = Size_si / 1000 Size_st = Fusing(size_si , "#.##") Lcdat 1 , 1 , " MMC SIZE " , 1 Lcdat 3 , 1 , "D_size=" Lcdat 3 , 58 , Size_st Lcdat 3 , 120 , "M" Size_si = Diskf_yazdkit Size_si = Size_si / 1000 Size_st = Fusing(size_si , "#.##") Lcdat 5 , 1 , "D_free=" Lcdat 5 , 58 , Size_st Lcdat 5 , 120 , "M" Size_si = Disks_yazdkit - Diskf_yazdkit Size_si = Size_si / 1000 Size_st = Fusing(size_si , "#.##") Lcdat 7 , 1 , "D_use=" Lcdat 7 , 50 , Size_st Lcdat 7 , 120 , "M" Wait 9 S = "besmellahe rahmane rahim" Ff = Freefile() Open "Yazdkit.txt" For Output As #ff Print #ff , S S = "www.yazdkit.com" For L = 0 To 10 Print #ff , S Next L Close #ff Setfont Font16x16 Lcdat 1 , 1 , " " , 1 Lcdat 3 , 1 , " FINISH " , 1 Lcdat 5 , 1 , " " , 1 Lcdat 7 , 1 , " 4 " , 1 '********************************************************************************************* End Besm: $bgf "besmellah.bgf" $include "font16x16.font" $include "font8x8.font" '-------------------------------------------------------------------------------
sigpic
دیدگاه
-
پاسخ : ساخت فایل TXT در مموری اس دی با AVR
با زبان بیسیک کار خیلی آسان است با توجه به avr-dos که به صورت رایگان برای bascom موجود در مراحل زیر توضیح می دم
1:وصل کردن درست سوکت مموری به پورت spi میکرو (mosi miso sck) به صورت پیشفرض با spi سخت افزاری کار می کند
2:حتما به خاطر داشته باش که از مموری زیر 2G استفاده کنی چون بیشتر از این رو ساپرت نمی کنه و حتما هم قبل از هر کاری اون فرمت کن
3:بعد از طریق فرمان های خود avr-dos میتونی تقریبا همه کار بکنی مثل:ایجاد فایل - پاک کردن فایل با هر پسوندی ایجاد فولدر و ...
hellp خود bascom از همه چیز بهتر اون و بخون باز اگه مشکلی بود در خدمتم :rolleyes:
دیدگاه
دیدگاه