thems windows media player

         
Download : UglyPlayerKappa       Download : TheSleeper1    Download : T3D-SmallPlayer 


                 
  Download : poingta2z1-0             Download : nokia5300        Download : IpodBETA
                 

Trik Menghasilkan uang 100 Dolar Lewat Ziddu

           Internet kini sudah tidak lagi hanya sebagai media informasi, melainkan juga bisa menjadi sebagai media mencari uang secara online. Jika anda masuk ke google dan mengetikkan “bisnis online” dan sebagainya, maka sudah ada jutaan informasi dan tips mengenai cara mencari uang secara online. Pada tutorial kali ini saya akan membahas mengenai cara saya mencari uang secara online lewat Ziddu
          Ziddu sebenarnya adalah situs dengan layanan free file hosting atau media penyimpanan file secara gratis. Dengan ziddu, anda bisa menyimpan file seperti gambar, video, audio maupun dokumen lainnya yang anda inginkan. Setelah anda menguploadnya, anda bisa memperoleh link file tersebut untuk anda sebarkan di blog, website maupun forum anda.
         Kelebihan ziddu daripada filehosting lainnya adalah bahwa ziddu akan membayar anda sebesar 0,001$ untuk setiap unik download terhadap file anda serta akan membayar anda 0,1$ untuk setiap referral aktif anda. Ziddu akan membayar setelah earning anda mencapai mimum payment 10$. Pembayaran bisa dilakukan melalui paypal maupun money booker. Oke..tanpa berlama – lama lagi mari kita mulai belajar menghasilkan dolar melalui ziddu ini.
1. Bagi anda yang belum terdaftar di ziddu, silahkan klik disini untuk daftar secara gratis
2. Setelah anda klik link diatas, maka akan muncul form pendaftaran ziddu..silahkan isi dan lengkapi dengan data diri anda.

3. Setelah anda klik tombol submit, maka akan muncul pesan “thank you for registering” dan anda akan segera di redirect di halaman utama ziddu.

4. Silahkan mulai mengupload file dengan klik tombol choose file dan pilih file yang ingin anda upload. Anda bisa mengupload satu per satu maupun secara multiple dengan mengganti jumlah multiple file upload. Setelah semua file anda pilih, maka klik upload dan tunggu hingga prosesnya selesai
5. Setelah proses upload selesai, anda akan segera di redirect secara otomatis dan akan muncul link setiap file yang baru saja anda upload. Link tersebut sudah siap untuk anda sebarkan di blog, forum, dan media online lainnya. Mudah bukan??
Setelah anda sudah terdaftar di ziddu dan mengetahui bagaimana caranya upload file dsb, maka berikut ini tips bagaimana memaksimalkan pendapatan Ziddu anda hingga 100$.
1. Upload file yang benar – benar banyak dicari dan dibutuhkan orang kemudian sebar link nya baik itu di blog anda, forum, facebook dsb.
2. Jika anda memiliki blog, maka beri review yang menarik untuk setiap file yang anda upload.
3. Jika anda ingin memperoleh $ yang lebih, maka perbanyaklah referral anda. Sesuai pengalaman saya, memasang banner referral kurang efektif. Akan lebih efektif jika anda memposting artikel tentang ziddu di blog / forum yang ramai.
4. Trafik adalah inti dari earning ziddu yang maksimal. Semakin banyak link anda tersebar dan didownload oleh banyak orang, maka earning anda juga akan semakin tinggi, karena itu rajin-rajinlah menyebar link di blog atau forum yang bertrafik tinggi.
5. Berilah judul dari file yang anda upload semenarik mungkin.

nb : Uang akan dikirim ke paypal setelah mencapai minimum $10, biasanya dikirim sebelum tanggal 10 tiap bulannya. Anda belum memiliki paypal?? silahkan baca Cara Mudah Daftar Paypal

Membuat Efek Vibrate Pada Form VB 6

sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer yang pengen menambah koeksi aksesoris. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah Efek Getaran jadi sewaktu form di tampilan Form akan bergetar-getar , untuk effect ini codingnya cukup mudah tidak panjang tidak capek ngetik nya, bagi yang berminat silakan ikuti langkah-langkah berikut. Persiapan yangharus kamu lakukan :
Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i

mau coding lebih lengkap Download codingnya klik disini

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar, selamat mencoba aja yah.
mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi saya yang masi belajar VB Developer Junior semoga dapat menambah referensinya.

Mencari Selisih Tanggal di VB6

Sekarang saya coba membuat post mencari selisih tanggal, mungkin  bagi yang sudah ahli di pemograman vb hal ini sangat gampang.
tapi bagi saya yang  masi belajar cukup lumayan dan sangat berharga.  saya coba menerapkannya pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut
persiapan yang dilakukan :

• Buatlah sebuah Project
• Tambahkan :
• 3 Label
• Label1 => Caption : Mencari Selisih Tanggal
• Label2 => Caption : Lahir
• Label3 => Caption : Umur Anda
• 1 Buah Frame  => Caption : Masukan Tanggal Lahir
• 3 Buah ComboBox  => Style : 2 - Dropdown List
• 1 Buah Command Button

Untuk tampilan form nya sesuaikan dengan selera kamu,kemudian untuk  Coding nya kamu bisa liat  dibawah ini pada


Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub
Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub
Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub
Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub
Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String
Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function
 Download coding
Mudah2an ada manfaat nya bagi rekan rekan penggemar  VB Beginner dan selamat mencoba jangan lupa  comment nya terimakasih salam .

Cara Membuat Form Transparan Pada VB 6

Nah sekarang adalah giliranya Membuat form Transparan dengan  Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes.
Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat contoh di bawah ini
                
Nah untuk Perintahnya kamu bisa lihat di bawah ini.
Option Explicit
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As
Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub
Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna Kuning dengan angka yang lain tapi (maximal value 255).
Selamat mencoba di form kamu semoga berhasil !!!!!

Cara Membuat Caption Label Bergerak di VB 6

Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :
- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :

Enable = True, Interval = 100
- Satu Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub
Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh"
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan menggunakan Visual Basic 6"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Download coding 
Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan bergerak dan tulisannya bergantian.
Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada bagi saya yang masi belajar.
Terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.

Membuat Progress Bar Dengan VB6

ASS , PA KABAR SOBAT BLOGGER…?
gmana kabarnya…? Mudah mudahan sehat. setelah cukup lama tidak mengpost saya coba dengan sebagian kecil dari pemorgraman vb 6
yaitu membuat loding dengan progress bar di vb6.caranya cukup mudah dan simpel ko.
ok langsung aja ya ke cara pembuatanya.

• Buka Visual Basic 6.0, setelah itu pilih form standar.exe
• Pada properties form, ganti captionnya menjadi, lprogress bar atau latihan loding atau sesuai yang di inginkan
• Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini :

• Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
• Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini :

• Setelah itu klik 2 kali pada Timer1
• Lalu, masukkan coding seperti dibawah ini :

Private Sub Timer1_Timer()

If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1

End If

End Sub

Download Coding

Download Tutorinya