Langsung Saja.
1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.
2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar
3. Beberapa komponen toolbox yang dibutuhkan, antara lain :
- 3 Buah Label
- Label 1 : Text : Provinsi :
- Label 2 : Text : Kota :
- Label 3 : Kecamatan :
- 3 Buah ComboBox
- ComboBox 1 : (name) : cmbProvinsi
- ComboBox 2 : (name) : cmbKota
- ComboBox 3 : (name) : cmbKecamatan
4. Klik di sembarang area Form (Form 1), maka anda akan dialihkan ke jendela koding. tambahkan koding sebagai berikut
Public Class Form1
Dim ArrayProv() As String = {“Jawa Barat”, “Jawa Tengah”, “Jawa Timur”}
Dim ArrayKotaJabar() As String = {“Bandung”, “Cimahi”}
Dim ArrayKotaJateng() As String = {“Semarang”, “Magelang”}
Dim ArrayKotaJatim() As String = {“Surabaya”, “Madiun”}
Dim ArrayKecBandung() As String = {“Andir”, “Soreang”}
Dim ArrayKecCimahi() As String = {“Cimahi Utara”, “Cimahi Selatan”}
Dim ArrayKecSemarang() As String = {“Semarang Timur”, “Semarang Utara”}
Dim ArrayKecMagelang() As String = {“Borobudur”, “Grobog”}
Dim ArrayKecSurabaya() As String = {“Jambangan”, “Sawahan”}
Dim ArrayKecMadiun() As String = {“Balarejo”, “Dolopo”}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbProvinsi.Items.AddRange(ArrayProv)
End Sub
Private Sub cmbProvinsi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProvinsi.SelectedIndexChanged
If cmbProvinsi.SelectedIndex = 0 Then
cmbKota.Items.Clear()
cmbKota.Items.AddRange(ArrayKotaJabar)
ElseIf cmbProvinsi.SelectedIndex = 1 Then
cmbKota.Items.Clear()
cmbKota.Items.AddRange(ArrayKotaJaTeng)
ElseIf cmbProvinsi.SelectedIndex = 2 Then
cmbKota.Items.Clear()
cmbKota.Items.AddRange(ArrayKotaJatim)
End If
End Sub
Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged
If cmbKota.SelectedItem = “Bandung” Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecBandung)
ElseIf cmbKota.SelectedItem = “Cimahi” Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecCimahi)
ElseIf cmbKota.SelectedItem = “Semarang” Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecSemarang)
ElseIf cmbKota.SelectedItem = “Magelang” Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecMagelang)
ElseIf cmbKota.SelectedItem = “Surabaya” Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecSurabaya)
ElseIf cmbKota.SelectedItem = “Madiun” Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecMadiun)
End If
End Sub
End Class
5. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.
Oke Aplikasi telah berhasil kita buat, dan dapat di jalankan.
Selanjutnya kita akan membuat Aplikasi yang kedua, yaitu Aplikasi Konverter Ukuran Sederhana.
1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama nya dengan “Aplikasi Konverter Ukuran” dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.
2. Dilangkah ini kita akan menggunakan sebuah MDI Form, untuk menambahkan sebuah file MDI Form, langkahnya sebagai berikut : Klik PROJECT >> Add Windows Form >> Muncul Windows Pop Up, lalu pilih MDI Parent Form
3. Design MDI Form nya seperti ini :
4. Buat sebuah Form baru dengan nama “MetertoInchies” dengan cara : klik Project >> Add Windows Form >> Lalu pilih “Windows Form”. dan design Form nya seperti gambar di bawah ini :
Komponen-komponen yang dibutuhkan :
- 1 Buah TextBox : (name) : txtMeters
- 1 Buah Label : Text : Enter the Number of Meters
- 4 Buah Button :
- Button 1 : (name) : btnConvertToInches | Text : Convert to Inches
- Button 2 : (name) : btnConvertToFeet | Text : Convert to Feet
- Button 3 : (name) : btnConvertToYard | Text : Convert to Yard
- Button 4 : (name) : btnExit | Text : Exit
Tambahkan koding ini ke btnConvertToInches (Button 1) :
Private Sub btnConvertToInches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToInches.Click
Dim dblMeters As Double
Dim dblInches As Double
Try
dblMeters = CDbl(txtMeters.Text)
dblInches = MetersToInches(dblMeters)
MessageBox.Show(dblMeters.ToString() & ” Meters equals ” & dblInches.ToString() & ” Inches”)
Catch
MessageBox.Show(“Error: Enter a number value”)
End Try
End Sub
Tambahkan koding ini ke btnConvertToFeet (Button 2) :
Private Sub btnConvertToFeet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToFeet.Click
Dim dblMeters As Double
Dim dblFeet As Double
Try
dblMeters = CDbl(txtMeters.Text)
dblFeet = MetersToFeet(dblMeters)
MessageBox.Show(dblMeters.ToString() & ” Meters equals ” & dblFeet.ToString() & ” Feet”)
Catch
MessageBox.Show(“Error: Enter a number value”)
End Try
End Sub
Tambahkan koding ini ke btnConvertToYard (Button 3) :
Private Sub btnConvertToYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToYard.Click
Dim dblMeters As Double
Dim dblYard As Double
Try
dblMeters = CDbl(txtMeters.Text)
dblYard = MetersToYard(dblMeters)
MessageBox.Show(dblMeters.ToString() & ” Meters equals ” & dblYard.ToString() & ” Yard”)
Catch
MessageBox.Show(“Error: Enter a number value”)
End Try
End Sub
Tambahkan koding ini ke btnExit (Button 4) :
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
5. Buat sebuah Form baru dengan nama “InchiesToMeter.vb” dengan cara : klik Project >> Add Windows Form >> Lalu pilih “Windows Form”. dan design Form nya seperti gambar di bawah ini :
Komponen-Komponen yang dibutuhkan :
- 1 Buah Label : Text : Enter the Number of Inches
- 1 Buah TextBox : (name) : txtInches
- 4 Buah Button :
- Button 1 : (name) : btnConvertToMiliMeters | Text : Convert to Milimeters
- Button 2 : (name) : btnConvertToCentiMeters | Text : Convert to Centimeters
- Button 3 : (name) : btnConvertToMeters | Text : Convert to Meters
- Button 4 : (name) : btnExit | Text : Exit
Private Sub btnConvertToMiliMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnConvertToMiliMeters.Click
Dim dblInches As Double
Dim dblMiliMeters As Double
Try
dblInches = CDbl(txtInches.Text)
dblMiliMeters = InchesToMili(dblInches)
MessageBox.Show(dblInches.ToString() & ” Inches equals ” & dblMiliMeters.ToString() & ” MiliMeters”)
Catch
MessageBox.Show(“Error: Enter a number value”)
End Try
End Sub
Tambahkan koding ini ke btnConvertToCentiMeters (Button 2) :
Private Sub btnConvertToCM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnConvertToCentiMeters.Click
Dim dblInches As Double
Dim dblCentiMeters As Double
Try
dblInches = CDbl(txtInches.Text)
dblCentiMeters = InchesToCenti(dblInches)
MessageBox.Show(dblInches.ToString() & ” Inches equals ” & dblCentiMeters.ToString() & ” CentiMeters”)
Catch
MessageBox.Show(“Error: Enter a number value”)
End Try
End Sub
Tambahkan koding ini ke btnConvertToMeters (Button 3) :
Private Sub btnConvertToMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnConvertToMeters.Click
Dim dblInches As Double
Dim dblMeters As Double
Try
dblInches = CDbl(txtInches.Text)
dblMeters = InchesToMeters(dblInches)
MessageBox.Show(dblInches.ToString() & ” Inches equals ” & dblMeters.ToString() & ” Meters”)
Catch
MessageBox.Show(“Error: Enter a number value”)
End Try
End Sub
Tambahkan koding ini ke btnExit (Button 4) :
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
6. Tambahkan koding ini ke MDI Form yang telah kita buat tadi, dengan cara klik sembarang area di MDI Form:
Imports System.Windows.Forms
Public Class MDIParent1
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = “Text Files (*.txt)|*.txt|All Files (*.*)|*.*”
If (OpenFileDialog.ShowDialog(Me) =System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
‘ TODO: Add code here to open the file.
End If
End Sub
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = “Text Files (*.txt)|*.txt|All Files (*.*)|*.*”
If (SaveFileDialog.ShowDialog(Me) =System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
‘ TODO: Add code here to save the current contents of the form to a file.
End If
End Sub
Private Sub MeterstoInchesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) HandlesMeterstoInchesToolStripMenuItem.Click
MetertoInches.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Close()
End Sub
Private Sub INCHIESTOMETERSToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) HandlesINCHIESTOMETERSToolStripMenuItem.Click
InchiesToMeter.Show()
End Sub
End Class
7. Tambahkan sebuah Module untuk project ini, dengan cara Klik Project >> Add Class >> Pilih Module, beri nama “ConverterModule.vb”, dan tambahkan script sebagai berikut :
Module ConverterModule
Function MetersToInches(ByVal I As Integer)
MetersToInches = I * 39.3701
End Function
Function MetersToFeet(ByVal F As Integer)
MetersToFeet = F * 3.28084
End Function
Function MetersToYard(ByVal Y As Integer)
MetersToYard = Y * 1.09361
End Function
Function InchesToMili(ByVal MM As Integer)
InchesToMili = MM * 25.4
End Function
Function InchesToCenti(ByVal CM As Integer)
InchesToCenti = CM * 2.54
End Function
Function InchesToMeters(ByVal M As Integer)
InchesToMeters = M * 0.0254
End Function
End Module
8. Sekarang klik “Solution Project” di bagian Kanan Atas (Tepat dibawah tombol Close Program), pilih project anda yg sedang di buka (Aplikasi Konverter Ukuran), lalu klik kanan pada “My Project” >> Open >> Pada bagian STARTUP FORM pilih MDIParent1.
9. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.
Oke Aplikasi telah berhasil.