Minggu, 29 Januari 2012

Tugas Quiz Hari Senin

Public Class TUGASHAL32
    Sub BUATTABEL()
        LV.Columns.Add("npm", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nm", 180, HorizontalAlignment.Center)
        LV.Columns.Add("jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("tahun masuk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nangka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nhuruf", 80, HorizontalAlignment.Center)
        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(nm.Text)
        LST.SubItems.Add(jurusan.Text)
        LST.SubItems.Add(jenjang.Text)
        LST.SubItems.Add(tahun masuk.Text)
        LST.SubItems.Add(nangka.Text)
        LST.SubItems.Add(nhuruf.Text)
        LV.Items.Add(LST)
    End Sub
    Private Sub TUGASHAL32_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 = ""
        nm.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        tahun masuk.Text = ""
        nangka.Text = ""
        nhuruf.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 BTNHAPUSDATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDATA.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        npm.Text = ""
        nm.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        tahun masuk.Text = ""
        nangka.Text = ""
        nhuruf.Text = ""
    End Sub

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

Minggu, 09 Oktober 2011

Pantun Bro.....

Buat apa panen kelapa

Kalau belum tumbuh tunas

Buat apa membeli vespa

Cicilan kompor saja belum lunas



Terang saja tanganku kaku

Pagi ini dingin sekali

Jelas saja tokonya tak laku

Baju sobek kau jual lagi



Jalan-jalan bersama kakak

Ditengah jalan lihat kepompong

Aku tertawa terbahak-bahak

Melihat kucing makan kedongdong



Pak Dulloh pergi ke Bali

Melihat bule sedang menari

Aduh pantaslah kau bau sekali

Kau belum mandi lima hari



Buah semangka buah duren

Nggak nyangka gue keren


Buah semangka buah manggis

Nggak nyangka gue manis



Jalan-jalan ke pasar simpang

nemu sendok di pinggir empang

hati siapa tak bimbang

situ botak minta dikepang



Makan Jengkol Perut Melilit

Doyan Miscall Pulsa sedikit!



Jambu merah di dinding

Jangan marah just kidding



Orang Sasak pergi ke Bali

Membawa pelita semuanya

Berbisik pekak dengan tuli

Tertawa si buta melihatnya



Jalan-jalan ke rawa-rawa

Jika capai duduk di pohon palm

Geli hati menahan tawa

Melihat katak memakai helm



Limau purut di tepi rawa,

buah dilanting belum masak

Sakit perut sebab tertawa,

melihat kucing duduk berbedak

Coba Tebak

nahhh ane punya tebak tebakan tapi jangan jawab yg ngeres ya!, ditebak dulu baru ntr liat jawabannya ... awas jangan ngeliat jawabannya dulu ntr jadi gak seru lg
ok langsung aja cekitbro

1. Benda apa yg huruf depannya "K" huruf terakhirnya "L"... yg bisa jadi tegang, bisa lemas ?
2. apakah yg huruf depannya "M" huruf terakhirnya "K"... di tengah itu ada kacangnya ?
3. kegiatan apakah yg biasa dilakukan anak remaja di kamar mandi dengan gerakan berulang" huruf pertamanya "M" huruf terakhirnya "I" ?
4. kegiatan apakah yg biasa dilakukan pria dan wanita yg lagi pacaran dimalam hari, huruf pertamanya "N" huruf terakhirny "T" ?

jawabannya nanti dulu yah.....setelah anda nyerah......

Kumpulan Tebak Tebakan Lucu Terbaru



T : Skandal apa yang adanya di bawah?
J : Skandal jepit

T : Kenapa anak kelinci suka banget loncat-loncat?
J : Biasalah..... namanya juga anak-anak. Suka iseng.

T : Apa persamaannya gajah dengan tiang listrik?
J : Sama-sama nggak bisa terbang


T : Budaya apa yang brengsek?
J : Budaya darat

T : Ada nggak ayam jago yang berkokok pagi-pagi?
J : Nggak ada, yang ada ayam tu berkokok ku.. ku.. ruyuuuukk

T : kenapa ninja kepalanya di tutupi pakai kain?
J : kalau pakai daun pisang dikirain nasi bungkus!

T : Warnanya putih tapi nangis. Apa hayo?
J : Pocong nginjak paku

T : Kenapa Cowo ga pake pembalut???
J : Kalo pake, ntar dikira hotdog dong :P

T : Telor apa yang paling enak?
J : Telor yang lagi gatel trus digaruk-garuk (telor cowok)

T : Kenapa cewe suka dibelai rambutnya?
J : Karena kalo di jambak kan marah...

T : Kenapa Superman bisa terbang?
J : Karena celana dalamnya di luar (gak nyambung)

T : Kenapa super hero selalu ganteng?
J : Karena kalo jelek, itu kamu !

T : Binatang apa yang kelaminnya lebih dari satu?
J : Barongsay

T : Putih Hitam Merah, apa hayo?
J : Kuda Zebra habis di kerokin

T : Binatang apa yang kelaminnya dua?
J : Kuda jantan di tunggangi cewek cakep.

T : Monyet apa yang rambutnya panjang?
K : Monyet gondrong

T : Binatang yang paling dibenci anjing laut?
J : Kucing laut

T : Bola apa yang mirip kucing?
J : Bola emon

T : Ikan apa yang matanya banyak sekali?
J : Ikan teri 1 ember

T : Ikan apa yang nggak bisa berenang?
J : Ikan goblok

T : Orang apa yang di ajak bercanda malah marah?
J : Orang lagi sakit gigi

T : Kenapa saat puasa kita musti menahan haus dan lapar
J : Karena air laut rasanya asin.

T : Kenapa air laut rasanya asin
J : Karena kalo manis pasti udah habis dibotolin, terus di jual.


dah dulu ya....moga yang baca bisa ngakak sehariannnn.....
wkwkwkwkwkwkwkwk

lucu & Gombal

Kata gombal gokil 1 :
Cowok : Mbak jangan ngomong ya..
Cewek : Lho.. emang kenapa..?
Cowok : Karena biasanya aku malemnya enggak bisa tidur.. kalo abis
denger
suara dari bibir yang indah…
Kata gombal gokil 2 :
Cowo: Eh eh.. gw ada tebakan neh
Cewe: excited .. ok ok.. apa tebakannya
Cowo: Panda apa yang paling imut manis dan lucu?
Cewe: Semua panda mah imut kali..
Cowo: Engga.. ada satu yg paling ga ngebosenin..
Cewe: Nyerah deh..
Cowo: Panda-ngin kamu sepanjang hari..
Cewe: Ah.. abang ah.. (malumalubego)
Cowo: <(cangengesan kaya kuda nyengir)
Kata gombal gokil 3 :
Co: knapa malem ini gelap banget ya
Ce: mendung kali bang
Co: kyknya nggak dech
Ce: trus napa bang
Co: soalnya bulannya sedang menerangi & menemaniku disini
Kata gombal gokil 4 :
co: bapak kamu maling ya?
ce: ih….kow jahat sie bapak ku dibilang maling. kow gitu?
co: iya soalnya kamu pintar banget mencuri hatiku..
Kata gombal gokil 5 :
ce: mmm,, kalo aye jadi bulan, abang jadi apa?
co: abang tetep pengen jadi matahari neng…
ce: kan matahari ma bulan ga isa ketemu bang??
co: kan bulan bisa bersinar karena sinar matahari nen
Kata gombal gokil 6 :
co : kamu tahu apa definisi dari indah ??
ce : mm..yg jelas indah itu cantik…
co : well bener sih, tp menurut gw …indah itu adalah saat dimana kita
ngga merasakan sedikit pun keburukan di dalamnya ..kmu pernah ngerasain
yg begitu ???
ce : mungkin kalee ya
co : klo aku sering bgt…dan itu adalah saat…..
diriku bersama dengan dirimu
Udah ya enam aja kata gokil nan gombal, kok cuman 6 mas bintang!! kurang !! cewek-cewek ane kan banyak!! Emangnya gue bapak lu!! buat lagi aja sendiri…
Nah sekarang Kata gokil buat tujuan lucu, enaknya dipakai buat SMS, update pacebook, atau twiteran.. Yang mana lu suka bukan urusan gue. Cekidot!!!!
Gawat, gue lagi di kantor polisi nie sekarang. Mereka punya semua bukti buat nahan gue. Tapi nie, bayangin aja mereka nahan cuman gara-gara punya TAMPANG IMUT, kan bukan salah gue ya ..
Ketika kau lewat depan rumahku…
Tak lepas kumenatapmu…
Ingin rasanya kunyanyikan sebuah lagu..
“Who lets the dogs out…hu…hu..hu..hu..”
Doa’in gue ya, please! Tadi gue baru chek-up ke dokter, gue kena penyakit BEAUTIFULIST! Semacam penyakit MAKIN CANTIK gitu dee! Emang cie ga’ bisa nular ke orang lain, cuman gak bisa sembuh aja… so, makin cantik terus dee gue
Ketika kau lewat depan rumahku…
Tak lepas kumenatapmu…
Ingin rasanya kunyanyikan sebuah lagu..
“Who lets the dogs out…hu…hu..hu..hu..”
Mantep kan kata gombal lucu diatas!! kalau lu nggak ngerasa lucu, gue sumpahin lu jadi orang kaya selama-lamanya. Yang Penting Hidup ini harus Gokil abis bro

Salam Kenal

Horas sude........
Hai .....saya  adalah the newbe...
di dunia Blogging......
mohon......cibirannya...yg positif ya....
yah gimanalah supaya blog ini bisa jadi lebih baik lagi......
dan berguna bagi yang teman2 cemuana........

salam keong.......dari gw...

SINOPSIS

Visual Basic .NET 2005 merupakan salah satu aplikasi pemrograman visual yang luar biasa. Visual Basic .NET 2005 termasuk ke dalam keluarga Visual Studio .NET 2005 yang menggunakan teknologi .NET terbaru, yaitu .NET Framework 2.0 sehingga aplikasi ini merupakan teknologi paling mutakhir dari Microsoft yang merupakan pengembangan beberapa versi .NET Framework sebelumnya. Anda akan menemui beberapa perubahan signifikan dalam tata cara pemrograman Visual Basic dibandingkan dengan versi sebelumnya.


Banyak sekali keunggulan yang dimiliki oleh Visual Basic .NET 2005 dibandingkan pendahulunya, misalnya teknologi ADO.NET 2.0 dan fasilitas Clickonce. Visual Basic .NET 2005 juga sangat mendukung konsep pemrograman berorientasi objek yang sedang digandrungi oleh para pemrograman dewasa ini.


Buku ini asngat cocok bagi Anda yang ingin mempelajari Visual Basic .NET 2005, karena disampaikan secara mudah dan praktis, disertai pula dengan latihan-latihan sehingga membant Anda dalam memahami Visual Basic .NET 2005.


Pembahasan dalam buku ini mencakup:
- Mengenal Visual Basic .NET 2005
- Tipe data, variabel, konstanta, dan operator
- Konsep pemrograman
- Form
- Kontrol
- Sub dan function
- Object Oriented Programming (OOP)
- Array
- Menu dan MDIFORM
- Teknologi ADO.NET 2.0 dan ClickOnce
- Exception Handling

THX TO: Arief Ramadhan