Форум программистов, компьютерный форум 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. Просмотров 560. Ответов 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 не слышно.

Кто встречался с такой проблемой. Где искать решение?
Вложения
Тип файла: zip ZVUK2.zip (459.8 Кб, 8 просмотров)
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 11:26. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru