Private AT As AudioTrack
Private AR As AudioRecord
Private Buffers() As Byte
Private timer1 As Timer
Private recordingStart As Long
Private RP As RuntimePermissions
Dim BufferSize As Int
Dim SampleRate As Int
Dim ChannelConfig As Int
Dim AudioFormat As Int
Dim AudioSource As Int
Dim NoChnls,BitsPerSample,DataSize As Int
AudioSource=AR.A_Src_Mic
SampleRate=44100
ChannelConfig=AR.Ch_Conf_Mono
NoChnls=1
AudioFormat=AR.Af_PCM_16
BitsPerSample=16
BufferSize=AR.GetMinBufferSize(SampleRate,ChannelConfig,AudioFormat)
RP.CheckAndRequest(RP.PERMISSION_RECORD_AUDIO)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = True Then
Activity.LoadLayout("1")
If FirstTime Then
AR.Initialize(AudioSource,SampleRate,ChannelConfig,AudioFormat,BufferSize)
AT.Initialize(AT.STREAM_MUSIC, SampleRate, AT.CH_CONF_MONO, AT.AF_PCM_16, BufferSize, AT.MODE_STREAM)
timer1.Initialize("timer1", 1000)
End If
End If
start recording:
Buffers.clear
AR.StartRecording
then stop when button is pressed:
AR.Stop