Postingan

Harlem Shake Indonesia - SMK 2 Surakarta | XI RPL B

Gambar
konyol-konyolan yang dilakukan anak kelas XI RPLB SMK N 2 Surakarta yang diungkapkan dengan membuat vidio herlem shake.

WebcamMax 7.2.7.6

Gambar
Download aplikasinya full dibawah ini Download WebcamMax 7.2.7.6 full crack/keygen 52MB

Driver HP Deskjet F2410

Gambar
HP Deskjet F2410 All-in-one adalah printer keluaran dari HP. Download Driver HP Deskjer F2410  for Win7(32bit) Download Driver HP Deskjet F2410 full 118MB Download Driver HP Deskjet F2410basic 38MB

Jasa Pembuatan Tamiya Sloop dan Speed

Gambar
Jasa Pembuatan Tamiya Sloop dan Speed dengan harga terjangkau. Bentuk bisa disesuaikan dengan keinginan Settingan oleh para ahli Hasil dijamin memuaskan Tidak bakal keluar arena jika sedang di tikungan, tidak seperti tamiya lain yang ketika belok di tikungan akan keluar arena(Sudah Testing) Untuk harga disesuaikan dengan: 1. Mesin/Dinamo 2. Aksesoris 3. Model -Kalau tanpa mesin/dinamo, mungkin harganya bisa turun drastis -Kalau model, mungkin tidak terlalu mempengaruhi harga -Untuk aksesoris, dapat ditambahkan rem. Jadi ketika ada tanjakan tidak akan keluar arena. Tapi kekurangan diberi rem, ketika ada halilintar, tamiya tidak akan kuat melewatinya. *Harga yang ditentukan belum termasuk ongkir *Minat kirim email atau sms

USB Safely Remove (Portable)

USB Safely Remove adalah utilitas untuk pemutusan mudah dan cepatdari setiap perangkat removable. Tidak hanya menghemat waktu, tetapimemastikan bahwa semua data tetap pada perangkat ketika dicabut.Safely Remove adalah utilitas sistem yang dirancang untuk USB Flashcepat dan aman berhenti Drive terhubung ke komputer Anda. Denganutilitas ini Anda dapat dengan aman berhenti dan menghapus USB Flash Drives lebih cepat kemudian menggunakan "Safely remove hardware""icon di system tray. Fitur : Unlimited jumlah proses untuk memulai Anda dapat menetapkan untuk memulai sejumlah proses untuk acaratertentu. Sebagai contoh Anda mungkin men-setup meluncurkan cadangandrive sebelum berhenti dan mengikuti disomounting dari sebuah volumeTrueCrypt Command line parameter opsional : Anda dapat melewatkan parameter perangkat seperti huruf drive, label drive, nama perangkat PNP ke perintah baris prosesmelalui template parameter (misalnya baris perintah ini akan menelusuri drive di Explo...

Script Visual Basic 6.0 untuk Selection Database Menggunakan SQL 2000

Disini saya akan menunjukan script Visual Basic 6.0 untuk menyeleksi database menggunakan SQL 2000 yang akan ditampilkan pada DataGrid. Komponen-komponen yang harus digunakan 1 buah Adodc kosongan (tanpa diganti propertiesnya, kecuali yang tidak mempengaruhi koneksi) 1 buah TextBox 1 buah DataGrid Untuk Script yang dimasukkan dalam Form_Load Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA" Adodc1.RecordSource = " Pembeli " Set DataGrid1.DataSource = Adodc1 DataGrid1.AllowUpdate = False DataGrid1.TabStop = False DataGrid1.Refresh Untuk Script yang akan menyeleksi sql = "select * from Pembeli where Bon = '"& Text1.Text &"'" Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh NB: -Kalau Adodc-nya diberi Connection String, maka datagrid tidak akan memunculkan selection data. -Untuk Script warna merah adalah nama Table (Hati...

Script Auto Number Pada Visual Basic 6.0

Mungkin jika anda membuat sebuah program, anda menginginkan hasil yang bagus bukan? Program yang anda buat akan lebih bagus dan menarik jika diberikan auto number. Pengguna program anda tidak sush-susah lagi didalam menuliskan kode. Selain itu, auto number juga berguna untuk meminimalisirkan kesalahan jika database program anda menggunakan primary key. Script yang saya share disini adalah dengan menggunakan angka dan huruf sebagai inisial. Contohnya SN001, SN002, SN003, dan seterusnya. Langsung aja ke scriptnya. Contoh yang menggunakan label bantu berupa Label1 Call Buka_Pembeli sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc" Set rsa = con.Execute(sql) With rsa If .EOF Then Label8.Caption ="SN"+ "001" TxtIDPembeli.Text = Label8.Caption Else Label8.Caption = rsa.Fields("ID_Pembeli") a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2)) b = Right("000...