MediaVolume

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();
vol = droid.call("getMediaVolume").get("result");
maxvol = droid.call("getMaxMediaVolume").get("result");
droid.call("dialogCreateSeekBar",vol,maxvol,"Media volume","");
droid.call("dialogSetPositiveButtonText","OK");
droid.call("dialogSetNegativeButtonText","Cancel");
droid.call("dialogShow");
result = droid.call("dialogGetResponse").get("result");
droid.call("dialogDismiss");
if (result.get("which").equals("positive")) {
  droid.call("setMediaVolume",result.get("progress"));
  vol = droid.call("getMediaVolume").get("result");
  droid.call("makeToast","Volume:"+vol);
} else {
  droid.call("makeToast","Cancel pressed");
}

Bex

include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()
vol = droid.call("getMediaVolume").get("result")
maxvol = droid.call("getMaxMediaVolume").get("result")
droid.call("dialogCreateSeekBar",vol,maxvol,"Media volume","")
droid.call("dialogSetPositiveButtonText","OK")
droid.call("dialogSetNegativeButtonText","Cancel")
droid.call("dialogShow")
result = droid.call("dialogGetResponse").get("result")
droid.call("dialogDismiss")
if (result.get("which").equals("positive")) {
  droid.call("setMediaVolume",result.get("progress"))
  vol = droid.call("getMediaVolume").get("result")
  droid.call("makeToast","Volume:"+vol)
} {
  droid.call("makeToast","Cancel pressed")
}

Erlang

-module(mediaVolume_Erlang).
-export([main/0]).
main()->
  Vol = android:getMediaVolume(),
  Maxvol = android:getMaxMediaVolume(),
  android:dialogCreateSeekBar(Vol,Maxvol,"Media volume",""),
  android:dialogSetPositiveButtonText("OK"),
  android:dialogSetNegativeButtonText("Cancel"),
  android:dialogShow(),
  Response = android:dialogGetResponse(),
  { struct,[{"progress",Progress},{"which",Result}]} = Response,
  android:dialogDismiss(),
  if
    Result == "positive" ->
      android:setMediaVolume(Progress),
      Volstr = integer_to_list(android:getMediaVolume()),
      android:makeToast(string:concat("Volume:",Volstr));
    true ->
      android:makeToast("Cancel pressed")
  end.

Html and JavaScript

<HTML><HEAD><SCRIPT>
var droid = new Android();
var vol = droid.getMediaVolume().result;
var maxvol = droid.getMaxMediaVolume().result;
droid.dialogCreateSeekBar(vol,maxvol,"Media volume","");
droid.dialogSetPositiveButtonText("OK");
droid.dialogSetNegativeButtonText("Cancel");
droid.dialogShow();
var result = droid.dialogGetResponse().result;
droid.dialogDismiss();
if (result.which == "positive") {
  droid.setMediaVolume(result.progress);
  droid.makeToast("Volume:"+droid.getMediaVolume().result);
} else {
  droid.makeToast("Cancel pressed");
}
</SCRIPT></HEAD><BODY></BODY></HTML>

JRuby

droid = Android.new
vol = droid.getMediaVolume()['result']
maxvol = droid.getMaxMediaVolume()['result']
droid.dialogCreateSeekBar(vol,maxvol,"Media volume","")
droid.dialogSetPositiveButtonText("OK")
droid.dialogSetNegativeButtonText("Cancel")
droid.dialogShow()
result = droid.dialogGetResponse()['result']
droid.dialogDismiss()
if result['which'] == "positive" then
  droid.setMediaVolume(result['progress'])
  vol = droid.getMediaVolume()['result']
  droid.makeToast("Volume:"+vol.to_s(10))
else
  droid.makeToast("Cancel pressed")
end

JScheme

(import "com.googlecode.rpc.*")
(define droid (com.googlecode.rpc.Android.))
(define vol (.get (.call droid "getMediaVolume") "result"))
(define maxvol (.get (.call droid "getMaxMediaVolume") "result"))
(.call droid "dialogCreateSeekBar" vol maxvol "Media volume" "")
(.call droid "dialogSetPositiveButtonText" "OK")
(.call droid "dialogSetNegativeButtonText" "Cancel")
(.call droid "dialogShow")
(define response (.call droid "dialogGetResponse"))
(define result (.get response "result"))
(.call droid "dialogDismiss")
(if (.equals (.get result "which") "positive")
  ( begin
    (.call droid "setMediaVolume" (.get result "progress"))
    (define vol (.get (.call droid "getMediaVolume") "result"))
    (.call droid "makeToast" (string-append "Volume:" vol))
  )
  (.call droid "makeToast" "Cancel pressed")
)
(exit)

Jawk

import com.googlecode.rpc.*;
BEGIN{
  droid = new Android();
  vol = droid.call("getMediaVolume").get("result");
  maxvol = droid.call("getMaxMediaVolume").get("result");
  droid.call("dialogCreateSeekBar",vol,maxvol,"Media volume","");
  droid.call("dialogSetPositiveButtonText","OK");
  droid.call("dialogSetNegativeButtonText","Cancel");
  droid.call("dialogShow");
  result = droid.call("dialogGetResponse").get("result");
  droid.call("dialogDismiss");
  if (result.get("which").equals("positive")) {
    droid.call("setMediaVolume",result.get("progress"));
    vol = droid.call("getMediaVolume").get("result");
    droid.call("makeToast","Volume:" vol);
  } else {
    droid.call("makeToast","Cancel pressed");
  }
}

Lua

require "android"
vol = android.getMediaVolume().result
maxvol = android.getMaxMediaVolume().result
android.dialogCreateSeekBar(vol,maxvol,"Media volume","")
android.dialogSetPositiveButtonText("OK")
android.dialogSetNegativeButtonText("Cancel")
android.dialogShow()
result = android.dialogGetResponse().result
android.dialogDismiss()
if result.which == "positive" then
  android.setMediaVolume(result.progress)
  android.makeToast("Volume:"..android.getMediaVolume().result)
else
  android.makeToast("Cancel pressed")
end

PHP

<?php 
require_once("Android.php");
$droid = new Android();
$vol=$droid->getMediaVolume();
$maxvol=$droid->getMaxMediaVolume();
$droid->dialogCreateSeekBar($vol['result'],$maxvol['result'],"Media volume","");
$droid->dialogSetPositiveButtonText("OK");
$droid->dialogSetNegativeButtonText("Cancel");
$droid->dialogShow();
$result = $droid->dialogGetResponse();
$droid->dialogDismiss();
if ($result['result']->which == "positive") {
  $droid->setMediaVolume($result['result']->progress);
  $vol=$droid->getMediaVolume();
  $droid->makeToast("Volume:".$vol['result']);
} else {
  $droid->makeToast("Cancel pressed");
}
?>

Perl

use Android;
my $droid = Android->new();
my $vol = $droid->getMediaVolume();
my $maxvol = $droid->getMaxMediaVolume();
$droid->dialogCreateSeekBar($vol->{'result'},$maxvol->{'result'},"Media volume","");
$droid->dialogSetPositiveButtonText("OK");
$droid->dialogSetNegativeButtonText("Cancel");
$droid->dialogShow();
my $result = $droid->dialogGetResponse();
$droid->dialogDismiss();
if ($result->{'result'}{'which'} eq "positive") {
  $droid->setMediaVolume($result->{'result'}{'progress'});
  $vol = $droid->getMediaVolume();
  $droid->makeToast("Volume:".$vol->{'result'});
} else {
  $droid->makeToast("Cancel pressed");
}

Python

import android
droid = android.Android()
vol = droid.getMediaVolume().result
maxvol = droid.getMaxMediaVolume().result
droid.dialogCreateSeekBar(vol,maxvol,"Media volume","")
droid.dialogSetPositiveButtonText("OK")
droid.dialogSetNegativeButtonText("Cancel")
droid.dialogShow()
response = droid.dialogGetResponse()
droid.dialogDismiss()
if response.result["which"] == "positive" :
  droid.setMediaVolume(response.result["progress"])
  droid.makeToast("Volume:"+str(droid.getMediaVolume().result))
else :
  droid.makeToast("Cancel pressed")

Rhino

load("/sdcard/com.googlecode.rhinoforandroid/extras/rhino/android.js");
var droid = new Android();
var vol = droid.getMediaVolume();
var maxvol = droid.getMaxMediaVolume();
droid.dialogCreateSeekBar(vol,maxvol,"Media volume","");
droid.dialogSetPositiveButtonText("OK");
droid.dialogSetNegativeButtonText("Cancel");
droid.dialogShow();
var result = droid.dialogGetResponse();
droid.dialogDismiss();
if (result.which == "positive") {
  droid.setMediaVolume(result.progress);
  droid.makeToast("Volume:"+droid.getMediaVolume());
} else {
  droid.makeToast("Cancel pressed");
}

Shell

Sleep

import com.googlecode.rpc.*;
$droid = [new Android];
$vol = [[$droid call : "getMediaVolume"] get : "result"];
$maxvol = [[$droid call : "getMaxMediaVolume"] get : "result"];
[$droid call : "dialogCreateSeekBar",$vol,$maxvol,"Media volume",""];
[$droid call : "dialogSetPositiveButtonText","OK"];
[$droid call : "dialogSetNegativeButtonText","Cancel"];
[$droid call : "dialogShow"];
$result = [[$droid call : "dialogGetResponse"] get : "result"];
[$droid call : "dialogDismiss"];
if ([[$result get : "which"] equals : "positive"]) {
  [$droid call : "setMediaVolume",[$result get : "progress"]];
  $vol = [[$droid call : "getMediaVolume"] get : "result"];
  [$droid call : "makeToast","Volume:".$vol];
} else {
  [$droid call : "makeToast","Cancel pressed"];
}

Squirrel

android <- Android();
local vol = android.getMediaVolume().result;
local maxvol = android.getMaxMediaVolume().result;
android.dialogCreateSeekBar(vol,maxvol,"Media volume","");
android.dialogSetPositiveButtonText("OK");
android.dialogSetNegativeButtonText("Cancel");
android.dialogShow();
local response = android.dialogGetResponse().result;
android.dialogDismiss();
if (response.which == "positive") {
  android.setMediaVolume(response.progress);
  android.makeToast("Volume:"+android.getMediaVolume().result);
} else {
  android.makeToast("Cancel pressed");
}

Tcl

source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
set vol [$droid getMediaVolume]
set maxvol [$droid getMaxMediaVolume]
$droid dialogCreateSeekBar $vol $maxvol "Media volume" ""
$droid dialogSetPositiveButtonText "OK"
$droid dialogSetNegativeButtonText "Cancel"
$droid dialogShow
array set result [$droid dialogGetResponse]
$droid dialogDismiss
if {$result(which)=="positive"} {
  $droid setMediaVolume $result(progress)
  $droid makeToast "Volume:\\[$droid getMediaVolume]"
} else {
  $droid makeToast "Cancel pressed"
}

unset droid
unset vol
unset maxvol
array unset result

MediaVolume

BeanShell

Bex

Erlang

Html and JavaScript

JRuby

JScheme

Jawk

Lua

PHP

Perl

Python

Rhino

Shell

Sleep

Squirrel

Tcl