Membuat desain Hitung pada VB net

Langkah-langkah:
Buka aplikasi visual basic 2008 anda lalu kli file>new project
Lalu pilih windows form application, kasi nama projectnya, terus klik ok.
Nah akan tampil interface tempat kita membuat aplikasi.
Untuk pertama kali mari kita membuat aplikasi menghitung luas persegi panjang.
Dari toolbox buka bagian common control sehingga muncul tool2 yang bisa kita gunakan, tarik sebuah label (simbolnya A), lalu tarik sebuah button atur sedemikian rupa sehingga tampak menarik.
Lalu pada bagian properties (kanan bawah, kalau tidak ada klik view>properties windows) ubah properties dari label dengan mengklik label lalu ganti

Text : luas = 0
Name : hasil

klik button ganti propertiesnya

Text : hitung

pada form klik 2x pada button (akan membuka jendela script)

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
disinilah kita letakkan coding untuk button
End Sub
End Class

Tambahkan code berikut di antara Button1.Click dan End Sub

Dim p, l, luas As Integer
p = 12
l = 4
luas = p * l
hasil.Text = “Luas = ” & luas

sehingga semua code akan menjadi serperti ini

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p, l, luas As Integer
p = 12
l = 4
luas = p * l
hasil.Text = “Luas = ” & luas
End Sub
End Class

