HorizontalProgress

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();
droid.call("dialogCreateHorizontalProgress","Horizontal","using BeanShell");
droid.call("dialogShow");

value = 0;
while(value < 100){
  value = value+1;
  droid.call("dialogSetCurrentProgress",value);
  Thread.sleep(10);
}

droid.call("dialogDismiss");

Bex

include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()
droid.call("dialogCreateHorizontalProgress","Horizontal","using Bex")
droid.call("dialogShow")

value = 0
while{value < 100}{
  value = value+1
  droid.call("dialogSetCurrentProgress",value)
  Thread.sleep(10)
}

droid.call("dialogDismiss")

Erlang

-module(horizontalProgress_Erlang).
-export([main/0]).
main()->
  android:dialogCreateHorizontalProgress("Horizontal","using Erlang"),
  android:dialogShow(),
  progress(0).

progress(Value) ->
  if
   Value < 100 ->
      android:dialogSetCurrentProgress(Value+1),
      timer:sleep(10),
      progress(Value+1);
   true -> android:dialogDismiss()
  end.

Html and JavaScript

<HTML><HEAD><SCRIPT>
function sleep(msec){
  var start = new Date;
  msec+=start. getTime();
  while(true){
    var end = new Date;
    if(msec<=end. getTime()){
      return;
    }
  }
}

var droid = new Android();
droid.dialogCreateHorizontalProgress("Horizontal","using HTML and JavaScript");
droid.dialogShow();

var value = 0
while(value < 100){
  value++;
  droid.dialogSetCurrentProgress(value);
  sleep(10);
}

droid.dialogDismiss();
</SCRIPT></HEAD><BODY></BODY></HTML>

JRuby

droid = Android.new
droid.dialogCreateHorizontalProgress("Horizontal","using JRuby")
droid.dialogShow()

value = 0
while value < 100
  value = value+1
  droid.dialogSetCurrentProgress(value)
  sleep 0.01
end

droid.dialogDismiss()

JScheme

(import "com.googlecode.rpc.*")
(define droid (com.googlecode.rpc.Android.))

(define sleep (lambda (msec)
  (set! msec (+ msec (.getTime (java.util.Date.))))
  (let loop ()
    (if (> msec (.getTime (java.util.Date.)))
      (loop)
    )
  )
))

(.call droid "dialogCreateHorizontalProgress" "Horizontal" "using JScheme")
(.call droid "dialogShow")

(set! value 0)
(let loop ()
  (begin
    (set! value (+ value 1))
    (if (> value 100)
      ()
      (begin
        (.call droid "dialogSetCurrentProgress" value)
        (sleep 10)
        (loop)
      )
    )
  )
)

(.call droid "dialogDismiss")
(exit)

Jawk

import com.googlecode.rpc.*;
import java.util.Date;

function stop(msec){
  start = new Date();
  msec+=start.getTime();
  while(true){
    end = new Date();
    if(msec<=end.getTime()){
      break;
    }
  }
}

BEGIN{
  droid = new Android();
  droid.call("dialogCreateHorizontalProgress","Horizontal","using Jawk");
  droid.call("dialogShow");

  value = 0;
  while(value < 100){
    value = value+1;
    stop(10);
    droid.call("dialogSetCurrentProgress",value);
  }

  droid.call("dialogDismiss");
}

Lua

require "android"

function sleep(sec)
  sec=sec+os.clock()
  while true do
    if (sec<=os.clock()) then
      return
    end
  end
end

android.dialogCreateHorizontalProgress("Horizontal","using Lua")
android.dialogShow()
value = 0

while value < 100 do
  value = value+1
  android.dialogSetCurrentProgress(value)
  sleep(0.01)
end

android.dialogDismiss()

PHP

<?php 
require_once("Android.php");
$droid = new Android();
$droid->dialogCreateHorizontalProgress("Horizontal","using PHP");
$droid->dialogShow();

$value = 0;
while($value < 100){
  $value++;
  $droid->dialogSetCurrentProgress($value);
  sleep(0.01);
}

$droid->dialogDismiss();
?>

Perl

use Android;
my $droid = Android->new();
$droid->dialogCreateHorizontalProgress("Horizontal","using Perl");
$droid->dialogShow();

my $value = 0;
while($value < 100){
  $value++;
  $droid->dialogSetCurrentProgress($value);
  sleep(0.01);
}

$droid->dialogDismiss();

Python

import android
import time
droid = android.Android()
droid.dialogCreateHorizontalProgress("Horizontal","using Python");
droid.dialogShow()

value = 0
while value < 100 :
  value = value + 1
  droid.dialogSetCurrentProgress(value)
  time.sleep(0.01)

droid.dialogDismiss()

Rhino

load("/sdcard/com.googlecode.rhinoforandroid/extras/rhino/android.js");
var droid = new Android();

function sleep(msec){
  var start = new Date;
  msec+=start. getTime();
  while(true){
    var end = new Date;
    if(msec<=end. getTime()){
      return;
    }
  }
}

droid.dialogCreateHorizontalProgress("Horizontal","using Rhino");
droid.dialogShow();

var value = 0
while(value < 100){
  value++;
  droid.dialogSetCurrentProgress(value);
  sleep(10);
}

droid.dialogDismiss();

Shell

Not solved. Please send me answers if you have.

Sleep

import com.googlecode.rpc.*;
$droid = [new Android];
[$droid call : "dialogCreateHorizontalProgress","Horizontal","using Sleep"];
[$droid call : "dialogShow"];

$value = 0;
while($value < 100){
  $value++;
  [$droid call : "dialogSetCurrentProgress",$value];
  sleep(10);
}

[$droid call : "dialogDismiss"];

Squirrel

android <- Android();

function sleep(sec){
  sec+=clock();
  while(true){
    if(sec<=clock()){
      return;
    }
  }
}

android.dialogCreateHorizontalProgress("Horizontal","using Squirrel");
android.dialogShow();

local value = 0;
while(value < 100){
  value++;
  android.dialogSetCurrentProgress(value);
  sleep(0.01);
}

android.dialogDismiss();

Tcl

source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]

proc sleep {msec} {
  set msec [expr $msec + [clock clicks -milliseconds]]
  while {true} {
    if {$msec<=[clock clicks -milliseconds]} {
      return
    }
  }
}

$droid dialogCreateHorizontalProgress "Horizontal" "using Tcl"
$droid dialogShow

set value 0
while {$value < 100} {
  incr value 1
  $droid dialogSetCurrentProgress $value
  sleep 10
}

$droid dialogDismiss

unset droid