Animasi Sepuluh Angka Visual Basic 6.0

Masih dengan Visual Basic 6, kali ini saya akan mencoba membahas program yang lebih unik dari sebelumnya, yaitu program animasi sepuluh angka. Animasi di sini sebenarnya hanyalah angka - angka yang bergerak dengan aturan dan kecepatan tertentu saja.
Untuk lebih jelasnya, tampilan programnya adalah sebagai berikut :

Memuat foto
Sebelum saya membahas bagaimana cara membuat programnya, saya akan menerangkan bagaimana program itu berjalan. Program semula diam dengan angka "0" di tengah program. Dan ketika user menekan tombol START, maka program akan berjalan seperti animasi, mulai dari angka 0 - 10, dan kembali lagi ke 0, kemudian mengulang lagi sampai angka 10. Demikian seterusnya selama tidak ditekan tombol STOP. Hitungan angka akan berhenti dan kembali menjadi 0 setelah user menekan tombol STOP. Tampilan program ketika dijalankan adalah sebagai berikut:
Memuat foto
Untuk membuat program tersebut, kita hanya membutuhkan 3 elemen, yaitu label, commond button dan timer. Susunlah sedemikian hingga seperti gambar di atas. 
Adapun Listing Programnya Adalah Sebagai Berikut :
Private Sub Command1_Click()
If Command1.Caption = "START" Then
Command1.Caption = "STOP"
Timer1.Enabled = True
Else
Command1.Caption = "START"
Label1.Caption = 0
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "START"
Label1.Caption = 0
Timer1.Interval = 300
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Label1.Caption = 0 Then
Label1.Caption = 1
ElseIf Label1.Caption = 1 Then
Label1.Caption = 2
ElseIf Label1.Caption = 2 Then
Label1.Caption = 3
ElseIf Label1.Caption = 3 Then
Label1.Caption = 4
ElseIf Label1.Caption = 4 Then
Label1.Caption = 5
ElseIf Label1.Caption = 5 Then
Label1.Caption = 6
ElseIf Label1.Caption = 6 Then
Label1.Caption = 7
ElseIf Label1.Caption = 7 Then
Label1.Caption = 8
ElseIf Label1.Caption = 8 Then
Label1.Caption = 9
ElseIf Label1.Caption = 9 Then
Label1.Caption = 10
ElseIf Label1.Caption = 10 Then                         
Label1.Caption = 0                                           
End Sub


Program ini dibuat oleh Heri Afrizal di Bireuen
http://hery-pc.blogspot.com/

Komentar

Posting Komentar

Tulis komentar anda disini.....

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Gambar
Microsoft Publisher adalah salah satu dari sekian produk unggulan raksasa software Microsoft, aplikasi ini mempunyai banyak kemampuan dan fitur, selain digunakan untuk untuk keperluan kegiatan kantor, aplikasi ini juga banyak digunakan oleh pebisnis kecil sebagai tool mendesain brosur, template newsletter, kartupos kalender. Meskipun tidak memiliki fitur desain selengkap Corel Draw, namun cukup untuk menciptakan sebuah kalender cantik nan sederhana.   Tutorial kali ini akan memberikan panduan singkat membuat kalender sederhana menggunakan Microsoft Publisher 2007, tidak ada salahnya kita membahas aplikasi yang satu ini, mengingat belum sekalipun saya mengulas tutorial yang melibatkan Microsoft Publisher. Oke, langsung saja, jalankah aplikasi Microsoft Publisher di komputer Anda. Pada tampilan depan aplikasi Anda akan disambut dengan teks Getting Started with Microsoft Office Publisher 2007 . Di bawah teks tersebut terdapat beberapa pilihan template yang dapat And...
Baca selengkapnya

Program Mencari Bilangan Prima Dengan Vb 6.0

Gambar
Bilangan prima adalah bilangan yang hanya bisa dibagi oleh 1 dan bilangan itu sendiri selain itu dianggap bukan prima. Khusus untuk angka 1 disebut bilangan bukan prima dan 2 disebut bilangan prima. Contoh bilangan prima : 2, 3, 5, 7, 11,…```````````````````````````````````````````````````````````````````````````````` Secara manual kita mencari bilangan itu prima atau tidak dengan cara : Contoh masukan angka adalah 5, maka proses penghitungannya adalah sebagai berikut : 1) 5 Mod 5 = 0 2) 5 Mod 4 = 1 3) 5 Mod 3 = 2 4) 5 Mod 2 = 1 5) 5 Mod 1 = 0 Perhatikan pada sub penghitungan 2-4 tidak ada angka 0 dalam rangkaian penghitungan tersebut membuktikan bahwa angka 5 tidak habis dibagi oleh angka-angka selain 1 dan 5 (bilangan itu sendiri), lain halnya jika yang bukan prima (coba kita masukkan angka 6 misalnya) 1) 6 Mod 6 = 0 2) 6 Mod 5 = 1 3) 6 Mod 4 = 2 4) 6 Mod 3 = 0 5) 6 Mod 2 = 0 6) 6 Mod 1 = 6 Perhatikan pada sub penghitungan 2-4 ternyata angka 0 dalam rangkaian p...
Baca selengkapnya

Cara Membuat File PDF dari Microsoft Word

Gambar
Cara membuat file pdf - Bagi sahabat kemelus yang kesulitan membuat file pdf saya ada tutorial yang akan saya tuliskan pada artikel ini. Sesuai judul artikel kita akan membuat file pdf dari microsoft word secara mudah dengan menginstall add-in microsoft save as pdf. Berikut ini langkah-langkah cara membuat file pdf yang akan penulis jelaskan dengan step-by-step : 1. Pertama, download add-in microsoft save as pdf di halaman   http://www.microsoft.com/en-us/download/details.aspx?id=7 2. Install add-in seperti anda menginstall software pada umumnya. Saya asumsikan anda sudah selesai menginstall kemudian buka file dokumen yang hendak anda convert menjadi PDF mengunakan microsoft word, Pilih Office Bottom > Save As > PDF or XPS untuk lebih jelasnya perhatikan gambar dibawah ini. 3. Kemudian isikan nama file pdf yang anda inginkan, dan tekan tombol Publish 4. Selamat anda sudah berhasil membuat file pdf, mudah bukan. Jika sah...
Baca selengkapnya