Pasang Lagu diblog

Ng usah banyak basa-basi..........

Klik disini

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

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. 
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.
    

Penggunaan tombol-tombol SHORCUT

TOMBOL ^XX SHORCUT

Dipostingan kali ini saya akan share mengenai tombol shortcut.Jadul bangat yaaa..tu sich dah ketinggalan.Mungkin da yang berkomentar demikian,but it’s OK!!!!!

Kita ng usah panjang lebar ya,buat yang mau silahkan...

CTRL+L=Teks Rata Kiri	ALT+Klik=Memblok Selective Dokumen
CTRL+R=Teks Rata kanan	ALT+F4=Menutup Program
CTRL+E=Teks Rata Tengah	ALT+TAB=Berpindah antara program jika kita membuak beberapa program
CTRL+J=Teks Rata Kiri dan kanan	ALT+Spasi=Menampilkan menu system dari sebuah program (max,close)
CTRL+C=Copy Objek	ALT+ENTER=Maximise,Minimise(berlaku untuk DOS)
CTRL+X=Memotong Objek	ALT+Klik ganda=Menampilkan properties dari item yang di klik
CTRL+V=Menempel Objek	ALT+Printscreen=Memotret jendela yang terakhir aktif di layer
CTRL+O=Membuka Dokumen	PRINTSCREEN=Memotret Layar
CTRL+N=Menutup Dokumen	SHIFT+F3=Mengubah huruf menjadi besar semua / kecik semua
CTRL+S=Menyimpan Dokumen	Windows+D=Menyembunyikan / menampilkan jendela

Style huruf dengan effect bergerak

Assalamualaikum wr.wb

Pada tutorial kali ini kita akan belajar  mengenai style-style yang ada pada visual basic, sekarang dan dari pencerahan yang entah dari mana datangnya saya dapat membuat sebuah tulisan berjalan pada visual basic ini, begini ceritanya….

Langkah 1.

 Buatlah 2 buah button,1 buah label, 1 timer.

Langkah 2.

Jenis-jenis aplikasi dalam VB.net

Dalam dialog New Project anda dapat memilih jenis aplikasi yang akan dibuat termasuk bahasa pemrograman digunakan. Jenis aplikasi yang dapat dibuat adalah :

Windows Application

Adalah aplikasi yang paling umum dibuat, menggunakan interface windows. Biasanya Windows Application merupakan interface aplikasi sedangakan logic aplikasi terdapat di dalam Class Library. Windows Application dapat berisi form, class, XML file, maupun file VB Script dan Jscript.

Class Library 

Sejarah visual basic & VB.NET 2008

1. 20 Mei 1991: Microsoft merilis Visual Basic versi 1.0 untuk Windows di Windows World 1991, Atlanta, Amerika Serikat. Programmer dapat membuat antar muka pengguna dengan mudah. Pembuatan aplikasi bisa lebih cepat dibandingkan sebelumnya. Kode ditulis oleh programmer untuk memberikan aksi terhadap Event dari pengguna (bagaimana pengguna merespon kepada object yang terdapat di antar muka pengguna).

Membuat effect animasi sederhana

Assalamualaikum....
    Pada tutorial kali ini kita akan  membahas mengenai salah satu effect  yang bisa dilakukan pada visual basic.net, vb.net tidak hanya terkenal dengan kemudahannya bagi pemula namun vb.net unggul dalam masalah tampilannya, kita dapat merubah tampilan sesuka yang kita inginkan, biasanya kita hanya melihat pada saat membuka dan menutup aplikasi dan hilang dalam sekejap, namun kita dapat mengaturnya agar tampilan bisa lebih menarik.

Langkah 1

Buat form biasa dengan nama terserah kalian pada properties form tersebut, kemudian ubah back color menjadi warna putih, sebagai berikut.

sejarah VB.NET

VB.NET.. mungkin beberapa dari pembaca sekalian ada yang bertanya-tanya mengenai apa itu VB.NET atau mungkin dari pembaca sudah akrab sekali dengan istilah ini. Bagi yang belum tahu, VB.NET bukanlah sebuah binatang.. (hehe) ataupun bukan sebuah makanan atau tempat. VB.NET merupakan salah satu bahasa programming yang dibuat dari microsoft.. (eitt yang uda mulai bosan jangan kabur dulu... hehe.. karena pasti ini akan menarik). lanjut lagi ke topik. Oh iya, saya sebelumnya saya juga ingin menjelaskan kenapa saya menjelaskan mengenai VB.NET, karena sebelum kita melangkah lebih jauh ada baiknya kita saling mengenal dulu dengan VB.NET karena Ada pepatah yang bilang "tak kenal maka tak sayang!", hehe maka menurut saya ada baiknya kita mengenal vb.net ini.