Spanish Soy novato y quiero trastear

clauGin

Member
Licensed User
Longtime User
Me gustaría hacer diferente ejercicios sobre los componentes del móvil:
Por ejemplo :
1 - Crear un botón que presionándolo activa el sonido en forma continuada y al presionar el botón la segunda vez apaga el sonido

2 - presionar la pantalla del móvil y modifica el color del fondo

No se donde puedo buscar informaciones se alquilen puede darme una mano
con un ejemplo lo agradecería.
Se puede hacer con Basic4android

Un saluto
Claudio
 

jluisruelas

Member
Licensed User
Longtime User
Me gustaría hacer diferente ejercicios sobre los componentes del móvil:
Por ejemplo :
1 - Crear un botón que presionándolo activa el sonido en forma continuada y al presionar el botón la segunda vez apaga el sonido

2 - presionar la pantalla del móvil y modifica el color del fondo

No se donde puedo buscar informaciones se alquilen puede darme una mano
con un ejemplo lo agradecería.
Se puede hacer con Basic4android

Un saluto
Claudio
amigo para lo que quieres hacer necesitas explorar sobre la libreria phone te recomiendo este post:
http://www.iesromerovargas.com/recursos/elec/sol/basic4android50.htm
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola ClauGin

Aqui tienes algo rápido, pero lo mejor para trastear es coger los ejemplos y eso, trastear, se aprende mas :D

1 - Crear un botón que presionándolo activa el sonido en forma continuada y al presionar el botón la segunda vez apaga el sonido

B4X:
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim rm As RingtoneManager
Dim mp As MediaPlayer

dim NombreSonido as String
Dim BotonSonido As Button
' ..........
' ..........


Sub Activity_Create(FirstTime As Boolean)

mp.Initialize2 ("")
NombreSonido= rm.GetDefault(rm.TYPE_ALARM) ' pon el tipo de sonido que quieras cambiando rm.TYPE_ALARM
' ..........
' ..........


Sub BotonSonido_Click

if mp.IsPlaying then
   ParoSonido
Else
   MarchaSonido
End if

end sub


Sub MarchaSonido

Try
  mp.Load(rm.GetContentDir, NombreSonido)
  mp.Looping = True  ' hará que el sonido no pare
  mp.Play
Catch
  Log("Error marcha Sonido")
End Try

End Sub



Sub ParoSonido
Try
   mp.Stop
Catch
  Log("Error paro Sonido")
End Try

End Sub


2 - presionar la pantalla del móvil y modifica el color del fondo

B4X:
Sub Activity_Click
  activity.Color = colors.Blue ' o el color que quieras
End Sub


Saludos
 
Top