Visual Basic Open Source

Pengetahuan wajib bagi calon programmer

2010-03-22T19:33:00.000-07:00

Lama X Blog ini gak terupdate, seperti rumah gak da pemiliknya.
Tuk hari ne Admin kan mencoba mengUpload tentang Pengetahuan yang wajib bagi seorang programmer, ya....,sekilas konsep dasar lah...!
Setelah beberapa kali mewawancara calon programmer baru, saya menemukan bahwa cukup banyak dari kandidat pelamar kerja, baik fresh graduate maupun yang (ngakunya) experienced masih belum memahami beberapa pengetahuan dasar.

Entah apa sebabnya. Beberapa kemungkinan bisa saya perkirakan, sebagai berikut:

* Tidak diajarkan di kuliah
* Diajarkan, tapi mahasiswa bersangkutan lebih banyak dugem daripada kuliah
* Diajarkan dan pernah mengerti, tapi karena jarang digunakan akhirnya jadi lupa

Apapun masalahnya, yang jelas kenyataan ini sangat memprihatinkan. Dunia IT tidak akan maju jika generasi penerusnya mudah merasa cukup dengan pengetahuan yang dia miliki.

Berikut menu wajib programmer:

* Konsep dasar sistem operasi.
* Konsep dasar jaringan.
* Konsep dasar relational database.
* Karena sekarang jaman internet, maka wajib memahami protokol HTTP, FTP, POP3, SMTP, SSH.
* Karena sekarang jaman globalisasi, maka wajib memahami Unicode.
* Lebih dari satu bahasa pemrograman.
* Cara menggunakan Version Control.

Berikut pertimbangannya.

Kebanyakan dari programmer(yang saya temukan maksudnya) biasanya membuat aplikasi di atas sistem operasi, sehingga banyak yang berpendapat bahwa tidak perlu memahami cara kerja sistem operasi. Pendapat ini boleh saja, kalau Anda adalah staf akunting yang kebetulan dipaksa bos untuk membuat aplikasi general ledger. Untuk programmer profesional, pemahaman ini akan membuat Anda lebih siap untuk membuat aplikasi server yang biasanya multithreaded dan harus efisien digunakan dalam waktu yang lama.

Pemahaman mendalam di salah satu sistem operasi juga merupakan nilai tambah yang signifikan. Dengan mengetahui struktur internal sistem operasi (misalnya Linux), kita dapat mengetahui berbagai pertimbangan dalam merancang aplikasi besar yang terus berkembang.

Saat ini, kalau kita harus membuat aplikasi, besar kemungkinannya aplikasi kita tidak berjalan sendiri. Aplikasi tersebut pasti harus berhubungan dengan internet, melayani banyak pengguna, atau berhubungan dengan perangkat lain seperti handphone atau PDA. Untuk itu, pemahaman atas konsep jaringan sangat penting.

Tentang relational database. Saya tahu ini pasti pernah diajarkan di kuliah. Jadi lulusan informatika dan sejenisnya jangan bilang belum diajarkan. Yang saya maksud bukan sekedar sintaks SQL. Sintaks itu gampang, bisa dicari dengan mudah di internet. Yang saya inginkan adalah penjelasan tentang Boyce-Codd Normal Form, lengkap dengan contoh kasusnya, di luar kepala. Kalau sudah bisa menjelaskan ini, inner join, subquery, union, itu perkara sepele.

Protokol HTTP sekarang adalah protokol yang paling banyak digunakan di internet. Jangan salah, ini bukan tentang sintaks HTML atau CSS. Jadi apa? Begini, coba tampilkan halaman website ini dengan menggunakan telnet. Benar, bukan browser, tapi telnet.

Kalau sudah bisa browsing dengan telnet, sekarang coba untuk baca email via telnet. Menggunakan protokol POP3 atau IMAP tentunya. Punya account Gmail kan? Hare gene gak punya? Ya bagus, kalo punya coba aktifkan fitur POP3nya, setelah itu buka dengan telnet.

Unicode itu penting supaya aplikasi kita tetap bisa diinstal di komputer orang Jepang atau Korea, atau komputer berbahasa Sansekerta.

Pemahaman lebih dari satu bahasa itu penting agar wawasan kita terbuka. Bahwa tidak ada bahasa yang one-fit-all, bahwa ada cara berpikir yang berbeda dalam tiap bahasa, bahwa komunitas tiap bahasa berbeda budayanya. Semua ini akan berkontribusi dalam pendewasaan kita dalam berdiskusi dan menanggapi perbedaan (terutama pendapat).

Satu lagi, trend bahasa pemrograman adalah, tiap sepuluh tahun, market leader berganti. Dulu COBOL, kemudian C++, sekarang Java. Jadi, kemampuan belajar bahasa baru sangat penting. Bukan cuma bahasanya yang penting, tapi kemampuan belajarnya yang lebih penting.

Ok, itu standar minimal pengetahuan buat Calon Programmer. Menurut Anda terlalu sulit? Hmm .. kalau begitu dunia IT menjadi programmer nampaknya kurang cocok buat Anda. Silahkan coba karir lainnya, misalnya notaris atau sopir busway, ya seperti saya sekarang ini. He..he..he...
janganlah mas ikut2-an seperti saya.....

Mengenal Tipe-tipe Data Dalam Ms. Access

2009-09-10T03:23:00.000-07:00

Tipe Data Field

Field-field dalam sebuah tabel haruslah ditentukan tipe datanya agar Access mengetahui bagaimana agar data tersebut dapat diolah dan memperlakukan data dalam field itu. Oleh karena itu sangat penting bagi kita untuk memahami berbagai tipe data field yang ada. Bahkan pengetahuan mengenai hal ini akan bermanfaat ketika Anda merancang berbagai macam tabel dalam sebuah database.

Text

Ini adalah tipe data yang paling umum digunakan. Tipe data ini bisa digunakan untuk field alfanumeric, seperti nama, alamat, kode pos, nomor telepon dan sebagainya. Microsoft Access memberi keleluasaan bagi Anda untuk memasukkan data sampai 255 karakter ke field dengan tipe data ini.

Memo

Tipe data ini mirip dengan teks, tetapi bisa menampung sampai dengan 64.000 karakter. Tipe data text lebih sering dugunakan karena memo tidak bisa diurutkan atau diindeks.

Number

Tipe data ini digunakan untuk menyimpan data numeric yang akan digunakan untuk perhitungan matematis. Anda tidak menggunakan tipe data ini untuk nomor telepon, misalnya, karena nomor telepon tidak perlu diproses secara matematis.

Date/Time

Tipe data ini digunakan untuk nilai tanggal dan waktu. Misalnya, Anda bisa menggunakan tipe data ini untuk tanggal lahir atau tanggal pembelian.

Currency

Tipe data ini terutama digunakan untuk nilai mata uang. Tetapi, Anda juga bisa menyertakan data numeric dalam perhitungan yang memerlukan satu sampai empat angka desimal. Tipe data ini, misalnya, bisa digunakan untuk nilai pembelian atau ongkos pengantaran.

DAHSYATNYA RASA SAKIT SAAT SAKARATUL MAUT

2009-08-18T19:26:00.000-07:00

"Demi Allah, seandainya jenazah yang sedang kalian tangisi bisa berbicara sekejab, lalu menceritakan (pengalaman sakaratul mautnya) pada kalian, niscaya kalian akan melupakan jenazah tersebut, dan mulai menangisi diri kalian sendiri. (Imam Ghozali mengutip atsar Al-Hasan).

Sabda Rasulullah SAW: Sakaratul maut itu sakitnya sama dengan tusukan tiga ratus pedang (HR Tirmidzi)
Sabda Rasulullah SAW: Kematian yang paling ringan ibarat sebatang pohon penuh duri yang menancap di selembar kain sutera. Apakah batang pohon duri itu dapat diambil tanpa membawa serta bagian kain sutera yang tersobek ?(HR Bukhari)

Imam Ghozali berpendapat : Rasa sakit yang dirasakan selama sakaratul maut menghujam jiwa dan menyebar ke seluruh anggota tubuh sehingga bagian orang yang sedang sekarat merasakan dirinya ditarik-tarik dan dicerabut dari setiap urat nadi, urat syaraf, persendian, dari setiap akar rambut dan kulit kepala hingga kaki.

