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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic4Android Как закрыть приложение при нажатии кнопки back или home? http://www.cyberforum.ru/basic4android/thread1666771.html
Добрый день уважаемые! Помогите с написанием кода. Мне необходимо, что бы при нажатии кнопок back и home, мое приложение закрывалось. Как это реализовать. За ранее благодарю
Basic4Android Во время работы приложения, звук исчезает через некоторое время Доброго всем суток. Разработал одно прижение, нажимаешь кнопки и соответствующее слово озвучивается. Через 15-20 итераций, звук вовсю исчезает. Не всегда так происходит, а случайно как-то. Не... http://www.cyberforum.ru/basic4android/thread1661435.html
Работа с файлами Basic4Android
Всем привет! Начал изучать android, пока моим достижением стал собственный калькулятор. Сегодня решил создать что-то вроде небольшой записной книжки, чтобы записывать что-то, оно сохраняется в...
Сдвинуть аппаратные кнопки в Blue Stacks App Player Basic4Android
проблема состоит вот в чем. раньше в игре аппаратные кнопки эмулятора находились гораздо ниже рабочего поля игры, и никак не мешали. теперь кнопки захватывают часть поля игры и перекрывают тем самым...
Basic4Android Как в активити добавить окошко с текстом http://www.cyberforum.ru/basic4android/thread1651498.html
Просто хотел добавить описание для приложения. Создал дополнительную активити, и там не знаю какой инструмент поставить, чтобы в поле (окно) добавить текст, с 7-10 предложениями. Label не подойдет...
Basic4Android Поделиться ссылкой Google Play на приложение в социальных сетях Добрый день всем. Написал свою программу на Basic4Android, и возникла необходимость создать кнопку, через которую юзер может поделиться ссылкой Гугл Плэй на приложениях соцсетях. Нужно поделиться... подробнее

Показать сообщение отдельно
Alsi-70
0 / 0 / 0
Регистрация: 05.08.2015
Сообщений: 2

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

22.02.2016, 21:56. Просмотров 908. Ответов 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 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru