Pertemuan 6, 16 Maret 2015 APLIKASI MENCARI BILANGAN GENAP GANJIL PRIMA DAN FIBONACI

APLIKASI MENCARI BILANGAN GENAP GANJIL PRIMA DAN FIBONACI

Pertama kita buka vb.netnya, lalu buat program baru.dengan cara KLIK - NEW-PROJECT

Maka tampilan awal akan seperti gambar dibawah ini.

Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang ingin kita buat yaitu kalkulator. pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seperti gambar dibawah ini.

Tool yang akan kita gunakan:

·         2  GroupBox

·         1 List Box

·         2 Button

.         1 Combo Box

1.       Group Box

Ubahlah Propertisnya menjadi:

Name    : gboJenisBilangan

Text       : Jenis Bilangan

                                Ubahlah Propertisnya menjadi:

Name    : gboContohBilangan

Text       : Contoh Bilangan

2.       List Box

Ubahlah Propertisnya menjadi:

Name    : lstContohBilangan

Text       : -

3.       Button

Ubahlah Propertisnya menjadi:

Name    : btnLihatBil

Text       : Lihat Bil

Ubahlah Propertisnya menjadi:

Name    : btnExit

Text       : Exit

4.       Combo Box

Ubahlah Propertisnya menjadi:

Name    : cboJenisBilangan

Text       : -

Items    : Ganjil

Genap

Prima

Fibonaci

Langsung saja membuat Desainya ya..,pertama klik tool label yang ada disebelah kiri lalu tempatkan pada form yang telah ada.lihat gambar.

Masukan tool2 yang telah disebutkan diatas (ubah nama textnya)dan buat menjadi seperti gambar dibawah.(untuk Letak dapat diatur seperti yang kita inginkan)

Selanjutnya kita mulai membuat script kodenya.

Public Class Jenisbilangan

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboJenisBilangan.SelectedIndexChanged

    End Sub

  
Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihatBil.Click
        Dim intGanjil As Integer = 1
        Dim intHasil As Integer

        lstContohBilangan.Items.Clear()
        If cboJenisBilangan.SelectedItem = "Ganjil" Then
            For intGanjil = 1 To 5
                intHasil = intGanjil * 2 - 1
                lstContohBilangan.Items.Add(intHasil)
            Next
        End If
        If cboJenisBilangan.SelectedItem = "Genap" Then
            For intGanjil = 1 To 5
                intHasil = intGanjil * 2
                lstContohBilangan.Items.Add(intHasil)
            Next
        End If
    End Sub

Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihatBil.Click
        Dim intGanjil As Integer = 1
        Dim intHasil As Integer

        lstContohBilangan.Items.Clear()
        If cboJenisBilangan.SelectedItem = "Ganjil" Then
            For intGanjil = 1 To 5
                intHasil = intGanjil * 2 - 1
                lstContohBilangan.Items.Add(intHasil)
            Next
        End If
        If cboJenisBilangan.SelectedItem = "Genap" Then
            For intGanjil = 1 To 5
                intHasil = intGanjil * 2
                lstContohBilangan.Items.Add(intHasil)
            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

    

Bila semua telah selesai maka pada form1.vb akan terlihat gambar seperti dibawah ini

Setelah selesai Coba di RUN  atau tekan F5 pada keyboard anda.LIHAT HASILNYA.

Bila angka pertama dan angka kedua telah diisi klik tombol yang anda inginkan maka hasilnya dapat anda lihat.pada textbox.

Hasilnya seperti gambar dibawah ini.