Koding VB menambahkan efek suara ketika form muncul.

' Deskription : menambahkan Epek suara ketika form muncul
'Penulis : vatensquare.blogspot.com
'Persiapan : 1.buat 1 buah project baru degan 1 form
'2. siapkan file yang berexstensi wap simpan di folder yang sama dengan projetcnya
'3. copykan koding berikut ke editor form tersebut
'----------------------------------------------
'----------------------------------------------
Private Declare Function sndPlaySound _
Lib "winmm" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub PlaySound(NamaFile As String)
sndPlaySound NamaFile, 1
End Sub


Private Sub Form_Load()
PlaySound App.Path & "\sound.wav"

End Sub

Koding VB Cara menampilkan database dari Ms.Access ke ListView

'Deskripsi: Menampilkan data dari database MS Access ke
' dalam control ListView dan memungkinkan untuk
' penyortiran data pada setiap field atau kolom di
' ListView jika header ybt diklik. Menggunakan
' reference "Microsoft ActiveX Data Objects 2.0
' Library" untuk coding database, dan control
' "Microsoft Windows Common Control 6.0"
' untuk control ListView.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form.
' 2. Tambahkan reference dan component sesuai dengan
' yang disebutkan di atas.
' 3. Tambahkan satu ListView ke dalam form, beri nama
' ListView ini dengan LV.
' 4. Copy-kan coding berikut ke dalam editor form ybt.
'---------------------------------------------------------------

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'Buka koneksi ke database...
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source=" & _
App.Path & "\Data.mdb"
'Buka tabel "Orders"
rs.Open "Orders", cn, adOpenForwardOnly, adLockReadOnly
'Tentukan tampilan ListView...
LV.View = lvwReport 'Jangan lupa yang ini...!
'Ambil data dari recordset...
LoadListViewFromRecordset LV, rs
'Atur ukuran/lebar kolom di setiap listview...
ListViewAdjustColumnWidth LV, True
End Sub

Sub LoadListViewFromRecordset(LV As ListView, _
rs As ADODB.Recordset, Optional MaxRecords As Long)
'Prosedur mengambil data dari Recordset (tabel database)
Dim fld As ADODB.Field, alignment As Integer
Dim recCount As Long, i As Long, fldName As String
Dim li As ListItem
'Bersihkan isi dari ListView.
LV.ListItems.Clear
LV.ColumnHeaders.Clear
'Buat kumpulan ColumnHeader.
For Each fld In rs.Fields
'Menyaring tipe field untuk keperluan
'perataan tampilan teks di ListView
Select Case fld.Type
Case adBoolean, adCurrency, adDate, adDecimal, adDouble
alignment = lvwColumnRight
Case adInteger, adNumeric, adSingle, adSmallInt, adVarNumeric
alignment = lvwColumnRight
Case adBSTR, adChar, adVarChar, adVariant
alignment = lvwColumnLeft
Case Else
alignment = -1 'Berarti: "Unsupported field type".
'atau tipe field tdk mendukung
End Select
'Jika tipe field OK, buat sebuah kolom
'dengan perataan (alignment) yang benar.
If alignment <> -1 Then
'Kolom pertama haruslah rata kiri.
If LV.ColumnHeaders.Count = 0 Then alignment = lvwColumnLeft
LV.ColumnHeaders.Add , , fld.Name, fld.DefinedSize * 200, _
alignment
End If
Next
'Keluar jika tidak ada field yg dapat ditampilkan.
If LV.ColumnHeaders.Count = 0 Then Exit Sub

'Tambahkan semua records dalam recordset.
rs.MoveFirst
Do Until rs.EOF
recCount = recCount + 1
'Tambahkan object utama ListItem.
fldName = LV.ColumnHeaders(1).Text
Set li = LV.ListItems.Add(, , rs.Fields(fldName) & "")
'Tambahkan semua sub (ListSubItems.Add).
For i = 2 To LV.ColumnHeaders.Count
fldName = LV.ColumnHeaders(i)
li.ListSubItems.Add , , rs.Fields(fldName) & ""
Next
If recCount = MaxRecords Then Exit Do
rs.MoveNext
Loop
End Sub

