Tugas VB:Mencari NPM

Nama     : Ferry Kurniawan

NPM     : 0911359

Kelas     : TI-0914

             Program Untuk Mencari NPM 

 

Tampilan Program

Berikut ini source codingnya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i, j As Integer

        For i = 2005 To 2011

            Tahun.Items.Add(i)

        Next i

        For j = 100 To 250

            Urut.Items.Add(j)

        Next j

        Jenjang.Items.Add("S1")

        Jenjang.Items.Add("D3")

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

        Tahun.Text = " "

        Jenjang.Text = " "

        Urut.Text = " "

        NPM.Text = " "

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click

        Close()

    End Sub

    Private Sub Tahun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tahun.Click

        NPM.Text = Microsoft.VisualBasic.Right(Tahun.Text, 2) & Microsoft.VisualBasic.Left(kode.Text, 2) & Microsoft.VisualBasic.Left(Urut.Text, 3)

    End Sub

    Private Sub Tahun_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tahun.SelectedIndexChanged

        NPM.Text = Microsoft.VisualBasic.Right(Tahun.Text, 2) & Microsoft.VisualBasic.Left(kode.Text, 2) & Microsoft.VisualBasic.Left(Urut.Text, 3)

    End Sub

    Private Sub Urut_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Urut.SelectedIndexChanged

        NPM.Text = Microsoft.VisualBasic.Right(Tahun.Text, 2) & Microsoft.VisualBasic.Left(kode.Text, 2) & Microsoft.VisualBasic.Left(Urut.Text, 3)

    End Sub

    Private Sub Urut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Urut.Click

        NPM.Text = Microsoft.VisualBasic.Right(Tahun.Text, 2) & Microsoft.VisualBasic.Left(kode.Text, 2) & Microsoft.VisualBasic.Left(Urut.Text, 3)

    End Sub

    Private Sub Jenjang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jenjang.SelectedIndexChanged

        If Jenjang.Text = "S1" Then

            kode.Text = "11"

        Else

            kode.Text = "02"

        End If

        NPM.Text = Microsoft.VisualBasic.Right(Tahun.Text, 2) & Microsoft.VisualBasic.Left(kode.Text, 2) & Microsoft.VisualBasic.Left(Urut.Text, 3)

    End Sub

    Private Sub Jenjang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jenjang.Click

        If Jenjang.Text = "S1" Then

            kode.Text = "11"

        Else

            kode.Text = "02"

        End If

        NPM.Text = Microsoft.VisualBasic.Right(Tahun.Text, 2) & Microsoft.VisualBasic.Left(kode.Text, 2) & Microsoft.VisualBasic.Left(Urut.Text, 3)

    End Sub

End Class

Program Untuk Mencari Nilai X:f(x)=x3-x2+3x+2,dimana X=-1

                                        Tampilan Programnya

Source Codingmya:

Public Class Form1

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

        Dim fx, x As Integer

        x = -1

        fx = (x ^ 3) - (x ^ 2) + (3 * x + 2)

        While (fx) < 0.999

            x = -0.03

            fx = (x ^ 3) - (x ^ 2) + (3 * x + 2)

        End While

        ListBox1.Items.Add(fx)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim pesan As Integer

        pesan = MsgBox("Anda Yakin Keluar", vbQuestion + vbYesNo, "keluar")

        If pesan = vbYes Then

            MsgBox("selesai")

            Me.Close()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Clear()

    End Sub

End Class