08 August 2017

ASP.NET Custome Validator Numbers Only

 Menginput atau memasukan sebuah number ( num/nomor ) kedalam form field secara tingkat lanjut atau advance ini kita harus menggunakan system validator yang harus akurat. seperti ia melihatku saat bermain laptop. 
ASP.NET Custome Validator Numbers Only
ASP.NET Custome Validator Numbers Only



  • Standartd Validation to make sure


Problem ( masalah )


 Numbers Only kita menggunakan ini saja , semisalnya untuk sebuah input NIM ( Nomor Induk Mahasiswa ) bagaimana cara membuat custome validator ? how ? katakan secara langsung dengan rasa malu

Baca juga :  Memahami Sintak Dasar dan Semantik Dalam Konsep Logika Bahasa Pemrograman HTML 5

Solution ( Solusi )


 buatlah sebuah form txtbox (textbox) dan btn ( button ) dilengkapi dengan validator seperti code script ( skrip ) dibawah ini dengan format .aspx : jangan format hati ku :v
<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="CustomNim.aspx.cs" Inherits="Bab3.CustomNim" %>
<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    Masukan Nim :<asp:TextBox ID="txtNim" runat="server"/><%-- www.yogi-aw.id | Deyawman , www.yogithesymbian.blogspot.com | Deyawman --%>
<asp:CustomValidator ID="cvNim" runat="server" 
  ErrorMessage="NIM harus 8 Karakter" 
  ControlToValidate="txtNim" 
  onservervalidate="CekNim_ServerValidate" /><br />
<asp:Button ID="btnSubmit" runat="server" 
  Text="Submit" />

    </div>
    </form>
</body>
</html>

 Setelah itu masukan script code .aspx.cs nya sebagai limit atau menentukan berapa value length

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;

namespace Bab3
{
    public partial class CustomNim : System.Web.UI.Page
    {
        protected void Page_Load(object sender, EventArgs e)
        {

        }

        protected void CekNim_ServerValidate(object sender, ServerValidateEventArgs e)
        {
            if (e.Value.Length != 8)
            {
                e.IsValid = false;
            }
            else
            {
                e.IsValid = true;
            }
        }

    }
}

 Jalankan program validator nya dan lihat hasilny.

Baca juga : Tutorial Install Laravel di Windows ( XAMPP )

Diskusi


 Apakah penting sebuah validator number ini ?
Sangat berguna bagi sebuah website yang menggunakan format asp.net untuk membuat sebuah form field add NIM maupun sebuah NIK ( Nomor Induk Keluarga ) , NIS ( Nomor Induk Siswa ).


ok sekian semoga bermanfaat
thanks for read

07 August 2017

Memahami Sintak Dasar dan Semantik Dalam Konsep Logika Bahasa Pemrograman HTML 5

Memahami Sintak Dasar dan Semantik Dalam Konsep Logika Bahasa Pemrograman HTML 5

  Html 5 merupakan hal yang baru dan sangat menarik untuk dipelajari seperti saya yang sedang belajar dan ingin membagikan sebuah ilmu.
Pada label sintak dasar dan semantik dan mengenai pengertian sintak dan semantik kalian akan bisa merancang untuk membangun atau membuat dan menjalankan dengan dasar-dasar HTML 5. Meliputi componen dasar, dari menyatakan DOCTYPE dan karakter ditetapkan untuk mengatasi ambiguitas HTML 5 semantik.

 Konsep HTML 5 ini sangatlah lebih signifikan dari versi HTML sebelumnya dalam memahami sintak ini, saya berikan dalam bentuk problem solving yang diharapkan bisa kalian pahami.
Copyright Disclaimer-Title 17, US Code (Sections 107-118 of the copyright law, Act 1976):
All media in this video is used for purpose of review & commentary under terms of fair use.
All footage, & images used belong to their respective companies

  • Pengertian sintak :  sebuah bahasa berhubungan dengan struktur bahasa. contoh mengassign variable ke nilai, kita memakai
= untuk basic dan := untuk pascal
basic a=630 dan pascal a:=630
        contoh mengassign dalam dunia sehari-hari, kita memakai
Komariah Minum Air Aqua Sampai Mabuk 
dengan memakai structure ( struktur ) SPOK , kita dapat membuat kalimat itu

  • pengertian semantik :  sebuah bahasa menggambarkan hubungan antara sintaks dan model komputasi. Sederhananya, semantik menjelaskan arti dari program. misalkan kita memakai sintak dalam kehidupan sehari-hari SPOK , bisa menghasilkan kata Komariah Minum Air sampai pura-pura pingsan biar dapat napas alternatif, maka ini sudah benar sintaks nya. Tapi, kalau saya ubah menjadi Komariah Minum Nasi Kuning ya mana bisa lah ini gegara belum di ium jadi nasi di minum wkwk, Secara sintak kalimat ini benar sekali gan, tetapi secara semantik tidak benar ( tidak mengandung makna yang berarti ). contoh dalam mengassign coding
if(a=9999) {
echo ‘Nilai a=999?;
}

 Maka output yang keluar selalu Nilai a=5, walaupun nilai variabel a sebelumnya selain 5. Kenapa ? Itu karena dia ingin di ium operator = dalam bahasa C berarti mengassign sebuah variabel yang ada di sebelah kiri dengan nilai yang ada di sebelah kanan. Dalam bahasa C, secara sintaks operasi ini sudah benar.
Tapi, apabila yang dimaksud adalah programmer ingin mengevaluasi nilai variabel a, maka seharusnya memakai operator logika ==. Jadi, program yang sebenarnya menjadi
if(a==999){
echo ‘Nilai a=999?;
}

Ok kita kembali ke topik awal mengenai semantik dalam :
  • Menentukan DOCTYPE


Problem ( Masalah )

bagaimana membuat halaman ( page ) HTML 5 ? kamu mau buat ?. mudah katanya

