Pertemuan 3, 19 Maret, Menampilkan Deret Bilangan Ganjil, Genap, Prima, dan Fibonaci Menggunakan Visual Basic 2010

Menampilkan Deret Bilangan Ganjil, Genap, Prima, dan Fibonaci Menggunakan Visual Basic 2010

Ass.Wr.Wb, kali ini saya akan membuat sebuah program menampilkan Bilangan Ganjil, Genap, Prima, dan Fibonaci  menggunakan 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 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 :

• 2 Buah GroupBox
• GroupBox1 : Text : Jenis Bilangan
• GroupBox2 : Text : Hasil
• 1 Buah ComboBox
• Items :
• Ganjil
• Genap
• Prima
• Fibonaci
• 1 Buah ListBox : (name) : bilangan
• 2 Buah Button
• Button 1 : (name) : btnInputBil | Text : Input Bilangan
• Button 2 : (name) : btnExit | Text : Exit

4. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :

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

Dim ganjil, genap, prima As Integer

If (ComboBox1.SelectedIndex.Equals(0)) Then
bilangan.Items.Clear()
ganjil = 1
Do While ganjil <= 20
bilangan.Items.Add(ganjil)
ganjil = ganjil + 2
Loop

ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
bilangan.Items.Clear()
genap = 0
Do While genap <= 20
bilangan.Items.Add(genap)
genap = genap + 2
Loop

ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
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

ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
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 If
End Sub

5. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :

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

End Sub

6. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Hasil Untuk Ganjil :

Hasil Untuk Genap : 

Hasil untuk Prima : 

Hasil Untuk Fibonaci :

Sekian dan Terima Kasih.

Posted in Pemrograman .NET

Tagged VB2010

Pertemuan 2,11 maret ,Perhitungan Nilai Akhir

1

Terdiri dari 22 ToolBox:

Object	Properties	Value
Label 1	Text	Nama
Label 2	Text	Absensi
Label 3	Text	Keaktifan
Label 4	Text	Tugas
Label 5	Text	UTS
Label 6	Text	UAS
Label 7	Text	Nilai AKhir
Label 8	Text	GRADE
Label 9	Text	Keterangan
TextBox 1	Name	txtNama
TextBox 2	Name	txtAbsensi
TextBox 3	Name	txtKeaktifan
TextBox 4	Name	txtTugas
TextBox 5	Name	txtUts
TextBox 6	Name	txtUas
TextBox 7	Name	txtNilaiAkhir
TextBox 8	Name	txtGrade
TextBox 9	Name	txtKet
Button 1	Text/Name	&Hasil/btnHasil
Button 2	Text/Name	&Clear/btnClear
Button 3	Text/Name	&Exit/btnExit

Source Code :

Public Class Form2

    Private Sub btnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click

        Dim Nama As String

        Dim Tugas As Integer

        Dim Absensi As Integer

        Dim Keaktifan As Integer

        Dim Uts As Integer

        Dim Uas As Integer

        Dim Rata As Integer

        Dim Huruf As String

        Dim Ket As String

        Nama = txtNama.Text

        Absensi = Val(txtAbsensi.Text)

        Keaktifan = Val(txtKeaktifan.Text)

        Tugas = Val(txtTugas.Text)

        Uts = Val(txtUts.Text)

        Uas = Val(txtUas.Text)

        Rata = ((0.2 * Absensi) + (0.15 * Tugas) + (0.1 * Keaktifan) + (0.25 * Uts) + (0.3 * Uas))

        txtNilaiAkhir.Text = rata

        If Rata <= 40 Then

            Huruf = "E"

            Ket = "anda gagal"

        ElseIf Rata <= 55 Then

            Huruf = "D"

            Ket = "cukup"

        ElseIf Rata <= 66 Then

            Huruf = "C"

            Ket = "cukup"

        ElseIf Rata <= 80 Then

            Huruf = "B"

            Ket = "Baik"

        ElseIf Rata > 80 Then

            Huruf = "A"

            Ket = "Sangat Bagus"

        End If

        txtGrade.Text = huruf

        txtKet.Text = ket

    End Sub

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

        txtKet.Text = ""

        txtUts.Text = ""

        txtNama.Text = ""

        txtGrade.Text = ""

        txtNilaiAkhir.Text = ""

        txtTugas.Text = ""

        txtUas.Text = ""

        txtKeaktifan.Text = ""

        txtAbsensi.Text = ""

    End Sub

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

        Close()

    End Sub

End Class

2.      Percabangan IF dan ELSE IF

Object	Properties	Value
GroupBox 1	Text	Usia
GroupBox 2	Text	Movie
RadioButton 1	Text/Name	Usia dibawah 16 tahun/rdbDibawah
RadioButton 2	Text/Name	Usia diatas 16 tahun/rdbDiatas
CheckBox 1	Text/Name	Upin dan Ipin/chkUpin
CheckBox 2	Text/Name	Kiky si Kancil/chkKiky
CheckBox 3	Text/Name	Mahabrata/chkMahabrata
Button 1	Text/Name	&Usia/btnUsia
Button 2	Text/Name	&Keluar/btnKeluar
Button 3	Text/Name	&Movie/btnMovie

Source Code :       

Public Class ifdanelse

    Private Sub btnUsia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUsia.Click

        If rdbDibawah.Checked = True Then

            MessageBox.Show("Kamu dibawah umur 16 Tahun!")

        ElseIf rdbDiatas.Checked = True Then

            MessageBox.Show("Kamu diatas umur 16 Tahun!")

        End If

    End Sub

    Private Sub btnMoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMovie.Click

        If chkUpin.Checked = True Then

            MessageBox.Show("Kamu menyukai film upin dan ipin")

        End If

        If chkKiky.Checked = True Then

            MessageBox.Show("Kamu menyukai film kiky si kancil")

        End If

        If chkMahabrata.Checked = True Then

            MessageBox.Show("Kamu menyukai film mahabrat")

        End If

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

End Class