Bahasa VB: September 2011

Senin, 05 September 2011

Download Video Youtube tanpa IDM / Keepvid

Post kali ini adalah Download Video Youtube tanpa IDM / Keepvid. Ketika akan mendownload video youtube, pasti anda mengandalkan IDM(Internet Download Manager) atau Keepvid. Memang, semuanya sama saja. Tetapi, kalau pakai IDM harus download softwarenya, sedangkan Keepvid komputerya harus terinstall Java. Cara ini menggunakan addons GreaseMonkey dan Sebuah Script.

Tools yg diperlukan:
Browser Firefox
Addons GreaseMonkey
Script Youtube Video Downloader. (Jangan download dulu)

Cara Install:

Install Addons GreaseMonkey
Setelah Terinstall, jangan lupa restart firefox, lalu Klik Disini
Setelah itu, akan diminta konfirmasi seperti gambar dibawah ini:

Klik "Install"
Setelah iitu, muncul gambar di pojok kanan bawah:
Proses Intalasi telah selesai

Cara Download:

Buka URL video Youtube
Pada bagian bawah video, akan ada tombol "Download" seperti ini:

Lalu, Klik "Download", pilih kualitasnya

Sekian dari saya, terimakasih. Semoga Bermanfaat!

Sabtu, 03 September 2011

Pasang Alert Pembuka di Blogger

Pada kesempatan kali ini, saya Memposting tentang Pasang Alert Pembuka di Blogger. Mungkin yang sering blogwalking, sering menemukan blog yang memunculkan tulisan "Selamat Datang di Blog ...".
Oke, langsung saja ya!

Buka www.blogger.com, klik Rancangan > Edit HTML
Cari Kode </head> (Ketikkan F3 lalu </head>)
Tulis Kode ini dibawah kode </head>
<script language="javascript">
alert("Selamat Datang!");
</script>
Ganti tulisan "Selamat Datang!" dengan tulisan yang diinginkan
Klik SIMPAN

Sekian dari saya. Jangan lupa untuk menuggu bagian kedua, tentunya lebih canggih lagi!

Cara Membuat Label Berjalan di Visual Basic

Kali ini saya akan memposting tentang Cara Membuat Label Berjalan di Visual Basic 6.0. Ikuti perintah dibawah ini ya!

Buka Visual Basic 6.0, buat project baru Standard EXE
Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
Coding berjalan dari kiri ke kanan:
Dim kalimat As String
Dim panjang As Integer
Dim jalan As Boolean
Private Sub Form_Load()
jalan = True
kalimat = "SELAMAT DATANG "
panjang = Len(kalimat)
Label1 = kalimat
Label1.Refresh
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Form_Unload(Cancel As Integer)
jalan = False
End Sub
Private Sub Timer1_Timer()
If jalan Then
kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)Label1 = kalimat
Label1.Refresh
Else
Timer1.Enabled = False
End If
End Sub
Dan ini coding berjalan dari kanan ke kiri:
Dim kalimat As String
Dim panjang As Integer
Dim jalan As Boolean
Private Sub Form_Load()
jalan = True
kalimat = "SELAMAT DATANG "
panjang = Len(kalimat)
Label1 = kalimat
Label1.Refresh
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Form_Unload(Cancel As Integer)
jalan = False
End Sub
Private Sub Timer1_Timer()
If jalan Then
kalimat = Right(kalimat, panjang - 1) & Left(kalimat, 1)
Label1 = kalimat
Label1.Refresh
Else
Timer1.Enabled = False
End If
End Sub
Ganti tulisan SELAMAT DATANG dengan tulisan yang ingin digerakkan. Ganti angka 100 dengan angka yang diinginkan. Semakin besar angkanya, semakin lambat jalannya. Begitu juga sebaliknya.

Selamat Mencoba! Semoga Berhasil!

Membuat Kalkulator dengan Notepad 2

Setelah Memposting Cara Membuat Kalkulator dengan Notepad, sekarang saya memposting Bagian Keduanya. Bagian pertama menggunakan bahasa pemrograman Batch, sedangkan bagian kedua menggunakan bahasa pemrograman HTML. Simple saja, siapkan Notepad atau Notepad++. Jangan lupa languagenya HTML(khusus yang ++).

Baca, dan Lakukan dengan Sabar!

Pastekan kode dibawah ini di Notepad atau Notepad++ :
<html>
<head>
<title>HTML Kalkulator</title>
</head>
<body>
<form name="Keypad" action>
<table border="1"  bgcolor="#838383">
<tr>
<td colspan="5" bgcolor="#DFDFDF">
<input name="ReadOut" type="Text" size="30" value="0">
</td>
</tr>
<tr>
<td bgcolor="#DFDFDF">
<input name="btnSeven" type="Button" value="  7  " onClick="NumPressed(7)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnEight" type="Button" value="  8  " onClick="NumPressed(8)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnNine" type="Button" value="  9  " onClick="NumPressed(9)">
</td>
<td bgcolor="#DFDFDF"><input name="btnNeg" type="Button" value=" +/- " onClick="Neg()"></td>
<td bgcolor="#DFDFDF"><input name="btnPercent" type="Button" value=" % " onClick="Percent()"></td>

</tr>
<tr>
<td bgcolor="#DFDFDF">
<input name="btnFour" type="Button" value="  4  " onClick="NumPressed(4)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnFive" type="Button" value="  5  " onClick="NumPressed(5)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnSix" type="Button" value="  6  " onClick="NumPressed(6)">
</td>
<td bgcolor="#DFDFDF"><input name="btnPlus" type="Button" value="  +  "
onClick="Operation('+')"></td>
<td bgcolor="#DFDFDF"><input name="btnMultiply" type="Button" value="  *  "
onClick="Operation('*')"></td>