Solution ( Solusi )

Begini caranya : Tentukan dokumen HTML 5 di awal halaman.
<!DOCTYPE html>
<html>
<head><title>HTML5, for Fun & Profit</title></head>
<body></body>
</html>

Perhatikan bahwa DOCTYPE tidak sensitif tapi adinda sensitif huruf.

Diskusi

Definisi Tipe Dokumen, atau DOCTYPE, memberitahu browser dan validator versi HTML halaman mana yang tertulis. Versi HTML sebelumnya menentukan nomor versi, seperti DOCTYPE untuk XHTML 1.0 Strict:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
Dengan HTML5, versi tersebut dikeluarkan dari DOCTYPE. Hal ini memungkinkan HTML5 kompatibel dengan sintaks dan mudah-mudahan membuat transisi ke HTML5 menjadi lebih mudah. Misalkan Anda memiliki situs yang valid HTML 4.0, namun Anda ingin mentransisikannya menjadi HTML5. Yang harus Anda lakukan untuk membuat situs HTML5 yang valid ini membuat perubahan DOCTYPE ini. Selain itu, semua browser mengenali DOCTYPE yang dipersingkat dan tampil dalam mode standar yang ketat.

Ada beberapa elemen yang telah berubah antara HTML4 dan HTML5, jadi Anda perlu memperhatikan elemen yang telah dihapus atau tidak digunakan lagi.

  • Menentukan Karakter Set


Problem ( Masalah )

Anda ingin mendefinisikan pengkodean karakter dari halaman web Anda ?.

Solution ( Solusi )

Di bagian lips adinda <head>, tambahkan deklarasi meta untuk kumpulan karakter:

<meta charset="UTF-8" />

Diskusi

 Encoding karakter menginstruksikan browser dan validator set karakter yang digunakan saat merender halaman web. Jika tidak menyatakan karakter dalam HTML Anda, browser pertama-tama mencoba menentukan lokasi ketemuan adindaku set karakter dari header respons HTTP server Anda (khusus, header Content-Type).
 Set karakter yang dideklarasikan di header tanggapan umumnya diambil berdasarkan preferensi pada set karakter yang ditentukan dalam dokumen , jadi tajuk adalah metode yang disukai untuk mengkomunikasikan informasi ini. Namun, jika tidak bisa mengendalikan header yang dikirimkan oleh server, menyatakan karakter yang ditetapkan dalam dokumen HTML Anda adalah pilihan terbaik. Jika kumpulan karakter tidak dideklarasikan dalam dokumen maupun header tanggapan, browser mungkin memilih satu untuk Anda, dan mungkin salah untuk kebutuhan situs kamu. Hal ini tidak hanya dapat menyebabkan masalah dengan rendering, namun juga menimbulkan risiko keamanan.
Beberapa tahun yang lalu, kerentanan cross-site scripting ditemukan di Google yang menunjukkan pentingnya pengkodean karakter: http:   //shiflett .org/blog/2005/dec/googles-xss-vulnerability.
Pada versi HTML sebelumnya, kumpulan karakter perlu dideklarasikan dengan atribut dan nilai tambahan: 

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />


Tapi, seperti DOCTYPE, HTML5 hanya membutuhkan informasi minimal yang dibutuhkan oleh browser. Sekali lagi, ini membantu dengan kompatibilitas dan memudahkan pengarsipan.

Karakter khusus
Unicode (UTF-8) adalah pengkodean serbaguna yang mencakup kebutuhan pembangun web. Terkadang, Anda perlu memasukkan karakter yang berada di luar pengkodean UTF-8.  
Sumber daya yang bagus untuk entitas karakter ada di http:  //www.digitalmediami nute . com/reference /entity/. Ini mencakup referensi numerik, dinamai, dan Unicode untuk banyak karakter yang lebih umum yang diizinkan dalam HTML.
Untuk dapat menentukan karakter tersebut dengan Numeric Character References (NCRs) atau sebagai entitas bernama untuk membantu browser agar menampilkannya dengan benar. Jika menginginkan simbol hak cipta, misalnya, dapat memasukkannya ke dalam HTML sebagai NCR:

