73
Bro gw seneng banget nih ada blog sesama penggila motor khususnya dragbike ya…g suka bgt ma dragbike. gw juga punya motor yg pengen g post’ walaupun g blm sempet ikutan kejurnas tapi gw cuman pengen kenalin aja mtor gw ‘n berbagi pengalaman sama brother2 nyang laen. Motor gw Yamaha RZR. gw udah bikin style dragbike tapi rapih..biar keren aja bro…hehehe…motor gw dah not bad lah, waktu dulu pas baru tuning ‘n pasang karbu venturi 30mm aja gw ikutan kejurda dragbike di cibinong bogor, sempet tembus 8.5 scond di trek 201m emang belum memuaskan banget bro ‘tapi dengan modal pas2n gw rasa udah lumayan. sekarang motor gw dah pake reed valve merk V-force, dll. kecuali gigi rasio ‘n pengapian masih belom diganti’ pengapian cuman pake bubut2 aja. karbu tetep 30mm belum ganti lage. tapi gw rasa settingan udah pas, gw ngebengkel didaerah cicurug ( kampung bro) di bengkel YMC yoelian Motor Club, tapi mekaniknya keren bro….hehe….club gw sendiri adalah “IronHorse” anggotanya cuma gw aja …hahahaha…. Gw harap bisa dapet masukan dari bro2 semua untuk motor gw. kira2 apa yang kurang ‘n tolong commentnya ya.. thx…Ni gw ada beberapa foto2 motor gw…mudah2an berkenan dan bisa jadi inspirasi buat bro2 smua….Jaya terus DRAGBIKE indonesia. ThxSelasa, 11 Oktober 2011
Senin, 10 Oktober 2011
Style Huruf Dengan Effect Bergerak Pada Visual Basic.Net 2008 (Bottom-Up)
Pada tutorial kali ini saya ingin membahas mengenai teks dengan effect bergerak dari bawah ke atas,
mberikut tutorialnya.
Langkah 1
Buatlah :
1 buah form
1 buah label
2 buah command button
1 buah timer
1 buah picturebox
1 buah texbox
Susunlah seperti gambar berikut.
Gambar 1
Ubah Properties pada :
Button1 >> ubah kolom text menjadi “tampilkan”
Button2 >> ubah kolom text menjadi “berhenti”
Label1 >> ubah kolom name menjadi “lbljalan”, dan kolom text
Dikosongkan
Picturebox >> pilih image sesuai yang kalian inginkan
Hasil akan sebagai berikut.
Gambar 2
Pada langkah ini kita sudah dapat mengetikkan coding sebagai berikut
Public Class Form1Jika semua langkah telah dilakukan dengan baik dan benar maka hasil akan sebagai berikut.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbljalan.Text = ” ”
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim t = lbljalan.Top
lbljalan.Top = t + 500
While lbljalan.Top >= t
‘ Sleep(5000)
lbljalan.Top = lbljalan.Top – 10
End While
‘Sleep(12000)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
lbljalan.Text = TextBox1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
End Class
Membuat animasi arah dengan Visual Basic
Monday, October 10, 2011
Author: Danu Wira · Published: September 28, 2011 · Category: Animasi dan Multimedia, Pemrograman VB
Kali ini kita akan mencoba yang lebih mudah. Dengan menggunakan komponen Visual Basic kita akan membuat animasi arah sederhana. Konsepnya sederhana, dengan menekan 1 tombol yang berfungsi sebagai Tombol Start/Stop kita dapat memerintahkan objek arah untuk berputar searah jarum jam.
Langsung saja ya. Pertama sekali, buatlah sebuah form dengan tampilan sebagai berikut.
Komponen yang kita butuhkan adalah Timer, Image1(gambar panah kecil) di copy paste kemudian diganti gambarnya sehingga akan menjadi Image(0) – Image(3) dan Image2(gambar panah besar). Untuk gambar panahnya bisa dicari alternatif lainnya juga di Google ya.
Ok, setelah formnya jadi, berikutnya kita akan membuat listing programnya. Supaya lebih mudah dicoba dan gak susah mikir lama, saya akan tampilkan listing lengkapnya dibawah ini. Gak panjang kok.
Berikut listingnya:
Private Sub Command1_Click()Setelah diketik semuanya dengan tepat dan lengkap. Langsung jalankan dan lihat hasilnya. Untuk logikanya saya anggap Anda sudah dapat mendefinisikan dengan membaca urutan perintahnya ya.
Timer1.Enabled = Not (Timer1.Enabled)
End Sub
Private Sub Timer1_Timer()
Static picnum As Integer
picnum = picnum + 1
If picnum > 3 Then picnum = 0
Image2.Picture = Image1(picnum).Picture
End Sub
Selamat mencoba & Semoga berguna. Tetap semangat belajar.
Rabu, 05 Oktober 2011
Pengambilan Data Dari DataGridView Ke Textbox Menggunakan VB.Net 2008
Bahasa pemrograman dewasa ini telah banyak membantu baik beginner maupun expert programmer dalam membuat suatu aplikasi. Mulai dari properties yang tinggal drag-and-drop sampai pen-distribusian aplikasi yang semakin mudah. Nah, kali ini gw mau membahas bagaimana cara passing data dari datagridview kedalam textbox. Sudah barang tentu hal tersebut kalau tidak dilakukan dengan baik maka bisa mengakibatkan error di sistem aplikasi.
Now, we’re going to see the solutions :
*Kebetulan gw sedang mengerjakan aplikasi untuk pengelolaan data bank. Sehingga sudah tentu, data-data yang tersedia berkaitan juga dengan bank. ^-^
Gw buat menggunakan VB.Net 2008 dan SQL Server 2005
1. Pertama-tama kita buat dulu database-nya. Adapun kenapa harus dibuat database-nya dikarenakan agar data-data yang dibuat dapat terlihat langsung di datagridview. Sehingga bisa diakses dengan baik. Disini database-nya gw bernama bank. Adapun table yang akan gw buat bernama bankacc.
Berikut data-data didalam database-nya :
create table bankacc(
id_bank char(30) primary key,
nama_bank varchar(30),
no_account varchar(30),
matauang varchar(20),
currentbalance numeric(18,0),
description varchar(50));
insert into bankacc values(‘BANK-0001′,’BCA’,’9255555′,’Rupiah’,’1000000′,’Tabungan Berjangka’);
2. Setelah selesai dengan database-nya maka kita persiapkan Form-nya. Berikut :
Catatan : Untuk sementara abaikan dulu tombol dan data pencarian. Kita fokus ke cara pengambilan data dari datagridview. Jangan dimasukan tombol dan data pencariannya. Karena tidak digunakan.
Keterangan : (1) Textbox1, (2)Textbox2, (3)Textbox3, (4)Combobox2, (5)Textbox4, (6)Textbox5, (7)DataGridView1
3. Setelah form selesai dibuat, maka kita ke langkah selanjutnya yaitu coding.
4. Pertama-tama kita buat dulu Class Koneksinya. Cara-nya adalah klik kanan di Solution Explorer > project yang lo buat. Setelah itu pilih Class. Didalam program ini gw kasih nama clsKoneksi. Setelah itu masukan coding berikut :
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.Data
Imports System.Data.SqlClient
Public Class clsKoneksi
Protected tblPengguna = New DataTable
Protected SQL As String
Protected Cn As SqlClient.SqlConnection
Protected Cmd As SqlClient.SqlCommand
Protected Da As SqlClient.SqlDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New SqlClient.SqlConnection(“Data Source=.\SQLEXPRESS;Initial Catalog=bank;Integrated Security=True”)
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed”)
Return Nothing
Exit Function
End If
Cmd = New SqlClient.SqlCommand(Query, Cn)
Da = New SqlClient.SqlDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed..!!”)
Exit Sub
End If
Cmd = New SqlClient.SqlCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
5. Setelah selesai inisiate coding di clsKoneksi, sekarang kita beralih ke Form yang akan dibuat. Dalam hal ini, gw pakai nama Form1. Berikut coding untuk Form1 :
Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
Dim Proses As New clsKoneksi
Dim tblMerk As DataTable
‘Dim Da As SqlClient.SqlDataAdapter
Sub Data_Record()
tblMerk = Proses.ExecuteQuery(“Select * From bankacc”)
DataGridView1.DataSource = tblMerk
DataGridView1.Columns(1).Width = 130
End Sub
Sub bersih()
Call Data_Record()
TextBox1.Enabled = False
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
ComboBox2.Text = “”
TextBox1.Focus()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call bersih()
DataGridView1.Columns(0).HeaderText = “Kode Bank”
DataGridView1.Columns(1).HeaderText = “Nama Bank”
DataGridView1.Columns(2).HeaderText = “No. Account”
DataGridView1.Columns(3).HeaderText = “Mata Uang”
DataGridView1.Columns(4).HeaderText = “Saldo”
DataGridView1.Columns(5).HeaderText = “Description”
End Sub
Private Sub DGJenisBrg_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
TextBox1.Text = DataGridView1.SelectedCells(0).Value
TextBox2.Text = DataGridView1.SelectedCells(1).Value
TextBox3.Text = DataGridView1.SelectedCells(2).Value
ComboBox2.Text = DataGridView1.SelectedCells(3).Value
TextBox4.Text = DataGridView1.SelectedCells(4).Value
TextBox5.Text = DataGridView1.SelectedCells(5).Value
‘TextBox3.Text = DGPasien.SelectedCells(6).Value
‘TextBox4.Text = DGPasien.SelectedCells(7).Value
End Sub
End Class
6. Jalankan F5!!!!
Now, we’re going to see the solutions :
*Kebetulan gw sedang mengerjakan aplikasi untuk pengelolaan data bank. Sehingga sudah tentu, data-data yang tersedia berkaitan juga dengan bank. ^-^
Gw buat menggunakan VB.Net 2008 dan SQL Server 2005
1. Pertama-tama kita buat dulu database-nya. Adapun kenapa harus dibuat database-nya dikarenakan agar data-data yang dibuat dapat terlihat langsung di datagridview. Sehingga bisa diakses dengan baik. Disini database-nya gw bernama bank. Adapun table yang akan gw buat bernama bankacc.
Berikut data-data didalam database-nya :
create table bankacc(
id_bank char(30) primary key,
nama_bank varchar(30),
no_account varchar(30),
matauang varchar(20),
currentbalance numeric(18,0),
description varchar(50));
insert into bankacc values(‘BANK-0001′,’BCA’,’9255555′,’Rupiah’,’1000000′,’Tabungan Berjangka’);
2. Setelah selesai dengan database-nya maka kita persiapkan Form-nya. Berikut :
Catatan : Untuk sementara abaikan dulu tombol dan data pencarian. Kita fokus ke cara pengambilan data dari datagridview. Jangan dimasukan tombol dan data pencariannya. Karena tidak digunakan.
Keterangan : (1) Textbox1, (2)Textbox2, (3)Textbox3, (4)Combobox2, (5)Textbox4, (6)Textbox5, (7)DataGridView1
3. Setelah form selesai dibuat, maka kita ke langkah selanjutnya yaitu coding.
4. Pertama-tama kita buat dulu Class Koneksinya. Cara-nya adalah klik kanan di Solution Explorer > project yang lo buat. Setelah itu pilih Class. Didalam program ini gw kasih nama clsKoneksi. Setelah itu masukan coding berikut :
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.Data
Imports System.Data.SqlClient
Public Class clsKoneksi
Protected tblPengguna = New DataTable
Protected SQL As String
Protected Cn As SqlClient.SqlConnection
Protected Cmd As SqlClient.SqlCommand
Protected Da As SqlClient.SqlDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New SqlClient.SqlConnection(“Data Source=.\SQLEXPRESS;Initial Catalog=bank;Integrated Security=True”)
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed”)
Return Nothing
Exit Function
End If
Cmd = New SqlClient.SqlCommand(Query, Cn)
Da = New SqlClient.SqlDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox(“Koneksi Gagal..!!”, MsgBoxStyle.Critical, “Access Failed..!!”)
Exit Sub
End If
Cmd = New SqlClient.SqlCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
5. Setelah selesai inisiate coding di clsKoneksi, sekarang kita beralih ke Form yang akan dibuat. Dalam hal ini, gw pakai nama Form1. Berikut coding untuk Form1 :
Imports System.Data.SqlClient
Imports System.Data
Public Class Form1
Dim Proses As New clsKoneksi
Dim tblMerk As DataTable
‘Dim Da As SqlClient.SqlDataAdapter
Sub Data_Record()
tblMerk = Proses.ExecuteQuery(“Select * From bankacc”)
DataGridView1.DataSource = tblMerk
DataGridView1.Columns(1).Width = 130
End Sub
Sub bersih()
Call Data_Record()
TextBox1.Enabled = False
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
ComboBox2.Text = “”
TextBox1.Focus()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call bersih()
DataGridView1.Columns(0).HeaderText = “Kode Bank”
DataGridView1.Columns(1).HeaderText = “Nama Bank”
DataGridView1.Columns(2).HeaderText = “No. Account”
DataGridView1.Columns(3).HeaderText = “Mata Uang”
DataGridView1.Columns(4).HeaderText = “Saldo”
DataGridView1.Columns(5).HeaderText = “Description”
End Sub
Private Sub DGJenisBrg_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
TextBox1.Text = DataGridView1.SelectedCells(0).Value
TextBox2.Text = DataGridView1.SelectedCells(1).Value
TextBox3.Text = DataGridView1.SelectedCells(2).Value
ComboBox2.Text = DataGridView1.SelectedCells(3).Value
TextBox4.Text = DataGridView1.SelectedCells(4).Value
TextBox5.Text = DataGridView1.SelectedCells(5).Value
‘TextBox3.Text = DGPasien.SelectedCells(6).Value
‘TextBox4.Text = DGPasien.SelectedCells(7).Value
End Sub
End Class
6. Jalankan F5!!!!
SEJARAH VISUAL BASIC
Visual Basic dikembangkan dari bahasa QuickBasic yang berjalan di atas sistem operasi DOS. Versi awal diciptakan oleh Alan Cooper yang kemudian menjualnya ke Microsoft dan mengambil alih pengembangan produk dengan memberi nama sandi "Thunder". Akhimya VB menjadi bahasa pemrograman utama di lingkungan Windows. Sebelum mencapai kepopuleran seperti sekarang, VB telah dirilis beberapa kali seperti berikut:
Versi 1.0 dirilis bulan Mei 1991
January 1992 dilengkapi kontrol custom (Professional Toolkit)
Versi 2.0 yang lebih "canggih" dirilis pada bulan Oktober 1992
Versi 3.0 dirilis tahun 1993 dengan "development tool"
Versi 4.0 dirilis tahun 1995 dilengkapi Object Oriented Programming, mulai dipakai untuk mengembangkan aplikasi berbasis Windows
Versi 5.0 dirilis tahun 1997 dengan Integrated Development Environment(IDE)
Versi 6.0 dirilis tahun 1998, bersama Microsoft Visual Studio 6.0 meraih PC Magazine2 Annual Awards 1998, kategori Development Tools
Selanjutnya Visual Basic dikembangkan menjadi berbasis .NET yaitu mulai dari VB.NET 2001, 2002, 2003, 2005, 2008 dan saat ini VB.NET 2010, khusus VB.NET 2010 dibutuhkan minimal Windows XP SP3
NB : Visual Basic 6.0 dapat berjalan mulus mulai dari Windows 98 s/d Windows 7
Versi 1.0 dirilis bulan Mei 1991
January 1992 dilengkapi kontrol custom (Professional Toolkit)
Versi 2.0 yang lebih "canggih" dirilis pada bulan Oktober 1992
Versi 3.0 dirilis tahun 1993 dengan "development tool"
Versi 4.0 dirilis tahun 1995 dilengkapi Object Oriented Programming, mulai dipakai untuk mengembangkan aplikasi berbasis Windows
Versi 5.0 dirilis tahun 1997 dengan Integrated Development Environment(IDE)
Versi 6.0 dirilis tahun 1998, bersama Microsoft Visual Studio 6.0 meraih PC Magazine2 Annual Awards 1998, kategori Development Tools
Selanjutnya Visual Basic dikembangkan menjadi berbasis .NET yaitu mulai dari VB.NET 2001, 2002, 2003, 2005, 2008 dan saat ini VB.NET 2010, khusus VB.NET 2010 dibutuhkan minimal Windows XP SP3
NB : Visual Basic 6.0 dapat berjalan mulus mulai dari Windows 98 s/d Windows 7
TIPS DASAR VB NET
Tips Dasar VB. NET
Bekerja di VB.NET memanglah tidak seperti di VB 6 (VB 6.0), mungkin buat Anda
yang biasa menggunakan VB 6 akan sedikit beradaptasi dengan tampilan baru VB.NET.
Berikut ada beberapa tip dasar ketika Anda beralih menggunakan VB .NET antara lain:
1. Deklarasi Variabel
Pada VB.NET memungkinkan pengguna untuk deklarasi dan inisialisasi dilakukan
secara bersamaan, tidak seperti di VB 6.0
Private str As String
Private blnFlag As Boolean = False
‘ Perhatikan: di VB 6, str2 bertipe Variant
‘ di .NET, str2 adalah String
Dim str1 As String, str2 As String
2. Konkatenansi
Operator konkatenasi atau kombinasi, yaitu & dan +, digunakan untuk mengombinasikan
dua buah operand. Agar tidak terjadi kesalahan saat melakukan konkatenansi,
disarankan Anda menggunakan operator &.
Dim str1 As String
Dim str2 As String
str1 = “Nomor ” + 123
‘Error: melakukan penjumlahan String dan Integer
str2 = “Nomor ” & 123
‘ Melakukan konkatenasi, output: Nomor 123
3. Directive Kompiler
Merupakan pernyataan If yang mengarahkan kompiler, atau dengan kata lain menunjukkan
arah mana yang akan dilalui dan arah mana yang akan diabaikan. Teknik ini digunakan
ketika ingin mengubah perilaku program yang dikompilasi.
‘ Jika kode dlm mode Debug, blok 1 dilaksanakan
#If DEBUG Then
Console.WriteLine(”mode = Debug”)
#Else
Console.WriteLine(”mode = Relesae”)
#End If
4. Menggunakan Konstanta
VB.NET menyediakan bermacam konstanta yang dapat kita gunakan. Berikut ini adalah
konstanta-konstanta karakter khusus yang sering diperlukan.
Konstanta Ekuivalen Keterangan
vbNullChar ChrW(0) null (NULL)
vbBack ChrW( Backspace
vbTab ChrW(9) Tab horisontal
vbLf ChrW(10) Line feed
vbVerticalTab ChrW(11) Tab vertikal
vbFormFeed ChrW(12) Formfeed
vbCr ChrW(13) Carriage return
vbCrLf ChrW(13) + ChrW(10) Carriage return dan line feed
vbNewline ChrW(13) + ChrW(10) Sama seperti vbCrLf, yaitu baris baru
Kode-kode berikut akan menghasilkan output sama, yaitu mencetak dua baris string.
Console.WriteLine(”Baris pertama” & vbCrLf & “baris kedua”)
Console.WriteLine(”Baris pertama” & ChrW(13) & “baris kedua”)
Console.WriteLine(”Baris pertama” & Chr(Keys.Enter) & “baris kedua”)
5. Pemanggilan Method
Di VB.NET kita juga bisa memanggil event handler, namun memerlukan parameter tambahan.
Sebagai contoh, berikut cara pemanggilan event handler Click milik Button1.
‘ Pemanggilan dari method tanpa parameter
Private Sub CallBtnClick()
Me.Button1_Click(Me.Button1, New EventArgs)
End Sub
‘ Pemanggilan dari event handler lain
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Me.Button1_Click(sender, e)
End Sub
6. Keluar dari Blok Kode
Ada kalanya kita ingin keluar dari suatu pengulangan lebih awal (tanpa menunggu
pengulangan selesai), atau keluar dari suatu method tanpa menghentikan aplikasi.
‘ Keluar dari loop lebih awal
Dim i As Integer
For i = 1 To 5
Console.WriteLine(i)
‘ keluar dari loop saat i=3
If i = 3 Then Exit For
Next i
‘ Keluar dari method
Private Sub PrintHello(ByVal bFlag As Boolean)
If Not bFlag Then
Console.WriteLine(”oops…”)
Exit Sub
End If
‘ Jika bFlag=False, baris ini diabaikan
Console.WriteLine(”Bla..bla…bla”)
End Sub
7.Definisikan Pernyataan Option secara Eksplisit
Walaupun opsi-opsi kompilasi bisa ditetapkan di properti project, tetapi disarankan Anda
selalu menambahkan secara eksplisit di bagian atas kode program. Bagaimanapun juga, jika
Anda hanya mengandalkan konfigurasi di IDE, pernyataan Option bisa tidak bekerja ketika
kode program dijalankan di IDE lain yang ternyata men-disable Option tersebut.
Rujukan:
http://blog.elektro.um.ac.id/didik/
Bekerja di VB.NET memanglah tidak seperti di VB 6 (VB 6.0), mungkin buat Anda
yang biasa menggunakan VB 6 akan sedikit beradaptasi dengan tampilan baru VB.NET.
Berikut ada beberapa tip dasar ketika Anda beralih menggunakan VB .NET antara lain:
1. Deklarasi Variabel
Pada VB.NET memungkinkan pengguna untuk deklarasi dan inisialisasi dilakukan
secara bersamaan, tidak seperti di VB 6.0
Private str As String
Private blnFlag As Boolean = False
‘ Perhatikan: di VB 6, str2 bertipe Variant
‘ di .NET, str2 adalah String
Dim str1 As String, str2 As String
2. Konkatenansi
Operator konkatenasi atau kombinasi, yaitu & dan +, digunakan untuk mengombinasikan
dua buah operand. Agar tidak terjadi kesalahan saat melakukan konkatenansi,
disarankan Anda menggunakan operator &.
Dim str1 As String
Dim str2 As String
str1 = “Nomor ” + 123
‘Error: melakukan penjumlahan String dan Integer
str2 = “Nomor ” & 123
‘ Melakukan konkatenasi, output: Nomor 123
3. Directive Kompiler
Merupakan pernyataan If yang mengarahkan kompiler, atau dengan kata lain menunjukkan
arah mana yang akan dilalui dan arah mana yang akan diabaikan. Teknik ini digunakan
ketika ingin mengubah perilaku program yang dikompilasi.
‘ Jika kode dlm mode Debug, blok 1 dilaksanakan
#If DEBUG Then
Console.WriteLine(”mode = Debug”)
#Else
Console.WriteLine(”mode = Relesae”)
#End If
4. Menggunakan Konstanta
VB.NET menyediakan bermacam konstanta yang dapat kita gunakan. Berikut ini adalah
konstanta-konstanta karakter khusus yang sering diperlukan.
Konstanta Ekuivalen Keterangan
vbNullChar ChrW(0) null (NULL)
vbBack ChrW( Backspace
vbTab ChrW(9) Tab horisontal
vbLf ChrW(10) Line feed
vbVerticalTab ChrW(11) Tab vertikal
vbFormFeed ChrW(12) Formfeed
vbCr ChrW(13) Carriage return
vbCrLf ChrW(13) + ChrW(10) Carriage return dan line feed
vbNewline ChrW(13) + ChrW(10) Sama seperti vbCrLf, yaitu baris baru
Kode-kode berikut akan menghasilkan output sama, yaitu mencetak dua baris string.
Console.WriteLine(”Baris pertama” & vbCrLf & “baris kedua”)
Console.WriteLine(”Baris pertama” & ChrW(13) & “baris kedua”)
Console.WriteLine(”Baris pertama” & Chr(Keys.Enter) & “baris kedua”)
5. Pemanggilan Method
Di VB.NET kita juga bisa memanggil event handler, namun memerlukan parameter tambahan.
Sebagai contoh, berikut cara pemanggilan event handler Click milik Button1.
‘ Pemanggilan dari method tanpa parameter
Private Sub CallBtnClick()
Me.Button1_Click(Me.Button1, New EventArgs)
End Sub
‘ Pemanggilan dari event handler lain
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Me.Button1_Click(sender, e)
End Sub
6. Keluar dari Blok Kode
Ada kalanya kita ingin keluar dari suatu pengulangan lebih awal (tanpa menunggu
pengulangan selesai), atau keluar dari suatu method tanpa menghentikan aplikasi.
‘ Keluar dari loop lebih awal
Dim i As Integer
For i = 1 To 5
Console.WriteLine(i)
‘ keluar dari loop saat i=3
If i = 3 Then Exit For
Next i
‘ Keluar dari method
Private Sub PrintHello(ByVal bFlag As Boolean)
If Not bFlag Then
Console.WriteLine(”oops…”)
Exit Sub
End If
‘ Jika bFlag=False, baris ini diabaikan
Console.WriteLine(”Bla..bla…bla”)
End Sub
7.Definisikan Pernyataan Option secara Eksplisit
Walaupun opsi-opsi kompilasi bisa ditetapkan di properti project, tetapi disarankan Anda
selalu menambahkan secara eksplisit di bagian atas kode program. Bagaimanapun juga, jika
Anda hanya mengandalkan konfigurasi di IDE, pernyataan Option bisa tidak bekerja ketika
kode program dijalankan di IDE lain yang ternyata men-disable Option tersebut.
Rujukan:
http://blog.elektro.um.ac.id/didik/
Langganan:
Postingan (Atom)