1 Source Code Windows Media Player By Mufid | New 2012

Dulu Saya Pernah Share Windows Media Player By Mufid
Nah Kali ini saya akan ngasih Source Codenya Langsung Aja Deh Di Download :

- Source Code [Download]

NB :
- Jangan Lupa ADD Facebook Saya | Click Here

Read More »

0 Mufid Explore For Mozilla FirefoX | Source Code | Free Not Sale

Dulu Saya Pernah Share Mufid Explore For Mozilla FirefoX
Nah Kali ini saya akan ngasih Source Codenya Langsung Aja Deh Di Download :

- Source Code [Download]


NB :
- Jangan Lupa ADD Facebook Saya | Click Here

Read More »

0 Animasi Form Pada Visual Basic 6.0

Berikut Ini Adalah Kumpulan Animasi Saat Form Di Close, Silahkan Di Copy/Paste  Code Di Bawah Ini ^_^

1. Form Menutup Kebawah → Form saat kita Close atau Ditutup, Form tersebut akan menutup kebawah secara berjalan.

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 300
End Sub

2. Form Menutup ke Kanan → Sama seperti Form menutup kebawah, akan tetapi Form menutup kearah kanan ini akan menutup Form berjalan kearah kanan

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub

Mungkin Ini saja yang saya bagikan ..
semoga tidak Berhasil ^_^

Read More »

0 Source Code Efek Laser Pada Gambar Visual Basic 6.0

Berikut ini adalah trik bagaimana cara membuat efek laser pada gambar mengunakan VB 6. Animasi efek laser ini bisa anda gunakan sebagai referensi untuk anda buat di masukkan pada menu About pada program yang anda bikin atau juga hanya sekedar menambah koleksi VB 6 anda.

Download Full Project/Source Code : Click Here

Read More »

0 Cara Menjalankan ProgressBar Pada Visual Basic 6.0

ProgressBar adalah sebuah kontrol yang berfungsi untuk menanda kan kalau sebuah perintah sedang di proses melalui program, progressBar akan menampilkan animasi loading saat proses itu di jalankan.

Adapun Cara Membuatnya Yaitu :
Tambahkan kontrol ProgressBar dan sebuah CommandButton pada form anda. Untuk mengambil kontrol ProgressBar, klik kanan pada ToolBox dan pilih komponen, ceklis Microsoft Windows Common Control 6.0 (SP6) pada window seperti pada gambar di bawah ini.

Setelah itu, klik Ok sehingga tampilannya seperti terlihat pada gambar pertama di atas. untuk Coding nya, klik double pada Form dan ketik code dibawah ini:

Dim i As Integer
ProgressBar1.Max = 10000 'nilai dapat ditentukan sendiri
ProgressBar1.Min = 1

Langkah selanjutnya, Klik double pada CommandButton dan ketik code di bawah ini:

For i = 1 To 10000 'nilai dapat ditentukan sendiri
ProgressBar1.Value = i
Next i
End

Silahkan anda modifikasi program diatas sesuai keinginan

Download  Full Project / Source Code : Click Here

Read More »

2 Source Code Injector Maincit.net For Visual Basic 6.0 || 2012

 Berikut Ini Adalah Source Code Injector Maincit.net Menggunakan Visual Basic 6.0
Download Source Code Injector Point Blank : Click Here

Read More »

0 Source Code Notepad To Speak For Visual Basic 6.0

Dulu Saya Pernah Share Games Notepad To Speak

Nah Kali ini saya akan ngasih Source Codenya Langsung Aja Deh Di Download :

- Visual Basic 6.0 [Download]
- Source Code [Download]

Read More »

0 Sorce Code Games Ular/Snake Di VB

Dulu Saya Pernah Share Games Games Ular/Snake

Nah Kali ini saya akan ngasih Source Codenya Langsung Aja Deh Di Download :

- Visual Basic 6.0 [Download]
- Source Code [Download]
Password : gbcg.blogspot.com

Read More »

0 Source Code Games Tembak Bola Di Visual Basic

Dulu Saya Pernah Share Games Tembak bola

Nah Kali ini saya akan ngasih Source Codenya Langsung Aja Deh Di Download :

- Visual Basic 6.0 [Download]
- Source Code [Download]
Password : gbcg.blogspot.com

Read More »

0 Cikarang Anti Virus Removed Version 1.1

Pembuat :
- Mufid Neverplay Immortal

CAVR adalah antivirus buatan Indonesia yang mulai diluncurkan pada bulan Aptil 2012 dan mulai booming pada awal bulan tahun 2012.

Keunggulan Cikarang Anti Virus Removed (CAVR) ini adalah cepatnya proses scanning pada komputer dan tidak membebani memori komputer, selain itu CAVR juga membersihkan hingga tuntas semua virus yang sudah menginfeksi komputer anda dan saat ini CAVR mampu mendeteksi kurang lebih 1500 lokasi registry.


Download CAVR : Click Here
Download Sorce Code : Click Here

Read More »

0 Sorce Code Games Tic Tac Toe Di VB

Dulu Saya Pernah Share Games Tic Tac Toe ..

Nah Kali ini saya akan ngasih Source Codenya Langsung Aja Deh Di Download :

- Visual Basic 6.0 [Download]
- Source Code [Download]

Read More »

0 Efek Gerakan Bintang (Star Motion) Pada Form Di Visual Basic

Source code berikut untuk membuat efek Star Motion pada background form di Visual Basic. Bintang-bintang berwarna-warni bergerak menyebar secara random di tengah-tengah form.
Buat 1 project dengan :
1 Form
1 Timer
Copy source code berikut pada Form : 

_______________________________________________________________________________

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
    Speed = -1
    K = 2038
    Zoom = 256
    Timer1.Interval = 1

    For i = 0 To 100
        X(i) = Int(Rnd * 1024) - 512
        Y(i) = Int(Rnd * 1024) - 512
        Z(i) = Int(Rnd * 512) - 256
    Next i
End Sub

Private Sub Timer1_Timer()
    For i = 0 To 100
        Circle (tmpX(i), tmpY(i)), 5, BackColor
        Z(i) = Z(i) + Speed
        If Z(i) > 255 Then Z(i) = -255
        If Z(i) < -255 Then Z(i) = 255
        tmpZ(i) = Z(i) + Zoom
        tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
        tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
        Radius = 1
        StarColor = 256 - Z(i)
        Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
    Next i
End Sub
_______________________________________________________________________________

Untuk lebih jelasnya, Download Source Code Efek Star Motion Pada Form Di Visual Basic = Click Here

Sumber : www.irmanf.wordpress.com

Read More »

0 Cara membuat Label / Tulisan Berjalan di Injector

coba pada label1 bagian properties witdh nya digedein misal witdh 3975 atau drag aja label1 agak memanjang. kode text berjalan diatas bisa cuman buat 1 kali jalan abis itu menghilang.
kalau mau yg text berjalan berulang pake ini yg simple , untuk text isi sendiri di label1 caption pada property, jangan lupa kasih spasi kalau ngga nyambung trus tuh text.

1. text label bergerak dari kiri ke kanan

Private Sub timer4_Timer()
   timer4.Interval = 200
   Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) +  Mid(Label1.Caption, 1, 1)
End Sub

atau
2. text label bergerak dari kanan ke kiri

Private Sub timer4_Timer()
   timer4.Interval = 200
   Label1.Caption = Mid(Label1.Caption, Len(Label1.Caption), 1) +  Mid(Label1.Caption, 1, Len(Label1.Caption) - 1)
End Sub 

Tambahan ^
Untuk Membuat Text/Label Kedap Kedip,Ni Codenya:

Dim i As Long
Dim merah, hijau, biru As Integer
Private Sub Form_Load()
 i = 0     'Inisialisasi detik
 Timer1.Interval = 100   'Kalau 1000 biasanya lompat 1 detik
 Label1.Caption = "Contoh Label Kedap Kedip..."
End Sub
Private Sub Timer1_Timer()
 i = i + 1
 If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...
 merah = Int(255 * Rnd)    'Bangkitkan angka random untuk merah
 hijau = Int(255 * Rnd)    'Bangkitkan angka random untuk hijau
 biru = Int(255 * Rnd)     'Bangkitkan angka random untuk biru
 Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna
 If i Mod 2 = 0 Then       'Jika counter habis dibagi 2
    Label1.Visible = True  'Tampilkan label
 Else                      'Jika counter tidak habis dibagi 2
    Label1.Visible = False 'Sembunyikan label
 End If                    'Akhir pemeriksaanEnd Sub 

Read More »