Ng usah banyak basa-basi..........
Blognya Anak GAPTEK
Mari Budayakan Tradisi SHARE
Rabu, 15 Februari 2012
Sabtu, 28 Januari 2012
Jawaban Quiz No.3 denganVB.Net
Jawaban
Soal No.3
Nama :LAHUDDIN
NPM :0911062
-
Listing Program Form
Login
Public Class Form1
Private Sub Process_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Process.Click
If
UserName.Text = "Lahuddin Lubis" And Pasword.Text = "Lubis"
Then
Form_karyawan.Show()
Me.Hide()
Else
MsgBox("Pasord
Anda Salah...Tray Agai")
UserName.Text = ""
Pasword.Text = ""
End If
End Sub
End Class
-
Listing Program Form
Karyawan
Private Sub Nip_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Nip.SelectedIndexChanged
If
Nip.Text = "000011" Then
Nama.Text = "Lahuddin Lubis"
ElseIf
Nip.Text = "000012" Then
Nama.Text = "Ikbal Lubis"
Else
Nama.Text = "Andri Agasi Lubis"
End If
End Sub
Jawaban Quiz No.2 dengan VB.Net
Jawaban Soal No.2
Nama :LAHUDDIN
NPM :0911062
#Listing Program #
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Sub
buattabel()
LV.Columns.Add("NPM",
60, HorizontalAlignment.Left)
LV.Columns.Add("Nama",
110, 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 Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
End Sub
Private Sub BTNHapussemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHapussemua.Click
LV.Items.Clear()
End Sub
Private Sub BTNHapuspilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHapuspilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub BtnExit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnExit.Click
Dim x As String
x = MsgBox("Are
You Sure Want to Exit??????", MsgBoxStyle.Information +
MsgBoxStyle.YesNo, "Exit")
If x =
vbYes Then
Me.Close()
Else
MsgBox("Thank'ssssssssss!!!!!")
End If
End Sub
End Class
#Tampilan Hasil Program#
Rujukan Soal Klik Disini
Selasa, 11 Oktober 2011
About Me..!!!!!!
“The first and the most important step towards success is the
feeling that we can succeed” (Nelson
Boswell).
From this moment life has begun.I must be learning with
every beat of my heart,for better for worse
and the tombstone will be my diploma.It’s my promise.
About me
:
Name :LAHUDDIN
Date of birth : Mandailing,26 January 1989
Hobby :online
Name :LAHUDDIN
Date of birth : Mandailing,26 January 1989
Hobby :online
Hidup
berawal dari mimpi yang terekam oleh ruang dimensi.Aku tidak takut untuk
bermimpi,karena dengan bermimpi adrenalinku
akan terpacu dan memotivasi aku untuk mewujudkan mimpi tersebut.Pastinya
harus dibarengi dengan do’a dan usaha.Sukses itu tidak instant,butuh waktu dan
bahkan pengorbanan
Menjadwal otomatis update status facebook
Bagi yang pengen update status facebook nya ng ketinggalan,ni ada alternatif yang pokonya seep....banget.Pemakai Facebook yang sering sibuk namun mempunyai teman yg banyak,
terutama kawan-kawan yang selalu mengikuti status wall post, membuka
halaman profilemu, kini kamu bisa menjadwal secara otomatis untuk memposting wall post / updte status facebook untuk waktu-waktu tertentu.Misalnya saja ketika kita mengadakan perjalanan panjang dari kota ke
kota, negara ke negara dan ada satu pesan yang harus kita umumkan di
status facebook kita, dengan Sendible,
kita dapat mengupdate otomatis pesan kita di Facebook pada waktu yg
telah kita tentukan di sana. Kawan-kawanmu mungkin akan mengira bahwa
kita pada real-time / ontime mengupdate status facebook, padahal kita
sudah jauh-jauh hari sudah menentukannya.
Situs download sofware gratis
Software Gratis yang sering di istilahkan dengan Freeware bisa kita
dapatkan di situs-situs besar berikut. Freeware merupakan alternatif
murah dari software berbayar. satu hal ketika download software, ketika
ingin mendapatkan software yang gratis dan dapat digunakan sepenuhnya,
jangan lupa mencari dengan label Freeware.
Download.com ( CNET)
Mempercepat koneksi internet
Langsung saja ikuti petunjuk berikut ini
Caranya :
- Klik menu Start > Run
- Pada kotak dialog Run ketikkan regedit, lalu klik OK.
- Sekarang kita cari alamat registry ini : HKEY_LOCAL_MACHINE\SYSTEM\Current
- ControlSet\Services\Tcpip\ServiceProvider.
- Setelah kita berada di direktori ServiceProvider ubah nilai-nilai dibawah ini semuanya menjadi 1.
Langganan:
Postingan (Atom)