NE-O: Quiz

Tampilkan postingan dengan label Quiz. Tampilkan semua postingan

Jumat, 27 Januari 2012

Jawaban SOAL 3 (Hamdan.M)

04.56 |

Diposting oleh NE-O

SOAL 3

Listing Program Logint:

Public Class FormLogint

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
If Username.Text = "Hamdan" And Password.Text = "123" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Username.Text = ""
Password.Text = ""
End If
End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class

Baca selengkapnya »

Label: Quiz |

0 komentar

Kamis, 26 Januari 2012

Jawaban SOAL 2 (Hamdan.M)

07.52 |

Diposting oleh NE-O

Listing Program:

Public Class Form1
Sub buattabel()
LV.Columns.Add("npm", 70, HorizontalAlignment.Center)
LV.Columns.Add("nama", 180, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub

Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
LV.Items.Add(lst)
End Sub

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

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
npm.Text = ""
nama.Text = ""
End Sub

Private Sub Btnhapussem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussem.Click
LV.Items.Clear()
End Sub

Private Sub Btnhapuspil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuspil.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class

Hasil Program: