Minggu, 09 Oktober 2011

Joke manado


Ada ini ALO Binci skali itu tanta LUSY pe Tusa……. >:O
Suatu hari pas Tanta LUSY nyanda di rumah, ALO kase maso di karong itu Tusa dia taruh di Oto kong dia bawa.. Pas 10 km kong ALO buang itu Tusa…*nerd*
ALO Pulang rumah deng hati sanang…. :D
Pas ALO sampe rumah, eh itu Tusa so pulang duluan dari ALO..malah samantara asik duduk di teras…:O
ALO deng muka marah >=) ambe ulang itu tusa, dia isi di karong, dia bawah komang ini lebe jauh..kira2 20 km..pas ALO sampe rumah eh..itu Tusa so lebe dulu ada dari ALO.. :/
ALO so pastiu :& diambe itu tusa dia isi lagi di karong, mar kali ini.. ALO bawa Jauh skali, masuk gang, keluar gang, belok kiri, belok kanan,masuk gang lagi, lewat jalan sempit, belok kiri belok kanan..baru ALO buang di jalan… #:-s
Pas tiga jam kemudian ALO ba tlp pa LUSY.. =-c
ALO : LUSY ngana dimana? 8-|
LUSY : dirumah.. kiapa ALO? :O
ALO : Ngana pe Tusa ada disitu? B)
LUSY : Ada… napa lagi duduk diteras… :D
ALO : Capat!! kase itu tlp pa dia… so ilang jalang kita.. >:O >:O :& :& >:O >:O :& :& ĦǺ:D ˇĦǺ=D  ˇĦǺ:) ˇĦǺ<=-P  ˇĦǺ=))  ˇĦǺ 

Kumpulan Cerita Lucu


Kumpulan Cerita Lucu – Bagi anda yang ingin menikmati cerita lucu disini saya menyediakan kumpulan cerita lucu untuk anda. Karena kumpulan cerita lucu ini bisa menghilangkan stress anda setelah seharian lelah bekerja memeras otak. Disini banyak sekali aneka cerita-cerita. Dari mulai cerita lucu dewasa sampai cerita lucu yang jayus atau dilucu-lucuin padahal nggak lucu sama sekali. hehe…
Memang kadang kala kita susah sekali mencari hiburan disaat otak lagi stress memang membaca cerita humor bisa menjadi suatu alternatif penghilang stres yang efektif dan murah meriah. Hiburan sungguh sangat penting buat anda, jangan sampai pekerjaan atau tugas tugas kuliah anda menjadi pemicu stress yang akhirnya membuat anda sakit.
Berikut beberapa kumpulan cerita lucu untuk penghilang stres anda :
Taruhan telor kotak
Seorang wanita tua masuk ke Bank Indonesia (BI) dengan sekoper uang. Ia membujuk supaya dipertemukan dengan Gubernur BI. “Saya akan buka rekening. Uang yang akan saya simpan sangat-sangat besar,” katanya. Semula staf bank ragu, tapi akhirnya membawa wanita tua ini ke ruangan Gubernur BI.
Sang gubernur bertanya, berapa banyak uang yang akan disimpan. “Rp. 1 milyar,” jawab wanita itu sambil meletakkan koper uang di meja. Sang gubernur bank penasaran, “Maaf, ibu saya agak terkejut. Dari mana ibu dapatkan uang tunai sebanyak ini?”
“Saya menang tebak-tebakan!”
“Well, menebak macam apa, kok taruhannya besar sekali?” sang gubernur penasaran.
“Mau contoh? Saya yakin telur burungmu bentuknya kotak!”
“Hah…!” Gubernur BI tergelak. “Ini tebakan paling konyol yang pernah saya dengar. Anda tak mungkin menang dengan tebakan seperti itu,” ujarnya yakin.
“Ok, mau taruhan dengan saya?” tantang si wanita tua.
“Siapa takut?, ” jawab gubernur. “Saya bertaruh Rp. 50 juta, karena saya tahu telur saya tidak kotak!”
“Ok, ini menyangkut uang gedhe. Bisa saya ajak pengacara ke sini besok jam 10 pagi, sebagai saksi?” tanya wanita tua.
“Tentu saja,” ujar Gubernur BI mantap.
Malam harinya, ia gelisah. Ia lalu berdiri telanjang di depan cermin. Dia raba-raba telurnya, lalu bergerak ke kiri ke kanan berulang-ulang, memastikan telurnya tidak kotak. Sampai larut malam, akhirnya dia yakin telurnya benar-benar bulat, tidak kotak. Maka ia yakin besok bakal menang taruhan.
Tepat jam 10.00 pagi, wanita tua itu datang dengan pengacara ternama, Si Sitompul. Setelah memperkenalkan pengacara asal Batak itu, ia mengulang kesepakatan kemarin, “Rp. 50 juta untuk tebakan telur burungmu yang kotak?”, kata si Nenek. Gubernur BI pun setuju.
Setelahnya, wanita tua itu meminta presdir buka celananya supaya semua bisa melihat bentuk telurnya. Kontan, Gubernur BI komplain. Sayang ia tak bisa menolak. Wanita tua ini cuek saja meraih telur si gubernur dan meraba-rabanya.
“Yah, tak apalah. uang Rp. 50 juta tidak kecil. Biar ibu yakin telur saya tidak kotak.” ujar Gubernur BI deg-degan. Pada detik yang sama saat wanita tua itu meraba-raba telur presdir, pengacaranya Si Sitompul terlihat lemas sambil membentur-benturkan kepalanya ke dinding.
Gubernur BI bertanya, “Ada apa dengan pengacara itu?” Wanita tua ini menjawab kalem, “Ndak apa-apa. Saya cuman bertaruh dengannya Rp. 250 juta, bahwa jam 10.00 pagi ini saya bisa memegang telur presdir Bank Indonesia!”
Serdadu dan Penari
Lama bertugas di medan tempur membuat para serdadu itu lelah dan kesepian. Untuk menghibur mereka sang komandan mendatangkan seorang penari eksotis dari kota terdekat. Si Komandan sendiri maklum, jadi tidak ikut tapi langsung masuk ke ruangannya.
Ketika cewek menggiurkan itu mulai menari, seluruh serdadu yang menonton meledak dalam kehebohan. Mereka bertepuk tangan tanpa henti selama 5 menit. Ketika si stripper mulai melepas baju luarnya dan meliuk-liuk sensual dengan bra dan g-stringnya, tepuk tangan malah bertambah lama, 10 menit tanpa henti.
Kegilaan makin menjadi-jadi ketika bra dilepas. Tepuk tangan terdengar sangat meriah dan sambung menyambung lebih dari 15 menit. Sang komandan sampai turun untuk meminta mereka tenang menunggu tarian puncak.
Akhirnya tibalah sajian utama. Si penari melepas potongan terakhir dan meliuk-liuk tanpa sehelai benangpun di tubuh seksinya. Sesekali kakinya diangkat atau dibuka lebar-lebar sambil jarinya dimasukkan ke mulut.
Dia juga menungging ke arah serdadu-serdadu itu sambil mendesah. Selama 10 menit dia melakukan tarian terbaiknya. Sang komandan sudah membayangkan atap ruangan akan roboh tapi anehnya tidak terdengar suara apapun. Tidak ada tepuk tangam tidak ada sorak-sorak. Hening.
Penari eksotis itu mengakhiri pertunjukannya lalu pergi ke kamar komandan.
“Apa yang terjadi? Kenapa tidak ada tepuk tangan?”, tanya si komandan.
Si cewek menyahut, “Memangnya mereka bisa tepuk tangan cuma dengan sebelah tangan Komandan!”
Kalo Batak Amerika dan Arab Bertemu
Alkisah seorang lelaki Batak bernama Ucoklendir Silupahotang sedang mengadakan perjalanan dari Jakarta ke Hawaii dengan menumpang pesawat terbang …
Beberapa lelaki lain duduk sejajar dengannya, yaitu lelaki Jawa asli, Arab dan Amerika.
Pada jam makan siang, Pramugari menghidangkan makanan pada semua penumpang. Setelah selesai makan lelaki Batak ini memperhatikan lelaki lain yang duduk sejajar dengannya.
Pertama sekali dia lihat si orang Amerika mengeluarkan selembar uang 100 dollar Amerika, membersihkan mulut dan tangannya dengan uang itu… kemudian dibuang…
Si orang Batak terkejut… “Bahh… kok kau buang uang 100 dollar mu itu???”
Dengan tenangnya si Amerika menjawab (setelah diterjemahkan..) “Ah, tenang saja Amerika kan kaya, masih banyak dollar!!”
Seterusnya dia lihat si orang Arab, selesai makan mengeluarkan sebotol minyak wangi yang (pasti) mahal… menyemprotkannya ke tangan dan dada…dan dibuang…
Si orang Batak terkejut lagi…
“Bahh… kok kau buang minyak wangi mu itu? Kan masih banyak isinya??”
Dengan tenang si Arab menjawab (juga setelah diterjemahkan..)
“Ah, tenang saja, kan Arab kaya, masih banyak minyak di sana!”…
Busyet, si orang Batak terkejut setengah mati. Akhirnya dia ambil lelaki Jawa disebelahnya dia lempar keluar pesawat. Kali ini lelaki Amerika dan
Arab yang terkejut…
“Kenapa kamu lempar dia??”
Dengan tenang si orang Batak menjawab,
“Ah, tenang sazza lah, Indonesia kaya, masih banyak orang Zawa di sana…

Perkosa Anjing, Dipenjara 16 Tahun


 Entah apa yang merasuki seorang pria paruh baya di Amerika Serikat (AS) ini. Mungkin karena punya kelainan orientasi seksual, pria bernama Mitchell Marsicano itu melakukan perbuatan yang menjijikan, yaitu memperkosa anjing tetangga.
Laman New York Daily News mengungkapkan bahwa aksi bejat itu berlangsung di suatu apartemen di Kota Long Beach, kabupaten Nassau, negara bagian New York.
Menurut kejaksaan Nassau, Marsicano dua kali menyusup ke apartemen yang dia sewakan dan melakukan kekerasan seksual kepada seekor anjing ras Shiba Inu bernama Snowball saat korban sedang sendiri. Anjing jantan berusia dua tahun itu memiliki berat 23 pon (10,43 kg).
Peristiwa pertama berlangsung pada 12 Oktober 2010. Namun, aksi Marsicano yang terakhir, Kamis 21 Oktober 2010 diketahui si pemilik anjing dan langsung melaporkannya ke polisi.
Pada sidang pengadilan Jumat pekan lalu, 22 Oktober 2010, Marsicano didakwa melakukan penerobosan atas tempat tinggal orang lain – meski flat itu merupakan miliknya yang sedang dikontrakkan – sekaligus melakukan penyerangan seksual.
Sambil menunggu vonis, pria berusia 55 tahun itu untuk sementara boleh keluar dari penjara setelah membayar jaminan US$10.000. Namun, dia bisa terancam hukuman penjara maksimal selama 16 tahun.
Rinciannya, bila terbukti bersalah menerobos tempat tinggal orang lain tanpa izin, Marsicano bisa dipenjara maksimal 15 tahun, plus tambahan selama satu tahun atas penyerangan seksual.
Sementara itu, Snowball menunjukkan tanda-tanda trauma dan menderita luka pada kaki-kakinya saat diperiksa di rumah sakit hewan. Dia untuk sementara diinapkan di Penampungan Hewan Freeport.

7 Tindakan Bodoh Cowok Saat Memikat Hati Cewek


Saat jatuh cinta, logika sering kali tak berfungsi. Segala tindakan menjadi terlihat bodoh jika diukur dengan logika. Tapi dorongan memikat hati wanita idaman lebih besar, hingga tindakan bodoh menjadi sah-sah saja dilakukan.
Berikut, beberapa tindakan bodoh pria saat menjaring cinta wanita idaman, seperti dibahas Askmen.
Percaya diri dibuat-buat
Satu-satunya hal buruk daripada pria pemalu di pesta adalah pria pemalu yang berusaha bertindak seperti cool guy. Meski pemalu, Anda akan terlihat menarik. Jika Anda mencoba terlalu keras untuk terlihat percaya diri—dengan anggapan wanita lebih tertarik dengan pria penuh percaya diri—, maka Anda meremehkan kemampuan wanita. Mereka bisa menilai pria dari banyak sisi, bukan sekadar sikap percaya diri.
Mengenakan t-shirt ketat
Kalau tubuh memiliki cukup otot untuk ditonjolkan, Anda akan terlihat gagah saat mengenakan t-shirt ketat. Tak perlu beranggapan bahwa wanita akan senang berkencan dengan pria kekar. Mereka memang perlu dilindungi, bukan dengan otot, tapi dengan cinta Anda.
Berbohong
Kalau tak mampu merangkainya dengan baik, kebohongan akan berbalik membahayakan, lebih dari sekadar pipi bersemu merah karena ketahuan bohong.
Memasak padahal Anda tidak jago masak
Wanita kagum dengan pria yang bisa memasak, bahkan pekerjaan rumah tangga ini bisa menajdi afrodisiak hebat. Jika Anda memahaminya tapi tak mahir mengolah makanan, maka jangan menawarkan kencan memasak untuk menarik perhatian si dia.
Mengajak ke pameran seni yang tidak Anda pahami
Gagasan tentang kencan sempurna adalah melakukan suatu kegiatan yang menarik bagi kedua belah pihak. Dalam suatu situasi, terkadang pria keluar begitu jauh dari zona kenyamanannya demi menarik perhatian wanita idaman. Contoh, mengajak sang wanita menghadiri pameran lukisan padahal tidak tertarik dan tidak mengerti sama sekali soal seni.
Berpenampilan seperti anak band
Anda menatap poster Jon Bon Jovi di dinding kamar dan melamun tentang ide berpenampilan seperti anak band untuk memberi kesan baik kepada wanita idaman. Bukan tampilan yang dicari wanita, tapi bagaimana kemampuan Anda memahami musik yang bahkan bisa dijadikan bahan pembicaraan menarik selama bersamanya.

Minum terlalu banyak
Sebagian pria merasa percaya diri setelah menenggak alkohol, untuk kemudian dijadikannya modal menarik perhatian wanita. Benarkah? Bagaimana bila yang terjadi justru jauh dari harapan; Anda tersungkur di lantai diskotik, bahkan menumpahkan muntah, hingga diusir penjaga keamanan? Wanita idaman Anda pasti tak akan melirik.

Pengenalan Visual Basic Dasar

Pengenalan Visual Basic
Basic adalah salah suatu developement tools untuk membangun aplikasi dalam lingkungan Windows. Dalam pengembangan aplikasi, Visual Basic menggunakan pendekatan Visual untuk merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa Basic yang cenderung mudah dipelajari. Visual Basic telah menjadi tools yang terkenal bagi para pemula maupun para developer. Visual Basic adalah bahasa pemrograman berbasis Microsoft Windows yang merupakan Object Oriented Programming (OOP), yaitu pemrograman berorientasi objek, Visual Basic menyediakan objek-objek yang sangat kuat, berguna dan mudah.
Dalam lingkungan Windows, User-interface sangat memegang peranan penting, karena dalam pemakaian aplikasi yang kita buat, pemakai senantiasa berinteraksi dengan User-interface tanpa menyadari bahwa dibelakangnya berjalan instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan.
Pada pemrograman Visual, pengembangan aplikasi dimulai dengan pembentukkan user interface, kemudian mengatur properti dari objek-objek yang digunakan dalam user interface, dan baru dilakukan penulisan kode program untuk menangani kejadian-kejadian (event). Tahap pengembangan aplikasi demikian dikenal dengan istilah pengembangan aplikasi dengan pendekatan Bottom Up.
Ada beberapa hal yang harus dipahami dalam mempelajari Visual Basic :
Objek
Sering disebut entity adalah sesuatu yang bisa dibedakan dengan lainnya. Pada dasarnya seluruh benda didunia ini bisa dikatakan sebagai objek, contoh : mobil, komputer, radio, dan lain-lain.
Dalam Visual Basic objek-objek yang dimaksud disebut kontrol. Jenis-jenis kontrol antara lain ; Label, Text Box, Combo Box, List Box, dan masih banyak lagi.

Properti
Sering disebut atribut, adalah ciri-ciri yang menggambarkan uatu objek. Misalnya disebut objek mobil jika mempunyai ban, spion, rem, dan lain-lain.
Event
Suatu kejadian yang menimpa objek. Bagaimana jika mobil didorong, ditabrak, dicat, dan sebagainya.
Metode
Kemampuan yang dimiliki oleh suatu objek. Contohnya jika mobil berbelok, mundur, maju.
Lingkungan Kerja Visual Basic
Project adalah sekumpulan modul/program aplikasi itu sendiri, projek disimpan dalam file berextension .VBP biasanya berisi form-form.
Ada tiga icon dalam projek
þ View Code : tampilkan jendela editor program
þ View Object : tampilkan bentuk formulir
þ Togle Folder : tampilkan folder tempat penyimpanan file
Form adalah objek yang dipakai untuk tempat bekerja program aplikasi. Di dalamnya tempat diletakan objek-objek lainnya. Di dalam form ada grid (garis titik-titik yang berguana untuk pengaturan letak).
Toolbox kotak alat berisi icon-icon atau komponen untuk memasukan objek tertentu kedalam form.
Tambah komponen : klik kanan pada toolbox -> komponen atau add tab
Propertis adalah untuk menentukan setting suatu objek, menentukan cara kerja dari objek saat program dijalankan misal warna, hurup dan lain-lain.
Kode program adalah serangkaian tulisan perintah yang akan dilaksanakan jika suatu objek dijalankan
Konstanta dan Variabel
Variabel adalah suatu tempat untuk menampung data yang nilainya selalu berubah. Sedangkan konstanta adalah suatu tempat untuk menampung data yang nilainya selalu tetap dan tidak pernah berubah.
Aturan Penamaan Konstanta & Variabel
o Harus diawali huruf.
o Boleh terdiri dari huruf, angka, dan garis bawah.
o Maksimal 255 karakter.
o Tidak boleh menggunakan reserved word.
Deklarasi Konstanta & Variabel
Deklarasi konstanta
Bentuk umum :
[Public | Private] Const nama_konstanta [AS tipe_konstanta] = eksplisit
Contoh :
Public Const POTONGAN = 0.05
Const NAMAPERSH = “PT ABC”
Contoh penggunaan dalam program
Const HARGA As Currency = 1000
Dim Biaya As Currency
Dim Jumlah As Integer
¼ ‘proses
Biaya = HARGA * Jumlah
¼ ‘proses
Deklarasi variabel
Bentuk umum :
Dim [AS ]
Pendeklarasian varibel ada 2 jenis :

1) Deklarasi Eksplisit
Untuk mendeklarasikan nama variabel beserta tipe datanya pada awal procedure (menempatkan alokasi nama variabel didalam memori), contohnya sebagai berikut :
Dim Nama as String
Dim Alamat as String *3 0
Dim Gaji as Long
2) Deklarasi Implisit
Untuk mendeklarasikan nama variabel beserta tipe datanya dan langsung mengisi nilai variabelnya (menempatkan alokasi nilai variabel langsung didalam memori), contohnya sebagai berikut :
Nama$ = “ Adi ”
Alamat$ = “ Kelapa Gading ”
Gaji$ = 1750000
Ruang Lingkup Konstanta & Variabel
Ruang lingkup konstanta atau variabel adalah ruang atau daerah dimana konstanta atau variabel yang dibuat dikenal (dapat dipakai) biasanya juga berhubungan dengan umur (waktu hidup) konstanta atau variabel.
Ada variabel yang dikenal diseluruh bagian program, ada yang hanya dikenal di procedure tempat variabel tersebut dibuat. Ruang lingkup paling dalam adalah lingkup procedure dengan perintah Dim, Private atau Static maka variabel tersebut mempunyai ruang lingkup procedure, contoh :
Private Sub CmdTambah_Click()
Dim Nama as String
Dim Alamat as String * 30
Static No as Integer
End Sub
Deklarasi variabel pada Visual Basic dapat dilakukan dengan Keyword berikut :
Keyword
Digunakan pada
Public
Berlaku pada level modul
Private
Berlaku pada level modul
Dim
Berlaku pada level modul dan level procedure
Static
Berlaku pada level procedure
: Operator : .
Visual Basic menyediakan operator aritmatika, komparasi dan logika, salah satu hal yang harus dipahami oleh programmer adalah tata urutan operasi dari masing-masing operator tersebut sehingga mampu membuat ekspresi yang akan menghasilkan nilai yang benar, Tabel 1-1, menunjukkan operator dan urutan operasinya dari atas kebawah.
Operator Aritmatika
Contoh :
A = 1 + 2 * 3 ‘Akan menghasilkan 7
B = (1 + 2) * 3 ‘Akan menghasilkan 9
Aritmatika
Komparasi
Logika
Pangkat (^)
Sama (=)
Not
Negatif (-)
Tidak sama (<>)
And
Kali dan Bagi (*, /)
Kurang dari (<)
Or
Pembagian bulat (\)
Lebih dari (>)
Xor
Sisa Bagi (Mod)
Kurang dari atau sama (<=)
Eqv
Tambah dan Kurang (+,-)
Lebih dari atau sama (>=)
Imp
Pengabungan String (&)
Like
Operator Penggabungan String (Like)
Salah satu operator yang menarik untuk dibahas adalah operator Like. Operator Like digunakan untuk operasi pencocokan pola pada string yang akan sangat membantu programmer.
Syntax :
result = string Like pattern
Operator
Keterangan
?
Sembarang karakter tunggal
*
Nol atau lebih karakter
#
Sembarang digit tunggal (0-9)
[charlist]
Sembarang karakter yang berada dalam charlist
[!charlist]
Sembarang karakter yg tidak berada dalam charlist
Contoh :
· MyCheck = “aBBBa” Like “a*a” ‘ Returns True.
· MyCheck = “F” Like “[A-Z]” ‘ Returns True.
· MyCheck = “F” Like “[!A-Z]” ‘ Returns False.
· MyCheck = “a2a” Like “a#a” ‘ Returns True.
· MyCheck = “aM5b” Like “a[L-P]#[!c-e]” ‘ Returns True.
· MyCheck = “BAT123khg” Like “B?T*” ‘ Returns True.
· MyCheck = “CAT123khg” Like “B?T*”
Operator Pembandingan (Relasi)
Operator ini digunakan untuk membandingkan suatu data atau ekspresi dengan data ekspresi pula dan menghasilkan nilai logika (Boolean) benar atau salah.

Operator

Keterangan

=
Sama dengan
< >
Tidak sama dengan
<
Lebih kecil
>
Lebih besar
<=
Lebih Kecil atau Sama dengan
>=
Lebih Besar atau Sama dengan
Like
Mempunyai ciri yang sama
Ls
Sama referensi objek
Operator Logika
Digunakan untuk mengekspresikan satu atau lebih data logika menghasilkan data logika baru.
Operator
Keterangan
Not
Tidak
And
Dan
Or
Atau
Xor
Exclusive Or
Eqv
Ekivalen
Imp
Implikasi

Operator Penugasan
Operator ini disimbolkan dengan tanda sama dengan ( = ) dan berfungsi untuk memasukan suatu data kedalam suatu variabel, bentuknya sbb:
<> = <>
Contoh : Bilangan = 0
Harga = 500
Banyak = 5
Jumlah = Harga * Banyak
Struktur Kendali (Branching)
Struktur kendali memungkinkan anda untuk mengatur jalannya program anda, Jika membiarkan tanpa di periksa oleh statement control-flow, suatu logika program akan berjalan dari kiri ke kanan dan dari atas kebawah. Hanya program yang sangat sederhana dapat ditulis tanpa statement control-flow.
Struktur KENDALI yang didukung oleh Visual Basic adalah sebagai berikut
If
If…Then
Gunakan suatu struktur If…Then untuk menjalankan suatu pernyataan secara kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.
If kondisi Then pernyataan
atau

If kondisi Then
pernyataan-pernyataanEnd If
Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan nol.
If…Then…Else
Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan dijalankan salah satu berdasarkan kondisi yang memenuhi syarat

If kondisi1 Then
[blok pernyataan-1] [ElseIf kondisi2 Then [blok pernyataan-2]] … [Else [blok pernyataan-n]]
End If
Visual Basic awalnya akan mencoba kondisi1. Jika False, maka Visual Basic akan memeriksa kondisi2, dan seterusnya sampai menemukan suatu kondisi True untuk dijalankan blok pernyataannya.
Contoh :
If JlhRec > 0 Then
   Posisi = 1
Else
   Posisi = 0
End If
Select CaseVisualBasic menyediakan struktur Select Case sebagai suatu alternatif terhadap If...Then...Else. Suatu Select Case statement memiliki kemampuan yang samadengan If…Then…Else…, tetapi membuat code lebih mudah dibaca.
Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya dievaluasi satu kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan blok statement yang sesuai.

Select Case ekspresi yang dicoba
[Case ekspresi1 [blok pernyataan-1]] [Case ekspresi2 [blok pernyataan-2]] [Case Else [blok pernyataan-n]
End Select
Perulangan (Looping)
Struktur loop memperbolehkan anda untuk melaksanakan sekelompok baris lebih dari satu kali.
Do … Loop
Gunakan Do Loop untuk mengeksekusi suatu blok statement dengan jumlah perulangan yang tak terhingga, ada beberapa Do…Loop statement, tetapi masing-masing mengevaluasi suatu kondisi untuk menentukan apakah melanjutkan eksekusi
Berikut ini adalah statement Do Loop, yang dijalankan selama kondisi benar :
Do While condition statementsLoop
Ketika Visual menjalankan Do Loop ini, pertama kali akan di coba kondisinya, jika kondisi False (zero), akan diloncati semua statement yang mengikuti kondisi tersebut. Visual Basic akan menjalankan statement jika kondisi benar dan kembali ke Do…Loop berikutnya.
Function Faktorial (x)Dim Hasil As DoubleDim Count As LongHasil = 1count = 2Do While Count <= x Hasil = Hasil * count count = count + 1LoopFaktorial = countEnd Function
Variasi lain dari statement Do…Loop, yang menjamin minimal satu kali statement dijalankan :
Do statementsLoop While condition
Dua variasi yang analog dengan dua contoh sebelumnya adalah perulangan minimal satu kali. Dan berikut ini adalah berulang atau tidak sama sekali :
ceritaku.,.,.

   saya mahasiswa di STMIK BUDIDARMA, aktifitas yang saya lakukan dalam keseharian saya adalah kuliah,belajar,bekerja dan diselingi juga jika ada waktu luang saya bermain futsal bersama teman-teman satu kelas saya di TI-P0904...
Dan tidak pernah lupa buat ucapkan terima kasih kepada TUHAN yang maha esa untuk semua yang telah di berikannya kepadaku dan kluargaku sampai saat ni,dan kpada kluargaku yang selalu menyuport aku khususnya buat kedua orang tua ku,terimah kasih..
terima kasih juga buat orang yang selalu ada dalam hatiku..kamu adalah seseorang yang sudah membuat aku menjadi lebih baik dari sebelumnya..



LOVE U ALL..:)

Visual Basic versi 6.0



Perbedaan VB dan VB.net


Visual Basic versi 6.0 adalah versi terakhir VB sebelum berubah menjadi .Net. Banyak yang bertanya tentang perbedaan antara keduanya. Berikut sekilas perbedaan dan persamaan VB 6.0 dan VB .Net.
  • VB6 baru sebagian mendukung OOP. VB .Net telah mendukung penuh OOP.
  • Hasil kompilasi source code pada VB6 adalah file .exe biner (native code). VB .Net berupa file .exe intermediate language (MSIL byte code).
  • Hasil kompilasi pada VB6 dapat langsung dieksekusi. VB .Net membutuhkan run time environment / framework (.Net framework)
  • VB6 bermasalah pada deployment-nya (DLL hell). VB .Net tidak
  • Program dari VB6 tidak dapat langsung berinteraksi dengan program dari bahasa lain. VB .Net dapat selama bahasa lain mendukung .Net
  • Perintah-perintah dasar pada VB6 dan VB .Net sebagian besar masih sama kecuali untuk perintah-perintah OOP-nya
  • Dari sisi IDE-nya, pengetikan kode pada VB.Net lebih cepat dari pada di VB6
  • Untuk akses ke database VB.Net menggunakan ADO.Net, VB6 menggunakan ADO. ADO.Net bukan pengembangan dari ADO. Jadi ADO.Net menggunakan teknologi yang berbeda dengan ADO
  • Selain itu pada VB.Net 2008, dapat menggunakan LINQ (Language Integrated Query) untuk mempermudah mengaksesan data