Vibrate

BeanShell

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();
droid.call("makeToast","Vibrate using BeanShell");
droid.call("vibrate");

Bex

include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()
droid.call("makeToast","Vibrate using Bex")
droid.call("vibrate")

Erlang

-module(vibrate_Erlang).
-export([main/0]).
main()->
  android:makeToast("Vibrate using Erlang"),
  android:vibrate().

Html and JavaScript

<HTML><HEAD><SCRIPT>
var droid = new Android();
droid.makeToast("Vibrate using HTML and JavaScript");
droid.vibrate();
</SCRIPT></HEAD><BODY></BODY></HTML>

JRuby

droid = Android.new
droid.makeToast "Vibrate using JRuby"
droid.vibrate

JScheme

(import "com.googlecode.rpc.*")
(define droid (com.googlecode.rpc.Android.))
(.call droid "makeToast" "Vibrate using JScheme")
(.call droid "vibrate")
(exit)

Jawk

import com.googlecode.rpc.*;
BEGIN{
  droid = new Android();
  droid.call("makeToast","Vibrate using Jawk");
  droid.call("vibrate");
}

Lua

require "android"
android.makeToast("Vibrate using Lua")
android.vibrate()

PHP

<?php 
require_once("Android.php");
$droid = new Android();
$droid->makeToast("Vibrate using PHP");
$droid->vibrate();
?>

Perl

use Android;
my $droid = Android->new();
$droid->makeToast("Vibrate using Perl");
$droid->vibrate();

Python

import android
droid = android.Android()
droid.makeToast("Vibrate using Python")
droid.vibrate()

Rhino

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

Shell

Not solved. Please send me answers if you have.

Sleep

import com.googlecode.rpc.*;
$droid = [new Android];
[$droid call : "makeToast","Vibrate using Sleep"];
[$droid call : "vibrate"];

Squirrel

android <- Android();
android.makeToast("Vibrate using Squirrel");
android.vibrate();

Tcl

source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid makeToast "Vibrate using Tcl"
$droid vibrate

unset droid

return