You are here: » Home » All posts

Cara Membuat Label Countdown di Visual Basic 6

02.47 Ariq-XP Creativity

Hai! Kali ini, saya akan post tentang Cara Membuat Label Countdown di Visual Basic 6, sesuai dengan request Dimaz. Oke, ini dia caranya:

[Read More...]


Pasang Widget Twitter di Blogger

01.05 Ariq-XP Creativity

Twitter

Haloooo, maaf, ini update blog saya setelah hampir satu tahun enggak update. Maklum lah, harus belajar buat UN. Kali ini saya akan memposting tentang Pasang Widget Twitter di Blogger. Mau tahu? enggak, maunya ikan bakar. Langsung aja ya!
[Read More...]


Download Video Youtube tanpa IDM / Keepvid

23.04 Ariq-XP Creativity

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:
  1. Install Addons GreaseMonkey
  2. Setelah Terinstall, jangan lupa restart firefox, lalu Klik Disini
  3. Setelah itu, akan diminta konfirmasi seperti gambar dibawah ini:
    Gambar Konfirmasi Install Script Youtube Downloader
    Klik "Install"
  4. Setelah iitu, muncul gambar di pojok kanan bawah:
    Tanda bahwa Script sudah terisntall
  5. Proses Intalasi telah selesai
Cara Download:
  1. Buka URL video Youtube
  2. Pada bagian bawah video, akan ada tombol "Download" seperti ini:
    Gambar Tombol Download
    Lalu, Klik "Download", pilih kualitasnya

Sekian dari saya, terimakasih. Semoga Bermanfaat!
[Read More...]


Pasang Alert Pembuka di Blogger

17.16 Ariq-XP Creativity

 
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 ...".
[Read More...]


Cara Membuat Label Berjalan di Visual Basic

16.08 Ariq-XP Creativity

Kali ini saya akan memposting tentang Cara Membuat Label Berjalan di Visual Basic 6.0. Ikuti perintah dibawah ini ya!
  1. Buka Visual Basic 6.0, buat project baru Standard EXE
  2. Buat Label baru bernama Label1. Buat juga Timer baru bernama Timer1.
  3. 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
  4. 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
  5. 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!
[Read More...]


Membuat Kalkulator dengan Notepad 2

02.15 Ariq-XP Creativity

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"&nbsp; 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="&nbsp; 7&nbsp; " onClick="NumPressed(7)">
    </td>
    <td bgcolor="#DFDFDF">
    <input name="btnEight" type="Button" value="&nbsp; 8&nbsp; " onClick="NumPressed(8)">
    </td>
    <td bgcolor="#DFDFDF">
    <input name="btnNine" type="Button" value="&nbsp; 9&nbsp; " 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="&nbsp; 4&nbsp; " onClick="NumPressed(4)">
    </td>
    <td bgcolor="#DFDFDF">
    <input name="btnFive" type="Button" value="&nbsp; 5&nbsp; " onClick="NumPressed(5)">
    </td>
    <td bgcolor="#DFDFDF">
    <input name="btnSix" type="Button" value="&nbsp; 6&nbsp; " onClick="NumPressed(6)">
    </td>
    <td bgcolor="#DFDFDF"><input name="btnPlus" type="Button" value="&nbsp; +&nbsp; "
    onClick="Operation('+')"></td>
    <td bgcolor="#DFDFDF"><input name="btnMultiply" type="Button" value="&nbsp; *&nbsp; "
    onClick="Operation('*')"></td>

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

    </tr>
    <tr>
    <td bgcolor="#DFDFDF">
    <input name="btnZero" type="Button" value="&nbsp; 0&nbsp; " onClick="NumPressed(0)">
    </td>
    <td bgcolor="#DFDFDF">
    <input name="btnDecimal" type="Button" value="&nbsp; .&nbsp; " onClick="Decimal()">
    </td>
    <td colspan="3"&nbsp; bgcolor="#797979">
    <input name="btnClear" type="Button" value="&nbsp; C&nbsp; " onClick="Clear()">
    <input name="btnClearEntry" type="Button" value=" CE " onClick="ClearEntry()">
    <input name="btnEquals" type="Button" value="&nbsp; =&nbsp; " 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.
