ایجاد فایل بر روی MMC با فرمت Fat16

[FAM]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

نمو نه ی برنامه ی من
Ff = Freefile()

Open "Image1.Bmp" For Binary As #ff
For I = 1 To 1078
Get #ff , B
Next I
X = 1
Y = 128
While Eof(#ff) = 0
Do
For X = 1 To 128
Get #ff , Bmp
Gosub Color_bmp
Pset X , Y , Bmp '_data
Next X
X = 1
If Y = 1 And X = 1 Then Exit Do
Decr Y
Loop
Exit While
Wend

[alitaroosheh]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

عکسهای فرمت دیکه لایه لایه هستن ولی bmp نه یه لایست
واسه همین حجم bmp زیاده

توی مد هشت بیتی با استاندارد rgb سه بیت از 8 تا قرمز سه تا سبز و دو تا آبیه

برنامه تون یکم دستکاری لازم داره
یه زمان روش کار میکردم الان یه عالم سورس در هم بر هم دارم نمیدونم چی به چیه ولی پیدا کنم میذارم :nerd:

[FAM]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

سلام
دست شما درد نکنه علی خان
کسی میدونه چه طوری میشه یه فایلی رو از محیط هایپر که میفرستیم رو
پورت سریال بتونیم روی ام ام سی ایجاد کنیم.
مرسی

[FAM]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

سلام
علی جان یه سوال بی ربط در مورد این ال سی دی ها PCF8833
من دنبال یک ال سی دی ای میگردم که 2تا از اینا توش باشه یعنی دقیقا
256*128 پیکسل باشه و با 2 تا میکرو راش بیاندازم امکانش هست؟؟؟

[khast khodaiebehnam]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

سلام بچه ها
ممنون از همه من مشکلم رو این جوری حل کردم
بسیار س÷اس گذارم

[khast khodaiebehnam]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

این جوری
$regfile = "M64def.dat " 'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS
$crystal = 16000000 'or any
$baud = 9600

$swstack = 64
$hwstack = 128
$framesize = 128
'-------------------------------------------------------------------------------
Config Clock = Soft
Config Date = Dmy , Separator = .
Enable Interrupts
Time$ = "2000"
Date$ = "16.04.08"
'-------------------------------------------------------------------------------
'Config Lcdpin = Pin , Db4 = Pinf.4 , Db5 = Pinf.5 , Db6 = Pinf.6 , Db7 = Pinf.7 , E = Pinf.2 , Rs = Pinf.3
'Config Lcd = 16 * 2
'-------------------------------------------------------------------------------
Dim B As Byte
Dim L As Long
Dim Ff As Byte
Dim S As String * 20
Dim S1 As String * 20
Dim S2 As String * 20
Dim S4 As String * 20
Dim En As String * 20
Dim S3 As String * 1000
Dim Diskf As Long
Dim Disks As Long
Dim L2 As Long
Dim W As Word
'-------------------------------------------------------------------------------

Print "Initation..."
$include "Config_AVR-DOS.BAS"
$include "Config_MMC.bas" 'include mmc

Ff = Drivereset()
Ff = Driveinit()

$external Waitms

If Gbdriveerror <> 0 Then
Cls
Print "Error Config"
Locate 2 , 1
Print Gbdriveerror
End
End If

'include avr-dos

B = Initfilesystem(1) 'init file system
If B <> 0 Then Print "Error MMC"
'-------------------------------------------------------------------------------
'------------------------ PROGRAM START ------------------------------
'-------------------------------------------------------------------------------
Locate 2 , 1
L2 = 0
En = ">>>>>>>>>>&quo t;

A:

Print "Now Create file"

Diskf = Diskfree()
Disks = Disksize()

S2 = " "
Ff = Freefile()
Open "dibaz.txt" For Binary As #ff 'create file in MMC

Print Lof(#ff) ; " length of file"
L = L + 1

'Line Input#ff , S3 'agar nabashe akharin text ro mineviseh
'S = Str(diskf)
'Print #ff , S ; " Byte Disk Free Space"
'S = Str(disks)
'Print #ff , S1 ; " Byte Disk Size"
'Print #ff , S2 ; "starting at this:"


S1 = Time$
S4 = Date$

S3 = S3 + En + S4 + S2 + S1





Write #ff , S3 , , L

'Write #ff , Date$ , , L
Close #ff


Print "File Created"













'Print "Free" ; Diskf ; "Byte"
'Locate 2 , 1
'Print "Size" ; Disks ; "Byte"
Print Time$
Wait 3
L2 = L2 + 18
Print S3
Goto A

End

[feshwari]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

سلام.
امکان دارد که این برنامه رو نوشتی رو خط به خط توضیح بدید که چطور کار می کند. البته به صورت ساده.؟
ممنون

[feshwari]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

بازسلام
با این برنامه شما چطور می شود یک فایل BMP رو به صورت باینری خوند؟

[khast khodaiebehnam]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

$regfile = "M64def.dat"
$crystal = 16000000
$baud = 9600
$lib "LCD-PCF8833.lbx"
'$baud = 19200
$swstack = 64
$hwstack = 128
$framesize = 128
Dim Ff As Byte
Dim I As Integer
'Dim J As Long
Dim Curbyte As Long
Dim S As String * 11
Dim Mmc_data(512) As Byte
'Dim Free As Long
'Dim Size As Long
'Dim Ss As String * 11
Dim B As Byte
Dim Len1 As Long
Dim Len2 As Single
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ Bmp Variable \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Dim Bmp_data As Byte
Dim Bmp As Byte
Dim X As Long
Dim Y As Long
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
Enable Interrupts
Config Clock = Soft
Config Portd.7 = Output
Config Portd.5 = Output
Config Portb.3 = Output
Config Date = Ymd , Separator = /
'Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , Rs = Pina.3 , E = Pina.2
'Config Lcd = 16 * 2
Config Graphlcd = Color , Controlport = Portd , Cs = 6 , Rs = 3 , Scl = 5 , Sda = 4
'Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
'Config Timer2 = Pwm , Prescale = 1 , Pwm = On , Compare Pwm = Clear Down
'$baud = 115200
'Deflcdchar 0 , 24 , 32 , 32 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
'Enable Oc2
'Enable Oc0
'Enable Oc1a
Time$ = "2000"
Date$ = "87/08/16"
'Print Time$
'Print Date$



' Line(10 , 10) -(50 , 50) , Bm32
'Locate 1 , 1
'Lcd "Init Include" ; Chr(0)
'Wait 1
Print "Initation..."
$include "Config_AVR-DOS.BAS"
$include "Config_MMC.bas"
'Lcdat 1 , 1 , "AVR-Dos is open" , Black , White
'Locate 2 , 1
'Lcd "AVR-Dos OK"
'Wait 1

'Lcdat 8 , 1 , "Your MMC is open" , Black , White
'Wait 1
'Locate 1 , 1
'Lcd "Config MMC OK"
'Wait 1
'Print "include mmc"
Ff = Drivereset()
Ff = Driveinit()
'Print Ff
'Ff = 10
'$external Waitms
' Cls
If Gbdriveerror <> 0 Then
'Print "Error Config"
'Lcdat 1 , 1 , Gbdriveerror , Red , Green
End
End If
Print "dir"
'Print "Config OK"
B = Initfilesystem(1) 'init file system




S = Dir( "*.*&quot
While Len(s) > 0
Print S ; " " ; Filedate()
Print Filetime() ; " " ; Filelen()
Print #9 , S 'memorizza la lista
S = Dir()
'Wait 1
Wend




Ff = Freefile()

Open "SAEED.BMP" For Binary As #ff
For I = 1 To 1078
Get #ff , B
Next I
X = 64
Y = 64
While Eof(#ff) = 0
Do
For X = 1 To 64
Get #ff , Bmp
'Gosub Color_bmp
If Bmp = 255 Then Print " " ;
If Bmp = 0 Then Print Bmp ;
'Print Bmp;
'Pset X , Y , Bmp_data
Next X
Print ""
X = 1
If Y = 1 And X = 1 Then Exit Do
Decr Y
Loop
Exit While
Wend
Print "finiiiiiiiiiiiiiiiiiish"

Ff = Freefile()

Open "MCS2.BMP" For Binary As #ff
For I = 1 To 1078
Get #ff , B
Next I
X = 128
Y = 128
While Eof(#ff) = 0
Do
For X = 1 To 128
Get #ff , Bmp
'Gosub Color_bmp
If Bmp = 255 Then Print " " ;
If Bmp = 0 Then Print Bmp ;
'Print Bmp;
'Pset X , Y , Bmp_data
Next X
Print ""
X = 1
If Y = 1 And X = 1 Then Exit Do
Decr Y
Loop
Exit While
Wend
Print "finiiiiiiiiiiiiiiiiiish"

End




Return


'(
Open "Avalin.wav" For Binary As #10 'apri il file mp3 e play song
While Eof(#10) = 0
Get #10 , Mmc_data(1) , , 512 'preleva 512 byte
For I = 1 To 512 '512
Pwm1a = Mmc_data(curbyte)
Ocr2 = Mmc_data(curbyte)
Waitus 30

Incr Curbyte
Next I
'first 32
Curbyte = 1
Wend
Cls

' Eof(#10)

&#039

$include "color8x8.font"
$include "color16x16.font"
با این که البته FAM زحمت کشیدن میشه بیت مپ رو پرینت کرد رو مانیتور(با یه کوچولو دستکاریه من



توضیح هم که وقتی که فایل باز شد باقیش کافیه که با GET از رو فایل بخونی و با PUT روش بنویسی

بیشتر بگم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[feshwari]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

سلام لطف کردین که جواب دادین.
من من می خواهم دو LED به میکرو وصل کنم. اگر Avr-dos کانفیگ شد یک LED یک ثانیه روشن بماند و بعد خاموش شود. اگر Avr dos کانفیگ نشد led روشن بماند.
بعد اگر MMC کانفیگ شد LED دیگر 1 ثانیه روشن و بعد خاموش شود اگر کانفیگ نشد LED روشن شود و خاموش شود. برنامه رو چطور بنویسم.

[alitaroosheh]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

اول کار اگه خروجی driveinit و drivereset و initfilesystem و drivecheck غیر صفر بشه مشکل وجو داره

حین کار هم اگه متغییره gbdoserror غیر صفر بشه یعنی مشکلی ایجاد شده

شما هر کاری میکنید این متغییر رو چک کنید

[feshwari]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

For X = 1 To 128
Get #ff , Bmp
'Gosub Color_bmp
If Bmp = 255 Then Print " " ;
If Bmp = 0 Then Print Bmp ;
'Print Bmp;
'Pset X , Y , Bmp_data
Next X

تو این قسمت
If Bmp = 255 Then Print " " ;
If Bmp = 0 Then Print Bmp ;

این دو دستور چکار می کند؟

[khast khodaiebehnam]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

خط اول:
اگرbmp=255بود یه فاصله میزاره(یه فاصله رو پرت سریال پرینت میکنه

2:
اگر bmp=1 بود اون وقت یه 1 میفرسته رو پرت سریال

با این کار با 0 و فاصله رو مانیتور عکس پخش کردم :wow: :wow: :wow:

[FAM]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

[glow=blue,2,300]

کسی میدونه چه طوری میشه یه فایلی رو از محیط هایپر که میفرستیم رو
پورت سریال بتونیم روی ام ام سی ایجاد کنیم.

[/glow]

[alitaroosheh]

پاسخ : ایجاد فایل بر روی MMC با فرمت Fat16

ارسال فایل از هایپر طبق پروتکل ها data fax هستش و فکر کنم نتونید با Avr این کار رو انجام بدید و به نوعی data fax رو دیکد کنید
راستی برای bmp هم دنبلش هستم زیاد وقت ندارم
به محض یافتن بین این قبرستون ( :mrgreenمیذارم رو forum :mrgreen: