Skip to main content

VB6 : Effect Form Dan Kontrol Komponen

Effect Form Dan Kontrol Komponen

Form membuka dari kiri ke kanan

Animasi ini untuk membuka form mulai dari kiri ke kanan ketika program dijalankan. Buatlah rancangan form dibawah ini :

Isi interval Timer1 dengan :1

masukkan listing program seperti berikut pada form :

Private Sub Timer1_Timer()
Me.Width = Me.Width + 20
If Me.Width >= 9000 Then
Timer1.Enabled = False
End If
End Sub

maka yang terjadi form akan perlahan terbuka dari kiri kekanan , kecepatannya tergantung +20 jika lebih besar angkanya kecepatannya pun makin cepat , dan lebar form 9000 .




 Text Muncul Berjalan

Pada form ini, kita akan membuat animasi text berjalan. Caranya kita rancang dulu form dibawah ini kemudian ikuti langkah-langkah selanjutnya :

 masukkan listing program seperti berikut pada form :

Dim Strl As String
Dim i

Private Sub Form_Load()
Strl = "SELAMAT DATANG DI FAJARYUSUF.COM"
i = 0
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 100
i = i + 1
Label1 = Left(Strl, i)
If i = Len(Strl) Then
i = 1
Timer1.Interval = 3000
End If
End Sub


Hasilnya akan ada text berjalan memunculkan satu kata perkata dari kiri karena kita memakai left dan len.




Sebenarnya untuk mempelajari Efek pada Visual Basic itu kita harus paham pada interval timer karena animasi kecepatan pada setiap efek di visual basil itu tergantung pada Timer.



Jika ada pertanyaan silakan berkomentar. Jangan Lupa like dan share. Belajar Pemrograman di fajaryusuf.com aja. :)


Labels:

Comments

Unknown said…
OHH MY GOD GREAT ARTICEL.. AWESOME
Saturday, October 22, 2016
Post a Comment

Popular posts from this blog

Menambahkan Peraturan Komentar Pada Blog

Menambahkan Peraturan Komentar Pada Blog : Ngblog Menulis sebuah artikel dan dikomentari dengan link aktif/promosi produk dan kata kata spam lainnya memang tidak mengenakan anda mungkin akan sangat merasa kecewa sekali, anda mungkin seperti menulis sebuah artikel namun tidak dihargai karyanya oleh orang lain. Mungkin membuat aturan berkomentar di blog adalah salah 1 cara menetralisirnya, mungkin jika ada aturan tersebut orang berpikir 2 kali untuk meninggalkan komentar Spam, lalu bagaimana cara membuat aturan komentar tersebut? langsung saja kita praktekan Ikuti langkah berikut : Login ke bloger,masuk ke blog yang anda inginkan, Klik Setelan -> POS-KOMENTAR   Scroll kebawah dan cari menu "pesan formulir komentar" klik tambahkan , dan isi kolom sesuai keinginan kalian atau peraturan yang kalian inginkan.  Setelah selesai silakan klik simpan setelan dipojok kanan atas. Lihat hasilnya di blog kalian ,akan seperti ini : Jika ada pertanyaan...
21 comments
Baca Lebih »

Contoh Program C++ : Konversi Bilangan Hexadesimal, Oktal , Biner.

Hai Pembaca FajarYusuf.Com yang pintar dan berwawasan tinggi, kali ini FajarYusuf.Com akan post Contoh Program C++ : Konversi Bilangan Hexadesimal, Oktal , Biner . Mari kita membuat program konversi bilangan yang sangat mudah di buat dengan menggunakan bahasa pemrograman C++. Yaitu dengan menggunakan type data long, untuk Hexadesimal dengan rumus : <<hex<<desimal (merubah dari bilangan Desimal ke Hexadesimal) , untuk Oktal dengan rumus : <<oct<<desimal (merubah dari bilangan Desimal ke Oktal). Dan untuk biner dilakukan pembagian 2. Contoh Coding Program C++ Konversi Bilangan: #include<iostream> using namespace std; int main() { long desimal, pembagi=1073741824, bit; cout<<"Nilai Desimal : "; cin>>desimal; cout<<"Hexadesimal = "<<hex<<desimal<<endl; cout<<"Oktal = "<<oct<<desimal<<endl; ...
Post a Comment
Baca Lebih »

Kumpulan Script Jail Batch dan VBS

Kumpulan Script Jail Batch dan VBS Hallo pembaca fajaryusuf.com. Kali ini saya akan berbagi Kumpulan Script Jail Menggunakan Notepad. Script berikut hanya untuk jahil.. Untuk membuat script ini aktif yang Anda butuhkan adalah : 1. Notepad 2. PC/Laptop 3. Nah sekarang tinggal copy paste scriptnya ke notepad,, langsung saja dicoba : MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS @ECHO off :Begin msg * muka lo jelek msg * ngaca dulu gih msg * hayo lo,cpu lu gw acak2 msg * ud install ulang aja msg * biar masalah nya kelar GOTO BEGIN Save nama script diatas dg ekstensi *.bat BIKIN SHUTDOWN + MESSAGES @echo off msg * apaan sih lo shutdown -s -c "Error! muka mu standar abis" Save nama script diatas dg ekstensi *.bat MAININ CAPS LOCK BUTTON Set wshShell =wscript.CreateObject ("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop Save nama script diatas dg ekstensi *....
3 comments
Baca Lebih »