Showing posts with label Kumpulan Software. Show all posts
Showing posts with label Kumpulan Software. Show all posts

Aplikasi kompres Ukuran Video tanpa mempengaruhi kualitas Video tsb

      Begini Cara Buat Mengkompres atau merizise ukuran video tanpa mempengarungi kualitas vidio itu sendiri.

Berikut tutorialnya.
)


LINK DOWNLOAD


No comments

Mencari Hasil Akhir IPK menggunakan GetIPK

           kali ini saya akan mencoba berbagi tentang software atau aplikasi yan
g ringan, size nya yang relatif kecil tidak sampai 1 mb, cocok buat kamu yang pengen tau hasil akhir IPK kamu atau untuk mengira - ngira tentang hasil IPK kalian,

fiturnya yang sederhana,size yang kecil dan juga gampang digunakan tinggal kamu masukin jumlah SKS nilai Grade dan Jumlah Matakuliah yang kamu ambil.
berikut penampakannya,














Link Download
No comments

Aktifator Ms Office 2013

Malam Gan Sista, Uda lama ga nge Post,, Maglum uda semester tua.. hehe..

    Malam ini ane mau sharing tentang cara mengaktifkan ms office 2013,,
 disamping tampilan yang fresh, ms office 2013 ini juga memiliki fitur" yang memudahkan kita dalam penulisan naskah ataupun skripsi.
Beda dengan office 2003 yang hanya menggunakan serial key untuk mengaktifkannya,
di office 2013 ini kita membutuhkan suatu aktifator untuk mengaktifkannya..

ini dia penampakanya.













Yang Berminat bisa langsung comot aja gan,
ini ink nya

DOWNLOAD
No comments

CCleaner 306 Portable


          CCleaner adalah freeware sistem optimasi dan privasi alat. dia akan menghapus file yang tidak terpakai dari sistem kamu - memungkinkan Windows untuk berjalan lebih cepat dan membebaskan ruang hard disk yang berharga. Hal ini juga membersihkan jejak aktivitas online kamu seperti history Internet kamu di mozilla atau browser lainnya. bagian yang terbaik adalah dia kerjanya itu cepat (biasanya mengambil kurang dari satu detik untuk menjalankan) dan berisi NO Spyware atau Adware!

        CCleaner dirancang  untuk menjadi aman dan aman untuk digunakan. Ini memiliki beberapa tingkat pemeriksaan di tempat untuk memastikan bahwa hal itu tidak dapat menghapus informasi yang berguna atau dokumen kamu yg  mungkin masih diperlukan.

















Link Download

KMPlayer 3.5

             KMPlayer adalah media player serbaguna yang dapat mencakup berbagai jenis format kontainer seperti VCD, DVD, AVI, MKV, Ogg Theora, OGM, 3GP, MPEG-1/2/4, WMV, RealMedia, dan QuickTime dll.


Perubahan KMPlayer 3.5.0.77:

- Mendukung FTP (Streaming Live)
- Mendukung HTTP, FTP sub judul
- Tampilan Replay Kemajuan fungsi dalam Taskbar untuk Windows 7 & versi yang lebih baru
- Modifikasi secara online subtitle pencarian fungsi
- Video Ditambahkan properti pengaturan fungsi dari EVR ke H / W
- Pemutaran Peningkatan kecepatan mulai dari jaringan file awal (http, ftp)
- Memperbaiki video & masalah sinkronisasi audio ketika mencari dalam file AVI
- Modifikasi MP4 source parser
- Memperbaiki bagian dari masalah error codec AC3
- Modifikasi memori yang berhubungan dengan logika untuk filter sumber MKV





         

















Link DownloAd 23 mb

AIMP 3.20.1165


      AIMP adalah audio player terbaik yang dirancang dengan indah dan memiliki banyak fitur yang membuatnya menjadi pilihan yang sempurna buat kamu.

         Dengan AIMP kamu dapat mengatur file MP3 kamu di Library, mengedit tag jika diperlukan dan menikmati fil - file dalam kualitas audio yang sangat baik. AIMP bekerja dengan format populer lain juga, termasuk file karaoke dan beberapa playlist format.

       AIMP menawarkan semua fungsi pemutaran standar kamu. di aplikasi serupa lainnya: equalizer 18-band, efek visualisasi, jendela terpisah untuk melihat daftar main yang sekarang, efek memudar antara lagu, filter normalisasi untuk menghindari perubahan volume tiba-tiba dan dukungan untuk hotkeys global .

       Program ini juga memainkan stasiun online streaming radio, termasuk editor tag yang lengkap dan dapat diatur untuk mengulang bagian tertentu dari lagu - yang sangat berguna ketika Kamu mencoba untuk menguraikan lirik!

Tampilan AIMP juga cantik menarik dan intuitif. Semua fungsi dan tombol jelas ditata, dan desain menarik ga ngebosenin.

        masih mencari pemutar musik yang sempurna?? AIMP mungkin jawabannya.


















Link Download


Cara Menambah Skin AIMP

Download Skin AIMP Disini -->> 36 mb.
Jika file masih berbentuk rar, ekstrak terlebih dahulu
Setelah didapat file dengan ekstensi *.acs2 atau *.acs3, letakkan di folder C:\Program Files\AIMP3\Skins
Buka ‘Menu’ pilih Preferences  lalu pilih ‘Skins’  Skins yang baru telah siap digunakan.








VLC Media Player 2.0.5


           VLC media player adalah multimedia player yang sangat portabel untuk berbagai format audio dan video serta DVD, VCD, dan berbagai protokol streaming tanpa codec eksternal atau program.

           Hal ini juga dapat digunakan sebagai server untuk streaming dalam unicast atau multicast di IPv4 atau IPv6 pada jaringan bandwidth tinggi.

VLC dapat memainkan:

MPEG-1, MPEG-2 dan MPEG-4 / DivX file dari hard disk, drive CD-ROM, dan sebagainya
DVD, VCD, dan CD Audio
Dari kartu satelit (DVB-S)
Beberapa jenis aliran jaringan: UDP / RTP Unicast, UDP / RTP Multicast, HTTP, RTSP, MMS, dll
Dari kartu akuisisi atau encoding (pada GNU / Linux dan Windows saja)
Volume max 200%


VLC media player mendukung format berikut
MKV, WMV, MPEG, MP4, MOV, AVI, DIVX, XviD, FLV, FLAC, WAV, REAL, VOB dan ditambah banyak lagi..















Link Download

QQ Player 3.7.892


           QQPlayer, media player multi-media yang diperkenalkan oleh Tencent, mendukung file film dan musik dalam format apapun.
     Dengan, ringan multi-pemutaran, keren mesin QQPlayer ke dalam kapasitas akselerasi hardware dari kartu tampilan baru generasi, dan memiliki keuntungan yang lebih kecil, lebih cepat dan lebih mulus, menjanjikan video yang sangat baik dan kenikmatan audio melalui internet, bebas dari plug-and iklan.


        Dengan QQPlayer kamu dapat memainkandan mengkonversi semua format video umum dan juga menggabungkan beberapa file video dan mengkonversikannya ke file video tunggal. QQPlayer juga dapat digunakan untuk melihat sub judul untuk file video tertentu atau untuk mengambil snapshot dari film dan juga Anda dapat Meningkatkan volume suara 1000%. Sederhana dan mudah digunakan, QQ Pemain persyaratan yang sangat rendah dan dapat diinstal pada setiap versi Windows. Tidak perlu menginstal codec tambahan!.
menurut aq nii software media player paling bagus nd paling cantik di speciesnya..


File Formats Supported:
Windows Media: (.asf, .avi, .wm, .wmp, .wmv) | Real Media: (.ram, .rm, .rmvb, .rp, .rpm, .rt, .smi, .smil) | MPEG1/2: (.dat, .m1v, .m2p, .m2t, .m2ts, .m2v, .mp2v, .mpe, .mpeg, .mpg, .mpv2, .pss, .pva, .tp, .tpr, .ts) | MPEG4: ( .m4b, .m4p, .m4v, .mp4, .mpeg4) | 3GPP: ( .3g2, .3gp, .3gpp, .3gp2)| Apple: (.mov, .qt) | Flash: (.f4v, .flv, .hlv, .swf) | DVD: (.ifo, .vob) | Other video files: (.amv, .bik, .csf, .divx, .evo, .ivm, .mkv, .mod, .mts, .ogm, .pmp, .scm, .tod, .vp6, .webm, .xlmv) | Other audio files: (.aac, .ac3, .amr, .ape, .cda, .dts, .flac, .m1a, .m2a, .m4a, .mid, .midi, .mka, .mp2, .mp3, .mpa, .ogg, .ra, .tak, .tta, .wav, .wma, .wv) | Playlists: (.asx, .cue, .kpl, .m3u, .pls, .qpl, .smpl) |Subtitles: (.ass, .srt, .ssa).
















ini dia link downloadnya.


Program Login Pom Bensin Menggunakan Visual Basic 6


project ini saya buat 3 form, yaitu form1(login operator1) form2(login operator2) form 3(inti)
untuk form login1 nd 2 cukup menggunakan 1 file simpanan (user nd password) saya coba buat dari ms access.
yg pengen liad disni
download

untuk formnya seperti ini











untuk listingnya;
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Masukkan Nama Anda", vbInformation, "Confirmation"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "Masukkan Password Anda", vbCritical, "Confirmation"
Text2.SetFocus
Exit Sub
End If
Adodc1.Recordset.Find "Nama='" & Text1.Text & "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
If Text2.Text = Adodc1.Recordset!Password Then
MsgBox "Operator 2 silahkan login", vbInformation, "Pesan"
Me.Hide
Form3.Show
Else
MsgBox "password salah..!"
Text2.Text = ""
Text2.SetFocus
End If
Else
MsgBox "AKSES DI TOLAK", vbCritical + vbOKOnly, "iNFO"
Text2 = ""
Text1 = ""
Text1.SetFocus
End If
End Sub


Private Sub Form_Activate()
Text2.Text = ""
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Txtpass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

Private Sub txtuser_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Adodc1.Refresh
End Sub

Private Sub Timer1_Timer()
x = Me.Label4.Caption
y = Left(x, 1)
z = (Right(x, Len(x) - 1))
Me.Label4.Caption = z + y
End Sub

Private Sub Timer2_Timer()
i = i + 1
If i = 1000000 Then i = 0

If i Mod 2 = 0 Then
Label5.Visible = True
Else
Label5.Visible = False
End If
End Sub

form2












listingnya;

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Masukkan Nama Anda", vbInformation, "Confirmation"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "Masukkan Password Anda", vbCritical, "Confirmation"
Text2.SetFocus
Exit Sub
End If
Adodc1.Recordset.Find "Nama='" & Text1.Text & "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
If Text2.Text = Adodc1.Recordset!Password Then
MsgBox "Selamat Bekerja", vbInformation, "Pesan"
Me.Hide
Form1.Show
Else
MsgBox "password salah..!"
Text2.Text = ""
Text2.SetFocus
End If
Else
MsgBox "AKSES DI TOLAK", vbCritical + vbOKOnly, "iNFO"
Text2 = ""
Text1 = ""
Text1.SetFocus
End If
End Sub


Private Sub Form_Activate()
Text2.Text = ""
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Txtpass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

Private Sub txtuser_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Adodc1.Refresh
End Sub

Private Sub Timer1_Timer()
x = Me.Label4.Caption
y = Left(x, 1)
z = (Right(x, Len(x) - 1))
Me.Label4.Caption = z + y
End Sub

Private Sub Timer2_Timer()
i = i + 1
If i = 1000000 Then i = 0

If i Mod 2 = 0 Then
Label5.Visible = True
Else
Label5.Visible = False
End If
End Sub
 dan yang terakhir form inti



















di form 3 ini juga ada data untuk menyimpan jenis kendaraan, bhan bakar,, disini saya menggunakan ms access,

listingnya;

Private Sub Command1_Click()
Label11.Caption = Label2.Caption
Text4.SetFocus
End Sub



Private Sub Command2_Click()
If Text2 = "" Then
MsgBox "Masukkan uang anda!.", vbInformation, "Error"
Else
Text3.Text = Val(Text2 - Text1)
End If
End Sub

Private Sub Command3_Click()
Label11 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Combo2 = ""
End Sub

