Selasa, 11 Oktober 2011

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:




Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Menggunakan Stored Procedure Pada ADO.NET – VB.NET

Stored procedure yang telah dibuat di server database dapat diakses melalui aplikasi program VB.NET, yaitu dengan membentuk objek command dan mengatur nilai dari CommandType untuk diisi dengan StoredProcedure. Contoh programnya adalah sebagai berikut :
Desain tampilan seperti berikut :
Database yang digunakan adalah database db_supplier dengan tabel tbl_supplier sebagaimana sudah dibuat pada pembahasan sebelumnya.
Untuk membuat stored procedure pada Visual Studio anda buka server explorer. Kemudian pada database yang digunakan klik kanan item Stored Procedures lalu pilih Add New Stored Procedure.

Procedure View Data

Procedure ini akan digunakan untuk mengecek apakah data yang akan dientry sudah ada atau belum, kodenya adalah sebagai berikut :
1ALTER PROCEDURE dbo.VIEW_SUP
2    @Kode char(10)
3AS
4    Select * from tbl_supplier
5    where  Kode = @Kode
6RETURN

Procedure Entry Data

Berikut ini adalah procedure untuk entry data, masukkan kode berikut pada procedure baru yang akan kamu buat :
01ALTER PROCEDURE dbo.ENTRY_SUP
02    /*variabel local*/
03    @Kode Char(10),
04    @Nama Varchar(50),
05    @Alamat Varchar(50)
06AS
07    /*variabel global*/
08    Declare @salah int
09 
10    /*Menambahkan data*/
11    Insert Into tbl_supplier
12    Values(@Kode, @Nama, @Alamat)
13 
14    /*nilai yang dikembalikan*/
15    Set @Salah = @@Error
16    If @Salah=0
17        Return(0)
18    Else
19        Return(@Salah)
20 
21RETURN
Jangan lupa disimpan dahulu, selama proses penyimpanan .net akan mengecek apakah stored yang kamu tuliskan sudah benar.

Procedure Update Data

Bentuk stored procedure untuk update data adalah sebagai berikut :
01ALTER PROCEDURE dbo.UPDATE_SUP
02    /*variabel local*/
03    @Kode Char(10),
04    @Nama Varchar(50),
05    @Alamat Varchar(50)
06AS
07    Declare @Salah Int
08    UPDATE tbl_supplier
09    Set
10        Nama = @Nama,
11        Alamat = @Alamat
12    Where
13        Kode = @Kode
14 
15    Set @Salah = @@Error
16    If @Salah = 0
17        Return (0)
18    Else
19        Return(@Salah)
20 
21RETURN
Jangan lupa disimpan dahulu.

Procedure Delete Data

