با سلام
چه جوری میسه فایل صوتی WAV با AVR پخش کرد :question:
چه جوری میسه فایل صوتی WAV با AVR پخش کرد :question:
$regfile = "M64def.dat" 'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS $crystal = 16000000 'or any $baud = 9600 Config Clock = Soft Config Date = Dmy , Separator = . Enable Interrupts Time$ = "20:22:33" Date$ = "16.04.08" Dim B As Byte Dim L As Byte Dim Ff As Byte Dim S As String * 20 Dim Diskf As Long Dim Disks As Long Dim Acc As Long Cls Print "Initation..." $include "Config_AVR-DOS.BAS" $include "Config_MMC.bas" 'include mmc Ff = Drivereset() Ff = Driveinit() $external Waitms If Gbdriveerror <> 0 Then Print "Error Config" Print Gbdriveerror End End If 'include avr-dos B = Initfilesystem(1) 'init file system If B <> 0 Then Print "Error MMC" '------------------------------------------------------------------------------- '------------------------ PROGRAM START ------------------------------ '------------------------------------------------------------------------------- Do Wait 2 'you can type your calling subroutine and another code Gosub A 'for example Loop End A: Print "Now Create file" Ff = Freefile() Open "adiban.txt" For Binary As #ff Acc = Lof(#ff) Print "acc:" ; Acc Seek #ff , Acc Print #ff , "" Print #ff , Time$ Print #ff , Date$ Close #ff Print Time$ Return
دیدگاه