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

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 »
Les rumeurs sur les rencontres avec RM ont d’abord été propagées par un YouTuber, qui a déclaré que RM sortait avec une femme du cercle non-célébrité, mais qu’elle était riche.  La rumeur est née à cause d’une photo de RM avec un caniche, qui aurait appartenu à la femme. Les rumeurs se sont rapidement propagées sur internet et ont fait se demander nombre de fans: est-il vrai que le leader du groupe BTS a un amant? RM a ensuite répondu aux rumeurs via Weteverse jeudi 30/12/201. “Je ne connais pas du tout cette personne. Le caniche est le caniche de mon ami,” a déclaré RM, cité à partir d’un t weet  appartenant à @btsinthemoment. namjoon weverse moment 🐨 i dont know the person at all and the poodle is my friends poodle ^^; pic.twitter.com/okz0AIpVnc — 윤서⁷ (@btsinthemoment) December 31, 2021 Big Hit a également nié les allégations dans une déclaration publiée par  AllKPop .  “Les rumeurs de rencontres sur RM ne sont pas vraies,” a déclaré Big Hit, vendredi (31/12). Et apparemment, dans
Post a Comment
Baca Lebih »

Opisyal na Inilabas ni Adele ang Bagong Album na "30"

Opisyal na inilabas ni Adele ang kanyang pinakabagong album na pinamagatang “30” noong Biyernes (11/19/2021).  Nakatanggap ang bagong album ng mgapositibong pagsusuri mula sa mga kritiko ng musika. Ayon sa Rolling Stone , ang “30” ay ang pinakamahusay na album ni Adele. Mayroong 12 kanta sa “30” album na ito, isa na rito ang hit single na pinamagatang  Easy On Me .  Sa simula ng album, maririnig mo ang  Strangers By Nature— isang kantang puno ng patula na liriko. At sa dulo ay ang kantang  Love Is A Game , na nagsasalaysay ng karanasan ni Adele sa sakit na dulot ng pag-ibig. Sa  Metacritic  , nakatanggap ang bagong album ni Adele ng  metascore  na 89% mula sa 12  review  at nasa numero 8 sa listahan ng  Best Albums ng 2021 .  Habang nasa Apple Music Indonesia, ang LP “30” ay unang niraranggo sa Mga   Nangungunang Album. Adele sa British Vogue magazine (instagram.com/britishvogue). Ang album na ito ay inspirasyon ng diborsiyo ni Adele kay Simon Konecki. Sa isang pakikipanayam sa 
Post a Comment
Baca Lebih »