Stored Procedure delete data adalah sebagai berikut :
[courcecode language='sql']
ALTER PROCEDURE dbo.DELETE_SUP
@Kode Char(10)
AS
Declare @Salah Int
Delete from tbl_supplier
Where Kode = @Kode
Set @Salah = @@Error
If @Salah = 0
Return (0)
Else
Return (@Salah)
RETURN
[/sourcecode]
Simpan stored procedure yang telah kamu buat. Nah sekarang kamu bisa mencoba untuk menjalankan masing-masing stored procedure yang telah kamu buat dengan mengklik kanan stored procedure lalu pilih Execute.
Sekarang kita masuk ke coding vb.net nya. Pertama2 tambahkan dulu directive untuk interaksi ke database sql. Masukkan kode berikut :
Imports System.Data.SqlClient
Kemudian deklarasikan class variabel sebagai berikut :
Private xKoneksi As New SqlConnection
Private xCommand As New SqlCommand
Private xReader As SqlDataReader
Masukkan code untuk koneksi pada event Form Load sebagai berikut :
‘koneksi dengan windows autothentication
xKoneksi.ConnectionString = _
"Data Source=(Local);" & _
"Initial Catalog=db_supplier;" & _
"Integrated Security = SSPI"
‘buka koneksi
xKoneksi.Open()
‘hubungkan koneksi command
xCommand.Connection = xKoneksi
Buat event click pada tombol entry, update, delete dan exit. Pastikan nilai tag untuk masing-masing tombol adalah entry=1, update=2, delete=3 dan exit = 4. Kodenya adalah sebagai berikut :
Private Sub btn_entry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_entry.Click
‘ambil nilai tag tombol
sw = sender.tag
‘disable semua tombol pada
‘groupbox2
For A As Byte = 0 To _
GroupBox2.Controls.Count – 1
GroupBox2.Controls(A).Enabled = False
Next
sender.enabled = True
If sender.tag = 4 Then
Me.Close()
Else
txt_kode.Focus()
End If
End Sub
Buat event keypress pada text_kode dan ketikkan kode-kode program berikut ini.
Private Sub txt_kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_kode.KeyPress
Dim xParam1 As New SqlParameter
‘jika dienter
If e.KeyChar = Chr(13) Then
‘jika text kosong
If Trim(txt_kode.Text) = "" Then
‘aktifkan tombol
For A As Byte = 0 To GroupBox2.Controls.Count – 1
GroupBox2.Controls(A).Enabled = True
Next
‘panggil subrutin bersih
Call bersih()
‘hidden groupbox3
GroupBox3.Visible = False
‘focus ke btn_exit
btn_exit.Focus()
Else
GroupBox3.Visible = True
‘kosongkan dulu objek command
xCommand.Parameters.Clear()
‘perintah untuk command
xCommand.CommandText = "VIEW_SUP"
‘command dng mode stored procedure
xCommand.CommandType = _
CommandType.StoredProcedure
‘parameter yang dikirim melalui objek command
xParam1 = xCommand.Parameters.Add("@Kode", SqlDbType.Char, 10)
‘direction yg dipakai mode input
xParam1.Direction = ParameterDirection.Input
‘mengisi parameter yg dikirim
xCommand.Parameters("@Kode").Value = txt_kode.Text
‘mode eksekusi adalah execute reader
‘untuk pembacaaan saja
xReader = xCommand.ExecuteReader
‘jika data ada
If xReader.HasRows Then
‘baca data
xReader.Read()
‘jika mode entry
If sw = 1 Then
MsgBox("Data sudah ada!")
txt_kode.Clear()
Else
Call tampil()
‘jika mode edit
If sw = 2 Then
txt_nama.Focus()
Else
‘jika mode delete
btn_ok.Focus()
End If
End If
Else
‘jika data tidak ada
‘mode entry
If sw = 1 Then
txt_nama.Focus()
Else
‘mode edit dan hapus
MsgBox("Data tidak ada!")
txt_kode.Clear()
End If
End If
‘hapus parameter
xCommand.Parameters.Remove(xParam1)
‘tutup data reader
xReader.Close()
End If
End If
End Sub
Kode diatas digunakan untuk mengecek kode ketika txt_kode dienter sesuai dengan tag tombol pada groupbox2 yang dikirim. Dan jika terjadi kesalahan pada saat pemrosesan akan ditampilkan kotak pesan.
Buat Event Click pada tombol OK dan ketikkan kode berikut ini :
Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
‘membuat objek parameter
Dim xParam_kode As New SqlParameter
Dim xParam_nama As New SqlParameter
Dim xParam_alamat As New SqlParameter
‘tipe command adalah stored procedure
xCommand.CommandType = CommandType.StoredProcedure
‘kosongkan dulu parameter command
xCommand.Parameters.Clear()
‘seleksi untuk taf tombol
Select Case sw
‘jik tombol entry
Case 1
xCommand.CommandText = "ENTRY_SUP"
‘jika tombol update
Case 2
xCommand.CommandText = "UPDATE_SUP"
Case 3
‘jika tombol hapus
xCommand.CommandText = "DELETE_SUP"
End Select
‘parameter yang dikirim
xParam_kode = xCommand.Parameters.Add("@Kode", SqlDbType.Char, 10)
xParam_kode.Direction = ParameterDirection.Input
xCommand.Parameters("@Kode").Value = txt_kode.Text
‘jika mode edit
If sw <= 2 Then
xParam_nama = xCommand.Parameters.Add("@Nama", SqlDbType.VarChar, 50)
xParam_nama.Direction = ParameterDirection.Input
xCommand.Parameters("@Nama").Value = txt_nama.Text
xParam_nama = xCommand.Parameters.Add("@Alamat", SqlDbType.VarChar, 50)
xParam_nama.Direction = ParameterDirection.Input
xCommand.Parameters("@Alamat").Value = txt_alamat.Text
‘mode exksekusi untuk maintenance DB
xCommand.ExecuteNonQuery()
‘hancurkan semua parameter
xCommand.Parameters.Remove(xParam_kode)
xCommand.Parameters.Remove(xParam_nama)
xCommand.Parameters.Remove(xParam_alamat)
Else
‘jika mode entry dan hapus
xCommand.ExecuteNonQuery()
‘hancurkan parameter
xCommand.Parameters.Remove(xParam_kode)
End If
Call bersih()
End Sub
Kode diatas digunakan untuk memproses database berdasarkan nilai tag yang telah dikirimkan. Pemrosesan dengan menggunakan metode stored procedure dengan mengirimkan parameter sesuai tak yang dikirimkan.
Code untuk tombol cancel adalah sebagai berikut :
Private Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
Call bersih()
End Sub
Procedure tambahan yang digunakan adalah sebagai berikut :
Sub tampil()
txt_nama.Text = xReader.Item(1)
txt_alamat.Text = xReader.Item(2)
End Sub
Sub bersih()
txt_kode.Clear()
txt_nama.Clear()
txt_alamat.Clear()
End Sub
Sekarang coba kamu jalankan program dan test beberapa tombol yang telah dibuat. Hasilnya kurang lebih adalah sebagai berikut :
Jangan lupa setelah kamu memasukkan kode kamu enter dulu untuk mengecek apakah terjadi duplikat atas data yang dimasukkan.