[Read More...]


Cara Membuat Kalkulator dengan Notepad

01.50 Ariq-XP Creativity

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!
[Read More...]


Source Code Program Sederhana untuk Belajar Visual Basic

16.22 Ariq-XP Creativity

Karena kemarin
[Read More...]


Cara Membuat Label Berkedip di Visual Basic 6

02.54 Ariq-XP Creativity

Mungkin, sudah banyak yang Posting tentang Cara Membuat Label Berkedip di Visual Basic 6, tapi tidak ada salahnya jika saya juga memposting cara ini.
[Read More...]


Membuat Simple Web Browser menggunakan Microsoft Visual Basic 6

06.39 Ariq-XP Creativity

Mungkin sudah banyak yang mempunyai Web Browser seperti Mozila Firefox, Chrome, Opera. Tapi, kali ini saya akan menyediakan tutorial Cara Membuat Web Browser menggunakan Visual Basic 6. Langsung saja silakan ikuti tata cara berikut:

Hal yang Diperlukan:
Microsoft Visual Basic 6.0 [ download di SINI ]

Lanhkah - Langkah:

  1. Buka Visual Basic 6, buat project baru.
  2. Tambahkan Kontrol web browser(ketik ctrl+t, centang Microsoft Internet Controls, OK)
  3. Dobel klik Web Browser di Toolbox, beri nama WebBrowser1
  4. Tambahkan beberapa kontrol command button dan textbox. Properties nya sebagai berikut:
    Kontrol: Nama: Caption:
    Text Box txtUrl (kosongkan)
    Command Button cmdGo GO!
    Command Button cmdBack Back
    Command Button cmdFoward Foward
    Command Button cmdRefresh Refresh
    Command Button cmdStop Stop
  5. Masukkan coding berikut(klik kanan pada form, view code):
    Private Sub cmdBack_Click()
    'Untuk Kembali
    WebBrowser1.GoBack
    End Sub
    Private Sub cmdFoward_Click()
    'Untuk maju ke halaman yg telah di klik kembali
    WebBrowser1.GoForward
    End Sub
    Private Sub cmdGo_Click()
    'Untuk pergi ke sebuah situs web yang telah diketik di txtUrl tadi
    WebBrowser1.Navigate (txtUrl.Text)
    End Sub
    Private Sub cmdRefresh_Click()
    'Untuk merefres halaman
    WebBrowser1.Refresh
    End Sub
    Private Sub cmdStop_Click()
    'Untuk menyetop loading halaman
    WebBrowser1.Stop
    End Sub
    Private Sub Form_Load()
    'Untuk menetapkan sebuah situs web sebagai homepage
    WebBrowser1.Navigate ("http://www.google.co.id/")
    End Sub
    Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    'Untuk merubah Caption Form1
    Form1.Caption = WebBrowser1.LocationName + " - NAMA WEB BROWSERMU"
    'Untuk merubah Text txtUrl menjadi url yg sedang kita tuju
    txtUrl.Text = (WebBrowser1.LocationURL)
    End Sub
  6. Klik File > Make Project1.exe
Silakan download punya saya di SINI
Akhir kata, sekian da terimakasih.
    [Read More...]


    Download Visual Basic 6 Enterprise Edition Full Version

    02.37 Ariq-XP Creativity

    Penjelasan tentang Visual Basic yang saya ambil dari wikipedia:

    Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
    Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
    Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

    Download: KLIK DISINI
    [Read More...]


    Langganan: Postingan (Atom)

    Recent Post

    Popular Posts

    Return to top of page Copyright © 2011-2012 | Ariq-XP Blog | Platinum Theme Converted into Blogger Template by Hack Tutors