Imam Ghozali juga mengutip suatu riwayat ketika sekelompok Bani Israil yang sedang melewati sebuah pekuburan berdoa pada Allah SWT agar Ia menghidupkan satu mayat dari pekuburan itu sehingga mereka bisa mengetahui gambaran sakaratul maut. Dengan izin Allah melalui suatu cara tiba-tiba mereka dihadapkan pada seorang pria yang muncul dari salah satu kuburan. Wahai manusia !, kata pria tersebut. Apa yang kalian kehendaki dariku? Limapuluh tahun yang lalu aku mengalami kematian, namun hingga kini rasa perih bekas sakaratul maut itu belum juga hilang dariku.

Rasa sakit sakaratul maut dialami setiap manusia, dengan berbagai macam tingkat rasa sakit, ini tidak terkait dengan tingkat keimanan atau kezhaliman seseorang selama ia hidup. Sebuah riwayat bahkan mengatakan bahwa rasa sakit sakaratul maut merupakan suatu proses pengurangan kadar siksaan akhirat kita kelak. Demikianlah rencana Allah. Wallahualam bis shawab.

*** Sakaratul Maut Orang-orang Zhalim ***

Imam Ghozali mengutip sebuah riwayat yang menceritakan tentang keinginan Ibrahim as untuk melihat wajah Malaikatul Maut ketika mencabut nyawa orang zhalim. Allah SWT pun memperlihatkan gambaran perupaan Malaikatul Maut sebagai seorang pria besar berkulit legam, rambut berdiri, berbau busuk, memiliki dua mata, satu didepan satu dibelakang, mengenakan pakaian serba hitam, sangat menakutkan, dari mulutnya keluar jilatan api, ketika melihatnya Ibrahim as pun pingsan tak sadarkan diri. Setelah sadar Ibrahim as pun berkata bahwa dengan memandang wajah Malaikatul Maut rasanya sudah cukup bagi seorang pelaku kejahatan untuk menerima ganjaran hukuman kejahatannya, padahal hukuman akhirat Allah jauh lebih dahsyat dari itu.

Kisah ini menggambarkan bahwa melihat wajah Malakatul Maut saja sudah menakutkan apalagi ketika sang Malaikat mulai menyentuh tubuh kita, menarik paksa roh dari tubuh kita, kemudian mulai menghentak-hentak tubuh kita agar roh (yang masih cinta dunia dan enggan meninggalkan dunia) lepas dari tubuh kita ibarat melepas akar serabut-serabut baja yang tertanam sangat dalam di tanah yang terbuat dari timah keras.

Itulah wajah Malaikatul Maut yang akan mendatangi kita kelak dan memisahkan roh dari tubuh kita. Itulah wajah yang seandainya kita melihatnya dalam mimpi sekalipun maka kita tidak akan pernah lagi bisa tertawa dan merasakan kegembiraan sepanjang sisa hidup kita.