Sejarah mengenai VB.NET

VB.NET merupakan perkembangan bahasa programming dari bahasa Visual Basic, untuk lebih jelasnya mari kita lihat bersama-sama dibawah ini!


Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.



Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :


Perjalanan dari Visual Basic (VB1 to VB 10)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System


4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
- True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF
- LINQ Support
- Ekspresi Lambda
- XML Literals
- Nullable types
- Type Inference
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

Tutorial VB.Net 2008

Visual Basic.Net IDE 2008 tidak jauh dengan visual basic 6.0 IDE, kelebihannya memiliki IDE yang lebih lengkap dan  terorganisir, sehingga mudah bagi pengembang untuk mencari object-object yang terdapat pada toolbox yang kita inginkan untuk ditempatkan pada form.

Untuk pembuatan software yang canggih, belum bisa dibilang keren kalau belum pake loading pada tampilan awalnya. Ok kita mulai tutorial mengenai pembuatan loading menggunakan Visual Basic.Net 2008, sebelum berangkat perang kita harus nyiapin senjata yang pastinya, senjata yang harus disiapkan sebagai berikut :
  • Komputer yang sedikit canggih dengan spesifikasi yang lumayan, ga usah terlalu canggih-canggih banget.
  • Software Microsoft Visual Studio, karna di sini kita dapat menginstall Visual Basic.Net tersebut. (link download software)
  • Kesiapan mental dan kemauan yang kuat.
  • Terakhir segelas susu anget boleh juga.

Langkah 1
Install Microsoft Visual Basic.Net 2008 pada Visual Studio yang ada, untuk cara menginstall ga perlu dijelasin dahh, uda pada ngerti semua kan.


Langkah 2
Buka Microsoft Visual Basic.Net 2008 yang sudah terinstall, tampilannya sebagai berikut.
Langkah 3
Buka file, kemudian new project, kita beri nama project “coba-coba”, kemudian OK.
Tampilan sebagai berikut.
Langkah 4
Pada langkah ini kita sudah dapat membuat loading tersebut dengan menggunakan splash screen yang sudah tersedia pada Visual Basic.Net 2008, cara nya dengan pilih pada menu project >>add new Item >> pilih splash screen, kemudian add. Lihat gambar dibawah ini.
Langkah 5
Kita sudah membuat splash screen, sekarang desainlah splash screen yang telah kalian buat sesuka hati kalian, dapat  ditambahkan background untuk splash screen dengan cara mengganti background image pada properties. Lihat hasil dibawah ini.
Langkah 6
Sekarang kita buat tools loading yang kita inginkan sedari tadi,. Hehehee*
Cara nya yaitu dengan menggunakan tools progress bar dan timer yang ada pada toolsbox. Setelah itu tools progress bar drag ke splash screen yang telah kita buat tadi. Sehingga menjadi seperti berikut.
Kemudian ketikkan codingan berikut pada timer, dengan cara double click timer tersebut  untuk membuat progressbar berjalan.
ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
Me.Visible = False
Form1.Show()
End If
Logikanya yaitu kita memberikan nilai dari 0-100 dengan nilai setiap kali proses bertambah 5, jika nilai sudah mencapai 100 maka spalshscreen tersebut akan di hilangkan dan membuka secara otomatis from selanjutnya.
Dan pada mainlayout kita ketikkan coding berikut.
Timer1.Enabled = True
Logikanya yaitu kita memberikan hak untuk timer tersebut berjalan pada mainlayout dari splash screen yang kita buat.
Langkah terakhir merubah startup form dengan cara klik kanan pada project yang kita punya kemudian pilih properties dan ganti startup form menjadi splashscreen.
Jika langkah-langkah yang dibuat sesuai dengan tutorial maka hasil akan seperti gambar dibawah ini.
Kalian dapat mengkreasikan loading tersebut sesuai imajinasi masing-masing, kalian dapat merubah bentuk progressbar dengan cara mengganti style pada properties dari progressbar tersebut.
Sekian tutorial dari aNe, tungguin tutorial-tutorial berikutnya, masih mengenai Visual Basic.Net 2008.

