Pertemuan 13: 18 Mei 2015

Membuat Aplikasi Array
Array adalah konstruksi pemrograman yang menyimpan data dan memungkinkan kita untuk mengaksesnya dengan indeks numerik atau subscript. Array membantu kita membuat kode lebih pendek dan sederhana dalam banyak situasi. Array dideklarasikan menggunakan Dim, ReDim, Static, Private. Array dapat memiliki satu dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32 dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic. 

a. Larik (Array) Satatis Satu dimensi yaitu jenis Larik dimana elemen elemnya hanya satu dimensi dan telah di tentukan jumlah elemennya.

b. Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah elemenya bersifat Dinamis.

c. Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi .

Pada kesempatan ini, saya akan membuat sebuah aplikasi menggunakan array yaitu tentang Kota, Provinsi, dan Kabupaten. Pertama, seperti biasa buka VB NET 2010. Kemudian klik  File dan New project dan isikan judul projectnya.

Setelah itu akan ada form kosong seperti berikut.

Buat desain form seperti berikut.

 

Dan berikut source codenya.

Public Class Form1
    Dim ArrayProv() As String = {"Jawa Barat", "Banten", "Jawa Tengah"}
    Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi"}
    Dim ArrayKotaBanten() As String = {"Cilegon", "Serang"}
    Dim ArrayKotaJateng() As String = {"Brebes", "Semarang"}
    Dim ArrayKecBandung() As String = {"Antapani", "Babakanciparay"}
    Dim ArrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Tengah"}
    Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol"}
    Dim ArrayKecSerang() As String = {"Curug", "Kasemen"}
    Dim ArrayKecBrebes() As String = {"Losari", "Salem"}
    Dim ArrayKecSemarang() As String = {"Banyumanik", "Mijen"}


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cmbProv.Items.AddRange(ArrayProv)
    End Sub

    Private Sub cmbProv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProv.SelectedIndexChanged
        If cmbProv.SelectedIndex = 0 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(ArrayKotaJabar)
        ElseIf cmbProv.SelectedIndex = 1 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(ArrayKotaBanten)
        ElseIf cmbProv.SelectedIndex = 2 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(ArrayKotaJateng)
        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 = "Cilegon" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecCilegon)
        ElseIf cmbKota.SelectedItem = "Serang" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecSerang)
        ElseIf cmbKota.SelectedItem = "Brebes" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecBrebes)
        ElseIf cmbKota.SelectedItem = "Semarang" Then
            cmbKecamatan.Items.Clear()
            cmbKecamatan.Items.AddRange(ArrayKecSemarang)
        End If
    End Sub

    Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click
        If cmbProv.SelectedItem = "" Then
            MsgBox("belum pilih Provinsi")
        ElseIf cmbKota.SelectedItem = "" Then
            MsgBox("belum pilih Kota")
        ElseIf cmbKecamatan.SelectedItem = "" Then
            MsgBox("belum pilih Kecamatan")
        Else
            lstTampil.Items.Clear()
            lstTampil.Items.Add("Provinsi yang dipilih " + cmbProv.SelectedItem)
            lstTampil.Items.Add("Kota yang dipilih " + cmbKota.SelectedItem)
            lstTampil.Items.Add("Kecamatan yang dipilih " + cmbKecamatan.SelectedItem)
        End If
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lstTampil.Items.Clear()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()

    End Sub
End Class

Hasilnya adalah: 

 

Cukup mudah namun source codenya agak panjang. Sekian dan terima kasih.

Pertemuan 12: 11 Mei 2015 Aplikasi Konverter pada VB .NET

Aplikasi Konverter pada VB .NET
Selamat malam dan selamat berjumpa lagi... Kali ini saya akan membahas tentang modules pada VB .NET. Aplikasi yang saya buat yaitu mengenai modules tentang perhitungan konversi. Sebelumnya, saya akan menjelaskan sedikit tentang module. Jika membuat module, tidak perlu tahap instalasi. Apabila menggunakan PUBLIC FUNCTION di dalam module, kita dapat memanggil secara otomatis. Module seolah-olah menyatu dalam form. Module merupakan special class yang dibuat berdasarkan keperluan dan logic.
Langsung saja kita buat aplikasinya, seperti biasa buka VB 2010. Kemudian buat new project dengan pilihan WindowsForm dan isikan nama project yang diinginkan, misalkan Aplikasi Konverter.
Setelah itu, buat form seperti berikut:

Dan ini source code dari masing-masing form di atas:

Public Class FormUtama

    Private Sub btnKonfMeter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfMeter.Click
        KonfersiMeter.Show()
    End Sub

    Private Sub btnKonfInchi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfInchi.Click
        KonfersiInchi.Show()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub

    Private Sub FormUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


Public Class KonfersiMeter

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close() 'keluar dari form KonfrsiMeter
    End Sub

    Private Sub btnKonfKeInchi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeInchi.Click
        Dim dblMeter As Double 'variabel dblMeter dengan tipe Double
        Dim dblInch As Double 'variabel dblInch dengan tipe Double
        Try
            dblMeter = CDbl(txtMeter.Text) 'mengsi nilai dblMeter dari txtMeter.Text
            dblInch = metertoinch(dblMeter) 'mengisi nilai dblInch dari fungsi metertoinch
            MessageBox.Show(dblMeter.ToString() & " meter sama dengan " & dblInch.ToString() & " inch")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeKaki_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeKaki.Click
        Dim dblMeter As Double 'variabel dblMeter dengan tipe Double
        Dim dblKaki As Double 'variabel dblKaki dengan tipe Double
        Try
            dblMeter = CDbl(txtMeter.Text) 'mengsi nilai dblMeter dari txtMeter.Text
            dblKaki = metertokaki(dblMeter) 'mengisi nilai dblKaki dari fungsi metertokaki
            MessageBox.Show(dblMeter.ToString() & " meter sama dengan " & dblKaki.ToString() & " kaki (feet)")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeYard.Click
        Dim dblMeter As Double 'variabel dblMeter dengan tipe Double
        Dim dblYard As Double 'variabel dblYard dengan tipe Double
        Try
            dblMeter = CDbl(txtMeter.Text) 'mengsi nilai dblMeter dari txtMeter.Text
            dblYard = metertoyard(dblMeter) 'mengisi nilai dblYard dari fungsi metertoyard
            MessageBox.Show(dblMeter.ToString() & " meter sama dengan " & dblYard.ToString() & " yard")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub KonfersiMeter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


Public Class KonfersiInchi

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnKonfKeMili_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeMili.Click
        Dim dblInch As Double
        Dim dblMili As Double
        Try
            dblInch = CDbl(txtInch.Text)
            dblMili = inchtomili(dblInch)
            MessageBox.Show(dblInch.ToString() & " inch sama dengan " & dblMili.ToString() & " milimeter")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeCenti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeCenti.Click
        Dim dblInch As Double
        Dim dblCenti As Double
        Try
            dblInch = CDbl(txtInch.Text)
            dblCenti = inchtocenti(dblInch)
            MessageBox.Show(dblInch.ToString() & " inch sama dengan " & dblCenti.ToString() & " centimeter")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeMeter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeMeter.Click
        Dim dblInch As Double
        Dim dblMeter As Double
        Try
            dblInch = CDbl(txtInch.Text)
            dblMeter = inchtometer(dblInch)
            MessageBox.Show(dblInch.ToString() & " inch sama dengan " & dblMeter.ToString() & " meter")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub KonfersiInchi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Dan ini module dari aplikasinya:

Module ModulKonfersi

    'merupakan fungsi untuk konfersi dari inch ke milimeter
    Function inchtomili(ByVal mm As Double)
        inchtomili = mm * 25.4
        Return inchtomili
    End Function

    'merupakan fungsi untuk konfersi dari inch ke centimeter
    Function inchtocenti(ByVal cm As Double)
        inchtocenti = cm * 2.54
        Return inchtocenti
    End Function

    'merupakan fungsi untuk konfersi dari inch ke meter
    Function inchtometer(ByVal m As Double)
        inchtometer = m * 0.03
        Return inchtometer
    End Function

    'merupakan fungsi untuk konfersi dari meter ke inch
    Function metertoinch(ByVal i As Double)
        metertoinch = i * 39.37
        Return metertoinch
    End Function

    'merupakan fungsi untuk konfersi dari meter ke kaki (feet)
    Function metertokaki(ByVal ft As Double)
        metertokaki = ft * 3.28
        Return metertokaki
    End Function

    'merupakan fungsi untuk konfersi dari meter ke yard
    Function metertoyard(ByVal y As Double)
        metertoyard = y * 1.093
        Return metertoyard
    End Function
