من موقعی که می خوام از MMC بخونم مشکلی ندارم . نه در عمل و نه در پروتئوس .
ولی هنگامی که می خوام بنویسم تو پروتئوس این مشکلو دارم ؟
http://uplod.ir/xrb0mxttg7ok/4-24-2012_4-43-37_AM.jpg.htm
لطفا کمک کنید . با میکرو 32 و از طریق فت اینکارو میکنم . اینم برناممه :
ولی هنگامی که می خوام بنویسم تو پروتئوس این مشکلو دارم ؟
http://uplod.ir/xrb0mxttg7ok/4-24-2012_4-43-37_AM.jpg.htm
لطفا کمک کنید . با میکرو 32 و از طریق فت اینکارو میکنم . اینم برناممه :
کد:
$regfile = "m32def.dat" $crystal = 8000000 $baud = 9600 Print "start" '***************************************library*********************************************** $include "CONFIG_AVR-DOS.Bas" $include "Config_mmc.bas" Config Date = Ymd , Separator = / Config Clock = Soft Time$ = "12:00:00" : Date$ = "12/04/27" 'Enable Interrupts Dim Scan As Byte Dim Countbyte As Byte Dim I As Byte Dim Samp As String * 128 Dim Samp1 As String * 128 Dim Samp2 As String * 128 Countbyte = 1 Print "CHECK" If Drivecheck() <> 0 Then Print "EROOR" END IF If Driveinit() <> 0 Then Print "EROOR" END IF If Initfilesystem(1) <> 0 Then Print "EROOR" END IF Print "OPEN" Open "hamid.txt" For Input As #1 Line Input #1 , Samp Line Input #1 , Samp1 Line Input #1 , Samp2 Close #1 Print "WRITE1" Open "hamid2.txt" For Output As #2 Print #2 , "ali ali" Print #2 , Samp Print #2 , Samp1 Print #2 , Samp2 Close #2 Print "WRITE2" Open "AK.txt" For Append As #3 Print #3 , "ali ali" Print #3 , Samp Print #3 , Samp1 Print #3 , Samp2 Close #3 Print "END" End 'end program
دیدگاه