Membuat effect animasi sederhana dengan menggunakan VB.net ( open and close slowly )

Langkah 1

Buat form biasa dengan nama terserah kalian pada properties form tersebut, kemudian ubah back color menjadi warna putih, sebagai berikut.

Langkah 2

Buat tombol button dengan cara pilih button pada toolbox yang terdapat disebelah kiri aplikasi vb.net 2008, kemudian ganti “text” nya dengan “keluar”.

Langkah 3

Buatlah 1 file gambar terserah kalian, namun pada tutorial kali ini saya membuat gambar dengan extension “gif”, agar tampilan dapat terlihat tampak menarik.

Langkah 4.

Buatlah picturebox dan masukkan kedalam form yang telah dibuat tadi, kemudian pilih image yang terdapat pada tab properties yang terdapat di kanan bawah dari aplikasi vb.net ini, dan tampilan sebagai berikut.

Langkah 5.

Pada langkah ini kita sudah siap mengetik codingan pada, kita ketikkan coding pada form dengan cara double click form tersebut maka akan muncul page untuk mengetikkan coding, ketikan sebagai berikut.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Integer
For a = 0 To 100 Step +1
Me.Opacity = a / 100
Me.Refresh()
Next
End Sub

pada tutorial kali ini saya menggunakan opacity untuk member effect pada saat kita membuka aplikasi maupun menutup aplikasi, opacity berfungsi untuk tingkat kegelapan dari sebuah aplikasi, deklarasikan variable a menjadi integer, kemudian variable a akan berubah dari range 0 sampai 100 dengan step +1, kemudian hitung opacity dengan cara variable a dibagi dengan nilai seratus, dan setiap kali perhitungan akan direfresh agar pada setiap perubahan akan terlihat dan next sampai variable mencapai nilai seratus.

Ketikkan codingan yang sama pada tombol button.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
For a = 100 To 0 Step -1
Me.Opacity = a / 100
Me.Refresh()
Next
Me.Close()
End Sub

Dengan logika yang sama kita membuat effect pada button keluar ini namun berbeda pada perhitungannya yaitu dari range 100 menjadi 0 dengan step -1, setelah selesai aplikasi akan keluar.

Huruf Dengan Effect Bergerak Pada Visual Basic.Net 2008

Langkah 1.
Seperti biasa kita harus mempersiapkan persenjataan dan mental yang kuat dalam pembuatan effect berjalan ini, yang pertama kali harus dilakukan adalah membuat sebuah form baru yang caranya ga perlu saya tampilkan lagi pada tutorial ini, bisa dibaca pada tutorial sebelumnya. Buatlah 2 buah button,1 buah label, 1 timer.

Langkah 2.
Pada langkah ini kita merubah properties dari label tersebut seperti berikut. Pada table form kita merubah backcolor menjadi palegreen, lihat gambar dibawah ini.

Kemudian pada label1 kita mengganti nama label menjadi lbljalan, text dikosongkan, dan untuk style lainnya dapat dilihat pada gambar properties lbljalan berikut.

Pada properties button1 dan 2 kita hanya merubah warnanya saja pada properties dan pada button1 kita merubah text pada properties menjadi start, pada button2 kita merubah text menjadi stop dan untuk yang lainnya dapat dilihat  seperti gambar dibawah ini.

 

sekarang kita merubah timer yang ada, pada properties kita merubah seperti gambar dibawah ini, interval pada timer dapat kita ubah sesuka kalian karna interval ini hanya menentukan kecepatan huruf tersebut berjalan.

Maka akan tampil seperti gambar dibawah ini :

Langkah 3.
Pada langkah ini kita sudah siap untuk memasukkan coding kedalam tools tersebut. Pada form kita double klik dan ketikkan coding beikut.

lbljalan.Text = “  Cup_pa_paW  “

ini merupakan coding untuk memasukkan text pada tools lbljalan, untuk yang didalam tanda kutip dapat diganti sesuka kalian. Setelah itu kita masukkan coding berikut pada tools timer.

Dim s1 As String
Dim S2 As String
s1 = Microsoft.VisualBasic.Left(lbljalan.Text, 1)
S2 = Microsoft.VisualBasic.Right(lbljalan.Text, Len(lbljalan.Text) – 1)
lbljalan.Text = S2 + s1

setelah coding untuk timer selesai sekarang kita tinggal memasukkan coding untuk button start dan stop, codingan seperti berikut.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Pada codingan ini kita seperti member izin kepada timer untuk dapat menjalankan atau menghentikan perintah yang ada pada timer. Jika semua langkah dilakukan dengan benar maka tampilan yang akan muncul seperti berikut.

Kegiatan Di KAMPUS

Saya Berangkat Kuliah jam 08.00, saya masuk kuliah jam 08.15 , saya mengikuti pelajaran sampai jam 10.45  dan setelah itu saya istirahat atau saya bermain / nongrong di Kantin setelah pukul 11.00 kembali masuk lagi tuk mengikuti mata pelajaran yang akan di -pelajarin sampai jam 13.15 setelah itu pulang, sebelum pulang kerumah saya mengempat-menyempatin nongkrong sama teman-teman kampus setelah itu pulang ke rumah.

Kegiatan Di RUMAH

        Nama saya Reizha Arsita saya berumur 20 tahun. Kegiatan di rumah saya dari saya bangun pagi sampai malam hari dan  begitulah seterus nya.

1. Saya bangun Pukul 06.00 dan langsung pergi shalat bersama keluarga saya yang berada di dlam rumah atau sendirian saja.
2. Pukul 06.30 saya membersikan rumah, memperbaiki kamar saya sendiri dan mencuci piring, dan setelah itu mandi.
3. Pukul 08.00 saya berangkat kuliah
4. Pukul 23.00 saya tidur