</tr>
<tr>
<td bgcolor="#DFDFDF">
<input name="btnOne" type="Button" value="  1  " onClick="NumPressed(1)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnTwo" type="Button" value="  2  " onClick="NumPressed(2)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnThree" type="Button" value="  3  " onClick="NumPressed(3)">
</td>
<td bgcolor="#DFDFDF"><input name="btnMinus" type="Button" value="  -  "
onClick="Operation('-')"></td>
<td bgcolor="#DFDFDF"><input name="btnDivide" type="Button" value="  /  "
onClick="Operation('/')"></td>

</tr>
<tr>
<td bgcolor="#DFDFDF">
<input name="btnZero" type="Button" value="  0  " onClick="NumPressed(0)">
</td>
<td bgcolor="#DFDFDF">
<input name="btnDecimal" type="Button" value="  .  " onClick="Decimal()">
</td>
<td colspan="3"  bgcolor="#797979">
<input name="btnClear" type="Button" value="  C  " onClick="Clear()">
<input name="btnClearEntry" type="Button" value=" CE " onClick="ClearEntry()">
<input name="btnEquals" type="Button" value="  =  " onClick="Operation('=')"></td>
</tr>
</table>
</form>
<script LANGUAGE="JavaScript">

var FKeyPad = document.Keypad;
var Accum = 0;
var FlagNewNum = false;
var PendingOp = "";
function NumPressed (Num) {
if (FlagNewNum) {
FKeyPad.ReadOut.value = Num;
FlagNewNum = false;
}
else {
if (FKeyPad.ReadOut.value == "0")
FKeyPad.ReadOut.value = Num;
else
FKeyPad.ReadOut.value += Num;
}
}
function Operation (Op) {
var Readout = FKeyPad.ReadOut.value;
if (FlagNewNum && PendingOp != "=");
else
{
FlagNewNum = true;
if ( '+' == PendingOp )
Accum += parseFloat(Readout);
else if ( '-' == PendingOp )
Accum -= parseFloat(Readout);
else if ( '/' == PendingOp )
Accum /= parseFloat(Readout);
else if ( '*' == PendingOp )
Accum *= parseFloat(Readout);
else
Accum = parseFloat(Readout);
FKeyPad.ReadOut.value = Accum;
PendingOp = Op;
}
}
function Decimal () {
var curReadOut = FKeyPad.ReadOut.value;
if (FlagNewNum) {
curReadOut = "0.";
FlagNewNum = false;
}
else
{
if (curReadOut.indexOf(".") == -1)
curReadOut += ".";
}
FKeyPad.ReadOut.value = curReadOut;
}
function ClearEntry () {
FKeyPad.ReadOut.value = "0";
FlagNewNum = true;
}
function Clear () {
Accum = 0;
PendingOp = "";
ClearEntry();
}
function Neg () {
FKeyPad.ReadOut.value = parseFloat(FKeyPad.ReadOut.value) * -1;
}
function Percent () {
FKeyPad.ReadOut.value = (parseFloat(FKeyPad.ReadOut.value) / 100) * parseFloat(Accum);
}
</script>
</body>
</html>
Simpan dengan Nama Kalkulator2.html
Tes dulu kalkulator anda.

Semoga Bermanfaat.

Cara Membuat Kalkulator dengan Notepad

Karena hari ini masih bulan syawal, jadi saya mengucapkan Selamat Hari Raya Idul Fitri 1432 H, Mohon Maaf Lahir dan Batin, maaf kalo telat ngucapinnya. Nah pada kesempatan kali ini, saya ingin memposting tentang Cara Membuat Kalkulator dengan Notepad. Program ini menggunakan bahasa pemrograman Batch, jadi sangat simpel, dan pembuatannya sangatlah mudah. Langsung saja,

Tools

Komputernya Windows
Notepad atau Notepad++

Step

Buka Notepad atau Notepad++. Kalau Notepad++ Language nya Batch
Masukkan Kode Dibawah Ini:
@echo off
title Simple Calculator by ariqxp.blogspot.com
color f0
:a
cls
echo Masukkan angka tang ingin anda hitung
set/p "a=.Angka Pertama: "
set/p "b=.Angka Kedua : "
echo.
echo Input karakter:
echo 1. Tambah
echo 2. Kurang
echo 3. kali
echo 4. bagi
echo 5. keluar
echo.
set/p "car=>"
if %car%==1 goto plus
if %car%==2 goto min
if %car%==3 goto kali
if %car%==4 goto bagi
if %car%==5 goto exit
pause>nul
GOTO a
:plus
set/a c=%a%+%b%
echo %a% ditambah %b% hasilnya adalah %c%
echo visit http://ariqxp.blogspot.com/
pause>nul
goto a
:min
set/a c=%a%-%b%
echo %a% dikurangi %b% hasilnya adalah %c%
echo visit http://ariqxp.blogspot.com/
pause>nul
goto a
:kali
set/a c=%a%*%b%
echo %a% dikali %b% hasilnya adalah %c%
echo visit http://ariqxp.blogspot.com/
pause>nul
goto a
:bagi
set/a c=%a%/%b%
echo %a% dibagi %b% hasilnya adalah %c%
echo visit http://ariqxp.blogspot.com/
pause>nul
goto a
Simpan dengan nama Kalkulator.Batch
Test kalkulator anda.

Sekian dari saya, Terima Kasih. Jangan lupa untuk menuggu bagian keduanya!