newbie318: March 2015

March 26, 2015

Pertemuan 7 | 23 Maret 2015 | Prosedur

PROCEDURE

1. Pengertian

Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu. Bila di dalam kode program yang kita buat ada perintah-perintah untuk melakukan tugas yang sama di beberapa tempat, maka akan lebih baik perintah-perintah tersebut dibuat dalam sebuah procedure. Procedure biasanya dibuat untuk menangani berbagai macam tindakan yang akan dilakukan secara berulang, sehingga perlu dituliskan suatu prosedur untuk menangani hal tersebut tanpa perlu menuliskan kode yang sama lagi.

2. Prosedur Sub

Sebuah prosedur Sub merupakan sebuah blok kode yang dieksekusi untuk merespon sebuah event atau procedure yang tidak dapat mengembalikan nilai, biasanya digunakan

untuk melakukan serangkaian proses yang tidak membutuhkan nilai balik terhadap proses

tersebut. Setiap kali prosedur dipanggil, maka pernyataan-pernyataan yang berada di antara baris Sub dan End Sub dieksekusi. Prosedur Sub dapat ditempatkan di dalam standard modules, class modules, dan module form. Prosedur Sub secara default Public dalam semua module, yang artinya mereka dapat dipanggil dari manapun di aplikasi. Argumen untuk sebuah prosedur seperti deklarasi sebuah variabel, mendeklarasikan nilai yang dilewatkan dari pemanggilan prosedur. Argumen di dalam prosedur tadi tidak bersifat wajib.

Sintaks dasar untuk membuat Subrutin adalah sebagai berikut :

{Lingkup} Sub NamaPosedur ([Argumen])

{Pernyataan Prosedur}

End Sub

Contoh:

Keterangan :

- Prosedur diatas merupakan suatu Subrutin yang memiliki sebuah parameter dengan

tipe string, dan satu baris pernyataan dalam prosedur dengan ruang lingkup Private

(Modul).

- Untuk memanggil Prosedur, dapat dilakukan dengan melengkapi sintaks diatas

dengan kode misalnya seperti berikut :

PesanNama (“Roby”)

3. Tutorial : Membuat program yang menggunakan Prosedur Sub

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
GroupBox	Jenis Bilangan
GroupBox	Contoh Bilangan
GroupBox	Hitung Bilangan
ComboBox	Pilih Bilangan	cboBilangan
ListBox		lstBilangan
Label1	Bilangan1
Label2	Bilangan2
Label3	Hasil
TextBox1		txtBil1
TextBox2		txtBil2
TextBox3		txtHasil
Button1	Lihat Bil	btnLihatBil
Button2	Exit	btnExit
Button3	Hitung	btnHitung

Langkah kelima masukkan koding berikut

Public Class Bilangan
    Dim awal, akhir, hasil As String

'coding untuk tombol LihatBil (Memanggil prosedur ProsesBilangan)
    Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihatBil.Click
        ProsesBilangan(cboBilangan.SelectedItem)
    End Sub

'coding untuk tombol Hitung (memanggil prosedur ShowSum)
    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        ShowSum(txtBil1.Text, txtBil2.Text)
    End Sub

'prosedur untuk menghitung 2 bilangan
    Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
        Dim intSum As Integer

intSum = intNum1 + intNum2
        txtHasil.Text = intSum
    End Sub

'prosedur ProsesBilangan
    Sub ProsesBilangan(ByVal strJenisBilangan As String)
        If strJenisBilangan = "Ganjil" Then
            lstBilangan.Items.Clear()
            Ganjil()
        ElseIf strJenisBilangan = "Genap" Then
            lstBilangan.Items.Clear()
            Genap()
        ElseIf strJenisBilangan = "Prima" Then
            lstBilangan.Items.Clear()
            Prima()
        ElseIf strJenisBilangan = "Fibonaci" Then
            lstBilangan.Items.Clear()
            Fibonacci()
        End If
    End Sub

'prosedur untuk mencari bilangan ganjil
    Sub Ganjil()
        Dim i As Integer

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

'prosedur untuk mencari bilangan genap 
    Sub Genap()
        Dim i As Integer

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

'prosedur untuk mencari bilangan prima 
    Sub Prima()
        Dim x, y, z As Integer

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

'prosedur untuk mencari bilangan fibonacci
    Sub Fibonacci()
        Dim i, x, y, z As Integer

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 Sub

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

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, setelah diinputkan nilai maka hasilnya akan seperti berikut.

Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

March 19, 2015

Pertemuan 6 | 16 Maret 2015 | Looping

PERULANGAN

Dalam pemrograman ada kalanya kita memerlukan perulangan untuk melakukan suatu perintah yang sama untuk beberapa kali. Berikut adalah macam – macam bentuk perulangan dalam visual basic :

1. Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya. Bentuk sintaks perulangan Do While adalah :

Do While Kondisi
Pernyataan
…..
Loop

Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sebagai berikut :

Do
Pernyataan
……
Loop While Kondisi

2. Do Until … Loop

Pada dasarnya, perulangan DO Until sama dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. Sintaks dari perulangan Do Until adalah :
Do Until Kondisi
Pernyataan
…..
LoopPerulangan Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di akhir pernyataan perulangan. Bentuk sintaksnya adalah sebagai berikut :

Do
Pernyataan
……
Loop Until Kondisi

3. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True . Sintaks perulangan While Wend adalah :

While Ekspresi
Pernyataan
…..
Wend

4. For … Next

Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan. Sintaks perulangan For … Next adalah :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks

Tutorial : Membuat program untuk mencari bilangan ganjil, genap, prima, fibonacci

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
GroupBox	Jenis Bilangan
GroupBox	Contoh Bilangan
ComboBox	Pilih Bilangan	cboBilangan
ListBox		lstBilangan
Button1	Lihat Bil	btnLihatBil
Button2	Exit	btnExit

Form Bilangan

Langkah kelima masukkan koding berikut

Public Class Bilangan
    Dim awal, akhir, hasil As String

'coding tombol Lihat bil
    Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihatBil.Click
        Dim x, y, z As Integer
        Dim i As Integer

'mencari bilangan ganjil
        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

'mencari bilangan genap
        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

'mencari bilangan prima
        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

'mencari bilangan fibonacci
        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

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

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan nilai 10 pada batasan wal, dan 20 pada batasan akhir, kemudian klik tombol Lihat Bil, maka hasilnya akan seperti berikut.

Gambar input batasan awal

Input Awal

Input akhir

Ganjil

Genap

Prima

Fibonacci

Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi

March 12, 2015

Pertemuan 5 | 9 Maret 2015 | Menghitung Nilai Akhir

Tutorial : Membuat program untuk menghitung nilai akhir

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Absen	lblAbsen
Label2	Tugas	lblTugas
Label3	Keaktifan	lblKeaktifan
Label4	UTS	lblUTS
Label5	UAS	lblUAS
Label6	Nilai Akhir	lblNilai
Label7	Huruf	lblHuruf
Textbox1	-	txtAbsen
Textbox2	-	txtTugas
Textbox3	-	txtKeaktifan
Textbox4	-	txtUTS
Textbox5	-	txtUAS
Textbox6	-	txtNilaiAkhir
Textbox7	-	txtHuruf
Button1	Hitung	btnHitung
Button2	Clear	btnClear
Button3	Exit	btnExit

Langkah kelima masukkan koding berikut

Public Class FormNilai
    'deklarasi
    Dim hasil As Integer
    Dim absen As Decimal, tugas As Decimal, aktif As Decimal, uts As Decimal, uas As Decimal

'coding untuk tombol Hitung (menghitung nilai)
    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        absen = txtAbsen.Text * (20 / 100)
        tugas = txtTugas.Text * (15 / 100)
        aktif = txtKeaktifan.Text * (10 / 100)
        uts = txtUTS.Text * (25 / 100)
        uas = txtUAS.Text * (30 / 100)
        hasil = absen + tugas + aktif + uts + uas
        txtNilaiAkhir.Text = hasil

If txtNilaiAkhir.Text >= 85 Then
            txtHuruf.Text = "A"
        ElseIf txtNilaiAkhir.Text >= 70 Then
            txtHuruf.Text = "B"
        ElseIf txtNilaiAkhir.Text >= 56 Then
            txtHuruf.Text = "C"
        ElseIf txtNilaiAkhir.Text >= 40 Then
            txtHuruf.Text = "D"
        Else
            txtHuruf.Text = "E"
        End If
    End Sub

'coding untuk tombol clear
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtAbsen.Clear()
        txtTugas.Clear()
        txtKeaktifan.Clear()
        txtUTS.Clear()
        txtUAS.Clear()
        txtNilaiAkhir.Clear()
        txtHuruf.Clear()
    End Sub

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

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan angka 100 pada tiap tiap textbox, kemudian klik tombol Hitung, maka hasilnya akan seperti berikut.

Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear

Langkah kedelapan, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.