Saya Contohkan donwload pada Youtube 1. Buka Website www.Youtube.com - Pilih video yang mau di download - kopy Urlnya macam contoh di bawah 2. Buka web site www.keepvid.com - Pastekan urlnya seperti pada gambar dibawah ini - Lalu klik download yang ada disamping kanan url (Yang tadi anda pastekan) 3. Isi code security lalu pilih submit 4. Dibawah ada dua pilihan - Format FLV dan MP4 - misalkan pilih yang FLV klik download pada text berwarna hijau 5. Simpan Video anda dengan Memilih tombol OK maka proses download akan berjalan.... 6. Cara Bukanya Harus menggunakan Program yang bisa membuka format FLV Seperti - FLV Player - Media Player Classic ( K-Lite Codec Pack ) Selamat Mencoba..... kalu ada yang belum jelas, posting aja di command
Rasa syukur membuat hidup kita menjadi indah, Rasa syukur membuat yang sedikit terasa cukup dan berkah, Rasa syukur mengubah apa yang kita miliki saat ini menjadi lebih berharga, Rasa syukur mengubah masalah yang kita miliki menjadi hikmah yang bernilai, Rasa syukur mengubah hidangan sederhana terasa menjadi istimewa, Rasa syukur mengubah rumah yang sempit terasa lapang dan nyaman, Rasa syukur mengubah kegagalan menjadi pelajaran berharga, Rasa syukur mengubah kekeruhan suasana menjadi kejernihan, Rasa syukur mengubah yang tidak nyaman menjadi menyenangkan, Rasa syukur mengubah penolakan menjadi penerimaan, Rasa syukur mengubah kebenciaan di hati menjadi kasih sayang, Rasa syukur menciptakan kedamaian dan ketenangan hati, Rasa syukur mengubah emosi menjadi latihan kesabaran, Rasa syukur menjadikan masa lalu sebagai kenangan manis, Rasa syukur menjadikan masa sekarang keindahan dan kesenangan, Rasa syukur menjadikan hari esok penuh harapan, Rasa syukur menciptakan visi ke depan yang pen
sediakan 1 form dan 1 combo didalamnya kemudian buat table dengan nama province dengan field Province_Name tempatkan database satu folder yang sama dengan program vb yang anda buat ini sample codenya Dim db As ADODB.Connection Dim Rs As ADODB.Recordset Dim msg as string Private Sub Form_Load() Dim Lok As String Lok = App.Path + "\dataku.mdb" Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10) Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10) Msg1 = Msg1 & "Persist Security Info=False" & Chr(10) Set db = New ADODB.Connection db.Open Msg1 Msg = "SELECT Province_Name" Msg = Msg & " From PROVINCE" Set Rs = New ADODB.Recordset Rs2.Open Msg, db, adOpenStatic Combo1.Clear Combo1.Text = "[...]" Combo1.AddItem "[...]" While Rs.EOF <> True With Combo5 .AddItem Rs(0) End With Rs.MoveNext Wend Rs.Close Set Rs = Nothing end sub
Komentar
Posting Komentar
silahkan mencoba