VisualBasic5.0 menjadi semakin populer di kalangan programmer karena metode pemrograman visualnya. Kita dapat menggunakan VisualBasic5.0 untuk menulis perangkat lunak multimedia dengan antarmuka yang indah dan musik yang indah. Namun, Anda mungkin menemui beberapa masalah yang sulit diselesaikan selama proses pemrograman sebenarnya. Berikut adalah beberapa pengalaman penulis dalam pembuatan multimedia, yang mungkin dapat memperkaya kotak aksesori multimedia Anda.
1. Musik latar
Saat menggunakan Visual Basic 5.0 untuk mengkompilasi aplikasi, kita dapat menggunakan metode bersarang OLE untuk menambahkan musik latar ke aplikasi dengan mudah.
Masuk ke lingkungan sistem VisualBasic5.0 dan buat formulir baru. Klik pada 'OLE Container' pada 'Form Control' dan seret ke mana saja di FORM. Pilih 'Klip Media' di jendela 'Sisipkan Objek', pilih kolom 'Tampilkan sebagai ikon' (kolom ini harus dipilih, jika tidak maka tidak dapat disembunyikan), dan tekan tombol 'Konfirmasi' untuk keluar.
Di jendela 'Media Player', pilih 'File', 'Open', dan pilih file suara yang ingin Anda gunakan sebagai musik latar dari daftar file. Karena file musik umumnya tidak terlalu panjang, maka memerlukan pemutaran loop, yang dapat dicapai dengan mengatur 'pemutar media' untuk diputar berulang kali. Kemudian pilih 'Options' di menu 'Edit', pilih 'Repeat Play' di jendela opsi dan hilangkan tanda centang di depan 'Replay Control Bar', konfirmasi dan keluar.
Kembali ke lingkungan sistem Visual Basic 5.0, tekan tombol kanan mouse, dan klik kolom 'Properti' di menu pop-up untuk membuka jendela properti. Pilih objek 'Ole1' dan atur properti 'Visible' menjadi .F dan properti 'Autosize' menjadi .F.. Tekan lagi tombol kanan mouse, klik kolom 'Kode' di menu pop-up untuk masuk ke jendela penulisan proses, dan tulis proses 'Muat' objek 'Form1':
PrivatSubForm_Load()
OLE1.DoVerb(0)
Sub Akhir
4. Tekan tombol 'F5' untuk menjalankan.
2. Tombol tiga dimensi efek transparan
Saat membuat software multimedia, terkadang kita membutuhkan tombol tiga dimensi dengan efek transparan. Kita dapat menggunakan kombinasi label (LABEL) dan bentuk (SHAPE) untuk melengkapi desain ini.
Masuk ke lingkungan sistem Visual Basic 5.0, buat formulir baru (FORM1), dan atur properti Gambar FORM1 ke file bitmap WINDOWS (.BMP).
Klik "Bentuk" di "Bilah Kontrol Formulir" dan tarik keluar kotak persegi panjang (SHAPE1) di FORM1. Buat SHAPE2, SHAPE3 dan SHAPE4 dengan cara yang sama. Atur properti keempat BENTUK ini sebagai berikut di jendela properti:
BENTUK1:
BorderColor=&HFFFFFF
BorderWidth=3Kiri=2160
Atas=Lebar 2040=1100
BENTUK2:
Warna Perbatasan=&H80000008
BorderWidth=3Kiri=2160
Atas=2520Lebar=1100
BENTUK3:
BorderColor=&HFFFFFF
BorderWidth=3Kiri=2160
Atas=2040Tinggi=500
BENTUK4:
Warna Perbatasan=&H80000008
BorderWidth=3Kiri=3240
Atas=2040Tinggi=500
Klik "Label" di "Form Control Bar" dengan mouse, tarik keluar kotak persegi panjang (LABEL1) pada FORM1, dan sesuaikan ukurannya agar sesuai dengan empat BENTUK. Atur propertinya Caption ke judul tombol yang disesuaikan, Alignment ke 2, dan Backstyle ke 0.
Klik dua kali LABEL1 dan tulis proses MouseDown dan proses MouseUp LABEL1 sebagai berikut:
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Bentuk1.BorderColor=&H80000008
Bentuk3.BorderColor=&H80000008
Bentuk2.BorderColor=&HFFFFFF
Bentuk4.BorderColor=&HFFFFFF
Label1.Atas=Label1.10 Teratas
Sub Akhir
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Bentuk1.BorderColor=&HFFFFFF
Bentuk3.BorderColor=&HFFFFFF
Bentuk2.BorderColor=&H80000008
Bentuk4.BorderColor=&H80000008
Label1.Atas=Label1.10 Teratas
Sub Akhir
Cukup tekan tombol 'F5' untuk menjalankannya.
3. Subtitle seluler
Di TV, kita sering melihat sederet teks prompt atau informasi iklan bergerak dari kanan ke kiri di bagian bawah layar, yang tidak hanya berfungsi sebagai prompt tetapi tidak merusak keseluruhan layar. Kami juga dapat menyelesaikan desain ini di VisualBasic5.0.
Masuk ke lingkungan sistem Visual Basic 5.0, buat formulir baru (FORM1), dan atur properti Backcolor FORM1 ke RGB (192.192.192).
Klik "Label" di "Form Control Bar" dan tarik keluar kotak persegi panjang (LABEL1) pada FORM1. Atur propertinya Caption ke "Active Subtitle Demonstration", Autosize ke .T., Backstyle ke 0, Forecolor ke RGB (128, 128, 128), Fontname ke "official script", Fontbold ke .T., dan Fontsize ke 36.
Klik LABEL1 dengan mouse, tekan tombol CTRL C (copy), lalu tekan tombol CTRL V (paste) untuk membuat label lain (LABEL2) dengan judul yang sama dengan LABEL1 pada FORM1, dan atur atribut Forecolor menjadi RGB (255 , 255, 0 ). Sesuaikan posisi LABEL2 agar sedikit lebih tinggi dari LABEL1, sehingga LABEL1 tampak seperti bayangan LABEL2.
Klik "Timer" di "Form Control Bar" dengan mouse, lalu klik sekali pada FORM1 untuk membuat timer (TIMER1) pada FORM1. Atur Interval propertinya menjadi 200.
Klik dua kali FORM1 dan tulis proses Load FORM1 sebagai berikut:
PrivateSubForm_Load()
Label1.Kiri=Lebar 50
Label2.Kiri=Lebar
Sub Akhir
6. Klik dua kali TIMER1 dan tulis proses Timer TIMER1 sebagai berikut:
PrivateSubTimer1_Timer()
IfLabel1.Left<0-Label1.WidthThen
Label1.Kiri=Lebar 50
Label2.Kiri=Lebar
AkhirJika
Label1.Kiri=Label1.Kiri-500
Label2.Kiri=Label2.Kiri-500
Sub Akhir
7. Tekan tombol 'F5' untuk menjalankannya dan Anda akan melihat subtitle muncul dari sisi kanan layar dan menghilang ketika dipindahkan ke ujung kiri layar.
4. Memudar masuk dan keluar teks
Subtitle komentar di awal banyak permainan dan kredit kreatif setelah ledakan menggunakan metode karakter fade-in dan fade-out. Teks dengan efek fade-in dan fade-out juga dapat diproduksi di Visual Basic 5.0.
Masuk ke lingkungan sistem Visual Basic5.0 dan buat formulir baru (FORM1).
Klik "Label" di "Form Control Bar" dan tarik keluar kotak persegi panjang (LABEL1) pada FORM1. Atur atribut Caption menjadi "Fade in dan out of text", Autosize ke .T., Backstyle ke 0, warna teks ke RGB (0,128,128), font ke "official script", Fontbold ke .T., dan ukuran font ke 36 .
Klik "Timer" di "Form Control Bar" dengan mouse, lalu klik sekali pada FORM1 untuk membuat timer (TIMER1) pada FORM1. Atur properti Interval menjadi 100 dan properti Enabled menjadi .F..
Klik "Command Button" di "Form Control Bar" dan tarik keluar kotak persegi panjang (COMMAND1) pada FORM1. Atur Caption propertinya ke "Mulai".
Klik dua kali COMMAND1 dan tulis proses Klik COMMAND1 sebagai berikut:
PrivateSubCommand1_Klik()
IfTimer1.Enabled=FalseThen
Timer1.Enabled=Benar
AkhirJika
Sub Akhir
Klik dua kali FORM1 dan tulis proses Aktifkan FORM1 sebagai berikut:
Warna Belakang=RGB(0,128,128)
saya=0
7. Klik dua kali TIMER1 dan tulis proses Timer TIMER1 sebagai berikut:
PrivateSubTimer1_Timer()
saya = saya 10
JikaSaya>=255*2Kemudian
Timer1.Enabled=Salah
saya=0
AkhirJika
JikaSaya>=255Maka
Label1.Warna Depan=RGB(255*2-I,128,128)
Kalau tidak
Label1.Warna Depan=RGB(I,128,128)
AkhirJika
Sub Akhir
Tekan tombol 'F5' untuk menjalankan. Klik tombol "Mulai" dengan mouse, dan Anda dapat melihat bahwa judul secara bertahap berubah dari warna latar belakang menjadi merah, dan kemudian dari merah menjadi warna latar belakang.
Semua program di atas berjalan dengan sukses di Visual Basic 5.0 dan WINDOWS95. ->