Форум программистов, компьютерный форум 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, и возникла необходимость создать кнопку, через которую юзер может поделиться ссылкой Гугл Плэй на приложениях соцсетях. Нужно поделиться картинкой и текстом. подробнее

Показать сообщение отдельно
Pro_grammer
Модератор
5875 / 2035 / 387
Регистрация: 24.04.2011
Сообщений: 3,449
Записей в блоге: 9
23.02.2016, 06:44     Как исправить? Проигрываются только 31 mp3 файл
Цитата Сообщение от 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
 
Текущее время: 00:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru