Holi Mesakh Pinem ( MLG )

1. Design Form Program Pertama

   

- Coding Program Form Diatas.

 

Public Class Form1

    Dim Kode As Object

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

        Dim T As Integer

        For T = 2005 To 2011

            Tahun.Items.Add(T)

        Next

        jurusan.Items.Add("S1")

        jurusan.Items.Add("D3")

        Dim U As Integer

        For U = 100 To 250

            urut.Items.Add(U)

        Next

    End Sub

    Private Sub jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jurusan.SelectedIndexChanged

        If jurusan.Text = "S1" Then

            Kode = "11"

        Else

            Kode = "02"

        End If

        npm.Text = (Microsoft.VisualBasic.Right(Tahun.Text, 2) & Kode)

    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)) & Kode & (Microsoft.VisualBasic.Right(urut.Text, 3))

        Dim U As Integer

        For U = 100 To 125

            npm.Items.Add(Microsoft.VisualBasic.Right(Tahun.Text, 2) & Kode & U)

        Next

    End Sub

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

        Tahun.Text = ""

        jurusan.Text = ""

        urut.Text = ""

        npm.Text = ""

    End Sub

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

        Dim K As Object

        K = MsgBox("Apakah Anda Ingin Keluar?", vbInformation + vbYesNo, "Info")

        If K = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

2. Design Form Program Kedua
  

- Coding Program Form Di Atas

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Ax, x As Integer
        x = -1
        Ax = -x ^ 3 + x ^ 2 + 2 * x
        While (Ax) > 0.001
            x = x + 0.001
            Ax = -x ^ 3 + x ^ 2 + 2 * x
        End While
        ListBox1.Items.Add(Ax)
    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click
        ListBox1 = ""
    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click
        Dim K As Object
        K = MsgBox("Apakah Anda Ingin Keluar ?", vbInformation + vbYesNo, "Info")
        If K = vbYes Then
            Me.Close()
        End If
    End Sub
End Class