اطلاعیه

Collapse
No announcement yet.

ساخت فایل TXT در مموری اس دی با AVR

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    ساخت فایل TXT در مموری اس دی با AVR

    سلام دوستان میخوام اطلاعات دما و تاریخ و ساعت رو به صورت یک فایل TXT در مموری ذخیره کنم. از مهندسین محترم میخوام هرچی بلدن بذارن تو انجمن. پیشاپیش هم از همکاریتون تشکر میکنم.
    I WORK HARDLY AND I HAVE BIG DREAMS

    #2
    پاسخ : ساخت فایل TXT در مموری اس دی با AVR

    نوشته اصلی توسط meysamjet
    سلام دوستان میخوام اطلاعات دما و تاریخ و ساعت رو به صورت یک فایل TXT در مموری ذخیره کنم. از مهندسین محترم میخوام هرچی بلدن بذارن تو انجمن. پیشاپیش هم از همکاریتون تشکر میکنم.
    سلام با چه زبون برنامه نویسی ای ؟ چون من با بیسیک بلدم و می تونم آموزش کامل بدم در مورد این قضیه :mrgreen:
    اما سی اصلا نه > :cry2:

    sigpic

    دیدگاه


      #3
      پاسخ : ساخت فایل TXT در مموری اس دی با AVR

      منم بیسیک میخوام
      I WORK HARDLY AND I HAVE BIG DREAMS

      دیدگاه


        #4
        پاسخ : ساخت فایل 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

        دیدگاه


          #5
          پاسخ : ساخت فایل TXT در مموری اس دی با AVR

          با زبان بیسیک کار خیلی آسان است با توجه به avr-dos که به صورت رایگان برای bascom موجود در مراحل زیر توضیح می دم
          1:وصل کردن درست سوکت مموری به پورت spi میکرو (mosi miso sck) به صورت پیشفرض با spi سخت افزاری کار می کند
          2:حتما به خاطر داشته باش که از مموری زیر 2G استفاده کنی چون بیشتر از این رو ساپرت نمی کنه و حتما هم قبل از هر کاری اون فرمت کن
          3:بعد از طریق فرمان های خود avr-dos میتونی تقریبا همه کار بکنی مثل:ایجاد فایل - پاک کردن فایل با هر پسوندی ایجاد فولدر و ...
          hellp خود bascom از همه چیز بهتر اون و بخون باز اگه مشکلی بود در خدمتم :rolleyes:

          دیدگاه

          لطفا صبر کنید...
          X