سلام دوست عزیز
اینم یه کد ساده:
کد:
$regfile = "M64def.dat"
$crystal = 8000000
'---------------------------------------
$include "Config_AVR-DOS.BAS"
$include "Config_MMC.BAS"
'---------------------------------------
Dim Str_temp As String * 3
Dim Temp As Byte
Dim Fs As Byte
Dim S As Byte
If Gbdriveerror <> 0 Then End
Do
Fs = Initfilesystem(s)
Incr S
Loop Until Fs = 0 Or S = 255
If Fs <> 0 Then End
'---------------------------------------
Open "Temp_Text.txt" For Output As #1
Str_temp = Str(temp)
Print #1 , Str_temp
Close #1
End
تو فایل پیوست هم یه شماتیک و پروژه هست