Membuat timer menggunakan visual basic.net 2008

Langkah 1.
Pertama yang harus dilakukan membuat windows form baru yang kita beri nama “timer.vb”, form ini kita menggunakan 2 picturebox, 2 commandbutton, 1textbox dan 1 timer. untuk lebih jelasnya dapat dilihat sebagai berikut.
Langkah 2.
Setelah membuat dan menyusun object dari toolbox seperti gambar diatas, sekarang waktunya merubah properties dari setiap object tersebut.
• 2 Picturebox, disini saya menggunakan picture berextension gif, agar dapat terlihat lebih cantik dalam aplikasi ini, pada dasarnya visualbasic tidak dapat membaca file gambar berextension gif, namun kita dapat mengakalinya dengan rename nama file tersebut menjadi extension jpg, meskipun begitu file gif anda masih akan bisa berjalan. Pada properties kita pilih Image – kemudian Import file yang ingin kita masukan lalu pilih ok.
• Button1, kita ganti text menjadi “stop”.
• Button2, kita ganti text menjadi “start”
• Textbox, kita ganti name nya menjadi “txtTime”, accessiblename kita ganti menjadi “txtFilePath”, kita ganti text menjadi “10:10:10”.
• Timer, kita ganti name menjadi “tmrWorldClock”, enable diubah menjadi “true” dengan interval “100”.
Langkah 3.
Jika langkah2 sudah dilakukan dengan benar, maka sekarang saatnya untuk pengetikkan coding untuk perhitungan, codingan sebagai berikut.
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
 
Private Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME)
Private Structure SYSTEMTIME
Public wYear As Short
Public wMonth As Short
Public wDayOfWeek As Short
Public wDay As Short
Public wHour As Short
Public wMinute As Short
Public wSecond As Short
Public wMilliseconds As Short
End Structure
 
'#Region " World Clock Variables "
Dim lpT As SYSTEMTIME
Dim dateUTC As Date
Dim WTime As Date
'#End Region
 
Private Sub getWorldClock()
Try
Call GetSystemTime(lpT)
dateUTC = Date.Today.UtcNow().AddHours(17.0)
WTime = CDate(lpT.wHour &amp; " : " &amp; lpT.wMinute &amp; " : " &amp; lpT.wSecond).AddHours(17.0)
txtTime.Text = WTime.ToLongTimeString
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
 
Private Sub tmrWorldClock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrWorldClock.Tick
getWorldClock()
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tmrWorldClock.Enabled = False
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tmrWorldClock.Enabled = True
End Sub
 
End Class
Codingan yang saya gunakan ini sangat sederhana namun sangat mudah untuk dikembangkan karna mudah dipahami dan dimengerti.

Sahabat

TeMaN aDaLah kaKi,..
TeMaN aDaLah taNgan,…
TeMaN aDaLah maTa,..
jiKa taNgan saKit kaKi puN saKiT

taPi sahabat aDaLah haTi daN oTak,.
maKa jaGaLah haTi daN piKiraN

haTi iTu raJa,…
seDaNgkan aNggoTa tuBuh mEruPaKaN pasukanNya
jiKa raJaNya baik, mKa baiK puLa pasukaNnya
taPi jiKa raJaNya jaHaT, mKa jaHaT puLa paZukaNnya.

persahabatan adaLah saTu jaNji daLam haTi,….
tak bisa di tuLis daN taG bisa di baCa
taPi,...tak aKan teRpisah kareNa jaRak,..
tak akaN bEruBaH kareNa masa,..
tak akaN sirNa kareN aMaraH,..

sEdeTik di maTa
seLamaNya di haTi