Prakerin Bina Widya

Cara Menggunakan Resource di VB6

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

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

Posted by
Unknown

Cara Membuka File Pdf Di VB6

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

Posted by
Unknown

Cara Login Facebook 2 Akun 2 Browser

Om Rois - Cara Dual Login Facebook 1 Browser No Add-Ons - Kali ini saya akan memberi tutorial cara dual login Facebook dalam 1 Browser cukup menggunakan firefox saja.
cara ini biasanya di buat untuk bermain game yang ada di dalam facebook atau lainnya
yuk langsung kita perlajari caranya

1. Buka Run -->> Click Start Lalu click Run atau juga bisa Dengan menekan Tombol Windows+R pada Keyboard

Dan Ketik firefox.exe -p -no-remote di dalam Window Run Tersebut dan tekan Enter
2. Click Create Profile tombol yang ada di dalam window tersebut dan tekan Next Next Next Sampai berhasil

Pilih Profile yang Barusan anda Buat dan click Tombol Start Firefox

dan taraaaaaa Hasilnya bisa di lihat

tidak menggunakan Add-Ons atau apa lah,
Semoga Bermanfaat

Posted by
Unknown

Profil Perusahaan CV.BINA USAHA

Pengantar
CV. BINA USAHA merupakan perusahaan yang bergerak dalam bidang perdagangan dan jasa. Antara lain: jasa pengadaan komputer, suku cadang, pengadaan peralatan instalasi jaringan teknologi informasi komunikasi dan kontruksinya serta jasa perbaikan komputer.

Sejarah Singkat
Pada bulan Desember 1992, kami mendapat ijin operasional penyelenggaraan pelatihan sementara dari departemen tenaga kerja kabupaten banyuwangi dengan bidang usaha pertama yang digeluti pelatihan komputer.
Pada bulan Pebruari 1993, kami mendapat ijin operasional pelatihan dengan status "TERCATAT" dari departemen tenaga kerja Provinsi Jawa Timur dengan bidang usaha pelatihan komputer.
Pada bulan Juli 1996, kami mendapat ijin operasional penyelenggaran pelatihan dengan status "TERCATAT" dari Departemen Tenaga Kerja Provinsi Jawa Timur dengan bidang usaha pelatihan komputer dan pada tahun ini kami mulai merintis usaha penyediaan peralatan Telekomunikasi/Wartel serta jasa instalasinya.
Pada tahun 1998, kami mendapat ujin operasional penyelenggaraan pelatihan dengan ijin tetep dari Departemen Tenaga Kerja Provinsi Jawa Tmur dengan bidang usaha pelatihan komputer dan melanjutkan bidang usaha penyedia peralatan Telekomunikasi/Wartel serta jasa instalasinya
Pada tahun 2000, kami mulai memperluas bidang usaha yang ada, yaitu menjadi penyedia peralatan komputer, suku cadang, instalasi, maintenance dan repair
Pada tahun 2007, kami mendirikan CV BINA USAHA yang menfokuskan pada bidang pengadaan komputer peralatan instalasi jaringan teknologi informasi komunikasi dan kontruksinya serta jasa perbaikan komputer.

Visi
Menjadikan yang terdepan dalam bidang pengadaan komputer dan suku cadangnya dengan memberikan nilai kepuasan terbaik bagi pelanggan, melalui harga yang wajar, produk dan pelayanan yang berkualitas.

Misi

Mendukung terciptanya peluang bisnis sarana teknologi informasi komunikasi khususnya komputer dan suku cadangnya.
Mempermudah masyarakat untuk mendapatkan peralatan komputer dan suku cadangnya
Memberikan informasi
Membantu masyarakat dalam mengatasi kerusakan peralatan teknologi informasi dengan menyediakan jasa perbaikan

LEGALITAS

1. Nama : CV.BINA USAHA

2. Penanggung Jawab : Ir. Eko Imiarsono

3. Status : Pusat

4. Alamat : Jl. KH. Wahid Hasyim 66B Genteng - Banyuwangi

No. Telp. : 0333-847724

E_Mail : bwc_g@yahoo.com

5. Akte Pendirian C.V

No. Akte : 24
Tanggal : 14 Nopember 2007
Nama Notaris : Misbah Imam Subari, S.H, M. Hum

6. Surat Ijin Usaha

No, SIUP : 503.510/871/429.310/2007
Masa berlaku ijin usaha : 17 Nopember 2012

7. Tanda Daftar Perusahaan

No. TDP : 130635201510
Masa berlaku ijin usaha : 22 Nopember 2012

8. Nomor Pokok Wajib Pajak

No. NPWP : 02.478.483.7.627.000
Nama : CV BINA USAHA

Posted by
Unknown

List Hosting Gratis Unlimited

Om Rois - List Hosting Gratis Unlimited - tanggal 4 Januari 2013 Om Rois akan Memberi postingan tentang hosting gratis, yang pastinya bisa bermanfaat bagi yang baca postingan ini. yuk langsung saja kita TKP

Semoga Bermanfaat

Posted by
Unknown

Cara Menggunakan Resource di VB6

Cara Membuka File Pdf Di VB6

Cara Login Facebook 2 Akun 2 Browser

Profil Perusahaan CV.BINA USAHA

List Hosting Gratis Unlimited

Categories

Archives