penjelasan : Dim digunakan untuk mendeklarasikan variabel pada VB, Cth: Dim p As Integer (membuat variabel p dengan tipe data integer.
lalu beri nilai p = 12, beri niai l = 4, dan nilai luas = p*l (panjang x lebar) dan terakhir ganti text pada label hasil dengan : “Luas = “ & luas.
Fungsi dari “&” adalah untuk mengubungkan text dengan variabel yang ingin dimasukkan kedalam text.
sekarang bagaimana caranya agar panjang dan luas dapat di inputkan dari user?
Modifikasi form dengan menambahkan 2 label dan 2 textbox

Ganti properties Label1

Text : panjang

Label2

Text : lebar

Klik 2x button hitung lalu masukkan code berikut diantara Button1.Click dan End Sub

Dim luas As Double
luas = Val(TextBox1.Text) * Val(TextBox2.Text)
hasil.Text = “Luas = ” & luas
MsgBox(“Luas = ” & luas)

BELAJAR VISUAL BASIC ( ZOOM OUT AND ZOOM IN) MENGGUNAKAN TRACKBAR

Langkah 1
Buatlah form dengan nama terserah anda, kemudian add.

Langkah 2

Pada form yang sudah anda buat, tambahkan  4 label dan 2 trackbar dengan memilih pada toolbox yang terdapat di sebelah kiri atas dari aplikasi visual basic.net 2008, setelah itu kita susun seperti gambar dibawah ini.

Langkah 3
Sekarang kita bermain dengan properties dari setiap masing-masing toolbox.
1.       Form   >> pada properties ubah text menjadi “terserah”
2.       Label1 & 3  >> pada properties ubah text menjadi kosong
3.       Label2  >> pada properties ubah text menjadi “terserah anda”
4.       Label4  >> pada properties isikan text dengan “spasi” dan pada image masukkan gambar yang anda inginkan.
5.       Trackbar1 & 2  >> pada properties ubah nilai maximum dengan nilai “100”, nilai minimum dengan nilai “1”
Jika sudah mengisikan tab properties maka tampilan akan sebagai berikut.

Langkah 4
Sekarang kita sudah dapat mengetikkan codingan dengan double click pada form yang anda buat dan ketikkan codingan berikut.

Public Class Trackbar
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Label1.Text = TrackBar1.Value.ToString
Label2.Font = New Font(“”, TrackBar1.Value)
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
Label3.Text = TrackBar2.Value.ToString
Label4.Font = New Font(“”, TrackBar2.Value)
End Sub
End Class

Logika

Text pada label1 kita buat sama dengan nilai tackbar yang mempunyai nilai string, kemudian font pada label2 kita buat sama dengan size font yang baru dengan nilai string sesuai dengan nilai trackbar tersebut. Jika semua langkah sudah dilakukan dengan baik, maka hasil yang didapat sebagai berikut.

Dasar Pemrograman VB.NET (Introduction VB.NET Programming)

Tujuan
Memberikan konsep-konsep dasar pada pemrograman VB.NET seperti Konsep OOP, penggunaan objek-objek koleksi dan materi yang lain, detailnya dapat dilihat pada bagian detail.

Keterangan

• Jumlah pertemuan : 12x
• Total waktu training : 30 jam
• Jumlah jam per pertemuan : 2,5 jam
• Jadwal pertemuan dapat diatur kemudian bisa 2x atau 3x seminggu, hari dan jam disesuaikan dengan peserta kelas dan pengajar.
• Alternatif lain adalah dengan workshop model yaitu memadatkan pertemuan menjadi 4x pertemuan, per petemuan 7,5 jam selama 2 minggu (hari sabtu dan minggu)
• Peserta dapat membawa notebook sendiri atau menggunakan komputer yang disediakan.

Hands-On Modul

• Setiap peserta akan mendapatkan modul pelatihan

Software Requirement

• Windows XP SP2 atau Vista
• Visual Studio 2005 / 2008
• Visual VB 2005 / 2008 Express

Materi Training

• Aplikasi Pertama dengan VB.NET
  • Pengenalan .NET Framework
  • Pengenalan Visual Studio
  • Debugging Application
  • Aplikasi pertama (Hello World)
• Variables dan Data Types
  • Pengenalan Variables dan Data Types
  • Mengkonversi satu tipe data ke tipe data yang lain
  • Bekerja dengan Operators
• Menggunakan .NET Framework
  • Generating Random Numbers
  • Mengambil informasi dari Computer
  • Bekerja dengan XML
  • Bekerja dengan File I/O
  • Bekerja dengan Strings
  • Bekerja dengan Dates and Times
• Branching dan Flow Control
  • Conditional Branching
  • Repeating Code Blocks
  • Other Control Flow Statements
• Classes dan Objects
  • Pengenalan Objects dan Classes
  • Membuat object Class anda sendiri
  • Value Types vs. Reference Types
  • Object Lifetime (Disposal and Deterministic Finalization)
  • Instance Members
• Object Properties dan Methods
  • Bekerja dengan Properties
  • Calculating Values for Properties
  • Memvalidasi nilai dalam Properties
  • Passing Arguments ke Properties
  • Bekerja dengan Methods
  • Passing Arguments ke Methods
  • Mengembalikan Arrays
  • Bekerja dengan Instance Members
• Object-Oriented Techniques
  • Inheritance
  • Polymorphism
  • The Real Base Class: System.Object
  • Overriding Properties and Methods
  • Abstract Classes
  • Implementing and Creating Interfaces
  • Organizing Classes
• Arrays
  • Pengenalan System.Array
  • Menginisialisasi Arrays
  • Iterating Through Arrays
  • Array methods
  • Passing Arrays sebagai Method Parameters
  • Multi-Dimensional Arrays
  • Membuat Array Indexers
• Generics
  • Understanding Generics
  • Generic Types dan Classes
  • Calling Generic Procedures
  • Generic Constraints
• Collection Classes
  • Collection Interfaces
  • The Generic List
  • Constraints dan Lists
  • Sorting Collections
  • Queues and Stacks
  • Hash Tables dan Dictionaries
• Exceptions
  • Menambahkan Try/Catch Block
  • Using dan Exception Object
  • Catching Specific Exceptions
  • Raising Errors
  • Handling Unhandled Exceptions
  • Creating Exception Classes
• Delegates dan Events
  • Pengantar Events
  • Interfaces vs. Delegates
  • Delegates sebagai Type-Safe Function Pointers
  • Event Handlers sebagai Delegate Instances

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

Pada tutorial kali ini saya masih membahas mengenai salah satu effect  yang bisa dilakukan pada visual basic.net, vb.net tidak hanya terkenal dengan kemudahannya bagi pemula namun vb.net unggul dalam masalah tampilannya, kita dapat merubah tampilan sesuka yang kita inginkan, biasanya kita hanya melihat pada saat membuka dan menutup aplikasi dan hilang dalam sekejap, namun kita dapat mengaturnya agar tampilan bisa lebih menarik.

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.

Sekian tutorial pada kesempatan kali ini, untuk tindak lebih lanjutnya dapat saya serahkan kepada para pembaca dengan kreasi masing-masing dan imajinasi dalam membuat aplikasi anda menjadi lebih menarik.

Style 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.

Membuat timer menggunakan visual basic.net 2008

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 & " : " & lpT.wMinute & " : " & 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.