Sub ListViewAdjustColumnWidth(LV As ListView, _
Optional AccountForHeaders As Boolean)
'Prosedur untuk menyesuaikan ukuran/lebar kolom ListView
Dim row As Long, col As Long
Dim width As Single, maxWidth As Single
Dim saveFont As StdFont, saveScaleMode As Integer, cellText As String
'Langsung keluar dari prosedur jika tidak ada
'items yang akan ditampilkan.
If LV.ListItems.Count = 0 Then Exit Sub
'Simpan huruf yang digunakan oleh form,
'dan sesuaikan ke huruf di ListView.
'Kita membutuhkan ini dengan tujuan untuk
'menggunakan metode dari TextWidth milik form.
Set saveFont = LV.Parent.Font
Set LV.Parent.Font = LV.Font
'Sesuaikan ScaleMode = vbTwips untuk form (parent).
saveScaleMode = LV.Parent.ScaleMode
LV.Parent.ScaleMode = vbTwips

For col = 1 To LV.ColumnHeaders.Count
maxWidth = 0
If AccountForHeaders Then
maxWidth = LV.Parent.TextWidth(LV.ColumnHeaders(col).Text) + 200
End If
For row = 1 To LV.ListItems.Count
'Ambil teks dari ListItems atau ListSubItems.
If col = 1 Then
cellText = LV.ListItems(row).Text
Else
cellText = LV.ListItems(row).ListSubItems(col - 1).Text
End If
'Hitung lebarnya, dan tetapkan untuk batas.
'Catatan: Tidak berlaku untuk "multiple-line text fields"
'atau teks yang fieldnya mengandung dari banyak baris.
width = LV.Parent.TextWidth(cellText) + 200
'Update lebar maksimum jika kita menemukan
'sebuah string yang lebih lebar.
If width > maxWidth Then maxWidth = width
Next
'Ubah lebar kolom sekarang...
LV.ColumnHeaders(col).width = maxWidth
Next
'Ganti property parent milik ListView
Set LV.Parent.Font = saveFont
LV.Parent.ScaleMode = saveScaleMode
End Sub

Private Sub Form_Resize()
On Error Resume Next
LV.Move 0, 0
LV.Height = Me.ScaleHeight - 250
LV.width = Me.ScaleWidth - 20
End Sub

'Menyortir data di ListView jika header kolom ybt
'diklik
Private Sub LV_ColumnClick(ByVal ColumnHeader As _
MSComctlLib.ColumnHeader)
'Urutkan data berdasarkan di kolom ybt...
If LV.Sorted And _
ColumnHeader.Index - 1 = LV.SortKey Then
'Telah diurutkan di kolom ini,
'balikkan urutan sortir.
LV.SortOrder = 1 - LV.SortOrder
Else
LV.SortOrder = lvwAscending
LV.SortKey = ColumnHeader.Index - 1
End If
LV.Sorted = True
End Sub

Free Hosting

Free Hosting

Unlimited Bandwidth
Unlimited Webspace
Domain Hosting
PHP, FTP
Price: FREE!

there Free Web Hosting Package contains the following features:
Unlimited Data Transfer
Unlimited Disk Space
100mbps Network Connection
99.9% Uptime
Free Sub Directory ( hostultra.com/~you )
Cool yourname.vzz.net URL!
Free Subdomains ( Many domains to choose from! )
Free Domain Hosting ( yourdomain.com )
Custom Domain DNS Control ( A/CNAME/MX Records )
Browser and FTP Uploading
PHP / MySQL*
Unlimited Domains / Unlimited Subdomains
Free Search Engine Submission

http://www.hostultra.com/signup.html

Mail, FTP, CGI, Perl, SSI, PHP, ASP (FrontPage), MySQL, CPanel, and many, many more. You really will be your own webmaster. Our thoughtful and patient staff will guide you. Forums for when you seek the help of your peers. Emergency contacts for when you need concentrated one-on-one help.

What's the catch? There isn't one. PortalWorlds.NET is advertising and sponsor supported. Your site will show ads (your choice as to placement, side towers, top banners, popups, and similar) and earn money to cover PortalWorlds.NET's server and administrative costs. You do agree to do nothing offensive nor illegal.

