Senin, 03 Oktober 2011

*MATAKU ADALAH MATA HATIKU *








Gambar mata ini adalah sosok gambar yang dapat mendikripsikan apa sebenarnya yang telah terjadi dan tengah dirasakan sosok wanita dalam foto tersebut, yaitu jika seseorang dapat menilainya dari mata, pasti mengerti, karena mata juga dapat berbicara bukan?? Dan mata juga tidak dapat berbohong,
            Dan sebenarnya foto di atas ialah asli foto mata saya  yang telah saya foto sendiri, dan ini merupakan salah satu kebanggaan yang ada pada diri saya karena telah diberi karunia dan nikmat yang begitu indah dari Allah, Alhamdulilah ya Allh”
  Pada awal bulan kemarin hingga akhir ini, SubhanAllah ku telah merasakan sakit yang amat sangat perih & pedih yang mendalam, rasa sakit ini yang tidak akan  pernah bisa ku ungkapkan dengan kata-kata, hanya mata yang lemah inilah yang menjawab dan merasakan suatu hal dengan pandangannya yang teduh, beRlinangkan air mata yang merasakan kekecewaan yang amat sangat mendalam pada seseorang yang disayang, dan seolah-olah menginginkan sesuatu yang telah hilang darinya untuk dapat kembali seperti dulu, Tetapi mukin sudahlah mustahil dan tidak akan ada satupun kesempatan lagi untuk kembali, maka ini adalah:
*Mata yang tidak akan bisa menangis lagi dihadapannya,karena takut mata itu akan kehilangan cahaya indah ketika dapat melihat  wajah yang sangat diharapkannya, walau wajah itu telah bahagia bersama orang lain, tapi ketika tak sanggup juga menahan air mata yang akan membanjiri maka hal tersebutlah yang amat sangat kejam dapat merusak kejernihan mata tersebut.
*Mata yang mungkin akan kehilangan keindahan sinarnya yang terbiasa selalu menatap wajah sosok  yang paling indah, Tapi kini dimatanya sudah tidak dapat terlihat lagi,
*Mata yang tidak dapat lagi merasakan sentuhan lembut tangannya ketika air mata jatuh dan  selalu membanjiri bola mata.
*Mata yang tidak lagi bersinar putih cerah tetapi sayup dan merah memandang dengan kekosongan fikiran & dihatinya.
*Mata  yang hanya berselimut dengan kerinduan yang mendalam,yang tak tahu lagi kemana arah ia berlabu untuk dapat  menatap sosok tersebut dengan indahnya.
*Mata yang hanya dapat memandang dengan tatapan mengenang sosok tersebut dengan kebahagiannya dulu, tetapi itu telah tiada lagi.
*Mata yang diselimuti bayang-bayang wajahnya yang selalu singgah di biji bola mata ini yang tidak sanggup lagi tuk mengelakannya.
Dan terakhir mata yang penuh berjuta harapan yang indah yang pernah dilewati bersama dan meski pada kenyataannya saat ini sangatlah jauh berbeda.
            Semoga mata ini dapat melihat keindahan itu lagi ya Allah, dengan kebahagiaan yang amat sangat indah dari semua ini aminnn…. Ya Allah Engkaulah pemilik segala raga hambamu yang mungkin tidak dapat lagi sanggup menatap kebahagian tanpa tuntunan-Mu, ridha dan kasih sayang-Mu yang sejati!!!



SEJARAH VB NET


Sejarah VB.Net

Diposkan oleh Akbar Hashemi Rafsanjani
"Tak Kenal Maka Tak Sayang" Begitu Pepatah Lama Mengatakan. Maka sebelum lebih jauh lagi saya membahas serta membagikan tips /trik mengenai VB.NET, saya akan menjelaskan sekilas mengenai sejarah dari VB.NET ini.

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.

VB.NET merupakan perkembangan bahasa programming dari bahasa Visual Basic, untuk lebih jelasnya mari kita lihat bersama-sama dibawah ini!


Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.



Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :


Perjalanan dari Visual Basic (VB1 to VB 10)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System


4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
- True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF
- LINQ Support
- Ekspresi Lambda
- XML Literals
- Nullable types
- Type Inference
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

MEMBUAT APLIKASI DENGAN VB NET 2008


Visual basic merupakan bahasa yang paling mudah untuk dipahami, dikarenakan bahasanya yang sederhana dan hampir mendekati bahasa yang digunakan manusia sehari-hari. Aplikasi yang akan dibuat adalah contoh aplikasi penjualan barang sederhana... (sangat sederhana).

Dalam pembahasan kali ini, saya akan mencoba menjelaskan langkah-langkah dalam proses pembuatan suatu aplikasi menggunakan Visual Basic .NET 2008 dengan asumsi bahwa Anda telah sedikit memahami dan mengerti tentang apa itu Visual Basic beserta IDE yang akan digunakan (Visual Studio) termasuk syntax-syntax sederhana dalam pembuatan aplikasi menggunakan VB.

Semuanya akan dibuat dengan cepat dan ringkas.... hmmm...
Anda mungkin tidak percaya, pembuatan aplikasi penjualan ini hanya dikerjakan dalam waktu kurang dari satu hari...yups, 1 hari.. Tetapi itu belum dihitung dengan trial and error testnya.. hehe..
Untuk membuat suatu program yang profesional, waktu setahun atau dua tahun belum mencukupi. ;)
Bahan-bahan:
  1. Visual Studio Professional 2008 / Visual Basic.net Express Edition
  2. MS SQL Server 2005 Express Edition
1. Membuat proyek baru
Buka Visual Studio 2008 dan buat sebuah proyek baru dengan menggunakan menu File > New Project..





Pilih "Windows Forms Application" dengan target Framework 3.5 dan berikan nama "CTHAplikasi1" kemudian klik OK.

2. Menambah Database
Langkah berikutnya adalah kita akan menambahkan database dan coba menentukan tabel-tabel apa saja yang terdapat dalam database untuk aplikasi ini. Untuk tutorial pertama ini kita akan memulai dengan membuat 2 tabel yang terdiri dari : "Barang" dan "Kategori".

Pastikan SQL Express telah dijalankan. Masih di IDE VS (Visual Studio) klik menu Project > Add New Item..
Dalam tampilan dialog Add New Item, pilih "Service Based Database" dan masukkan nama "Database1.mdf". Kemudian klik tombol "Add". Lihat gambar:


 
Akan muncul kotak dialog "Datasource Configuration Wizard". Klik Finish. Jika semuanya telah dilakukan dengan benar, maka tampilan dalam Solution Explorer.


3. Menambah Tabel ke dalam Database
Klik menu View > Server Explorer untuk menampilkan Server Explorer.
Database yang baru dibuat tadi akan tampil dalam Server Explorer, dalam tutorial ini "Database1.mdf", jika terdapat tanda silang merah di database kita, klik kanan dan pilih refresh untuk membuka koneksi ke database. Lihat gambar:
 
Klik tanda plus (+) kemudian klik kanan di bagian "Tables" dan pilih "Add New table".




 
Akan muncul tampilan isian tabel. Isikan seperti gambar di bawah ini.



Jadikan "KDKategori" sebagai primary key dengan mengklik kanan baris "KDKategori" dan memilih "Set Primary Key".


 
Simpan tabel tersebut dengan nama "kategori" (tanpa tanda kutip).
Masih dalam tabel kategori, di tab Column Properties, pada bagian Identity Specification > nilai (Is Identity) di ubah menjadi "Yes" dengan Identity Increment sebanyak 1.



Hal di atas dilakukan untuk memberikan Increment Value terhadap KDKategori dengan nilai Increment=1.  Atau dengan kata lain, memberikan "Auto Number" terhadap KDKategori. :D
Pembuatan tabel kategori selesai.... ;)
Lakukan hal yang sama dengan tabel barang, dengan isian seperti gambar di bawah:
Jika kedua tabel telah selesai dibuat, maka tampilan dalam Server Explorer akan menjadi seperti gambar di bawah:

 
4. Membuat Diagram Relasi
Selanjutnya kita akan membuat relasi antar tabel. Klik kanan Database Diagrams dalam Server Explorer dan pilih Add New Diagram. Akan muncul kotak dialog konfirmasi, pilih Yes.
Setelah tombol Yes diklik, akan muncul kotak dialog "Add table". Tentukan tabel-tabel apa saja yang ingin dimasukkan ke dalam relasi. Dalam hal ini, masukkan tabel kategori dan tabel barang kemudian klik Close.
Tampilan tab diagram akan menjadi seperti gambar di bawah ini :


 
Klik dan tahan kolom KDKategori dari tabel kategori dan geser ke kolom KDKategori dalam tabel barang untuk membuat keduanya berelasi.
 

Akan muncul kotak konfirmasi, untuk memastikan kolom yang dimaksudkan sesuai dengan yang kita inginkan. Klik OK, maka akan tampil kotak dialog Foreign Key Relationship.
Pada bagian INSERT And UPDATE Specification, ubah nilai Delete Rule dan Update Rule menjadi Cascade :
 
Maksud dari Cascade dalam Delete Rule di atas adalah, setiap baris yang terdapat dalam relasi dengan pengaturan Cascade akan ikut terhapus bila tabel yang memiliki primary key dari relasi tersebut dihapus. Demikian juga dengan aturan Update Rule = Cascade.
Setelah tombol OK diklik, maka tampilan diagram relasinya menjadi :




 
Simpan diagram di atas dengan nama Diagram1.

5. Menambahkan LINQ to SQL Classes (Apa itu LINQ? = belum dibahas).
Berikutnya kita akan menambahkan LINQ to SQL Classes (LINQ = Language-Integrated Query). Klik Project > Add New Item.. kemudian pilih LINQ to SQL Classes dan beri nama DataClasses1.dbml kemudian klik Add.


 
Tab Object Relational Designer dari DataClasses1.dbml akan langsung terbuka. Masih dalam tab Object Relational Designer, buka Server Explorer dan geser kedua tabel yang barusan kita buat tadi ke dalam area Object Relational Designer, sehingga menjadi seperti gambar di bawah ini:
 
Klik Save untuk menyimpannya.
Simpan proyek kita dan tutup Visual Studio.




MODUL PENGENALAN VISUAL BASIC NET 2008


A. TUJUAN

 Memahami platform Microsoft .NET.
 Mengenal Integrated Development Environment (IDE) Visual Basic
.NET.
 Memahami struktur project Visual Basic .NET.
 Memahami jenis-jenis aplikasi .NET.
 Mampu membangun Graphical User Interface (GUI) menggunakan
Visual Basic .NET.

C. DASAR TEORI
    

o Platform .NET Framework
Microsoft .NET—yang awalnya disebut Next Generation Windows
Services (NGWS)—adalah suatu platform untuk membangun dan
menjalankan generasi penerus aplikasi-aplikasi terdistribusi. Microsoft
.NET merupakan framework (kerangka) pengembangan yang
menyediakan antarmuka pemrograman baru untuk layanan Windows dan
API (Application Programming Interface).
Microsoft .NET merupakan strategi Microsoft untuk menghubungkan
sistem, informasi, dan alat (device), sehingga orang dapat berkomunikasi
serta berkolaborasi dengan lebih efektif. Teknologi .NET terintegrasi
penuh melalui produk-produk Microsoft, dan menyediakan kemampuan
untuk mengembangkan solusi dengan menggunakan Web service.
Platform Microsoft .NET terdiri dari lima komponen utama yang tersusun
dalam tiga lapisan (layer). Lapisan paling bawah adalah sistem operasi;
lapisan kedua terdiri dari tiga komponen; lapisan teratas adalah Visual
Studio .NET.
_ Awali setiap aktivitas dengan doa, semoga berkah dan mendapat kemudahan.
_ Pahami tujuan, dasar teori, dan latihan-latihan praktikum dengan baik.
_ Kerjakan tugas-tugas praktikum dengan baik, sabar, dan jujur.
_ Tanyakan kepada asisten/dosen apabila ada hal-hal yang kurang jelas.
Praktikum Pemrograman Visual (PTI438) 2
Gambar 1 Platform Microsoft .NET
o Visual Studio .NET
      Microsoft Visual Studio .NET merupakan kumpulan lengkap tools
pengembangan untuk membangun aplikasi Web ASP.NET, XML Web
Services, aplikasi dekstop, dan aplikasi mobile. Di dalam Visual Studio
inilah bahasa-bahasa pemrograman .NET—seperti Visual Basic, Visual
C++, Visual C# (CSharp), dan Visual J# (JSharp)—semuanya
menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama
sehingga memungkinkan untuk saling berbagi tools dan fasilitas.
o Visual Basic .NET
      Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa
pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi
.NET di platform Microsoft .NET. Tidak seperti generasi sebelumnya—
Visual Basic versi 6.0 ke bawah—yang lebih difokuskan untuk
pengembangan aplikasi desktop, Visual Basic .NET memungkinkan para
pengembang membangun bermacam aplikasi, baik desktop maupun
aplikasi web.
Seiring dengan perkembangan aplikasi perangkat lunak yang semakin
kompleks, saat ini Visual Basic .NET memasuki versi kelima (Visual
Basic 2008). Meskipun demikian—karena beberapa alasan—dalam
praktikum ini menggunakan Visual Basic .NET 2005 (atau VB.NET 2005
atau VB 2005 atau VB.NET 8)
o IDE Visual Basic
    IDE (Integrated Development Environment), atau juga disebut sebagai
Integrated Design/Debugging Environment, adalah perangkat lunak
komputer yang berfungsi untuk membantu pemrogram dalam
mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu
lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan
beragam tools atau utilitas pendukung.
Praktikum Pemrograman Visual (PTI438) 3

Rabu, 28 September 2011

VISUAL BASIC NET

A.Visual Basic .NET
         Membangun Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu. Versi Terdapat tiga buah versi Visual Basic yang dirilis hingga bulan Agustus 2007, yakni:
1.Visual Basic .NET 2002 (VB 7.0)
   Versi pertama dari Visual Basic .NET adalah Visual Basic .NET 2002 yang dirilis pertama kali pada bulan Februari 2002. Visual Basic .NET 2002 merupakan sebuah bahasa pemrograman visual yang berbasis bahasa BASIC (sama seperti halnya Visual Basic 6.0, tetapi lebih disempurnakan dan lebih berorientasi objek), dan didesain untuk berjalan di atas Microsoft .NET Framework versi 1.0. Versi 7.0 ini dirilis bersamaan dengan Visual C# dan ASP.NET. Bahasa C#, yang dianggap sebagai jawaban terhadap Java, mendapatkan perhatian yang lebih banyak dibandingkan dengan VB.NET yang kurang begitu banyak diulas. Hasilnya, sedikit orang di luar komunitas Visual Basic yang memperhatikan VB.NET. Versi pertama ini kurang mendapat sambutan yang bagus dari para programmer, dan pada saat itu, program berbasis Visual Basic 6.0 sedang marak-maraknya dibuat. Para programmer yang mencoba Visual Basic .NET untuk pertama kali akan merasakan bahwa Visual Basic .NET sangatlah berbeda dibandingkan dengan Visual Basic sebelumnya. Contoh yang paling mudah adalah runtime engine yang lebih besar 10 kali lipat dibandingkan Visual Basic 6.0, dan juga meningkatkan beban di memori.
2. Visual Basic .NET 2003 (VB 7.1)
     Selanjutnya, pada bulan Maret 2003, Microsoft pun merilis lagi versi yang lebih baru dari Visual Basic .NET, Visual Basic .NET 2003. Versi ini berisi beberapa perbaikan dibandingkan dengan versi sebelumnya, dan aplikasi yang dibuatnya dapat berjalan di atas .NET Framework versi 1.1. Fitur yang ditambahkan adalah dukungan terhadap .NET Compact Framework dan mesin wizard upgrade VB6 ke VB.NET yang telah ditingkatkan. Peningkatan yang lainnya adalah peningkatan pada performa dan keandalan dari Integrated Development Environment (IDE) Visual Basic itu sendiri, dan juga runtime engine. Visual Basic .NET 2003 tersedia dalam beberapa jenis cita rasa: Professional, Enterprise Architect dan Academic Edition. Khusus untuk Visual Basic .NET 2003 Academic Edition, versi tersebut didistribusikan secara gratis untuk beberapa sekolah di dalam setiap negara; versi Professional dan Enterprise Architect merupakan produk komersial.
3. Visual Basic 2005 (VB 8.0) 
    Setelah itu, Microsoft pun berkonsentrasi dalam mengembangkan Microsoft .NET Framework 2.0, dan tentunya alat bantu untuk membangun program di atasnya. Hingga pada tahun 2005, mereka pun merilis versi terbaru dari Visual Basic .NET, yang kali ini disebut dengan Visual Basic 2005 (dengan membuang kata ".NET"), bersama-sama dengan beberapa aplikasi pengembangan lainnya. Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah: • Edit and Continue Fitur ini sebelumnya terdapat di dalam Visual Basic, akan tetapi dihapus di dalam Visual Basic .NET. Dengan keberadaan fitur ini, para programmer dapat memodifikasi kode pada saat program dieksekusi dan melanjutkan proses eksekusi dengan kode yang telah dimodifikasi tersebut. • Evaluasi ekspresi pada saat waktu desain • Munculnya Pseudo-Namespace "My", yang menyediakan: o Akses yang mudah terhadap beberapa area tertentu dari dalam .NET Framework yang tanpanya membutuhkan kode yang sangat signifikan. o Kelas-kelas yang dibuat secara dinamis (khususnya My.Forms). • Peningkatan yang dilakukan terhadap konverter kode sumber dari Visual Basic ke Visual Basic .NET. • Penggunaan kata kunci (keyword) Using, yang menyederhanakan penggunaan objek-objek yang membutuhkan pola Dispose untuk membebaskan sumber daya yang sudah tidak terpakai. • Just My Code, yang menyembunyikan kode reusable yang ditulis oleh alat bantu Integrated Development Environment (IDE) Visual Studio .NET. • Pengikatan sumber data (Data Source binding), yang mampu mempermudah pengembangan aplikasi basis data berbasis klien/server. Fungsi-fungsi yang tersebut di atas (khususnya My) ditujukan untuk memfokuskan Visual Basic .NET sebagai sebuah platform pengembangan aplikasi secara cepat dan "menjauhkannya" dari bahasa C#. Bahasa Visual Basic 2005 memperkenalkan fitur-fitur baru, yakni: • Bawaan .NET Framework 2.0: o Generics o Partial class, sebuah metode yang dapat digunakan untuk mendefinisikan beberapa bagian dari sebuah kelas di dalam sebuah berkas, lalu menambahkan definisinya di lain waktu; sangat berguna khususnya ketika mengintegrasikan kode pengguna dengan kode yang dibuat secara otomatis. o Nullable Type • Komentar XML yang dapat diproses dengan menggunakan beberapa alat bantu seperti NDoc untuk membuat dokumentasi secara otomatis. • Operator overloading • Dukungan terhadap tipe data bilangan bulat tak bertanda (unsigned integer) yang umumnya digunakan di dalam bahasa lainnya.
  4. Visual Basic 9.0 (Visual Basic 2008)
     Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5. Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah: • Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis If (boolean, nilai, nilai). Ini dimaksudkan untuk mengganti fungsi IIF. • Dukungan anonymous types • Dukungan terhadap Language Integrated Query (LINQ) • Dukungan terhadap ekspresi Lambda • Dukungan terhadap literal XML • Dukungan terhadap inferensi tipe data. • dukungan terhadap 'LINQ' • Hubungan dengan Visual Basic klasik
Apakah Visual Basic .NET dianggap sebagai sebuah versi Visual Basic atau benar-benar bahasa yang berbeda merupakan sebuah topik perdebatan yang hangat. Hal ini dikarenakan sintaksis bahasa Visual Basic .NET tidak mengalami perubahan yang sangat drastis, dan hanya menambahkan beberapa dukungan fitur baru seperti penanganan eksepsi secara terstruktur dan ekspresi yang bisa di-short-circuit-kan. Dua perubahan tipe data pun terjadi saat berpindah ke Visual Basic .NET. Dibandingkan dengan Visual Basic 6.0, tipe data Integer yang dimiliki oleh Visual Basic .NET memiliki panjang dua kali lebih panjang, dari 16 bit menjadi 32 bit. Selain itu, tipe data Long juga sama-sama berubah menjadi dua kali lipat lebih panjang, dari 32 bit menjadi 64 bit. Bilangan bulat 16-bit dalam Visual Basic .NET dinamakan dengan Short. Lagi pula, desainer GUI Windows Forms yang terdapat di dalam Visual Studio .NET atau Visual Basic .NET memiliki gaya yang sangat mirip dengan editor form Visual Basic klasik. Jika sintaksis tidak banyak yang berubah, lain halnya dengan semantik, yang berubah secara signifikan.
     Visual Basic .NET merupakan sebuah bahasa pemrograman yang mendukung fitur "Bahasa Pemrograman Berorientasi Objek" secara penuh, karena memang didukung oleh arsitektur Microsoft .NET Framework, yang mengandung kombinasi dari Common Language Runtime dan Base Class Library. Visual Basic klasik, hanya merupakan sebuah bahasa pemrogaman berbasis objek, yang berjalan di atas arsitektur Component Object Model (COM). Perubahan ini telah mengubah banyak asumsi tentang hal yang benar yang harus dilakukan dengan mempertimbangkan performa dan kemudahan untuk dipelihara. Beberapa fungsi dan pustaka perangkat lunak, yang ada di dalam Visual Basic klasik, kini tidak terdapat di dalam Visual Basic .NET; mungkin masih banyak yang masih terdapat di dalam Visual Basic .NET, tapi tidak seefisien apa yang ditawarkan oleh .NET Framework. Bahkan jika program Visual Basic klasik bisa dikompilasi dengan benar, sebagian besar program Visual Basic klasik harus melalui beberapa proses refactoring untuk mengadopsi fitur bahasa baru secara keseluruhan. Dokumentasi untuk ini pun tersedia di situs Microsoft[1].
     • Contoh Pemrograman
Contoh program sederhana dalam bahasa Visual Basicyang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harga m_price per item ditambah 5% pajak penjualan: [2].
Dim m_item, m_price, tax, total As double m_item = double.Parse(textBox1.Text) m_price = double.Parse(textBox2.Text) tax = 0.05 total = m_item * m_price * (1 + tax) label5.Text = total.ToString() MessageBox.Show("Well Done.") Berikut ini adalah contoh lain dari program Visual Basic yang menggunakan objek CheckBox dan ComboBox untuk menghitung jumlah kredit mata kuliah yang diambil oleh seorang mahasiswa (masing-masing mata kuliah = 3 kredit): Dim total As Integer total = 0 ' awal dari jumlah kredit total If (CheckBox1.Checked = True) Then 'boleh memilih semua checkbox total += 3 End If If (CheckBox2.Checked = True) Then total = total + 3 End If If (CheckBox3.Checked = True) Then total = total + 3 End If If (ComboBox1.SelectedIndex = 0) Then 'hanya bisa memilih satu total = total + 3 ElseIf (ComboBox1.SelectedIndex = 1) Then total = total + 3 ElseIf (ComboBox1.SelectedIndex = 2) Then total = total + 3 End If Label3.Text = CStr(total) ' hasil kredit total yang diambil

Minggu, 03 Juli 2011

PUISI PERSAHABATAN

Hidup ini bagaikan teka teki
di mana kita harus menebak ……
semua tangga yang terlihat hitam ataupun putih
kadang di saat kita bahagia sekali pun

Bagaikan air yg terus mengalir
tanpa menghiraukan …….
bahwa esok akan ada yg menantikan kesedihan
di saat dan dengan keadaan apa pun

Aku bisa merasakan arti persahabatan
yang seutuhnya ya…….itulah kawanku , temanku…
sahabatku yg selalu membuat aku
melupakan kesedihan dan kembali melangkah dengan ceria ….

Ku angkat wajahku……
ku buang rasa sakitku…..
ku ringankan langkahku….
ku ayun tanganku……

Satu hal yg akan ku ingat selamanya
Satu sahabat lebih baik dari apa pun
Karena dia mampu memberikan pegangan
Di saat kita terhuyung dan terjatuh
Dia jg mampu membuat kita tersenyum kembali dalam canda tawanya …
=====================================================
Sahabatku adalah tetesan embun pagi
yang jatuh membasahi kegersangan hati
hingga mampu menyuburkan seluruh taman sanubari
dalam kesejukan

Sahabatku adalah bintang gemintang malam di angkasa raya
yang menemani kesendirian rembulan yang berduka
hingga mampu menerangi gulita semesta
dalam kebersamaan

Sahabatku adalah pohon rindang dengan seribu dahan
yang memayungi dari terik matahari yang tak tertahankan
hingga mampu memberikan keteduhan
dalam kedamaian

Wahai angin pengembara
kabarkanlah kepadaku tentang dirinya

Sahabatku adalah kumpulan mata air dari telaga suci
yang jernih mengalir tiada henti
hingga mampu menghapuskan rasa dahaga diri
dalam kesegaran

Sahabatku adalah derasnya hujan yang turun
yang menyirami setiap jengkal bumi yang berdebu menahun
hingga mampu membersihkan mahkota bunga dan dedaun
dalam kesucian

Sahabatku adalah untaian intan permata
yang berkilau indah sebagai anugerah tiada tara
hingga mampu menebar pesona jiwa
dalam keindahan

Wahai burung duta suara
ceritakanlah kepadaku tentang kehadirannya
============================================
persahabatan
kuukir cinta didalam sanibari ku
kau bagaikan embun yg membasahii daun cinta ku
kau bagaikan mawar yg menghiasi jantung hati ku
setiap detik kau slalu di hati ku
kau bagaikan mutiara yg berkilau kilau
kau menerangi ku dngn cahaya mutiara mu
kau slalu ada dlm suka dan duka ku
kini ku sadar ku tk mau kehilangan kmu
kau cahaya cinta ku

persahabatan

bagaikan kepompomg mengubah ulat mnjdi kupu kupu
mengarumi hal y tak mudah mnjdi indah
sempurna………
di ataku kau begitu indah
kau buat diriku akan slalu memujamu
ku cinta kau……

I LOVE YOU FUUUUUUUUL

QUIZ KAMIS SAYA

SOAL : 3
TAMPILAN PROGRAM:
Uses crt;
Type Karyawan = Record
Kode : String[5];
Jabatan : String [15];
Status : String [10];
end;
Var
fkar : file of karyawan;
rkar : karyawan;
lg : Char ;
i,j,pil : Integer;
Gaji : Longint;
Tunjangan : Real;
Tkeluarga : Real;
Total : Real;
procedure openkaryawan;
Begin
Assign (fkar,'c:\karyawan.dat');
{$I-} Reset (fkar);
{$I+} if IOresult <>0 then Rewrite (fkar);
End;
Procedure Menu;
begin
clrscr;
clrscr;
gotoxy (10,5);write ('MENU UTAMA');
gotoxy (10,6);write ('-----------------------------');
gotoxy (10,7);write ('[1].Input Laporan Gaji Karyawan');
gotoxy (10,8);write ('[2].Output karyawan');
gotoxy (10,9);write ('[3].Keluar karyawan');
gotoxy (10,10);write ('------------------------------');
gotoxy (10,11);write ('pilihan:');readln (Pil);
end;

Procedure Inputkaryawan;
begin
clrscr;
openkaryawan;
repeat
gotoxy (30,5);write ('input Karyawan');
gotoxy (30,6);write ('-----------------');
gotoxy (30,7);write ('Kode');readln (rkar.kode);
gotoxy (30,8);write ('Status');readln (rkar.Status);
gotoxy (30,9);write ('------------------------------');
gotoxy (30,10);write ('Input Lagi [Y/T]:');Readln (lg);
Seek (fkar, filesize (fkar));
write (fkar,rkar);clrscr;
Until Upcase (lg)=('T');
end;
procedure outputkaryawan;
Begin
clrscr;
i:=1 ; openkaryawan;
gotoxy (3,1);write ('Laporan Gaji Karyawan');
gotoxy (3,2);write ('--------------------------------------');
gotoxy (3,3);write ('No Kode Jabatan Tunjangan ');
gotoxy (3,4);write ('--------------------------------------');
Seek (fkar,0);
while not Eof(fkar) do
Begin
Seek (fkar,i-1); read (fkar,rkar);
if rkar.Kode='K001' then
begin
rkar.Jabatan:='Supervriser'; Gaji:= 3000000
end
Else if rkar.Kode='K002' then
begin
rkar.Jabatan:='Sekretaris'; Gaji:= 2500000
end
Else if rkar.Kode='K003' then
begin
rkar.Jabatan:='Bendahara'; Gaji:= 2000000
end
Else if rkar.Kode='K004' then
begin
rkar.Jabatan:='Sales'; Gaji:= 1500000;

gotoxy (3,4+i);write(i:2,' ',rkar.kode,' ',rkar.Jabatan);
gotoxy (20,4+i);write(Gaji:8);

if Gaji= 3000000 then Tunjangan:= 0.35 * 3000000
else if Gaji= 2500000 then Tunjangan:= 0.20 * 2500000
else if Gaji= 2000000 then Tunjangan:= 0.10 * 2000000
else Tunjangan:= 0.5 * 1500000;

gotoxy (30,4+i);write(Tunjangan:9);
if rkar.Status='Menikah' Then
begin
TKeluarga:= 0.15 * Gaji ;
end
else if rkar.Status='Belum Menikah' then
begin
Tkeluarga:=0;
Total:= Gaji + Tunjangan + Tkeluarga;
gotoxy (40,4+i);write (Total:10:0);
inc (i);
end;
READLN;
end;
begin
pil:=0;
while pil <>3 do
begin
menu;
case pil of
1 : Inputkaryawan;
2 : outputkaryawan;
end;
end;
close (fkar);
end.

SOAL: 4
TAMPILAN PROGRAM:
Uses crt;
var

Kode : Array [1..10] of String[3];
Nama : Array [1..10] of String[40];
Pendidikan : Array [1..10] of String [15];
Keahlian : Array [1..10] of String [30];
i,pil : Byte;
Lg : Char;
Npm : Array [1..10] of String[8];
Jenjang : Array [1..10] of String [30];
Jurusan : Array [1..10] of String [20];
Tahun : Longint;
Procedure openDosen;
begin
Assign (fdos,'c:\Doden.dat');
{$I-} Reset (fdos);
{$I+} if IOresult <>0 then Rewrite (fdos);
end;

Procedure Menu;
begin
clrscr;
clrscr;
gotoxy (10,5);write ('MENU UTAMA');
gotoxy (10,6);write ('-----------------------------');
gotoxy (10,7);write ('[1].Input Data Dosen');
gotoxy (10,8);write ('[2].Input Data Mahasiswa');
gotoxy (10,9);write ('[3].Output Data Dosen');
gotoxy (10,10);write ('[4].Output Data Mahasiswa');
gotoxy (10,11);write ('[5].Keluar program');
gotoxy (10,12);write ('------------------------------');
gotoxy (10,13);write ('pilihan:');Readln (pil);
end;

Procedure InputDosen;
Begin
Opendosen;
clrscr;
repeat
gotoxy (30,5);write ('input Data Dosen');
gotoxy (30,6);write ('------------------------------------------');
gotoxy (30,7);write ('Kode Dosen :');
gotoxy (30,8);write ('Nama :');
gotoxy (30,9);write ('Pendidikan :');
gotoxy (30,10);write ('keahlian :');
gotoxy (30,11);write ('------------------------------------------');
gotoxy (30,12);write ('Input Data Lagi [Y/T]:');
Seek (fdos, filesize (fdos));
write (fdos,rdos);clrscr;
Until Upcase (lg)= ('T');

end;

procedure outputDosen;
Begin
clrscr;
gotoxy (3,1);write ('Informasi Data Dosen');
gotoxy (3,2);write ('------------------------------------------------------');
gotoxy (3,3);write ('No Kode Nama Pendidikan Keahlian ');
gotoxy (3,4);write ('------------------------------------------------------');
Seek (fdos,0);
while not Eof (fdos) do
end;


Procedure InputMahasiswa;
begin
clrscr;
gotoxy (50,5);write ('input Data Mahasiswa');
gotoxy (50,6);write ('------------------------------------------');
gotoxy (50,7);write ('Nama :');
gotoxy (50,8);write ('Jenjang :');
gotoxy (50,9);write ('Jurusan :');
gotoxy (50,10);write ('Tahun :');
gotoxy (50,11);write ('------------------------------------------');
gotoxy (50,12);write ('Input Data Lagi [Y/T]:');
end;

procedure outputMahasiswa;
Begin
clrscr;

gotoxy (5,1);write ('Informasi Data Mahasiswa');
gotoxy (5,2);write ('---------------------------------------------------------');
gotoxy (5,3);write ('No NPm Nama Jenjang Jurusan Tahun ');
gotoxy (5,4);write ('---------------------------------------------------------');
end;
begin
i:=1;pil:=1;
while pil <> 5 do
begin
menu;
case pil of
1 : InputDosen;
2 : inputMahasiswa;
3 : outputDosen;
4 : OutputMahasiswa;
end;
end;
End.
OUTPUT:
OUTPUT:









OUTPUT: