Menghitung Bilangan memakai Function dengan menggunakan Microsoft Visual Basic 2010

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

Dengan koding seperti dibawah ini:

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

    Sub showSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)

        Dim intSum As Integer

        intSum = intNum1 + intNum2

        txthasil.Text = intSum

    End Sub

    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

    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 AsSystem.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles txtbil1.TextChanged

    End Sub

    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

    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 semoga bermanfaat !!!

Menghitung Nilai Akhir memakai Function dan Procedure dengan menggunakan Microsoft Visual Basic 2010

kali ini 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:

Public Class Form1

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

    End Sub

    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

    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

    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

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

    End Sub

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

        Close()

    End Sub

End Class

Dan outputnya seperti dibawah ini:

Sekian dan Terimakasih semoga bermanfaat

ByVal dengan menggunakan Microsoft Visual Basic 2010

Kali ini saya akan menjelaskan tentang “ByVal dengan menggunakan Microsoft Visual Basic 2008” 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, semoga bermanfaat