Deni Rachman

Membuat Aplikasi Konverter Ukuran Sederhana Menggunakan Microsoft Visual Basic 2010 Express

Ass.Wr.Wb, kali ini saya akan membuat sebuah Aplikasi konverter ukuran sederhana menggunakan di Visual Basic 2010.

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

Tambahkan koding ini ke btnConvertToMiliMeters (Button 1) :

    Private Sub btnConvertToMiliMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMiliMeters.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) Handles btnConvertToCentiMeters.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) Handles btnConvertToMeters.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) Handles MeterstoInchesToolStripMenuItem.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) Handles INCHIESTOMETERSToolStripMenuItem.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.

Ketika program berjalan, mungkin hanya blok kode tertentu yang diperlukan saja yang akan dijalankan dengan kondisi tertentu. Hal itu dapat diatur menggunakan alur percabangan. Ada tiga pernyataan yang berkaitan dengan alur percabangan program yaitu: If....Then, If...Then...Else dan Select Case.

If...Then

Pernyataan If...Then akan menguji suatu kondisi, jika True, program akan menjalankan pernyataan yang mengikutinya. Struktur If...Then bisa memiliki sintaks satu baris atau banyak baris. Sintaksnya adalah:

If kondisi Then Pernyataan ‘Untuk perintah 1 baris

If Kondisi Then ‘untuk perintah banyak baris

Pernyataan

End If

Contoh kode dalam satu baris adalah:

If Nilai >= 60 Then Hasil = “Lulus”

Contoh kode dalam banyak baris adalah:

If sNamaFile = “ ” Then

SaveFileAs()

ExitSub

End If

If...Then...Else

Variasi dari pernyataan If...Then adalah pernyataan If...Then...Else yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai True dan blok pernyataan lainnya jika kondisi False. Sintaks pernyataan If...Then...Else sebagai berikut:

If Kondisi Then

BlokPernyataan1

Else

BlokPernyataan2

End If

VB akan menguji kondisi, jika bernilai benar maka VB akan menjalankan blok pernyataan pertama kemudian melompat pada pernyataan di bawah End If. Jika kondisi bernilai salah VB mengabaikan blok pernyataan pertama dan menjalankan blok di bawah kata kunci Else. Contoh kode:

If Nilai >= 60 Then

Hasil = “Lulus”

Else

Hasil = “Tidak Lulus”

End If

Variasi lain dari pernyataan If...Then...Else menggunakan ElseIf sebagai berikut:

If Kondisi Then

BlokPernyataan1

ElseIf Kondisi2 Then

BlokPernyataan2

ElseIf Kondisi3 Then

BlokPernyataan3

Else

BlokPernyataanN

End If

Contoh kode banyak If sebagai berikut:

Dim Pesan As String

Nilai = InputBox(“Masukkan Nilai:”)

If Nilai < 50 Then

Pesan = “D”

ElseIf Nilai < 75 Then

Pesan = “C”

ElseIf Nilai < 90 Then

Pesan = “B”

Else

Pesan = “A”

End If

MsgBox(Pesan)

Select Case

Pernyataan Select Case mirip dengan pernyataan If...Then...Else, pada dasarnya keduanya gunanya sama, tetapi menggunakan Select Case akan mempermudah menulis dan mengelola kode. Ketika pernyataan If...Then...Else memiliki banyak blok kode, kode menjadi sulit dibaca dan diikuti.

Struktur Select Case akan menguji ekspresi tunggal yang dievaluasi sekali pada bagian atas dari struktur. Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok, blok pernyataan yang berhubungan akan dijalankan.

Berikut adalah sintaks pernyataan Select Case:

Select Case Ekspresi

Case Nilai1

BlokPernyataan1

Case Nilai2

BlokPernyataan2

...

Case Else

BlokPernyataanN

End Select

Contoh kode sebagai berikut:

Dim Pesan As String

Select Case Now.DayOfWeek

Case DayOfWeek.Saturday Or DayOfWeek.Sunday

Pesan = “Libur!”

Case DayOfWeek.Monday

Pesan = “I Love Monday!”

Case Else

Pesan = “Kerja lagi, kerja lagi!”

End Select

MsgBox(Pesan)

A. Struktur Perulangan

Struktur pengulangan/looping digunakan untuk menjalankan satu atau banyak baris kode secara berulang-ulang. Jenisnya adalah Do...Loop, While...End While, For...Next dan For...Each...Next.

Pernyataan Do...Loop dapat anda gunakan jika belum tahu berapa kali pengulangan blok pernyataan. Jika Anda sudah tahu berapa kalo pengulangan blok pernyataan digunakan For...Next.

Do...Loop

Do...Loop memungkinkan anda mengeksekusi serangkaian pernyataan berulang-ulang selama kondisi pengujian tetap benar. VB akan mengevaluasi ekspresi dan jika bernilai benar, pernyataan akan dijalankan. Ketika sampai

pada bagian akhir blok, ekspresi akan diuji lagi dan jika bernilai benar maka pernyataan akan diulang. Namun jika ekspresi bernilai salah maka program akan dilanjutkan ke pernyataan setelah loop.

Ada empat variari Do...Loop, dua yang pertama memiliki model yang sama. Pengualan akan dilakukan ketika kondisi bernilai benar atau sampai kondisinya bernilai benar. Keduai variasi menggunakan kata kunci While dan

Until untuk menunjukkan berapa lama kondisi menjadi benar. Untuk menjalankan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.

Do While Kondisi

BlokPernyataan

Loop

Untuk menjalankan blok pernyataan Until kondisi menjadi benar digunakan sintaks berikut ini:

Do Until Kondisi

BlokPernyataan

Loop

Ketika VB menjalankan pengulangan di atas, yang pertama dilakukan adalah menguji kondisi, jika kondisi bernilai salah pernyataan pengulangan Do While akan dilewati tetapi pengulangan Do Until akan dijalankan. Ketika sampai pernyataan Loop, VB akan menguji ekspresi lagi dan mengulang blok pernyataan dari pengulangan Do While jika ekspresi bernilai salah dan pengulangan Do until jika ekspresi bernilai benar. Jika While akan berulang selama pengujian ekspresinya benar, sedangkan Until akan berulang selama kondisi ekspresinya salah.

Contoh Do While

Dim Nilai As Integer = 0

Do While Nilai < 100

Nilai += 5

Loop

‘Hasilnya 5, 10, 15, 20, ... sampai 100

Contoh Do Until

Dim Nilai As Integer = 0

Do Until Nilai >= 100

Nilai += 5

Loop

‘Hasilnya sama seperti Do While di atas

Variasi lain dari pengulangan Do Loop adalah menjalankan pernyataan dulu dan menguji kondisi setelah pernyataan dijalankan. Sintaksnya:

BlokPernyataan

Loop While Kondisi

Atau

BlokPernyataan

LoopUntil Kondisi

Contoh Loop While:

Dim Nilai As Integer = 0

Nilai += 5

Loop While Nilai < 100

Contoh Loop Until

Dim Nilai As Integer = 0

Nilai += 5

Loop Until Nilai >= 100

While...End While

Pengulangan While...End While akan menjalankan suatu blok pernyataan selama kondisi bernilai benar. Sintaksnya sebagai berikut:

While Kondisi

BlokPernyataan

End While

Jika kondisi bernilai benar, semua blok pernyataan akan dijalankan dan ketika mencapai End While, kontrol akan dikembalikan ke pernyataan While dan menguji kembali kondisi. Jika masih benar prosesnya akan diulang. Jika

kondisinya bernilai salah, program akan dilanjutkan pada pernyataan setelah End While. Contoh kode berikut untuk menghitung faktorial dari nilai. Lihat Program berikut ini;

While (Nilai > 1)

Jumlah *= Nilai

Nilai -= 1

End While

For... Next

Pada pengulangan For...Next, Anda harus mengetahui berapa kali pernyataan dalam pengulangan akan dijalankan. Pengulangan For...Next menggunakan suatu variabel (disebut counter) yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop. Pengulangan For...Next memiliki sintaks sebagai berikut:

For Counter = awal To Akhir [Step penambahan/pengurangan]

Pernyataan

Next [counter]

Argumen counter, awal, akhir dan penambahan/pengurangan semuanya adalah numerik. Pengulangan akan terus dijalankan sampai mencapai nilai counter. Contoh pengulangan For...Next adalah sebagai berikut:

Dim n As Integer

For n = 1 To 10 Step 2

‘Menambahkan item ke daftar ListBox

lstData.Items.Add(“Item ke ” & n)

For Each...Next

Pernyataan For Each mirip dengan pernyataan For...Next, kecuali variable pengulangan yang diperlukan bukan numerik melainkan array dan collection.

Pernyataan For Each akan mengulang untuk tiap-tiap elemen dalam array atau collection. Sintaksnya sebagai berikut:

For Each elemen In grup

[pernyataan]

[Exit For]

[Pernyataan]

Next

Elemen harus sama tipe datanya dengan tiap-tiap item dalam array atau collection. Grup adalah array atau collection. Langkah pengulangan secara otomatis melalui tiap-tiap elemen dalam array atau collection dan keluar dari pengulangan setelah mencapai akhir dari array atau collection. Contoh:

Dim NamaHewan As String

Dim Hewan() As String={“Kucing”, “Anjing”, “Monyet”} ‘Array

For Each NamaHewan In Hewan

‘tambahkan masing-masing data ke listbox

LstHasil.Items.Add(NamaHewan)

Deni Rachman

Rabu, 27 Mei 2015

Membuat Aplikasi Konverter Sederhana Menggunakan Microsoft Visual Basic 2010 Express

Selasa, 31 Maret 2015

Struktur perulangan