Pertemuan 9, 20 April 2015 : Menghitung Bilangan memakai Function dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “Menghitung Bilangan memakai Function dengan menggunakan Microsoft Visual Basic 2008” dengan desain seperti dibawah ini:

Dengan koding seperti dibawah ini:
Deklarasikan variabel berikut di public class.

Public Class Bilangan
    Dim awal, akhir, hasil As String
    Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnLihatBil.Click
        Dim strGanjil, strGenap, strPrima, strfibonaci As Integer
        prosesbilangan(strGanjil, strGenap, strPrima, strfibonaci)
        showSum(txtbil1.Text, txtbil2.Text)
    End Sub

buat prosedure showSum.

Sub showSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
        Dim intSum As Integer
        intSum = intNum1 + intNum2
        txthasil.Text = intSum
    End Sub

    

buat prosedure prosesbilangan.

Sub prosesbilangan(ByVal strGanjil As String, ByVal strGenap AsString, ByVal strPrima As String, ByVal strFibonaci As String)
        If cboBilangan.SelectedItem = "Ganjil" Then
            lstBilangan.Items.Clear()
            Ganjil()
        ElseIf cboBilangan.SelectedItem = "Genap" Then
            lstBilangan.Items.Clear()
            Genap()
        ElseIf cboBilangan.SelectedItem = "Prima" Then
            lstBilangan.Items.Clear()
            Prima()
        ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
            lstBilangan.Items.Clear()
            Fibonacci()
        End If
    End Sub

    

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

    

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

    

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

    

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

    

kode untuk button Exit.

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

  

kode untuk button hitung.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
        Dim sngTotal As Single
        sngTotal = sum(txtbil1.Text, txtbil2.Text)
    End Sub

    

buat function.

Function sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) AsSingle
        Dim sngHasil
        sngHasil = sngNum1 + sngNum2
        txthasil.Text = sngHasil
        Return sngHasil
    End Function
End Class

    

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih

Pertemuan 8, 30 Maret 2015 : Nilai Tugas akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “Nilai Tugas akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2008” dengan desain seperti dibawah ini:

Dengan koding seperti dibawah ini:

kode untuk button hitung

Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal eAs 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

    

buat function Grade

 Function Grade(ByRef nilairatarata As Integer)
        Dim hasil As Boolean
        If nilairatarata <= 40 Then
            hasil = True
        Else
            hasil = False
        End If
        Return hasil
    End Function

   

kode untuk button clear

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

        txtnama.Clear()

        txtabsen.Clear()

        txttugas.Clear()

        txtkeaktifan.Clear()

        txtuts.Clear()

        txtuas.Clear()

        txtnilaiakhir.Clear()

    End Sub

    

    

kode untuk button exit

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

        Close()

    End Sub

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih 

Pertemuan 7, 23 Maret 2015 : ByVal ByRef dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “ByVal dengan menggunakan Microsoft Visual Basic 2010” dengan desain seperti dibawah ini:

List dengan nama lstOutput

Button1 dengan nama btnGo!

Button2 dengan nama btnExit

Masukan Coding di btnGo seperti ini:

Public Class Form1
    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnGo.Click
        Dim intnumber As Integer = 100
        lstOutput.Items.Add("Inside btnGo_Click the value of " & "intNumber is " & intnumber.ToString())
        lstOutput.Items.Add("Now I am calling ChangeArg")
        ChangeArg(intnumber)
        lstOutput.Items.Add("Now back in btnGo_Click, " & "the value of intNumber is "& intnumber.ToString())
    End Sub
    Sub ChangeArg(ByVal intArg As Integer)
        lstOutput.Items.Add("Didalam procedure, " & "Saya akan mengubah intArg.")
        intArg = 0
        lstOutput.Items.Add("Sekarang intNumber adaalah " & intArg.ToString)
    End Sub

Lalu coding di btnExit seperti ini:

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

   

Sehingga outputnya seperti gambar dibawah ini :

Sekian dan Terimakasih

Pertemuan 6, 23 Maret 2015 : Prosedur dan Fungsi di dalam Visual Basic 2010 Express

Seperti sebelumnya ini merupakan tutorial cara menampilkan deret bilangan ganjil, genap, prima, dan Fibonaci menggunakan visual  basic 2010 namun berbeda penempatan script kodenya.

Langkah-langkahnya adalah sebagai berikut :

1.       Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya terserah. Kemudian klik ok.

2.      Kemudian buat tampilan seperti di bawah ini, yang terdiri dari 2 Buah GroupBox, 1 Buah ComboBox, 1 Buah ListBox, 2 Buah Button.

Kemudian ubah semua nama text sesuai kebutuhan.

·         2 Buah GroupBox

o    GroupBox1 : Text : Jenis Bilangan

o    GroupBox2 : Text : Hasil

·         1 Buah ComboBox

o    Items :

§  Ganjil

§  Genap

§  Prima

§  Fibonaci

·         1 Buah ListBox : (name) : bilangan

·         2 Buah Button

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

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

3.       Setelah itu kemudian masukan source kodenya ke masing-masing button.

·         Button input bilangan source kodenya adalah sebagai berikut :

Public Class Bilangan
    Dim awal, akhir, hasil As String

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

        Dim strGanjil, strGenap, strPrima, strfibonaci As Integer
        prosesbilangan(strGanjil, strGenap, strPrima, strfibonaci)
    End Sub

    Sub prosesbilangan(ByVal strGanjil As String, ByVal strGenap As String, ByVal strPrima As String, ByVal strFibonaci As String)
        If cboBilangan.SelectedItem = "Ganjil" Then
            lstBilangan.Items.Clear()
            Ganjil()

        ElseIf cboBilangan.SelectedItem = "Genap" Then
            lstBilangan.Items.Clear()
            Genap()

        ElseIf cboBilangan.SelectedItem = "Prima" Then
            lstBilangan.Items.Clear()
            Prima()

        ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
            lstBilangan.Items.Clear()
            Fibonacci()
        End If
    End Sub

    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

    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

    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

    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

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub
End Class

4.      Setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Memilih jenis bilangan ganjil, kemudian tentukan batas awal dan batas akhir yang ingin di cari. Saya mengambil contoh batas bawahnya 1 dan batas akhirnya 20.

 

 

Dan hasilnya seperti ini.

 

Memilih jenis bilangan genap, kemudian tentukan batas awal dan batas akhir yang ingin di cari. Saya mengambil contoh batas bawahnya 0 dan batas akhirnya 40.

 

 

dan hasilnya seperti ini.

 

Memilih jenis bilangan prima, kemudian tentukan batas awal dan batas akhir yang ingin di cari. Saya mengambil contoh batas bawahnya 2 dan batas akhirnya 30.

 

 

dan hasilnya seperti ini.

 

Memilih jenis bilangan fibonaci, kemudian tentukan batas akhir yang ingin di cari. Saya mengambil contoh batas akhirnya 40.

 

dan hasilnya seperti ini.

Tombol exit di gunakan untuk keluar dari program.