Private Sub Command4_Click()
If Command4.Caption = "Jumlah = Rp" Then
Text4.Text = ""
Text4.SetFocus
Command4.Caption = "/Liter"
Else
Command4.Caption = "Jumlah = Rp"
Text4.Text = ""
Text4.SetFocus
End If
End Sub

Private Sub Command5_Click()
If Command4.Caption = "/Liter" Then
Select Case (Combo2)
Case "Premium"
Text1.Text = Val(Text4) * 4500
Case "Pertamax"
Text1.Text = Val(Text4) * 9500
Case "Solar"
Text1.Text = Val(Text4) * 6500
End Select
Else
Text1.Text = Text4.Text
End If
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!tgl = Label10.Caption
Adodc1.Recordset!jam_masuk = Label11.Caption
Adodc1.Recordset!jenis_kendaraan = Combo1.Text
Adodc1.Recordset!bahan_bakar = Combo2.Text
Adodc1.Recordset!total = Text1.Text
Adodc1.Recordset.Update
End Sub

Private Sub Command7_Click()
x = MsgBox("ingin keluar sekarang??", vbQuestion + vbYesNo, "Pesan")
If x = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
Combo1.Text = "--pilih--"
Combo1.AddItem "Bus"
Combo1.AddItem "Container"
Combo1.AddItem "Truk"
Combo1.AddItem "Mobil"
Combo1.AddItem "Motor"
Combo2.Text = "--pilih--"
Combo2.AddItem "Premium"
Combo2.AddItem "Solar"
Combo2.AddItem "Pertamax"
End Sub

Private Sub Timer1_Timer()
Label10 = Date
Label2 = Time
End Sub

berikut file .exe nya

berhubung uda malem waktunya tidur, bye
yg pengen bilang aja ntr q bikinin, cukup koment aja dibawah postingan vb6.
bye..

Program Kalkulator menggunakan Visual Basic 6

langsung aja gan screenshootnya,,













berikut listingnya..


Private Sub Command1_Click()
List1.AddItem (Text1.Text)
Text1.Text = Empty
Text1.SetFocus
End Sub

Private Sub Command2_Click()
    For i = 0 To List1.ListCount - 1
        a = a + Val(List1.List(i))
    Next i
Label1.Caption = Str(a)
End Sub

Private Sub Command3_Click()
On Error Resume Next
    If List1.Selected(List1.ListIndex) = True Then
    a = MsgBox("Hapus data yang dipilih ?", vbQuestion + vbYesNo, "Hapus ?")
    If a = vbYes Then
        List1.RemoveItem (List1.ListIndex)
    End If
    Else
    MsgBox "Ada belum memilih data yang ingin di hapus.", vbInformation, "Error"
    End If
End Sub

Private Sub mnuExt_Click()
End
End Sub

ini file .exe nya bisa kamu sedot,

oiyahh,, yg pengen dibikiin tinggal koment aja thanks..


Microsoft Visual Studio 6 Portable


Microsoft Visual Studio merupakan sebuah perangkat lunak lengkap (suite) yang dapat digunakan untuk melakukan pengembangan aplikasi, baik itu aplikasi bisnis, aplikasi personal, ataupun komponen aplikasinya, dalam bentuk aplikasi console, aplikasi Windows, ataupun aplikasi Web. Visual Studio mencakup kompiler, SDK, Integrated Development Environment (IDE), dan dokumentasi (umumnya berupa MSDN Library). Kompiler yang dimasukkan ke dalam paket Visual Studio antara lain Visual C++, Visual C#, Visual Basic, Visual Basic .NET, Visual InterDev, Visual J++, Visual J#, Visual FoxPro, dan Visual SourceSafe.
Microsoft Visual Studio dapat digunakan untuk mengembangkan aplikasi dalam native code (dalam bentuk bahasa mesin yang berjalan di atas Windows) ataupun managed code (dalam bentuk Microsoft Intermediate Language di atas .NET Framework). Selain itu, Visual Studio juga dapat digunakan untuk mengembangkan aplikasi Silverlight, aplikasi Windows Mobile (yang berjalan di atas .NET Compact Framework).
Visual Studio kini telah menginjak versi Visual Studio 9.0.21022.08, atau dikenal dengan sebutan Microsoft Visual Studio 2008 yang diluncurkan pada 19 November 2007, yang ditujukan untuk platform Microsoft .NET Framework 3.5. Versi sebelumnya, Visual Studio 2005 ditujukan untuk platform .NET Framework 2.0 dan 3.0. Visual Studio 2003 ditujukan untuk .NET Framework 1.1, dan Visual Studio 2002 ditujukan untuk .NET Framework 1.0. Versi-versi tersebut di atas kini dikenal dengan sebutan Visual Studio .NET, karena memang membutuhkan Microsoft .NET Framework. Sementara itu, sebelum muncul Visual Studio .NET, terdapat Microsoft Visual Studio 6.0 (VS1998)
wikipedia.org

sedot aja langsung gan!!,,

Program Kasir Menggunakan Visual Basic 6 (Soal UAS)

        sebelumnya q kesel banget kmaren pas UTS padahal cuman salah dikit tapi dapet nilai 70, pas soal UAS q harap bisa dapat nilai yang lebih bagus, q yakin semua uda q kerjain nd work semua!.

pertama2 q bikin dulu dari ms.access , capek nulis download ajah yah, nih
Download

terus bikin kaya gini..














berikut listingnya..


Sub bersih()
Text1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
End Sub

Private Sub Command1_Click()
bersih
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!no_transaksi = Text1.Text
Adodc1.Recordset!tgl_transaksi = Text2.Text
Adodc1.Recordset!nama_pelanggan = Text3.Text
Adodc1.Recordset!alamat = Text4.Text
Adodc1.Recordset!kode_barang = DataCombo1.Text
Adodc2.Recordset!nama_barang = Text6.Text
Adodc1.Recordset!jumlah = Text8.Text
Adodc1.Recordset!total = Text9.Text
Adodc2.Recordset.Update
End Sub

Private Sub Command3_Click()
pesan = MsgBox("kamu yakin ingin keluar sekarang?", vbYesNo, "pesan keluar")
If pesan = vbYes Then
Unload Me
End If
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "kode_barang='" & DataCombo1.Text & "'"
If Not Adodc2.Recordset.EOF Then
Text6 = Adodc2.Recordset!nama_barang
Text7 = Adodc2.Recordset!harga
End If
End Sub


Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.Text = Val(Text11.Text) - Val(Text9.Text)
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.Text = Val(Text7.Text) * Val(Text8.Text)
End If
End Sub

Private Sub Timer1_Timer()
Text2.Text = Date
End Sub


yang kepengen file .exe nya udah q siapin nih, tinggal disedot aja..

bye..

Hack Wifi dengan WirrelesKeyView

jaman sekarang modem udah murah gan, pulsa gocap juga dh dapet unlimited sebulan meskipun jalannya kaya keong ngantri sembako??,,
tapi apa salahnya kita menggunakan software yang satu ini,
kecil barangnya gede kasiatnya? softwarenya!!..

berikut screenshootnya.







 















dengan membaca basmallah lumayan gampang gan Langsung terdeteksi Wifi/hostpot yang sedang aktif.
Note :
Kotak kiri     : Daerah Username
Kotak kanan : Daerah Password
tapi sebelumnya kamu aktifin wifinya duluu biar tau bener ada ga jaringan wifinya?
kalau work jangan ampe ketahuan, cukup kita aja yg tao!,, hahaha

langsung sedot gan..
download

bye,,

Notepad ++ v.5.8.6


 kalian suda pasti tau notepad kan?
iyah bener suatu software yang ringan tapi bnyak sekali manfaatnya.
untuk notepad++ ini sendiri tidak langsung terinstal secara otomatis di windows kamu,
jadi kamu harus download sendiri,

okay , q coba akan berbagi pengetahuan tentang kelebihan dari notepad++ itu sendiri.
untuk mengedit program.
banyak sekali bahasa yg mampu dikenali oleh Notepad++.
mulai dari PHP,C,VB,dll,
hehehe. .
niat saya cuman untuk men share aja sie, tp q pernah edit suatu tulisan didalam software katakanlah AVG, punya saya AVG 2012 saya ganti menjadi 2020. haha
begini caranya,,