Alangkah dahsyatnya sekiranya kamu melihat di waktu orang-orang yang zalim (berada) dalam tekanan-tekanan sakratulmaut, sedang para malaikat memukul dengan tangannya, (sambil berkata): "Keluarkanlah nyawamu". Di hari ini kamu dibalas dengan siksaan yang sangat menghinakan, karena kamu selalu mengatakan terhadap Allah (perkataan) yang tidak benar dan (karena) kamu selalu menyombongkan diri terhadap ayat-ayat-Nya. (QS Al-An'am 6:93)
(Yaitu) orang-orang yang dimatikan oleh para malaikat dalam keadaan berbuat lalim kepada diri mereka sendiri, lalu mereka menyerah diri (sambil berkata); "Kami sekali-kali tidak mengerjakan sesuatu kejahatan pun". (Malaikat menjawab): " Ada , sesungguhnya Allah Maha Mengetahui apa yang telah kamu kerjakan". Maka masukilah pintu-pintu neraka Jahanam, kamu kekal di dalamnya. Maka amat buruklah tempat orang-orang yang menyombongkan diri itu. (QS, An-Nahl, 16 : 28-29)

Di akhir sakaratul maut, seorang manusia akan diperlihatkan padanya wajah dua Malaikat Pencatat Amal. Kepada orang zhalim, si malaikat akan berkata, Semoga Allah tidak memberimu balasan yang baik, engkaulah yang membuat kami terpaksa hadir kami ke tengah-tengah perbuatan kejimu, dan membuat kami hadir menyaksikan perbuatan burukmu, memaksa kami mendengar ucapan-ucapan burukmu. Semoga Allah tidak memberimu balasan yang baik ! Ketika itulah orang yang sekarat itu menatap lesu ke arah kedua malaikat itu.

Ketika sakaratul maut hampir selesai, dimana tenaga mereka telah hilang dan roh mulai merayap keluar dari jasad mereka, maka tibalah saatnya Malaikatul Maut mengabarkan padanya rumahnya kelak di akhirat. Rasulullah SAW pernah bersabda, Tak seorangpun diantara kalian yang akan meninggalkan dunia ini kecuali telah diberikan tempat kembalinya dan diperlihatkan padanya tempatnya di surga atau di neraka.

*** Sakaratul Maut Orang-orang Yang Bertaqwa ***

Sebaliknya Imam Ghozali mengatakan bahwa orang beriman akan melihat rupa Malaikatul Maut sebagai pemuda tampan, berpakaian indah dan menyebarkan wangi yang sangat harum.

Dan dikatakan kepada orang-orang yang bertakwa: "Apakah yang telah diturunkan oleh Tuhanmu?" Mereka menjawab: "(Allah telah menurunkan) kebaikan". Orang-orang yang berbuat baik di dunia ini mendapat (pembalasan) yang baik. Dan sesungguhnya kampung akhirat adalah lebih baik dan itulah sebaik-baik tempat bagi orang yang bertakwa, (yaitu) surga Adn yang mereka masuk ke dalamnya, mengalir di bawahnya sungai-sungai, di dalam surga itu mereka mendapat segala apa yang mereka kehendaki. Demikianlah Allah memberi balasan kepada orang-orang yang bertakwa. (yaitu) orang-orang yang diwafatkan dalam keadaan baik oleh para malaikat dengan mengatakan (kepada mereka): "Assalamu alaikum, masuklah kamu ke dalam surga itu disebabkan apa yang telah kamu kerjakan". (QS, An-Nahl, 16 : 30-31-32)

Dan saat terakhir sakaratul mautnya, malaikatpun akan menunjukkan surga yang akan menjadi rumahnya kelak di akhirat, dan berkata padanya, Bergembiaralah, wahai sahabat Allah, itulah rumahmu kelak, bergembiralah dalam masa-masa menunggumu.

Wallahu alam bish-shawab.

Semoga kita yang masih hidup dapat selalu dikaruniai hidayah-Nya, berada dalam jalan yang benar, selalu istiqomah dalam keimanan, dan termasuk umat yang dimudahkan-Nya, selama hidup di dunia, di akhir hidup, ketika sakaratul maut, di alam barzakh, di Padang Mahsyar, di jembatan Sirath-al mustaqim, dan seterusnya. Amiin.

Dan inilah ucapan malaikat ketika menunjukkan rumah akhirat seorang zhalim di neraka, Wahai musuh Allah, itulah rumahmu kelak, bersiaplah engkau merasakan siksa neraka. Naudzu bila min dzalik!

Keistimewaan Puasa Bulan Rajab

2009-08-18T19:17:00.000-07:00

Assalamualaikum Wr..Wb..sahabat-sahabat yang dirahmati Allah SWT .
Bismillaahirahmanir rohiim.Wahai Saudara-saudaraku yang budiman,Pada hari Rabu tanggal 24 Juni 2009 kita memasuki bulan Rajab.Bulan Rajab adalah bulannya Allah. Mari kita simak ada apa di balikbulan Rajab itu.

Diriwayatkan bahwa Rasulullah SAW telah bersabda,
Ketahuilah bahwa bulan Rajab itu adalah bulan ALLAH, maka:

*Barang siapa yang berpuasa satu hari dalam bulan ini dengan ikhlas,maka pasti ia mendapat keridhaan yang besar dari ALLAH SWT;

* Dan barang siapa berpuasa pada tgl 27 Rajab 1427/Isra Miraj ( 20 Juli 2009 ) akan mendapat pahala seperti 5 tahun berpuasa;"

*Barang siapa yang berpuasa dua hari di bulan Rajab akan mendapat kemuliaandi sisi ALLAH SWT;

* Barang siapa yang berpuasa tiga hari yaitu pada tgl 1, 2, dan 3Rajab ( 24 ;25 ; 26 Juni 2009 ) maka ALLAH akan memberikan pahala seperti 900tahun berpuasa dan menyelamatkannya dari bahaya dunia, dan siksa akhirat;

* Barang siapa berpuasa lima hari dalam bulan ini, insyaallah permintaannyaakan dikabulkan;

* Barang siapa berpuasa tujuh hari dalam bulan ini, maka ditutupkan tujuhpintu neraka Jahanam dan barang siapa berpuasa delapan hari maka akandibukakan delapan pintu syurga;

* Barang siapa berpuasa lima belas hari dalam bulan ini, maka ALLAH akanmengampuni dosa-dosanya yang telah lalu dan menggantikan kesemua kejahatannyadengan kebaikan, dan barang siapa yang menambah (hari-hari puasa) maka ALLAHakan menambahkan pahalanya.

Sabda Rasulullah SAW lagi :Pada malam Miraj, saya melihat sebuah sungai yang airnya lebih manis darimadu, lebih sejuk dari air batu dan lebih harum dari minyak wangi, lalu saya bertanya pada Jibril a.s.: Wahai Jibril untuk siapakan sungai ini ?Maka berkata Jibrilb a.s.: Ya Muhammad sungai ini adalah untuk orang yang membaca salawat untuk engkau dibulan Rajab ini.

Dalam sebuah riwayat Tsauban bercerita :Ketika kami berjalan bersama-sama Rasulullah SAW ke sebuah kubur, lalu Rasulullah berhenti dan beliau menangis dengan amat sedih, kemudian beliau berdoa kepada ALLAH SWT. Lalu saya bertanya kepada beliau:Ya Rasulullah mengapakah engkau menangis? Lalu beliau bersabda :Wahai Tsauban, mereka itu sedang disiksa dalam kubur nya, dan saya berdoakepada ALLAH, lalu ALLAH meringankan siksa atas mereka.

Sabda beliau lagi: Wahai Tsauban, kalaulah sekiranya mereka ini mau berpuasa satu hari dan beribadah satu malam saja di bulan Rajab niscaya mereka tidak akan disiksa di dalam kubur.Tsauban bertanya: Ya Rasulullah,apakah hanya berpuasa satu hari dan beribadah satu malam dalam bulan Rajab sudah dapat mengelakkan dari siksakubur?

Sabda beliau: Wahai Tsauban, demi ALLAH Zat yang telah mengutus saya sebagai nabi, tiada seorang muslim lelaki dan perempuan yang berpuasa satu hari dan mengerjakan sholat malam sekali dalam bulan Rajab dengan niat karena ALLAH, kecuali ALLAH mencatatkan baginya sepertiberpuasa satu tahun dan mengerjakan sholat malam satu tahun.

Sabda beliau lagi: Sesungguhnya Rajab adalah bulan ALLAH, Syaban Adalah bulan aku dan bulan Ramadhan adalah bulan umatku. Semua manusia akan berada dalam keadaan lapar pada hari kiamat, kecuali para nabi,keluarga nabi dan orang-orang yang berpuasa pada bulan Rajab,Syaban dan bulan Ramadhan.Maka sesungguhnya mereka kenyang, serta tidak akan merasa lapar dan haus bagi mereka.

Wassalamualaikum wr.wb,

Templete Blog Keren 3 Coloumn

2009-06-30T09:49:00.000-07:00

Assalamua'alaikum semuanya, lama gak ngeposting ne, menginggat da tugas yang dikasih sang dosen kita "Bpk. Iwan Masni, S.Kom" (Mohon Maaf kalau ada kesalahan dalam penulisan Nama atau Title) kali ini admin akan mencoba meng-Upload Template Blog 3 Coloumn yang Admin ambil dari berbagai sumber. Bagi temen-temen yang kebingunggan mencari tempale blog, unduh aja di sini...
Selamat Menuju Sukses...
Syukran Jazilan Katsira...

Convert To Excel

2009-03-04T01:35:00.000-08:00

Ini Program Sederhana untuk mengconvert database ke excel, jika anda tertarik silahkan donload di sini

Ebook Islami

2009-02-08T21:25:00.000-08:00

Kisah tentang Dajjal dan Ya'juj Wa-Ma'juj [Download]
1001 kisah teladan [Download]

Sifat Shalawat Nabi Shallallahu alaihi wa sallam-01 , [Download]

Program Perpustakaan

2009-02-04T01:30:00.000-08:00

Program ini merupakan Program Perpustakaan yang di desaig lewat vb 6.0, sliahkan dowload di sini

Aplikasi Angsuran Barang

2009-02-04T01:02:00.000-08:00

Aplikasi ini digunakan untuk mengolah data angsuran pembayaran kredit barang elektronik. Walaupun sederhana mudah-mudahan dapat bermanfaat.

Project ini membutuhkan komponen pendukung, seperti:
ComponentOne VSFlexGrid 8.0 (light)
ComponentOne VSFlexGrid 8.0 (OLEDB)
Data Dynamics ActiveReport Vierwer 2.0
Microsoft Common Dialog Control 6.0
Microsoft Tabbed Dialog Control 6.0
Microsoft Windows Common Controls 6.0 Silahkan Download disini, semoga bermanfaat...

Modul Pemograman

2009-01-27T22:43:00.000-08:00

Ini merupakan beberapa modul pemograman, Untuk Mempelajarinya silahkan didownload...
- Membuat Kalkulator
- Modul Vb ADO
- Modul Database Apotik

Lock Folder

2009-01-26T08:10:00.000-08:00

Sofware ini saya upload khusus untuk teman saya yang di Unsyiah semoga saja tidak mengecewakan... Silahkan Download sini....

KOMPONEN VB

2009-01-20T05:56:00.000-08:00

Ini adalah komponen untuk dapat menscrool mouse di menu editor soure code pada vb 6.o, Anda berminat silah download di sini....

Berapa Source Code Vb Bagi Pemula

2009-01-19T06:50:00.000-08:00

Assalamu'alaikum semuanya.......
Nah saya akan mencoba mengupload beberapa source code sederhana semoga bermanfaat, mw download klik di sini ...

Bimbingan dan Arahannya saya tunggu....

Tips and Triks Pemograman Visual Basic 6.0

2009-01-18T20:39:00.000-08:00

Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di...

A. Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

B. Hanya Huruf

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If

End Sub

C. membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
If TypeOf Control Is ComboBox Then
Control.Text = ""
End If
Next Control
End Sub

NB: jika ada tombol yang lain tinggal di tambah kondisi IF aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja

D. Get Auto Number

Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic
'TMasuk.MoveFirst
Tgl = Format(Now, "yy/mm/dd")
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub

E. Mengambil record ke dalam COmboBox

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

F. Laporan dengan Crystall Report

Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & "\Penduduk.mdb"
.ReportFileName = App.Path & "\Lap Lahir.rpt"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub

Bimbingan dan Saran Sangat diharapkan...

Syukran Jazilan....

Belajar Visual Basic 6.0

2009-01-04T21:46:00.000-08:00

Assalamu'alaikum Wr. Wb...
Maaf Kepada Kawan-kawan yang pande ngeblog, saya masih dalam tahap belajar ngeblog..
Saya adalah seorang mahasiswa Universitas Almuslim Jurusan STMIK semester III yang ingin mempelajari dan memperdalam ilmu pemograman Visual Basic 6.0.....

Terima kasih kepada semua dosen saya:
- Bapak Yulhendra, S. Kom Dosen Tetap UNIMUS
- Bapak Zainal, M. Kom Dosen Tetap UNIMUS
- Bapak Iqbal, S. Kom Dosen Tapa UNIMUS
- Bapak Firdaus, S. Kom Dosen Tetap UNIMUS
- Bapak Dasril A.Md
- Bang Dedi di Jangka
- Bapak Amir Mahmud, S. Kom Di Medan
- Dan Kepada Seluruh Dosen tetap UNIMUS di prodi Teknik Informatika....

Bimbingan dan Arahannya sangat saya tunggu....