Salamilmu's Blog

Home » Pemrograman » Membuat Splash Screen Menggunakan VB.Net

Membuat Splash Screen Menggunakan VB.Net

June 2013
M T W T F S S
« Mar   Nov »
 12
3456789
10111213141516
17181920212223
24252627282930

Dalam membuat program aplikasi, disamping dibutuhkan kinerja, durabilitas, akurasi yang optimal dan mudah digunakan, juga dibutuhkan tampilan yang menarik agar tidak bosan dalam menggunakan aplikasi tersebut. Splash Screen merupakan tampilan pembuka dibuat dalam beberapa aplikasi yang biasanya menampilkan nama aplikasi, versi ke berapa? dan lain sebagainya.

Baiklah pada artikel ini, saya mencoba membuat contoh kecil program yang menggunakan Splash Screen, berikut langkah-langkahnya buka Microsoft Visual Studio anda.

gbr_1

buat sebuah project dengan nama SplashScreen, kemudian pilih ok.

Desain form1 dengan memasukkan beberapa objek seperti PictureBox, Panel, Label, dan Timer, aturlah properties dari setiap objek seperti tabel dibawah ini

No Nama Objek Properties Nilai
1 Form1 FormBorderStyle Sizable
StartPosition CenterScreen
BackColor ActiveCaption
2 Panel1 BackColor ControlLightLigh
3 PictureBox1 SizeMode StretchImage
BorderStyle FixedSingle
4 PictureBox2 SizeMode StretchImage
BorderStyle FixedSingle
5 Label1 Text Aplikasi Pertama
Font Onyx, 36pt
ForeColor GradientActiveCaption
6 Label2 Text ___________________
7 Label3 Text Copyright 2013-2020
Font Microsoft Sans Serif, 11.25pt
8 Label4 Text Please Wait…
Font Microsoft Sans Serif, 11.25pt
9 Timer1 Enabled FALSE
Interval 5000
10 Timer2 Enabled FALSE
Interval 2000
11 Timer3 Enabled FALSE
Interval 2000

untuk PictureBox1 masukkan sebuah gambar sebagai background.

gbr_2

kemudian pada sizemode pilih StretchImage

gbr_3

Hasil akhir dari desain form Splash Screen yang dibuat tadi.

gbr_4

kemudian ketikkan koding dibawah ini

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim i As Integer
For i = 0 To 35
If i = 35 Then
Me.Hide()
Timer1.Enabled = False
MDIParent1.ShowDialog()
Me.Close()
End If
Next
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim i As Integer
For i = 0 To 10
If i = 10 Then
Label4.Text = “Configurating System…”
Timer3.Enabled = True
Timer2.Enabled = False
End If
Next
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim i As Integer
For i = 0 To 25
If i = 25 Then
Label4.Text = “Configurating System Was Completed…”
Timer3.Enabled = False
End If
Next
End Sub
End Class

Jika sudah selesai sekarang jalankan aplikasi Splash Screen yang dibuat tadi dengan menekan tombol F5, dan bila benar langkah-langkah yang dilakukan maka tampilannya sebagai berikut

gbr_5

Untuk hasil program dapat didownload disini :

http://www.4shared.com/rar/tdsjyECV/SplashScreen.html

semoga bermaanfaat…


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: