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


- Hasil Program Untuk Form Login



 















-          Listing Program Form Karyawan
 Public Class 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.
Nothing reason to break and I will always try to be succesfull.
About me :
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 :
  1. Klik menu Start > Run
  2. Pada kotak dialog Run ketikkan regedit, lalu klik OK.
  3. Run
  4. Sekarang kita cari alamat registry ini : HKEY_LOCAL_MACHINE\SYSTEM\Current 
  5. ControlSet\Services\Tcpip\ServiceProvider.
  6. Setelah kita berada di direktori ServiceProvider ubah nilai-nilai dibawah ini semuanya menjadi 1.