End Module

Hasilnya adalah:
Saya mencoba untuk perhitungan Conversion from meters

Masukan angka kemudian misalkan saya klik conversion to inch

Hasilnya:

 

Pertemuan 9: 20 April 2015 Aplikasi dengan ByVal pada VB .NET

Aplikasi dengan ByVal pada VB NET 2010
ByVal merupakan parameter yang dikirimkan yaitu nilai dari sebuah object sehingga kita tidak dapat mengubah nilai object tersebut, kita hanya dapat mengolah/mengubah nilai object tersebut di dalam sub/function saja, setelah sub/function tersebut selesai, perubahan nilai di sub/function tidak akan mengubah nilai object yang sebenarnya. Di sini, saya akan membuat sebuah aplikasi dengan ByVal.
Langkah-langkahnyaseperti berikut.

Pertama buka VB 2010, kemudian klik menu File kemudian pilih New Project dan kemudian pilih Windows Form Application. Ganti nama projectnya sesuai dengan project yang dibuat.

Seperti biasa setelah mengisi nama project akan muncul form kosong. Saya akan memberi nama dengan ByVal.



Kemudian buat form seperti berikut dengan atribut ListBox, dan Button. ListBox diganti dengan lstOutput dan Button diganti dengan Go! dan Exit.

Masukan source codenya seperti berikut.

Public Class Form1

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click

        Dim intNumber As Integer = 100

        lstOutput.Items.Add(" My Name is Agustinus")

        lstOutput.Items.Add(" Inside btnGo_click the value of " & " intNumber is " & intNumber.ToString())

        lstOutput.Items.Add(" I'am now calling ChangeArg.")

        ChangeArg(intNumber)

        lstOutput.Items.Add(" Now back in btnGo_Click the value of " & " The value intNumber is " & intNumber.ToString())

    End Sub

    Sub ChangeArg(ByVal intArg As Integer)

        lstOutput.Items.Add(" Di dalam procedure " & " saya akan mengubah intArg. ")

        intArg = 0

        lstOutput.Items.Add(" Sekarang intNumber adalah " & intArg.ToString())

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class

Dan hasilnya seperti berikut.

Cukup mudah bukan? Sekian dan terima kasih.

Pertemuan 10: 27 April 2015 Aplikasi Penghitungan (Penjumlahan) Menggunakan Function pada VB .NET

Aplikasi Penghitungan (Penjumlahan) dengan Menggunakan Function di VB NET 2010
Hampir sama dengan sub prosedur, namun pada fungsi terdapat nilai kembalian. Fungsi dapat dibuat sendiri ataupun menggunakan fungsi yang sudah disediakan oleh VB.NET. Kali ini, saya akan membuat sebuah aplikasi sederhana yang berhubungan dengan Function.
Berikut langkah-langkahnya.

Pertama buka VB 2010, kemudian klik menu File kemudian pilih New Project dan kemudian pilih Windows Form Application. Ganti nama projectnya sesuai dengan project yang dibuat.

 

Saya akan memberikan nama project saya yaitu Function. Setelah itu, ada form kosong seperti berikut kemudian buat form dengan atribut seperti Label (Bilangan1, Bilangan2, dan Hasil) dan TextBox dan juga Button.

Kemudian masukan source codenya seperti berikut.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    'Ini merupakan Function

    Function Sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) As Single

        Dim sngResult = sngNum1 + sngNum2

        Return sngResult

    End Function

    'Ini untuk memanggil Function

    Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click

        Dim sngResult As Single

        Dim Bil1 As Integer

        Dim Bil2 As Integer

        sngResult = Sum(txtBil1.Text, txtBil2.Text)

        txtHasilFunction.Text = sngResult

    End Sub

    Private Sub btnFunction_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click

        Dim sngResult As Single

        Dim Bil1 As Integer

        Dim Bil2 As Integer

        sngResult = Sum(txtBil1.Text, txtBil2.Text)

        txtHasilFunction.Text = sngResult

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class

Dan hasilnya adalah:

Cukup sekian dan terima kasih.

Pertemuan 8: 30 Maret 2015 Aplikasi Perhitungan Menggunakan Procedure pada VB .NET

Aplikasi perhitungan dengan Procedure pada VB.NET

Sebelumnya, saya akan menjelaskan sedikit tentang Procedure dan Sub Procedure. Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu. Procedure biasanya dibuat untuk menangani berbagai macam tindakan yang dilakukan secara berulang, sehingga perlu dituliskan suatu prosedur untuk menangani hal tersebut tanpa perlu menuliskan kode yang sama lagi.

Sebuah Sub Procedure merupakan sebuah blok kode yang dieksekusi untuk merespon sebuah event atau prosedur yang tidak dapat mengembalikan nilai, biasanya digunakan untuk melakukan serangkaian proses yang tidak membutuhkan nilai balik terhadap proses tersebut.

Nah, itu sedikit penjelasan mengenai Procedure dan Sub Procedure. Sekarang kita akan membuat sebuah program atau aplikasi perhitungan sebuah bilangan dengan Procedure, seperti biasa akan menggunakan VB 2010. Langkah-langkahnya seperti berikut:

Pertama buka VB 2010, kemudian klik menu File kemudian pilih New Project dan kemudian pilih Windows Form Application. Ganti nama projectnya sesuai dengan project yang dibuat.

Saya akan memberi nama Project saya dengan nama Hitung Bilangan. Kemudian akan ada form kosong seperti berikut. Sebenarnya, form saya buat merupakan kelanjutan dari postingan sebelumnya yang berkaitan dengan Looping. Hanya tinggal diubah desain formnya sedikit dan source codenya juga ada tambahan sedikit.

Hanya tinggal ditambah GroupBox dan diganti dengan Textnya yaitu Perhitungan. Dan tambahkan Label Bilangan 1 dan Bilangan 2 dan juga Hasil. Kemudian juga tambahkan TextBox sesuai dengan label yang ada di GroupBox tersebut.

Masukan source codenya seperti berikut.

</ br>

Public Class btnHitung

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

    Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click

        Dim strGanjil, strGenap, strPrima, strFibo As Integer

        proses(strGanjil, strGenap, strPrima, strFibo)

        ShowSum(txtbilsatu.Text, txtbildua.Text)

    End Sub

    Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)

        Dim intSum As Integer

        intSum = intNum1 + intNum2

        txthasil.Text = intSum

    End Sub

    Sub proses(ByVal strGanjil As String, ByVal strGenap As String, ByVal strPrima As String, ByVal strFibo As String)

        If (ComboBox1.SelectedIndex.Equals(0)) Then

            BilGanjil()

        ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then

            BilGenap()

        ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then

            BilPrima()

        ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then

            BilFibo()

        End If

    End Sub

    Sub BilGanjil()

        Dim ganjil As Integer

        bilangan.Items.Clear()

        ganjil = 1

        Do While ganjil <= 20

            bilangan.Items.Add(ganjil)

            ganjil = ganjil + 2

        Loop

    End Sub

    Sub BilGenap()

        Dim genap As Integer

        bilangan.Items.Clear()

        genap = 0

        Do While genap <= 20

            bilangan.Items.Add(genap)

            genap = genap + 2

        Loop

    End Sub

    Sub BilPrima()

        Dim prima As Integer

        bilangan.Items.Clear()

        Dim x As Integer

        Dim y As Integer

        Dim z As Integer

        For x = 2 To 100

            z = 0

            For y = 2 To x

                prima = x Mod y

                If prima = 0 Then

                    z = z + 1

                End If

            Next y

            If z <= 1 Then

                bilangan.Items.Add(x)

            End If

        Next x

    End Sub

    Sub BilFibo()

        bilangan.Items.Clear()

        Dim a As Integer = 0

        Dim b As Integer = 1

        Dim fib As Integer = 0

        bilangan.Items.Add("1")

        Do

            fib = a + b

            a = b

            b = fib

            bilangan.Items.Add(fib.ToString)

        Loop While fib <= 100

    End Sub

    Private Sub btnHitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Dan hasilnya setelah di Run.

Sekian dan terima kasih.

Pertemuan 7: 23 Maret 2015 Menampilkan Bilangan Ganjil, Genap, Prima dan Fibonacci pada VB .NET

Menampilkan bilangan ganjil, genap, prima dan fibonacci
Langsung saja, pertama kita buka aplikasi VB 2010. Kemudian Klik New Project pada menu File (kiri atas). Pilih Windows Form Application.

Kemudian buat form berikut.

Di kotak (ComboBox) bawah kata Bilangan, edit dengan cara klik panah kecil.

Kemudian pilih Edit Items (paling bawah) dan isikan dengan kata pilihan berikut.

Setelah itu, masukan source code seperti berikut.

Public Class Bilangan
    Dim awal, akhir, hasil As String
  

    Private Sub btnmasukanbilangan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasukanbilangan.Click
        Dim x, y, z As Integer
        Dim i As Integer

        If cboBilangan.SelectedItem = "Ganjil" Then
            lstBilangan.Items.Clear()
            awal = Val(InputBox("masukkan batasan awal", "Batasan"))
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            For i = awal To akhir
                i = i + 0
                If (i Mod 2 = 1) Then
                    lstBilangan.Items.Add(i)
                End If
            Next

        ElseIf cboBilangan.SelectedItem = "Genap" Then
            lstBilangan.Items.Clear()
            awal = Val(InputBox("masukkan batasan awal", "Batasan"))
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            For i = awal To akhir
                i = i + 0
                If (i Mod 2 = 0) Then
                    lstBilangan.Items.Add(i)
                End If
            Next

        ElseIf cboBilangan.SelectedItem = "Prima" Then
            lstBilangan.Items.Clear()
            awal = Val(InputBox("masukkan batasan awal", "Batasan"))
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            If awal >= 2 Then
                For x = awal To akhir
                    z = 0
                    For y = 2 To x
                        hasil = x Mod y
                        If hasil = 0 Then
                            z = z + 1
                        End If
                    Next
                    If z <= 1 Then
                        lstBilangan.Items.Add(x)
                    End If
                Next
            Else
                MsgBox("Bilangan Prima dimulai dari 2")
            End If

        ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
            lstBilangan.Items.Clear()
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            y = 0
            z = 1
            lstBilangan.Items.Add(y)
            lstBilangan.Items.Add(z)
            For i = 0 To akhir
                x = y + z
                y = z
                z = x
                If x > akhir Then Exit For
                lstBilangan.Items.Add(x)
            Next
        End If

    End Sub
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Dan hasilnya adalah:

Bilangan Ganjil

Bilangan Genap

Bilangan Prima

Bilangan Fibonacci

Catatan: sebenarnya form di atas dapat diubah desainnya sesuai dengan keinginan sendiri.

Sekian dan terima kasih.

Pertemuan 5: 9 Maret 2015 Aplikasi Perhitungan Nilai (IPK) Mahasiswa pada VB .NET

Membuat Aplikasi Perhitungan Nilai (IPK)Mahasiswa.

Pertama, kita buka dahulu VB 2010. Kemudian, klik menu File (kiri atas), pilih New Project, dan pilih Windows Form Application.

Kemudian akan muncul form kosong seperti berikut.

Buat form seperti berikut.

Kemudian masukan source codenya.

Public Class Form1

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
        Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        txtket.Text = ""
        txtabsen.Text = ""
        txtuts.Text = ""
        txtnama.Text = ""
        txthuruf.Text = ""
        txtrata.Text = ""
        txttugas.Text = ""
        txtuas.Text = ""
    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Dim nama As String
        Dim tugas As Double
        Dim mid As Double
        Dim uas As Double
        Dim keaktifan As Double
        Dim absensi As Double
        Dim rata As Double
        Dim huruf As String
        Dim ket As String

        nama = txtnama.Text
        tugas = Val(txttugas.Text)
        keaktifan = Val(txtkeaktifan.Text)
        absensi = Val(txtabsen.Text)
        mid = Val(txtuts.Text)
        uas = Val(txtuas.Text)

        rata = ((0.2 * absensi) + (0.15 * tugas) + (0.1 * keaktifan) + (0.25 * mid) + (0.3 * tugas))
        txtrata.Text = rata

        If rata <= 39 Then
            huruf = "E"
            ket = "anda gagal"
        ElseIf rata <= 56 Then
            huruf = "D"
            ket = "cukup"
        ElseIf rata <= 69 Then
            huruf = "C"
            ket = "cukup"
        ElseIf rata <= 84 Then
            huruf = "B"
            ket = "Baik"
        ElseIf rata > 85 Then
            huruf = "A"
            ket = "Sangat Bagus"
        End If
        txthuruf.Text = huruf
        txtket.Text = ket
        txtnama1.Text = txtnama.Text

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Dan hasilnya adalah:

Mohon maaf bila ada kesalahan kata. Sekian dan terima kasih.