Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Basic4Android

Войти
Регистрация
Восстановить пароль
 
Alsi-70
0 / 0 / 0
Регистрация: 05.08.2015
Сообщений: 2
#1

Как исправить? Проигрываются только 31 mp3 файл - Basic4Android

22.02.2016, 21:56. Просмотров 936. Ответов 2
Метки нет (Все метки)

Что я могу изменить, чтобы разрешить программе использовать все 49 (0-48) mp3 файлы?
При запуске проигрываются только 31 из mp3-файлов (0-30) . Остальные (31-48) не слышны.

Код
#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    Dim Media(90) As MediaPlayer
End Sub

Sub Globals
  

End Sub

Sub Activity_Create(FirstTime As Boolean)
  
      If FirstTime Then
    
    For x = 0 To 48 Step 1
               Media(x).Initialize2(Tester)
    Next
   
            Media(0).Load(File.DirAssets, "0.mp3")      
            Media(1).Load(File.DirAssets, "1.mp3")      
            Media(2).Load(File.DirAssets, "2.mp3")      
            Media(3).Load(File.DirAssets, "3.mp3")      
            Media(4).Load(File.DirAssets, "4.mp3")      
            Media(5).Load(File.DirAssets, "5.mp3")      
            Media(6).Load(File.DirAssets, "6.mp3")      
            Media(7).Load(File.DirAssets, "7.mp3")      
            Media(8).Load(File.DirAssets, "8.mp3")      
            Media(9).Load(File.DirAssets, "9.mp3")      
            Media(10).Load(File.DirAssets, "10.mp3")      
            Media(11).Load(File.DirAssets, "11.mp3")      
            Media(12).Load(File.DirAssets, "12.mp3")      
            Media(13).Load(File.DirAssets, "13.mp3")      
            Media(14).Load(File.DirAssets, "14.mp3")      
            Media(15).Load(File.DirAssets, "15.mp3")      
            Media(16).Load(File.DirAssets, "16.mp3")      
            Media(17).Load(File.DirAssets, "17.mp3")      
            Media(18).Load(File.DirAssets, "18.mp3")      
            Media(19).Load(File.DirAssets, "19.mp3")      
            Media(20).Load(File.DirAssets, "20.mp3")      
            Media(21).Load(File.DirAssets, "21.mp3")      
            Media(22).Load(File.DirAssets, "22.mp3")      
            Media(23).Load(File.DirAssets, "23.mp3")      
            Media(24).Load(File.DirAssets, "24.mp3")      
            Media(25).Load(File.DirAssets, "25.mp3")      
            Media(26).Load(File.DirAssets, "26.mp3")      
            Media(27).Load(File.DirAssets, "27.mp3")      
            Media(28).Load(File.DirAssets, "28.mp3")      
            Media(29).Load(File.DirAssets, "29.mp3")      
            Media(30).Load(File.DirAssets, "30.mp3")      
            Media(31).Load(File.DirAssets, "31.mp3")      
            Media(32).Load(File.DirAssets, "32.mp3")      
            Media(33).Load(File.DirAssets, "33.mp3")      
            Media(34).Load(File.DirAssets, "34.mp3")      
            Media(35).Load(File.DirAssets, "35.mp3")      
            Media(36).Load(File.DirAssets, "36.mp3")      
            Media(37).Load(File.DirAssets, "37.mp3")      
            Media(38).Load(File.DirAssets, "38.mp3")      
            Media(39).Load(File.DirAssets, "39.mp3")      
            Media(40).Load(File.DirAssets, "40.mp3")      
            Media(41).Load(File.DirAssets, "41.mp3")      
            Media(42).Load(File.DirAssets, "42.mp3")      
            Media(43).Load(File.DirAssets, "43.mp3")      
            Media(44).Load(File.DirAssets, "44.mp3")      
            Media(45).Load(File.DirAssets, "45.mp3")      
            Media(46).Load(File.DirAssets, "46.mp3")      
            Media(47).Load(File.DirAssets, "47.mp3")      
            Media(48).Load(File.DirAssets, "48.mp3")      
    End If

    If Msgbox2("Play mp3?","","Yes","","",Null) = DialogResponse.POSITIVE Then restart 'start

End Sub

Sub Activity_Resume


End Sub

Sub Activity_Pause (UserClosed As Boolean)

    For x = 0 To 48 Step 1
        If Media(x).IsPlaying Then Media(x).Pause
    Next

End Sub

Private Sub restart

For x = 0 To 48 Step 1
  Media(x).Position = 0
  Media(x).Play

  If Msgbox2("Next?" ,x,"No","","Yes",Null) = DialogResponse.POSITIVE Then
         
        Else
            Media(x).Pause
        End If  


Next

If Msgbox2("play again?","","Yes","","No",Null) = DialogResponse.POSITIVE Then
          
            restart
        Else
            Activity.Finish
        End If  
  
End Sub


Sub Tester
  
End Sub
Если исправить на:

Код
For x = 48 To 0 Step -1
  Media(x).Position = 0
  Media(x).Play
  If Msgbox2("Next?" ,x,"No","","Yes",Null) = DialogResponse.POSITIVE Then
     Else
       Media(x).Pause
     End If 
Next
Тогда играют только 31 начиная с 48 по 18. С 17 по 0 не слышно.

Кто встречался с такой проблемой. Где искать решение?
0
Вложения
Тип файла: zip ZVUK2.zip (459.8 Кб, 8 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2016, 21:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как исправить? Проигрываются только 31 mp3 файл (Basic4Android):

Файл БД в сети доступен только для чтения, как исправить? - MS Access
Здравствуйте, уважаемые программисты, прошу мне помочь советом, у нас в офисе существует база данных с заказами, лежит на диске обмена,...

"FLV" и "AVI" не проигрываются. У "MP3" звук есть, тем не менее. - Видеопрограммы
На свежеустановленной "WinXP SP3" не воспроизводятся avi- и flv-файлы. С mp3 все нормально, звук есть. Установлен...

Как в visual studio в exe файл добавить mp3 файл? - Visual C++
Помогите, новичок в программировании, скажите как добавить аудио файл и какой потом командой его воиспроизвести, потому что приходится...

Как воспроизвести mp3 файл - C#
Как воспроизвести mp3 или другой звуковой файл?

Как сохранить файл .mp3 - PHP
Как сохранить на сервере файл .mp3 через форму POST?

.NET 4.x Как воспроизвести mp3 файл? - C#
Всем привет! Как воспроизвести mp3 файл?

2
Pro_grammer
Модератор
6019 / 2106 / 401
Регистрация: 24.04.2011
Сообщений: 3,599
Записей в блоге: 10
23.02.2016, 06:44 #2
Цитата Сообщение от Alsi-70 Посмотреть сообщение
При запуске проигрываются только 31 из mp3-файлов (0-30) . Остальные (31-48) не слышны.
нужно освобождать ресурсы после использования. При необходимости их можно загрузить заново
Вот так работает:
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#Region  Project Attributes 
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region
 
#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region
 
Sub Process_Globals
    Dim Media(90) As MediaPlayer
End Sub
 
Sub Globals
    
 
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    
      If FirstTime Then
      
    For x = 0 To 48 Step 1 
            Media(x).Initialize2(Tester) 
            Media(x).Load(File.DirAssets, x & ".mp3")   
    Next
  
    End If
 
    If Msgbox2("Play mp3?","","Yes","","",Null) = DialogResponse.POSITIVE Then restart 'start
 
End Sub
 
Sub Activity_Resume
 
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
    For x = 0 To 48 Step 1 
        If Media(x).IsPlaying Then Media(x).Pause
    Next
 
End Sub
 
Private Sub restart
 
For x = 48 To 0 Step -1 
  Media(x).Position = 0 
  Media(x).Play 
 
  If Msgbox2("Next?" ,x,"No","","Yes",Null) = DialogResponse.POSITIVE Then 
        Else
            Media(x).Pause
End If  
Media(x).Release ' Освобождаем ресурсы
Next
 
If Msgbox2("play again?","","Yes","","No",Null) = DialogResponse.POSITIVE Then 
            For x = 0 To 48 Step 1 
              Media(x).Initialize2(Tester) 
              Media(x).Load(File.DirAssets, x & ".mp3")   ' Грузим снова ресурсы
           Next
            restart
        Else
            Activity.Finish 
        End If  
    
End Sub
 
 
Sub Tester
    
End Sub
1
Alsi-70
0 / 0 / 0
Регистрация: 05.08.2015
Сообщений: 2
23.02.2016, 08:58  [ТС] #3
Спасибо большое! Почти неделю искал ответ.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2016, 08:58
Привет! Вот еще темы с ответами:

Как воспроизвести MP3 файл по ссылке? - C#
Здравствуйте! Имеется ссылка на mp3 файл "http://sait.ru/file.mp3". Нужно сделать, что бы по нажатию на кнопку этот файл...

Как сохранить mp3 файл в BLOB - C++ Builder БД
Программа пишет звук! Как сделать так чтоб по таймеру звуковой файл сохранялся в BLOB поляе БД . Firebird 2.5. FFrameNo ++; if ( (...

Как воспроизвести mp3 файл из ресурсов? - C#
У меня в ресурсах проекта есть mp3 и я его хочу воспроизвести. Как же мне это сделать? И чтобы можно было переносить exe-шник из места в...

Как воспроизвести .mp3 файл на Visual Basic 6.0? - Visual Basic
При запуске формы мне нужно воспроизвести .mp3 файл. С форматом .wav я разобрался, вот код: Private Sub Form_Load() Плеер....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru