Pertemuan 6, 23 Maret 2015 Tutorial aplikasi menggunakan prosedur dan fungsi

Pada tutorial kali ini saya akan membuat program menggunakan Prosedur dan Fungsi menggunakan Visual Basic 2008. Prosedur dan fungsi merupakan blok program yang dapat dipanggil dalam sebuah program aplikasi. Untuk penggunaan prosedur dapat dilakukan hanya dengan memanggil nama prosedur tersebut.

1. Pertama Buka aplikasi VISUAL BASIC 2008, 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

Kemudian buat seperti ini


2. Atributnya antara lain

GroupBox:

GroupBox1 : Text : Jenis Bilangan

GroupBox2 : Text : Hasil

GroupBox3 : Text : Perhitungan

ComboBox

Items :

Ganjil

Genap

Prima

Fibonaci

ListBox : (name) : bilangan

Text Box

TextBox1 : (name) : txtbilsatu

TextBox2 : (name) : txtbildua

TextBox3 :(name) : txthasil

Button

Button 1 : (name) : btnInputBil | Text : Input Bilangan

Button 2 : (name) : btnExit | Text : Exit

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

4. Lalu tambahkan koding koding ini di bagian halaman kodingnya, dibawah koding langkah 3
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

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.ClickMe.Close()
End Sub

6. Selesai, maka setelah itu jalankan programnya dengan memilih tombol run Maka seperti ini lah hasil program yang kita buat

Hasilnya :

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J

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

1. Pertama Buka aplikasi VISUAL BASIC 2008, 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

Kemudian buat seperti ini

Atributnya antara lain

 * 2 GroupBox:

            GroupBox1 : Text : Jenis Bilangan 

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

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

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

4. Selesai, maka setelah itu jalankan programnya dengan memilih tombol run Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Ganjil

Genap

Prima

Fibonaci

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J

Pertemuan 4, 9 Maret 2015 : : Tutorial Aplikasi Menghitung Nilai Akhir semester

Pertama Buka aplikasi VISUAL BASIC 2008, 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

Kemudian buat atribut seperti ini

Buat label

Text:

Label 1 : Text menjadi         “Nama Mahasiswa”

Label 2 : Text menjadi         “Absen”

Label 3 : Text menjadi         “Tugas”

Label 4 : Text menjadi         “Keaktifan”

Label 5 : Text menjadi         “Uts”

Label 6 : Text menjadi         “Uas”

Label 7 : Text menjadi         “Nilai”

Selanjutnya ganti variabel  .   

Name :

Nama mahasiswa menjadi            “txtnama”

Absen menjadi                               “txtabsen”

Tugas                                             “txttugas”

Keaktifan menjadi                           “txtkeaktifan”

Uts menjadi                                     “txtuts”

Uas menjadi                                    “txtuas”

Nilai                                                 “txtnilai”

2. kemudian buat button seperti gambar dibawah ini :

Kemudian ganti variable menjadi

Hitung menjadi                     “btnhitung”

Clear menjadi                       “btnclear”

Exit menjadi                          “btnexit”

Coding btnhitung :

Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

        Dim absen, tugas, keaktifan, uts, uas As Integer

        Dim nilaiakhir As Integer

        absen = txtabsen.Text * 20 / 100

        tugas = txttugas.Text * 15 / 100

        keaktifan = txtkeaktifan.Text * 10 / 100

        uts = txtuts.Text * 25 / 100

        uas = txtuas.Text * 30 / 100

        nilaiakhir = absen + tugas + keaktifan + uts + uas

        txtnilaiakhir.Text = nilaiakhir

        If nilaiakhir > 85 Then

            MsgBox ("Nilai A")

        ElseIf nilaiakhir > 70 Then

            MsgBox ("Nilai B")

        ElseIf nilaiakhir > 60 Then

            MsgBox ("Nilai C")

        ElseIf nilaiakhir > 50 Then

            MsgBox ("Nilai D")

        ElseIf nilaiakhir > 0 Then

            MsgBox ("Nilai E")

        End If

    End Sub

Coding btnexit :

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

        Close()

    End Sub

Coding btnclear:

   Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

        txtnama.Clear()

        txtabsen.Clear()

        txttugas.Clear()

        txtkeaktifan.Clear()

        txtuts.Clear()

        txtuas.Clear()

        txtnilaiakhir.Clear()

    End Sub

Ini adalah hasil jadi aplikasi yang telah di buat

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J