In addition to the many things mentioned, you will also receive a Script Center (crammed with ready to use Perl), 100M diskspace, 250M bandwidth, 1 MySQL database, unlimited POP3 mailboxes (including autoresponders and forwarders), 1 mail list, Oscommerce package, PHP-Nuke, Invision Board, full CPanel.

.www.portalworlds.net thank "agresssor" for this one

GreatNow
USA, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://www.greatnow.com/

Space 100 MB
Upload FTP Browser
Editor Advanced Basic
Ads Banner/Popup
Webaddress Subdomain
Features Domainhosting Subdomain Counter Form Guestbook

Beige Tower
USA, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://beigetower.org

Space 100 MB
Upload FTP
Editor Advanced Basic
Ads No ads
Webaddress domain
Features PHP POP Email Domainhosting Telnet mySQL SSI CGI-BIN Guestbook

Comet Stream
Canada, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://www.cometstream.net

Space 50 MB
Upload FTP Browser FrontPage
Editor Advanced Basic
Ads No ads
Webaddress Subdomain, Domain
Features PHP POP Email Domainhosting Subdomain mySQL SSI CGI-BIN Shopping Cart Counter Form Guestbook

Password merupakan salah satu cara untuk mengamankan suatu sistem komputer.

Password merupakan salah satu cara untuk mengamankan suatu sistem komputer. Sistem komputer ini bisa berupa aplikasi, database ataupun sistem operasi. Oleh karena itu menentukan password sebaiknya jangan sembarangan dan harus memperhatikan beberapa hal tertentu. Password harus dibuat dengan memperhatikan beberapa hal berikut ini :
*. Setidaknya panjang karakter password adalah 7 (tujuh) karakter. Anda juga bisa membuat password yang lebih panjang lagi demi keamanan.
*. Menggunakan sedikitnya 1 (satu) karakter simbol pada deretan karakter password Anda.
*. Jika sistem Anda menerapkan password history, maka pastikan password baru Anda selalu berbeda jauh dengan password sebelumnya.
*. Password Anda jangan sampai mengandung nama atau username.
*. Jangan gunakan kata-kata yang umum digunakan pada karaktar password. Ini termasuk kata-kata yang digunakan dalam kamus.
Beberapa contoh password yang kuat misalnya sebagai berikut.
*. a4$Jhi&] *. 3k>i%uA *. O@u#5nQ
Password sebenarnya merupakan sistem proteksi yang paling lemah dalam sistem komputer. Maka dari itu memilih password yang kuat merupakan suatu keharusan. Mengapa demikian? Tool password cracking semakin canggih dalam usahanya membongkar password, plus juga komputer yang digunakan dalam password cracking semakin baik performanya. Password yang sebelumnya butuh waktu seminggu untuk di-crack, maka saat ini bisa di-crack hanya dalam beberapa jam saja.
Software untuk meng-crack password biasa menggunakan tiga macam pendekatan yaitu: menebak secara pintar (intelligent guessing), serangan kamus (dictionary attack) dan juga otomatisasi yang berusaha mencoba untuk menggunakan kombinasi karakter. Jika diberi waktu yang cukup, maka metode otomatisasi tersebut bisa meng-crack password apa saja. Tetapi jika password yang digunakan sangat kuat, maka akan membutuhkan waktu yang sangat lama untuk memecahkannya.
Demikian tips singkat mengenai membuat password yang baik dan kuat. Semoga bermanfaat bagi Anda semua

PUsing Bikin TA

Tidur bentar, dah bangun lagi trus nyalain komputer... pusing siy.... tapi,, ya,, gitu deh.... bantuin gw dong bikin Tugas akhir.... Program blum jadi,, Nyusun baru ampe bab 2 bingung niy nyari tambahan dmana lagi... bantuin dong,, cariin cript,,, atao koding Visual Basik,,,, Bwat bikinprogram .....

Kegagalan tidak sama artinya dengan kekalahankarna

Kegagalan tidak sama artinya dengan kekalahankarna kekalahan adalah saat anda tidak dapat bangkitdari kegagalanBanyak orang belajar supaya pintartapi sedikit orang yangmempergunakan kepintarannya untuk belajar