Forum Laboratorium BSI Bekasi
Selamat Datang pengunjung...

Jika anda sudah terdaftar dalam forum ini silahkan login, namun jika tidak harap mendaftar dahulu untuk melihat forum-forum yang dikunci...

Forum ini adalah forum yang didirikan oleh Asisten BSI untuk berbagi pengetahuan tentang apa saja....

Semoga forum ini bermanfaat....


Forum Komunitas Lab BSI Bekasi yang ditujukan untuk sharing ilmu pengetahuan tentang apa saja dan juga sebagai tempat nongkrong kaum intelektual
 
HomeFAQSearchRegisterLog in

Share | 
 

 Animasi Keluar Naik & Turun

View previous topic View next topic Go down 
AuthorMessage
zaidkhusain
Head Administrator
Head Administrator


Jumlah posting : 117
Poin : 2147483647
Reputasi : 1
Join date : 2011-05-07
Age : 26
Lokasi : di Rumah
Warning :

PostSubject: Animasi Keluar Naik & Turun   Wed May 11, 2011 11:00 pm

Assalamualaikum

nambahin z coding animasi spa tau ada mo memperindah project vbna kali ini ane post ttg animasi untuk tombol keluar gan...langsung z yak

1.siapin project baru
2.siapin satu form
3.buat 2 command button lalu
ubah namena dengan nama "tombol" index di propertiesna command button 1 indexna 0 sedangkan command button 2 indexna 1

terus tulis codingna kaya dimari gan

Code:
Private Sub tombol_Click(Index As Integer)
    Select Case Index
    Case 0
        Do Until Me.Top <= -5000
            Me.Move Me.Left, Me.Top - 10: DoEvents
        Loop
    Case 1
        Do Until Me.Top > 20000
            Me.Move Me.Left, Me.Top + 10: DoEvents
        Loop
    End Select
    End
End Sub

oce penjelasan dikit yak kenapa ane pake index karena ane menggunakan pengkondisian menggunakan case.....makana name ane samain yang ane bedain adalah indexna

lalu pada coding "Do Until Me.Top <= -5000
Me.Move Me.Left, Me.Top - 10: DoEvents
Loop"

maksudnya adalah pada saat cmd 1 kita tekan doi akan terus keatas karena ada "Do Until Me.Top <= -5000" nah semakin kecil nilaina semakin ke atas formna gitu makana ane kasih nilai -5000 karena ane melakukan perulangan makana untuk menghindari project not responding ane pake "doEvents" pada coding "Me.Move Me.Left, Me.Top -10" maksudnya adalah keceptan interval waktu berjalanna form semakin kecil semakin cepat ane kasih -10 biar pas g terlalu cepat g terlalu lambat

nah untuk coding turun sama penjelasanna gan cuma dibalik z untuk gerak ke bawah tapi nilaina positif f negatif "Case 1
Do Until Me.Top > 20000
Me.Move Me.Left, Me.Top + 10: DoEvents
Loop "

oce moga bermanfaat

WASSALAMA
SEBARKANLAH WALAUPUN CUMA SATU AYAT
IKATLAH ILMUMU DENGAN CARA MENULISNYA

**************************************************************
Back to top Go down
 
Animasi Keluar Naik & Turun
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» jasa Ekspor Ikan Hias dan Coral
» Cara Packing Ikan Arwana untuk kirim ke Luar Kota

Permissions in this forum:You cannot reply to topics in this forum
Forum Laboratorium BSI Bekasi :: MATERI LAB :: VISUAL BASIC :: TEKNIK-TEKNIK PEMROGRAMAN VB-
Jump to: