Cara Menggunakan Resource di VB6

Om Rois - Cara Menggunakan Resource di VB6 - Selamat Siang Ketemu lagi dengan saya Om Rois
Kali ini saya akan memberi Tutorial Bagaimana Cara Menggunakan Resource di VB6 Langsung Ke TKP

Buka Visual Basic 6.0 Dan Click Add-Ins --> Add-Ins Manager

Pas di Available Add-Ins Click VB6 Resource Editor dan Centang Loaded/Unloaded dan Load on Starup di Load Behavior

Lanjut Tekan OK

Click Tools pada Menu bar dan Pilih Resource Editor

Dan Akan Muncul Window Seperti Di bawah ini

Saya Akan menconba Memasukan File Mp3 ke dalam Resource Editor

Click Gambar yang nomor 5

Di sini saya akan Memilih Lagunya Bondan Prakoso yang Respect

Dan akan Muncul Window yang tadi, Begitunya Table CUSTOM dan id 101 sudah terlihat untuk nanti kita Load

Dan Selanjutnya Save File Resource terserah mau di taruh dimana

dan setelah di Simpan dan Window Resource Editor di tutup Otomatis File Resource yang anda Simpan barusan Muncul di Project

Next Selanjutnya

Karena Kita percobaan dengan menambahkan file mp3 kita butuh Component Tambahan Yaitu Windows Media Player 

Cara Menambahkannya 

Dengan Cara Click Project pada Menu Bar dan Pilih Components atau Juga Bisa dengan Menekan Tombol Ctrl + T pada Keyboard

dan akan muncul Window Seperti di bawah ini

Centang Pada Menu Windows Media Player Biasanya ada di paling bawah

Next

Desain Seperti apa Projectnya Terserah anda

Dan Masukan Code program di bawah ini

'Powered By www.Omrois.blogspot.com

'Kang Rois

'Jika Mau Copas Mohon Sertakan Pembuatnya

'Terima Kasih

'

Private Sub Command1_Click()

On Error Resume Next 'Jika ada yang error akan Langsung di Resume

Dim data As String 'Variable

data = LoadResData(101, "CUSTOM") 'Mengisi data variable dengan data Resource

data = StrConv(data, vbUnicode) 'Mengconversi data dari String ke Unicode

Open "C:\musik.mp3" For Binary Access Write As #1 'Meng Ekstrak Data yang ada di di Resource

Put #1, , data 'Isi Dari Ekstrak mengambil dari Resource

Close #1 'Menutup handle Ekstrak

Me.WindowsMediaPlayer1.URL = "C:\musik.mp3" 'Lanjut Ke Play Windows Media Player

End Sub

Dan Jika Di jadikan file .exe

 Dan Jika Programnya di buka dan Di tekan Load,
si Programnya akan Membuat File Musiknya di C:\ bisa juga di gandi tempatnya terserah anda

Note : 
Jadi Cara ini bisa membuat File dari Program yang kita buat dan Sumbernya dari Resource yang tadi kita masukan
Memang Kapasitas Programnya lebih Besar dari biasanya yang tidak memakai Resource, ini di karenakan Program tersebut Menyimpan File Resource yang kita Masukan Tadi

Atau Anda Juga bisa Mendownload Projectnya Download


Semoga Bermanfaat

Software Auto Update Status Kata Bijak Facebook New Realeses

Om Rois - Software Auto Update Status Kata Bijak Facebook New Realeses - Selamat Malem Kali ini saya akan Meng Share Program terbaru saya Software Auto Update Status Kata Bijak Facebook New Realeses Tentunya Dengan Fitur terbaru donk dari Program saya Yang Kemarin Software Auto Update Status Random Ayat Facebook
Program kali Berbeda dengan yang kemarin
Program yang sekarang akan meng Update Status Facebook kalian dengan Ribuan Kata kata Bijak
Jika Kalian Ingin Melihat Databasenya bisa lihat di sini

Program kali ini saya Tambahin Fitur Signature saja
Cara Penggunaannya sangatlah mudah
Program ini hanya minta Access Token untuk meng update status kalian dengan Kata Kata Bijak
Bagaimana? apakah Kalian berminat Untuk Menggunakannya

Langsung saja download Filenya Di bawah ini
Download


Semoga Bermanfaat

Membuat Aplikasi Membuka File Pdf Dari Visual Basic 6.0

Om Rois - Membuat Aplikasi Membuka File Pdf Dari Visual Basic 6.0 - Selamat Siang, bertemu lagi dengan saya Om Rois, Kali ini saya akan memberi Tutorial tentang Bagaimana cara membuka File Pdf di Visual Basic 6.0, caranya sangat Simple dan mudah untuk di Fahami Langsung Saja Ke TKP,

Yang di Butuhkan Component Tambahannya ada 2 :

• Web Browser
• Commond Dialog

Bagaimanakah Cara Mengambil Component Tersebut.
Begini caranya :

• Click Project pada Menu Bar
• Click Component
• Untuk Web Browser cari kata "Microsoft Internet Controls" Biasanya ada di tengah
• Untuk Commond Dialog cari kata "Microsoft Common Dialog Controls 6.0" ada di atasnya Web Browser
• Selanjutnya Tinggal Tekan Ok.

Buat 2 Form Yang satu Namenya di ganti dari Form1  Menjadi FormLoad Dan Form yang Kedua Di ganti juga Namenya menjadi FrmMain 

Pada FormLoad Pasang Component berikut :

• 1 Label ganti Caption Menjadi Lokasi
• 1 Text Box dan Ganti Name Menjadi txtLokasi
• 3 Buah Command dan ganti Name Command1 Menjadi CmdBrowse - Command2 Menjadi CmdOk - Command3 Menjadi CmdCancel
• 1 Buah Commond Dialog Dan Ganti Name Menjadi cd1

Dan Isikan Code Berikut ke Dalam FormLoad

Private Sub cmdBrowse_Click()
cd1.Filter = "Pdf File(*.Pdf)|*.Pdf" ''Format yang hanya bisa di baca
cd1.ShowOpen
txtLokasi.Text = cd1.FileName ''Memasukan Alamat File nya
frmMain.Caption = cd1.FileTitle ''Akan merubah Caption Form Mainnya
End Sub

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOk_Click()
frmMain.Show
frmMain.WebBrowser1.Navigate (txtLokasi.Text)
End Sub

pada FrmMain Pasang Component 1 WebBrowser Saja Dan Pasang Code Berikut ke Dalam FrmMain

Private Sub Form_Resize()
    Me.WebBrowser1.Width = Me.ScaleWidth - 100 ''agar Resize nya sempurna
    Me.WebBrowser1.Height = Me.ScaleHeight - 100
    End Sub

Atau download Project yang sudah saya Rancang Juga Gpp
►Download Project 

Sekian Tutorial Dari Om Rois

Semoga Bermanfaat
Nantikan Artikel Selanjutnya

[VB6] Membuat Program Komputer Bisa Bicara

 

Om Rois - [VB6] Membuat Program Komputer Bisa Bicara - Selamat Pagi dan Selamat Belajar, Kali ini Om Rois akan memberi tutorial tentang Visual Basic 6.0 Cara Membuat Program yang membuat Komputer bisa Berbicara yuk Langsung saja kita ke KTP eh TKP

Membutuhkan : 

• 1 Buah Form
• 1 Buah Text Box
• 1 Buah Command Buttom

Pada Textboxnya Ganti namanya dari Text1 Menjadi TxtBicara dan Command Buttomnya dari Command1 Menjadi cmdBicara 

Langkah terakhir isi Form kamu tadi dengan Code Berikut :

Private Sub cmdBicara_Click()
Set objtexttospeech = CreateObject("SAPI.spvoice")
objtexttospeech.speak TxtBicara.Text
End Sub

dan Tampilannya  ± Seperti ini

Semoga bermanfaat
Tunggu Artikel Selanjutnya Yaa