© menghasilkan ( & # 1 6 9 ) 

Atau memasukkannya sebagai entitas bernama di surat nikah:

© menghasilkan ( & copy; )

  • Menentukan Bahasa


Problem ( Masalah )

Ingin menentukan bahasa utama halaman web ?.

Solution ( Solusi )

Tambahkan sambel gan enak eh makan gorengan sambil buat posting atribut lang dan nilai yang sesuai dengan elemen html pembuka yang dibuat:

<html lang="en">

Diskusi

Browser, pembaca layar, dan user pengguna lainnya menggunakan atribut lang untuk menentukan bahasa yang isinya harus ditafsirkan. Contoh di atas menentukan bahasa Inggris melalui nilai en. Mendeklarasikan bahasa utama dokumen bukanlah persyaratan untuk HTML5 (atau versi sebelumnya, dalam hal ini).
  • Mengoptimalkan <script> dan <link>


Problem ( Masalah )

Optimalkan penggunaan referensi JavaScript dan menyertakan link ke file CSS eksternal di halaman web sesederhana mungkin seperti kita ini adinda.

Solution ( Solusi )

Masukan deklarasi skrip ini , namun tanpa atribut jenis:

<link rel="stylesheet" href="styles.css" />
<script src="scripts.js"></script>

Diskusi

HTML5 hanya membutuhkan jumlah minimum informasi yang dibutuhkan untuk pengguna. Dalam versi HTML sebelumnya, tautan CSS dan skrip CSS memerlukan atribut jenis untuk menunjukkan bahasa tersebut. Jika lupa memasukkan jenis, browser kebanyakan menganggap nilai yang benar.
HTML5 membuat jenis resmi opsional, namun masih memvalidasi dokumen lama yang menyertakan atribut tersebut. Ini masuk akal, karena hanya ada satu bahasa script standar dan hanya satu tujuanku adindaku bahasa styling untuk Web yang digunakan saat ini.
  • Menambah struktur dokumen HTML 5


Problem ( Masalah )

Cara mendefinisikan struktur dokumen dengan bagian header, footer, nav, samping, bagian, dan artikel baru.

Solution ( Solusi )

Periksa konten dan struktur adinda dokumen untuk menentukan elemen baru yang bekerja dengan halaman: 
  • Header Digunakan untuk memuat judul utama untuk halaman dan / atau bagian. Ini juga dapat berisi informasi tambahan seperti logo dan alat bantu navigasi.  
  • Footer ini anu horor type 2 adinda aaa ampun :v Berisi informasi tentang halaman dan / atau bagian, seperti yang menulisnya, link ke informasi terkait, dan pernyataan hak cipta.  
  • Nav Mengandung link navigasi utama untuk sebuah halaman dan, walaupun bukan persyaratan, sering kali terdapat oleh header.  
  • Aside Berisi informasi yang berkaitan dengan konten sekitarnya namun juga ada secara independen, seperti sidebar atau pull-quotes.  
  • Section yang paling umum dari elemen struktur baru, mengandung konten yang bisa dikelompokkan secara tematis atau terkait.  
  • Article Digunakan untuk konten mandiri yang bisa dikonsumsi secara independen dari keseluruhan halaman, seperti entri blog.
Struktur blog yang sederhana, dengan tajuk utama, navigasi, sidebar, posting blog, dan footer, bisa ditandai dia nguntit kamu selagi di kelas buat artikel sambil pakai headset di HTML5 sebagai:

<header>
<h1><abbr title="Hypertext Markup Language">HTML</abbr>5, for Fun & Profit</h1>
<nav> <ul>
<li><a href="/Archive/">Archive</a></li>
<li><a href="/About/">About</a></li>
</ul>    </nav> </header> 
<article>
<h2><code>nav</code> Isn't for <em>All</em> Links</h2>
<p>Though the <code>nav</code> element often contains links, that doesn't mean       that <em>all</em> links on a site need <code>nav</code>.</p> </article> <article>    <h2>You've Got the <code>DOCTYPE</code>. Now What?</h2>    
<p>HTML5 isn't an all or nothing proposition. You can pick and choose what       works best for you. So once you have the <code>DOCTYPE</code> in place, you       should explore.</p> 
</article> <aside>    <h2>HTML5 Elsewhere</h2>    
<p>Feed your HTML5 fix with resources from our partners:</p>    
<ul>        <li><a href="http://lovinghtml5.com">Loving HTML5</a></li>        
<li><a href="http://semanticsally.com">Semantic Sally</a></li>    </ul> </aside> <footer>    
<p>Copyright © 2011 <a href="http://html5funprofit.com">HTM5, for Fun       & Profit</a>. All rights reserved.</p> </footer>
Dan dengan CSS yang benar dan HTML pendukungnya, markup ini bisa ditampilkan di browser seperti gambar dibawah ini.
Contoh rendering struktur blog sederhana HTML5  

Discussion ( Diskusi )

Unsur struktural baru ini dikembangkan berdasarkan cinta kita yang istimewa dan sederhana praktik aktual. Sebuah tinjauan terhadap lebih dari satu miliar halaman web (lihat http://code.google.com/webstats/) mengungkapkan bahwa kumpulan penamaan konvensi penamaan telah digunakan untuk menyusun dan menggambarkan isinya melalui kelas dan id, termasuk:
  • header
  • footer
  • nav
Elemen baru di HTML5 hanya mencoba untuk mencerminkan apa yang penulis dilakukan sebelumnya. 
Structural Elements
Menggunakan elemen struktural ini membantu membuat markup lebih semantik, namun juga membantu menentukan define utama dalam dokumen. Pertimbangkan betapa pentingnya bagi user pembaca dan orang-orang yang menavigasi dengan keyboard agar dapat melompat ke berbagai area halaman, seperti navigasi. Sebelumnya, telah mencoba menyediakan fungsionalitas semacam itu melalui "lewati tautan" dan pintasan (lihat http: // www . vdebolt.com / nmmug / flow.html), namun HTML5 menetapkan elemen define formal yang dapat digunakan. Kenyataannya, spesifikasi Aplikasi Rich China Internet Initiatif yang Diakses Web Initiative (WAI-ARIA) sudah membahas bagaimana menggunakan HTML5 dengan peran penting ARIA untuk tujuan ini. Konon, ini masih hipotetis. Pada tulisan ini, tidak ada browser atau teknologi pendukung yang merujuk pada elemen struktural untuk tujuan navigasi.

Kapan Menggunakan Structural Elements ? 
 Tahukah kamu kapan harus menggunakan elemen baru ini? nanti kalau ketemu dia Sekali lagi, fokus pada kuliah dulu untuk tujuan future konten  dan pertimbangkan semantik setiap elemen. Misalnya, kebanyakan halaman web memiliki area yang dianggap sebagai "header", yang terdiri dari logo, mungkin nama perusahaan, dan tagline. Dan itu pasti terdengar seperti kasus bagus untuk header.  
  Mungkin juga memiliki bagian atau samping dalam dokumen dengan judul dan navigasi utama, yang mungkin juga terdapat dalam header. Hal yang sama berlaku untuk footer. Meskipun sebagian besar halaman memiliki konten yang sesuai untuk elemen footer yang baru, mungkin mengenai penulis, hak cipta, dan informasi terkait, bagian, artikel, dan fitur lainnya dapat menampilkan informasi yang sama-dan, pada gilirannya, juga dapat menyertakan footer. Akhirnya, pertimbangkan nav. Mungkin memiliki banyak kelompok tautan di situs Anda, beberapa di antaranya adalah untuk navigasi, sementara yang lain bersifat eksternal.
Nav hanya sesuai untuk navigasi situs utama, bukan hasil pencarian link atau blogroll. Tetapi saya memakainya , setidaknya jangan berlebihan .
Kapan Menggunakan <div> elements ? 
Seperti yang dapat diihat dari contoh markup blog, elemen struktur baru dapat menggantikan banyak div kontainer non-semantik yang mungkin sudah terbiasa kalian gunakan, yakan ? ngaku sajalah ?. Tapi div masih punya tempat di pesta nikahan HTML5. Jika kamu membutuhkan unsur yang mengandung unsur secara ketat untuk tujuan gaya, div adalah elemen yang akan digunakan. NO . ... tidak ingin menggunakan salah satu elemen struktur baru hanya untuk dijadikan kait untuk CSS ? . Itu bukan markup semantik gan ...... . Ingatlah untuk fokus pada konten  dan hindari penggunaan div yang tidak perlu, seperti ketika elemen lain lebih semantik. Misalnya, jika Anda memiliki paragraf teks, gunakan elemen p, bukan div. Keduanya memberi Anda format block-level, tapi p lebih semantik untuk tujuan itu. Tetapi blogger suka dengan div , huft saya masih kecewa dengan autorepair atau otomatis memperbaiki script yang jika berpindah dari compose ke html dan sebaliknya, apakah kalian setuju dengan deyawman ? dengan pendapat ini ? katakan iya atau saya tembak ?.


Struktur elemen styling Semua browser saat ini membuat konten yang terdapat oleh elemen baru ini. Namun, beberapa browser tidak mengenali mereka dan, dengan demikian, memperlakukan mereka seperti elemen inline. Penyesuaian default ini dapat menyebabkan beberapa masalah styling. Untungnya, tidak perlu banyak perbaikan. Pemeran saat ini hanya perlu diberi tahu untuk memperlakukan elemen sebagai elemen tingkat blok:


header, footer, nav, article, aside, section 
{    display: block;
}


Dengan deklarasi CSS tunggal itu, bisa dapat dengan senang hati menyusun elemen struktur - well, hampir. Dalam versi Internet Explorer (IE) sebelum IE9 harus menambahkan sedikit JavaScript ke dokumen sehingga IE mengenali elemen dan memungkinkan untuk menata mereka:


<script>
document.createElement('header');
document.createElement('footer');
document.createElement('nav');
document.createElement('article');
document.createElement('aside');
document.createElement('section');
</script>


Jika sobat menginginkan kerjasama dari versi IE sebelumnya, kapan pun kamu menambahkan elemen HTML5 baru ke dokumen , adinda harus menambahkan dokumen yang sesuai.createElement. Postingan selanjutnya akan kita bahas lebih rinci mengenai ini.
  • Menggunakan <article> atau <section> ?


Problem ( Masalah ) 

Kau tidak tahu apakah artikel atau bagian adalah elemen yang paling tepat untuk digunakan di halaman web .

Solution ( Solusi ) 

Fokus pada konten dan definisi semantik artikel dan bagian.

<article>
Artikel dapat dianggap sebagai bentuk bagian khusus. Ini ditujukan untuk konten yang bisa berdiri sendiri, di luar semua konten di sekitarnya, seperti konten "sindikasi" seperti entri blog. Artikel ini cocok untuk jenis konten lainnya, termasuk:
Video dan transkrip yang menyertainya
• Artikel Terbarus
• Komen Blog
Seringkali nama artikel atau postingan blog ada di judul URI. Jika demikian halnya dengan halaman yang sedang Anda kerjakan, konten itu harus dibungkus dalam elemen artikel.
Dalam contoh kode ini, menggunakan artikel untuk memuat setiap entri blog:


<article>    <h2><code>nav</code> Isn't for <em>All</em> Links</h2>    <p>Though the <code>nav</code> element often contains links, that doesn't mean       that <em>all</em> links on a site need <code>nav</code>.</p> </article> <article>    <h2>You've Got the <code>DOCTYPE</code>. Now What?</h2>    <p>HTML5 isn't an all or nothing proposition. You can pick and choose what       works best for you. So once you have the <code>DOCTYPE</code> in place, you       should explore.</p> </article>


<section> 
 Bagian adalah unsur struktural yang paling umum, yang dimaksudkan untuk sekadar mengelompokkan konten terkait. Namun, ini bukan elemen wadah generik seperti div. Konten yang dikelompokkan harus terkait. Menerapkan definisi ini ke Resep 1,5, kita mungkin ingin menambahkan bagian sebagai elemen induk untuk kedua contoh artikel


<section>    <article>        <h2><code>nav</code> Isn't for <em>All</em> Links</h2>        <p>Though the <code>nav</code> element often contains links, that doesn't           mean that <em>all</em> links on a site need <code>nav</code>.</p>    </article>    <article>        <h2>You've Got the <code>DOCTYPE</code>. Now What?</h2>        <p>HTML5 isn't an all or nothing proposition. You can pick and choose what           works best for you. So once you have the <code>DOCTYPE</code> in place,           you should explore.</p>    </article> </section>


 Contoh ini memenuhi kriteria inti untuk bagian: konten yang dikelompokkan secara tematis terkait.  (lihat http://www.w3.org/TR/html5/sections.html#the-section-ele ment) menjelaskan lebih lanjut: Aturan umum adalah bahwa elemen bagian sesuai hanya jika isi elemen tersebut akan terdaftar. Secara eksplisit. Garis besar dokumen mengacu pada model isi bagian HTML5 yang baru, di mana masing-masing elemen struktur baru. Garis besar ini dihasilkan oleh judul (h1-h6) yang terdapat di setiap elemen. Jadi, jika Anda ingin menggunakan bagian, konten harus memiliki heading alami. Dengan klarifikasi tambahan ini, mari modifikasi markup, untuk menyertakan judul bagian kami:


<section>    <h1>Most Recent Blog Posts</h1>    <article>        <h2><code>nav</code> Isn't for <em>All</em> Links</h2>        <p>Though the <code>nav</code> element often contains links, that doesn't           mean that <em>all</em> links on a site need <code>nav</code>.</p>    </article>    <article>        <h2>You've Got the <code>DOCTYPE</code>. Now What?</h2>        <p>HTML5 isn't an all or nothing proposition. You can pick and choose what           works best for you. So once you have the <code>DOCTYPE</code> in place,           you should explore.</p>    </article> </section>
  

Discussion ( Diskusi )

Perbedaan antara bagian ( section ) dan artikel ( article ) bisa membingungkan, dan saat spec berkembang, jalan tampaknya tidak menjadi jauh lebih jelas. Namun, untuk sebagian besar kasus penggunaan, pertimbangkan panduan ini untuk membantu:
• Jangan gunakan bagian hanya sebagai kait styling. Gunakan div dan span instead.  
• Jangan gunakan bagian ( section ) jika header, footer, samping, atau artikel lebih semantik sesuai untuk konten.
• Jangan gunakan bagian ( section ) kecuali kontennya memiliki judul alami. 
  • Memeriksa Dokumen Outline dan Memodifikasi


Problem ( Masalah )

Bagaiamanakah untuk melihat outline dokumen dan memeriksanya ?

Solution ( Solusi )

Masuk ke Outliner HTML5:  http:// gsnedders.html5 .org/outliner/.

Discussion ( Diskusi )

HTML5 memiliki algoritma garis besar yang menghitung struktur dokumen web. Algoritma ini didasarkan pada bagian yang didefinisikan oleh elemen struktur. Untuk outline dokumen utama, bagian dan samping masing-masing mengenalkan bagian baru, sedangkan judul dalam setiap bentuk konten garis besar. Ini dikenal sebagai sectioning eksplisit.  

Berikut contoh markup :


<section>    <h1>Most Recent Blog Posts</h1>    <article>        <h2><code>nav</code> Isn't for <em>All</em> Links</h2>        <p>Though the <code>nav</code> element often contains links, that doesn't           mean that <em>all</em> links on a site need <code>nav</code>.</p>    </article>    <article>        <h2>You've Got the <code>DOCTYPE</code>. Now What?</h2>        <p>HTML5 isn't an all or nothing proposition. You can pick and choose what           works best for you. So once you have the <code>DOCTYPE</code> in place,           you should explore.</p> </article> </section>

Heading levels 

Terlepas dari versi, judul dalam HTML diberi peringkat, dengan h1 menjadi yang tertinggi dan paling rendah. Sebelum HTML5, peringkat ini membantu menyusun outline dokumen. Namun, dengan HTML5, pentingnya heading rank dalam menentukan outline disalahpahami oleh elemen sectioning.  

Mari kita modifikasi contoh sebelumnya untuk mencerminkan h6 sebagai judul utama dari bagian ( section ) dan h1 sebagai judul utama artikel: 


<section>    <h6>Most Recent Blog Posts</h6>    <article>        <h1><code>nav</code> Isn't for <em>All</em> Links</h1>        <p>Though the <code>nav</code> element often contains links, that doesn't           mean that <em>all</em> links on a site need <code>nav</code>.</p>    </article>    <article>        <h1>You've Got the <code>DOCTYPE</code>. Now What?</h1>        <p>HTML5 isn't an all or nothing proposition. You can pick and choose what           works best for you. So once you have the <code>DOCTYPE</code> in place,           you should explore.</p>    </article> </section>

Karena HTML5 menggunakan bagian elemen struktural dan selain untuk mengetahui kapan section online baru dimulai (bukan judulnya), kita masih mendapatkan garis besar yang sama seperti pada contoh aslinya:
1. Posting Blog Terbaru 
2. nav Bukan untuk Semua Link 
3. Anda sudah mendapatkan DOCTYPE. Sekarang apa?

Implicit sectioning 

Karena elemen struktur tidak diperlukan dalam HTML5, heading rank masih mempengaruhi struktur dokumen jika elemen tidak digunakan. Ini dikenal sebagai bagian tersirat. Selanjutnya, bagian implisit dan eksplisit dapat digunakan bersama untuk membentuk garis besar dokumen.
Bagian ini dimulai dengan judul baru dan diposisikan dalam dokumen sesuai dengan peringkat judul tersebut dalam kaitannya dengan judul sebelumnya. Jika sebuah pos adalah peringkat yang lebih rendah dari pendahulunya, maka akan membuka subbagian baru dalam garis besar. Jika sebuah heading adalah rangking yang lebih tinggi, maka akan menutup bagian sebelumnya dan membuka kolom yang baru.

Berikut contoh baru untuk melihat bagaimana judul peringkat mendukung bagian tersirat:


<section>    <h1>You've Got the <code>DOCTYPE</code>, Now What?</h1>    <h2>Simplified <code>link</code>s and <code>script</code>s</h2>    <p>HTML5's more flexible and simplified syntax ...</p>    <h2>Block-Level Links</h2>    <p>With HTML5, <code>a</code>s can contain block ...</p>    <h3>Looking Back</h3>    <p>In earlier versions of HTML, you had to ...</p>    <h2>Add Structure</h2>    <p>HTML5 gives us several new elements to add ...</p> </section>

Contoh ini menggunakan judul rank, bukan elemen sectioning eksplisit, untuk menghasilkan garis besar berikut:

+Anda sudah mendapatkan DOCTYPE, ?  
+Tautan dan skrip yang disederhanakan 
+Tautan tingkat blok 1.
+Melihat Kembali 
+Menambahkan Struktur

Mengapa ini penting?

Mengetahui seperti apa garis besar dokumen ( outline ) kamu dapat membantu untuk memutuskan tidak hanya tingkat pos mana yang akan digunakan, tetapi juga elemen struktural yang akan digunakan. Ingat bagaimana kita mengatakan bahwa bagian ( section ) harus memiliki heading alami.
 

Problem ( Masalah )

Saya memiliki judul dan tagline halaman utama yang ditandai dengan judul (h1 dan h2, masing-masing), namun ane tidak ingin tagline disertakan dalam outline ( garis besar dokumen ) ku ?.

Solution ( Solusi )

Contain the both headings with the hgroup element:  

<hgroup>    <h1>HTML5, www.deyawman.net </h1>    <h2>Tips, Tricks and Resources</h2> </hgroup>

Discussion ( Diskusi )

Hgroup menyembunyikan semua judul kecuali peringkat tertinggi. Pada contoh di atas, satu-satunya konten yang akan muncul dalam dokumen adalah "HTML5, www.deyawman.net" dari h1.

Bahkan jika kita membalik urutan sumber dari dua judul, hanya konten dengan peringkat tertinggi (h1) yang akan ditarik ke dalam garis besar dokumen:


<hgroup>    <h2>Tips, Tricks and Resources</h2>    <h1>HTML5, for Fun & Profit</h1> </hgroup>








  •  ok sekian gan, semoga bermanfaat buat anda yang sedang belajar dan memahami
    Thanks for read ( terima kasih buat yang sudah membaca )

    06 August 2017

    Tutorial Install Laravel di Windows

    How to install Laravel on Windows ?  Halo sobat deyawman , Program laravel ini sangatlah menarik untuk dipelajari dan banyak sekali bahasa algoritma yang juga menarik. Laravel adalah sebuah Framework PHP yang dirilis di bawah lisensi MIT, dibangung dengan konsep MVC ( model view controller ) . MVC adalah sebuah pendekatan perangkat lunak yang memisahkan aplikasi logika dari presentasi.

    Tutorial Install Laravel di Windows


    Laravel sering digunakan untuk berbagai hal dalam kehidupan seperti halnya dalam contoh aplikasi manajemen booking hotel dengan laravel. Untuk mempermudah Hotel dalam melakukan manajemen terhadap tamu, ruangan, layanan, karyawan dan lain sebagainya, maka diperlukan sebuah sistem informasi manajemen hotel yang dapat mengakomodir segala kebutuhan hotel

    Back to topic , ok baiklah kita kembali ke topik awal

    Instalasi Laravel 5.2

    • Webserver  (XAMPP)
    • Composser
    • Coffe or Aqua ( atau ada yang instant tinggal ekstrak tanpa download library laravel, jadi tidak perlu bahan ini lagi hehe tapi saya rasa tidak nyaman tanpa minuman jika sedang melakukan coding )

    Componen File Instalasi :

    • Install Xampp , bisa kalian klik di atas pada link yang aktif pada kata xampp di atas.
    • Install Composser , installasi mirip dengan installasi pada aplikasi pada umumnya.
    • Install  Package Laravel , membutuhkan koneksi internet
    • NB :←←←←←← lihatlah arah kiri, arahkan cursor tepat pada navigasi componen file dan carilah file yang dibutuhkan semisalnya componen laravel

    First Step

    Composser bisa kalian buka pada link aktif di atas, maka sobat akan dialihkan ke situs https://getcomposer.org lalu download composer

    Next Step

    Buka Command Prompt kemudian arahkan direktori ke htdoc XAMPP
    c:\Users\Deyawman> cd xampp\htdoc


    Last Step

    Ketik sintak code di bawah ini :
    D:\xampp\htdoc> composer create-project laravel/laravel deyawman_install_laravel1


    Selesai silahkan coba buka browser sobat dan ketik
    localhost/deyawman_install_laravel1/public/


    Ok semoga berhasil gan , silahkan kalian sharing dan bertanya dan saling membantu . disini saya juga masih dalam belajar jadi kita sama .


    Copyright Disclaimer-Title 17, US Code (Sections 107-118 of the copyright law, Act 1976):
    All media in this video is used for purpose of review & commentary under terms of fair use.
    All footage, & images used belong to their respective companies

    16 June 2017

    VB6 Animation Caption Control Source Code

    VB6 Animation Caption Control Source Code
    source image : amazon

     
    How to make animation  caption control VB6 ? , Bagaimana cara membuat animation pada pemrograman visual basic 6 dengan control code ? Langsung saja dicoba source code vb6 berikut dan pahamilah sendiri setelah program dijalankan, ya sobat Deyawman.




    VB6 Animation Control Form Versi 1

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   360
          Top             =   600
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   975
          Left            =   1440
          TabIndex        =   0
          Top             =   1440
          Width           =   2535
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim a As Integer
    Private Sub Form_Load()
    Me.Left = 4000
    Me.Height = 2000
    Me.Top = 4000
    Me.Width = 4000
    Label1.FontSize = 14
    Label1.Alignment = 2
    Label1.Left = 0
    Label1.Height = 400
    Label1.Top = 600
    Label1.Width = 3500
    Label1.Caption = "JAJA"
    Timer1.Interval = 200
    Label1.FontSize = 20
    End Sub
    
    Private Sub Timer1_Timer()
    a = a + 1
    Select Case a
    Case 0
    Label1.Caption = "JAJA"
    Case 2
    Label1.Caption = "JAMAL"
    Case 3
    Label1.Caption = "UDIN"
    Case 4
    Label1.Caption = "MALIK"
    End Select
    If a >= 4 Then
    a = -1
    End If
    End Sub
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    
    Form1 = 44, 58, 569, 536, , 0, 0, 525, 478, C
    

    VB6 Animation Control Form Versi 2

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   240
          Top             =   480
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   375
          Left            =   1680
          TabIndex        =   0
          Top             =   1680
          Width           =   2895
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim a As Integer
    
    Private Sub Form_Click()
    Label1.Caption = "JAMALUDIN"
    Timer1.Enabled = False
    End Sub
    
    Private Sub Form_DblClick()
    Timer1.Enabled = True
    End Sub
    
    Private Sub Form_Load()
    Me.Left = 4000
    Me.Height = 2000
    Me.Top = 4000
    Me.Width = 4000
    Label1.FontSize = 14
    Label1.Alignment = 1
    Label1.Left = 0
    Label1.Height = 400
    Label1.Top = 600
    Label1.Width = 3500
    Label1.Caption = "N"
    Timer1.Interval = 300
    Label1.FontSize = 15
    End Sub
    
    Private Sub Timer1_Timer()
    a = a + 1
    Select Case a
    Case 0
    Label1.Caption = "                N"
    Case 2
    Label1.Caption = "              I  "
    Case 3
    Label1.Caption = "            D    "
    Case 4
    Label1.Caption = "          U      "
    Case 5
    Label1.Caption = "        L        "
    Case 6
    Label1.Caption = "      A          "
    Case 7
    Label1.Caption = "    M            "
    Case 8
    Label1.Caption = "  A              "
    Case 9
    Label1.Caption = "J                "
    End Select
    If a >= 9 Then
    a = -1
    End If
    End Sub
    
    
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    
    Form1 = 110, 145, 635, 623, , 66, 87, 591, 565, C
    

    VB6 Animation Control Form Versi 3

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   720
          Top             =   960
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   615
          Left            =   1920
          TabIndex        =   0
          Top             =   1560
          Width           =   2415
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim A, B As Integer
    Dim C As Boolean
    Private Sub Form_Load()
    A = 1
    Label1.FontSize = 1
    Label1.FontBold = 24
    Label1.Font = "Comic Sans MS"
    Me.Left = 4000
    Me.Height = 2000
    Me.Top = 4000
    Me.Width = 4000
    Label1.Alignment = 2
    Label1.Left = 0
    Label1.Height = 800
    Label1.Top = 600
    Label1.Width = 3500
    Timer1.Interval = 50
    End Sub
    
    Private Sub Timer1_Timer()
    If C = False Then
    A = A + 1
    If A = 25 Then C = True
    Else
    Label1.Visible = False
    A = 1
    C = False
    Label1.Visible = True
    B = B + 1
    End If
    
    Select Case B
    Case 0
    Label1.Caption = "ONE"
    Case 1
    Label1.Caption = "FOR"
    Case 2
    Label1.Caption = "ALL"
    Case 3
    Label1.Caption = "ALL"
    Case 4
    Label1.Caption = "FOR"
    Case 5
    Label1.Caption = "ONE"
    Case 6
    If B >= 6 Then
    B = -1
    End If
    End Select
    If A <= 0 Then A = 1
    Label1.FontSize = A
    Label1.FontBold = 24
    End Sub
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    
    Form1 = 82, 73, 622, 551, , 52, 74, 592, 552, C
    

    VB6 Animation Control Form Versi 4

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   240
          Top             =   480
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   615
          Left            =   1080
          TabIndex        =   0
          Top             =   1560
          Width           =   3375
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim a As Integer
    
    Private Sub Command1_Click()
    
    End Sub
    
    Private Sub Form_Click()
    Label1.Caption = "JAMALUDIN"
    Timer1.Enabled = False
    End Sub
    
    Private Sub Form_DblClick()
    Timer1.Enabled = True
    End Sub
    
    Private Sub Form_Load()
    Me.Left = 4000
    Me.Height = 2000
    Me.Top = 4000
    Me.Width = 4000
    Label1.FontSize = 14
    Label1.Alignment = 0
    Label1.Left = 1000
    Label1.Height = 400
    Label1.Top = 600
    Label1.Width = 3500
    Label1.Caption = "J"
    Timer1.Interval = 200
    Label1.FontSize = 15
    End Sub
    
    Private Sub Timer1_Timer()
    a = a + 1
    Select Case a
    Case 0
    Label1.Caption = "J                "
    Case 2
    Label1.Caption = "  A              "
    Case 3
    Label1.Caption = "   M             "
    Case 4
    Label1.Caption = "     A           "
    Case 5
    Label1.Caption = "       L         "
    Case 6
    Label1.Caption = "         U       "
    Case 7
    Label1.Caption = "           D     "
    Case 8
    Label1.Caption = "              I  "
    Case 9
    Label1.Caption = "                N"
    End Select
    If a >= 9 Then
    a = -1
    End If
    End Sub
    
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    
    Form1 = 154, 61, 679, 539, , 110, 145, 635, 623, C
    

    Problem Solved VB6


    Nota bane (NB) : jika saat menjalankan programnya ada error, bisa komentar dibawah untuk melaporkanya, dilengkapi dengan letak script yang error dengan jelas, untuk membuat saya membalas dengan baik.

    Mohon Maaf Jika Salah Kata dan Semoga Artikel Ini Bermanfaat ... - Deyawman

    VB6 Animation Caption Form Source Code

    VB6 Animation Caption Form Source Code
    source image : madrasshoppe

    How to make animation in VB6 , Bagaimana cara membuat animation pada pemrograman visual basic 6 ? Langsung saja dicoba source code berikut dan pahamilah sendiri setelah program dijalankan, ya sobat Deyawman.







    VB6 Animation Caption Form Versi 1

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   360
          Top             =   480
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Load()
    Timer1.Interval = 500
    Form1.Caption = " "
    End Sub
    
    Private Sub Timer1_Timer()
    If Form1.Caption = "PEMROGRAMAN" Then
    Form1.Caption = "VISUAL"
    Else
    If Form1.Caption = "VISUAL" Then
    Form1.Caption = "BASIC"
    Else
    If Form1.Caption = "BASIC" Then
    Form1.Caption = "MEMANG"
    Else
    If Form1.Caption = "MEMANG" Then
    Form1.Caption = "SANGAT"
    Else
    If Form1.Caption = "SANGAT" Then
    Form1.Caption = "MENGASYIKAN"
    Else
    If Form1.Caption = "MENGASYIKAN" Then
    Form1.Caption = "BAGI"
    Else
    If Form1.Caption = "BAGI" Then
    Form1.Caption = "DEYAWMAN"
    Else
    Form1.Caption = "PEMROGRAMAN"
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End Sub
    
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    

    Form1 = 102, 56, 693, 504, , 115, 66, 584, 514, C
    


    VB6 Animation Caption Form Versi 2

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   240
          Top             =   360
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Form_Load()
    Timer1.Interval = 500
    Form1.Caption = "VISUAL BASIC"
    Form1.Height = 0
    End Sub
    
    Private Sub Timer1_Timer()
    If Form1.Caption = "VISUAL BASIC" Then
    Form1.Caption = "ISUAL BASIC"
    Else
    If Form1.Caption = "ISUAL BASIC" Then
    Form1.Caption = "SUAL BASIC"
    Else
    If Form1.Caption = "SUAL BASIC" Then
    Form1.Caption = "UAL BASIC"
    Else
    If Form1.Caption = "UAL BASIC" Then
    Form1.Caption = "AL BASIC"
    Else
    If Form1.Caption = "AL BASIC" Then
    Form1.Caption = "L BASIC"
    Else
    If Form1.Caption = "L BASIC" Then
    Form1.Caption = "BASIC"
    Else
    If Form1.Caption = "BASIC" Then
    Form1.Caption = "ASIC"
    Else
    If Form1.Caption = "ASIC" Then
    Form1.Caption = "SIC"
    Else
    If Form1.Caption = "SIC" Then
    Form1.Caption = "IC"
    Else
    If Form1.Caption = "IC" Then
    Form1.Caption = "C"
    Else
    If Form1.Caption = "C" Then
    Form1.Caption = " "
    Else
    Form1.Caption = "VISUAL BASIC"
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End Sub
    
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    

    Form1 = 45, 82, 636, 536, , 88, 116, 679, 564, C
    


    VB6 Animation Caption Form Versi 3

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   240
          Top             =   240
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Form_Load()
    Timer1.Interval = 500
    Form1.Caption = "VISUAL BASIC"
    Form1.Height = 0
    
    End Sub
    
    Private Sub Timer1_Timer()
    If Form1.Caption = "VISUAL BASIC" Then
    Form1.Caption = "VISUAL BASI"
    Else
    If Form1.Caption = "VISUAL BASI" Then
    Form1.Caption = "VISUAL BAS"
    Else
    If Form1.Caption = "VISUAL BAS" Then
    Form1.Caption = "VISUAL BA"
    Else
    If Form1.Caption = "VISUAL BA" Then
    Form1.Caption = "VISUAL B"
    Else
    If Form1.Caption = "VISUAL B" Then
    Form1.Caption = "VISUAL "
    Else
    If Form1.Caption = "VISUAL " Then
    Form1.Caption = "VISUA"
    Else
    If Form1.Caption = "VISUA" Then
    Form1.Caption = "VISU"
    Else
    If Form1.Caption = "VISU" Then
    Form1.Caption = "VIS"
    Else
    If Form1.Caption = "VIS" Then
    Form1.Caption = "VI"
    Else
    If Form1.Caption = "VI" Then
    Form1.Caption = "V"
    Else
    If Form1.Caption = "V" Then
    Form1.Caption = " "
    Else
    Form1.Caption = "VISUAL BASIC"
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End Sub
    
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    

    Form1 = 99, 46, 690, 494, , 13, 20, 604, 468, C
    


    VB6 Animation Caption Form Versi 4

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   240
          Top             =   360
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim T As String
    Private Sub Form_Load()
    T = " VISUAL BASIC"
    Timer1.Interval = 800
    Form1.Height = 0
    End Sub
    
    Private Sub Timer1_Timer()
    V = Left(T, 1)
    C = Len(T)
    B = Right(T, C - 1)
    T = B + V
    Me.Caption = T
    End Sub
    
    
     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    

    Form1 = 88, 116, 613, 594, , 44, 58, 584, 536, C
    


    VB6 Animation Caption Form Versi 5

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4980
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6975
       LinkTopic       =   "Form1"
       ScaleHeight     =   4980
       ScaleWidth      =   6975
       StartUpPosition =   3  'Windows Default
       Begin VB.Timer Timer1 
          Left            =   480
          Top             =   480
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim T As String
    Private Sub Form_Load()
    T = " VISUAL BASIC"
    Timer1.Interval = 230
    Form1.Height = 0
    End Sub
    
    Private Sub Timer1_Timer()
    v = Right(T, 1)
    C = Len(T)
    B = Left(T, C - 1)
    T = v + B
    Me.Caption = T
    End Sub
    

     Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX
    Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
    Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; msflxgrd.ocx
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; Comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
    Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; mscomct2.ocx
    Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; Msinet.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
    Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
    Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
    Object={20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0; MSMAPI32.OCX
    Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0; MCI32.OCX
    Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; PICCLP32.OCX
    Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
    Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
    Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
    Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
    Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
    Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; comct332.ocx
    Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
    Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
    Form=Form1.frm
    IconForm="Form1"
    Startup="Form1"
    ExeName32="CONTOH APLIKASI JADI.exe"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="Company"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1
    DebugStartupOption=0
    
    [MS Transaction Server]
    AutoRefresh=1
    

    Form1 = 66, 87, 756, 573, , 99, 24, 789, 510, C
    



    Problem Solved VB6


    Nota bane (NB) : jika saat menjalankan programnya ada error, bisa komentar dibawah untuk melaporkanya, dilengkapi dengan letak script yang error dengan jelas, untuk membuat saya membalas dengan baik.

    Mohon Maaf Jika Salah Kata dan Semoga Artikel Ini Bermanfaat ... - Deyawman