Jalankan program Notepad++
Pada Menu Bar, klik File > Open...
Pilih Program yang ingin di-hack
Tekan OK
Hacking:

Setelah dibuka, tekan CTRL + F untuk mencari isi file tersebut
Ketikkan string yang ingin diubah. Misalnya, program yang kamu edit adalah 'AVG 2012', anda ingin mengubah tulisan 'AVG 2020', maka ketikkan string itu
Setelah ditemukan, silahkan diubah menjadi apapun. INGAT! Jumlah karakternya harus 100% sama. Contohnya adalah tulisan 'AVG 2012' yang terdiri dari 8 karakter. Anda boleh mengubah String tersebut asalkan jumlah karakternya sama. Misalnya 'AVG 2020')
Lalu, pada Menu Bar, klik File > Save
Jalankan program dan lihat hasil hacking anda

diharuskan untuk mengbackup data terlebih dahulu, apabila ada kesalahn admin tidak
 bertanggungjwab.

terlalu panjang bro, langsung sedot ajaah, nih dia linknya


download

IDM versi 6.14 build 3

        semua orang pasti sudah tau apa kegunaan dari idm (internet download manager), iyah bener, idm fungsinya untuk mendownload file2 dari situs internet, dari youtube pun juga bisa, cara kerjanya cukup simple gan, apabila kalian mengeklik tombol download di suatu situs manapun maka idm dengan otomotis akan membaca file tersebut,
tinggal disetting dimana akan disimpan file tersebut,
berikut screenshotnya..













waktu instalasi diusahakan koneksi internet diputus dulu gan biar ga kedeteksi bajakan, nd tips buat kamu jgn pernah diupdate..
ini dia linknya.
download!

oiyahh,, q juga mau share buat kamu agar idmnya jd lebih kenceng,, buseeett segitu aja uda kenceng apalgi bisa brtambah kenceng??
mauu??
ini dia linknya download

tapi ini semua ga akan kenceng kalau jaringan kamu lemot,,
semua tergantung dari jaringan internet nda amal perbuatan kamu sendiri.
sampai jumpa ,, bye bye.. .
kaboooor!!...,

SMADAV PRO 9.1

       ujaan, ga da kerjaan,, udah becek gada becak..
okaii,, daripada ngomong gajelas nii q update antivirus buatan anak lokal , yupz smadav 9.1, versi terbaru gan,,
ini liad screenshot nya..














disitu sudah q kasiih username nd key nya, walaupun ngopy tetangga sebelah, hahaha
gapapalaah, buat kepentingan kita semua..
oiahh waktu instalasi kalau bisa antivirus yg lain didisable dulu supaya ga kebaca virus
berikut linknya.
download

oke gan, cukup segitu ajah, thanks nd salaam kabooooor!!..

AKTIFATOR WINDOWS 8



Langsung aja yahh ga usah basa/i lngsung aq jelasin..

Langkah pertama : Serial Number Asli dari Microsoft
  • saat aktivasi komputer harus dalam keadaan tersambung dengan internet
  • Request Serial Numbernya di sini
  • Cari tulisan Add Windows Media Center to Windows 8 Pro 
  • kemudian akan terlihat kolom kolom isian , disitu kamu akan di suruh isi email valid kamu dan captha kemudian klik send my product key. Penting : gunakanlah email yang valid kalo bisa mengunakan hotmail atau produk email lain dari microsoft tapi jika tidak punya bisa menggunakan gmail. Proses pengiriman keynya biasannya memakan waktu hingga 3 hari. Jadi kamu kudu sabar dikit
  • Ketika kamu sudah mendapatkan serialnya maka saat untuk melakukan aktivasi secara permanen 
  • geser kursor kamu keatas kanan kemudian search add features pilih setting dan kemudian klik Add features to windows 8 
  • isi serial number yang kamu dapatkan ke box serial
  • proses aktivasi memakan waktu kurang lebih 1 jam ini semua tergantung koneksi internet dan spesifikasi komputer sobat
  • jika proses aktivasi selesai maka komputer akan dengan sendirinya restart
Untuk mengecek apakah komputer sobat sudah aktive permanen ketikan slmgr/xpr di command promt
maka nanti akan muncul pop up " This machine is permanently activated "


Langkah kedua : dengan menggunakan aktifator

dengan aktifator ini kamu dengan mudah mengaktifkan windows kamu.

langsung aja ini gan.














q ga tau gan itu bahasa mana, tapi yg jelas kamu bisa pilih paling atas untung aktifasi, yg tengah untuk non aktifasi. Tentu saja ini secara offline gan, jd kamu ga harus terhubung ke internet. Berikut link-nya.

sedikit info aja buat kamu, untuk windows 8 ini ga ada simbul genuins seperti di windows 7, biru2 yg ada dipojok kanan bawah, kamu bisa cek aktifasi dengan cara,
oke gan, sekian dan terimakasih. salam kabooooooor!!..
No comments

Karishma Tour dan Travel Vb 06

Soal uTs q,,
Ternyta ga sesuah apa yg q bayangkan,,
hmm...
ceck!!


penyelesaian:




















Private Sub Check1_Click()
If Check1 = 1 Then
Text7.Text = 20000
End If
End Sub

Private Sub Check2_Click()
If Check2 = 1 Then
Text8.Text = 30000
End If
End Sub

Private Sub Check3_Click()
If Check3 = 1 Then
Text9.Text = 35000
End If
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "TOYOTA" Then
List1.List(0) = "KELUARGA"
List1.List(1) = "MINIBUS"
List1.List(2) = "PICK UP"
ElseIf Combo1.Text = "DAIHATSU" Then
List1.List(0) = "KELUARGA"
List1.List(1) = "MINIBUS"
List1.List(2) = "PICK UP"
Else
List1.List(0) = "KELUARGA"
List1.List(1) = "MINIBUS"
List1.List(2) = "PICK UP"
End If

List1.Text = ""

End Sub

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Option1 = False
Option2 = False
Check1 = False
Check2 = False
Check3 = False


End Sub

Private Sub Command2_Click()
Text3.Text = (Val(Text4) * Val(Text5)) + Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9)
End Sub

Private Sub Command3_Click()
End

Private Sub Command4_Click()
Text11.Text = Val(Text10) - Val(Text3)
End Sub

Private Sub Form_Load()
Combo1.AddItem "Toyota"
Combo1.AddItem "Daihatsu"
Combo1.AddItem "Mitsubishi"

End Sub

Private Sub Label9_Click()
Label9.Caption = Format(Now, "d mmmm yyyy, hh:mm:ss")
End Sub


Private Sub List1_Click()
Select Case Combo1
Case "Toyota"
If List1.Text = "KELUARGA" Then
Text4.Text = 700000
End If
If List1.Text = "MINIBUS" Then
Text4.Text = 850000
End If
If List1.Text = "PICK UP" Then
Text4.Text = 1000000
End If
End Select
Select Case Combo1
Case "Daihatsu"
If List1.Text = "KELUARGA" Then
Text4.Text = 800000
End If
If List1.Text = "MINIBUS" Then
Text4.Text = 950000
End If
If List1.Text = "PICK UP" Then
Text4.Text = 1200000
End If
End Select
Select Case Combo1
Case "Mitsubishi"
If List1.Text = "KELUARGA" Then
Text4.Text = 850000
End If
If List1.Text = "MINIBUS" Then
Text4.Text = 1300000
End If
If List1.Text = "PICK UP" Then
Text4.Text = 1450000
End If
End Select
End Sub


Private Sub Option1_Click()
If Option1 = True Then
Text6.Text = 350000
End If
End Sub

Private Sub Option2_Click()
If Option2 = True Then
Text6.Text = 50000
End If
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Format(Now, "d mmmm yyyy, hh:mm:ss")
End Sub
1 comment

plants vs zombies 2

yoii yoii,, inii game paling keren abad ini,, hahaha. . lebayy,,

q seriing maenin nie kalau lagi galau, gada kerjaan, lge pusing dengerin omelan mamieh, huhuhuhu

lampiasiin sepenuhnya , habiziin zombies,,

tau gga, zombienya gaul, ada yg pke topi, ngdance, baca koran, ngebor, kocak dah pkoknyaa, plantsnya jg lucu",,

yg pengen maenin gamenya,,
dunluut disini!!
password : eamsoler