Spanish Soy novato y quiero trastear

[clauGin]

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]

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]

Hola ClauGin

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

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

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

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

Saludos