Thursday, August 4, 2011

Membuat Teks Menulis Sendiri

Sobat sudah merasa capek dengan menulis dengan tangan , so jangan kuwatir dibawah ini sobat bisa memberikan sapaan kepada pengunjung Blog sobat dengan Animasi "Menulis Sendiri" Sobat tinggal menggati Teks yang sobat kehendaki







 
 
 
<div align="center">

<form name="news" align=center>
<textarea name="newsyam" cols=40 rows=5 wrap=virtual></textarea></form>

<script language=javascript>

var newsText = new Array();

newsText[0] = "#";

newsText[1] = "Kata-kata Bijak : \nSukses adalah sebuah perjalanan, bukan merupakan tujuan akhir. \n-- Bashori ALwi --";

newsText[2] = "Kata-kata Bijak : \nCepat atau lambat, keburukan maupun kebaikan akan terlihat. \n-- Bashori ALwi --";

newsText[3] = "Kata-kata Bijak : \nJangan lihat siapa yang bicara tetapi dengarlah apa yang dibicarakan.";

newsText[4] = "Kata-kata Bijak : \nSemua impian kita dapat menjadi nyata, jika kita memiliki keberanian untuk mengejarnya. \n-- Bashori ALwi --";

newsText[5] = "Kata-kata Bijak : \nTidak akan mencapai sesuatu yang besar bila belum melewati sesuatu yang kecil.\n-- Bashori ALwi --";

newsText[6] = "Kata-kata Bijak : \nTeman yang baik mengingat hari ulang tahun kita tapi lupa berapa umur kita .....\n-- Bashori ALwi --";

newsText[7] = "Kata-kata Bijak : \nKematian bukanlah hal yang perlu ditakutkan bila kita telah mempersiapkan segala sesuatunya dengan matang. \n-- syamsudinnamaku --";

newsText[8] = "Kata-kata Bijak : \nPertemanan itu seperti jika anda mengencingi diri anda sendiri. Semua orang bisa melihatnya, tapi hanya anda yang merasakan kehangatannya.\n-- Bashori ALwi --";

newsText[9] = "Kata-kata Bijak : \nLaki-laki itu ibarat bank. Tanpa uang yang banyak, mereka tidak menghasilkan bunga.\n-- Bashori ALwi --";

newsText[10] = "Kata-kata Bijak : \nTidak pernah ada yang jatuh miskin karena banyak memberi, tidak pernah akan menjadi kaya karena menang berjudi.\n-- Bashori ALwi --";

newsText[11] = "Kata-kata Bijak : \nAnda tidak akan dikatakan pintar bila tidak ada orang yang bodoh.\n-- Bashori ALwi --";

newsText[12] = "Kata-kata Bijak : \nJika Anda menginginkan sesuatu yang belum pernah anda miliki, Anda harus bersedia melakukan sesuatu yang belum pernah Anda lakukan. \n-- Bashori ALwi --";

var ttloop = 1; // Repeat forever? (1 = True; 0 = False)

var tspeed = 85; // Typing speed in milliseconds (larger number = slower)

var tdelay =3000; // Time delay between newsTexts in milliseconds

// ------------- NO EDITING AFTER THIS LINE ------------- \\

var dwAText, cnews=0, eline=0, cchar=0, mxText;


function doNews() {

mxText = newsText.length - 1;

dwAText = newsText[cnews];

setTimeout("addChar()",1000)

}

function addNews() {

cnews += 1;

if (cnews <= mxText) {

dwAText = newsText[cnews];

if (dwAText.length != 0) {

document.news.newsyam.value = "";

eline = 0;

setTimeout("addChar()",tspeed)

}

}

}

function addChar() {

if (eline!=1) {

if (cchar != dwAText.length) {

nmttxt = ""; for (var k=0; k<=cchar;k++) nmttxt += dwAText.charAt(k);

document.news.newsyam.value = nmttxt;

cchar += 1;

if (cchar != dwAText.length) document.news.newsyam.value += "_";

} else {

cchar = 0;

eline = 1;

}

if (mxText==cnews && eline!=0 && ttloop!=0) {

cnews = 0; setTimeout("addNews()",tdelay);

} else setTimeout("addChar()",tspeed);

} else {

setTimeout("addNews()",tdelay)

}

}

doNews()

</script></div>
Photobucket

No comments:

Post a Comment

My Ping in TotalPing.com
Feedage Grade D rated
Preview on Feedage: web-design Add to My Yahoo! Add to Google! Add to AOL! Add to MSN
Subscribe in NewsGator Online Add to Netvibes Subscribe in Pakeflakes Subscribe in Bloglines Add to Alesti RSS Reader
Add to Feedage.com Groups Add to Windows Live iPing-it Add to Feedage RSS Alerts Add To Fwicki
Ping your blog, website, or RSS feed for Free