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
0 Comments