Rabu, 25 Maret 2015

Pertemuan 6, 23 Maret 2015 : FUNCTION AND PROCEDURES VB 2010

23.24    No comments

Prosedur dan fungsi merupkana blok program yang dapat dipanggil dalam sebuah program aplikasi. Untuk penggunaan prosedur dapat dilakukan hanya dengan memanggil nama prosedur tersebut. Dengan prosedur penulisan program menjadi lebih modular dan terstruktur. Prosedur tidak mengembalikan nilai sedangkan fungsi mengembalikan nilai. Secara garis besar ada tiga jenis prosedur yaitu : Sub prosedur, Function prosedur dan event prosedur.
Pada Sub prosedur dapat memiliki parameter ataupun tidak. Parameter tersebut bisa berjumlah lebih dari satu. Pernyataan yang ada didalam prosedur akan dieksekusi ketika prosedur tersbut dipanggil. Sebuah prosedur didefinisikan dengan kata kunci Sub dan End Sub.
ByVal merupakan sebuah cara melewatkan nilai dari sebuah argumen ke sebuah prosedur pengganti dari melewatkan alamatnya. Hal ini mengizinkan prosedur untuk mengakses sebuah salinan dari variabel. Sebagai sebuah hasil, nilai variabel sebenarnya tidak dapat diganti oleh prosedur yang melewatkannya.
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 GroupBox
    • GroupBox1 : Text : Jenis Bilangan
    • GroupBox2 : Text : Hasil
    • GroupBox3 : Text : Perhitungan
  • 1 Buah ComboBox
    • Items :
      • Ganjil
      • Genap
      • Prima
      • Fibonaci
  • 1 Buah ListBox : (name) : bilangan
  • 3 Buah Text Box
    • TextBox1 : (name) : txtbilsatu
    • TextBox2 : (name) : txtbildua
    • TextBox3 :(name) : txthasil
  • 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 strGanjil, strGenap, strPrima, strFibo As Integer

        proses(strGanjil, strGenap, strPrima, strFibo)

        ShowSum(txtbilsatu.Text, txtbildua.Text)

    End Sub

5. Lalu tambahkan koding koding ini di bagian halaman kodingnya, (dibawah koding no.4)

    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
6. 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
7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar. Maka hasilnya jika kita menekan tombol “Input Bilangan” maka hasilnya akan jalan 2 2 nya.
Hasilnya :



Seperti itulah contoh fungsi dan prosedur dalam VB 2010





Read More

Rabu, 18 Maret 2015

Pertemuan 5, 16 Maret 2015 : Menampilkan Deret Bilangan Ganjil, Genap, Prima, dan Fibonaci Menggunakan Visual Basic

23.53    No comments

Berikut contoh
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 :


Read More

Rabu, 11 Maret 2015

Pertemuan 4, 09 Maret 2015 : Menghitung Hasil Nilai Akhir Semester

22.38    No comments



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 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





1.      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








Read More
Langganan: Postingan (Atom)