Pernahkah Anda berfikir bagaimana proses membalikkan susunan suatu kata ???
Di Visual Basic 6.0 sendiri terdapat fungsi untuk membalikkan kata, yaitu “StrReverse”. Tapi apakah Anda tau proses yang terjadi didalam fungsi tersebut ???
Postingan ini akan mengupas tuntas proses yang terjadi di dalam fungsi tersebut.
Rancanglah form seperti gambar diatas. Berikut ini source codenya :
Jumat, 29 April 2011
membalikkan kata divisual basic 6.0
menggunakan button vista untuk mempercantik button pada VB 6.0
Button Vista adalah komponen .ocx yg di gunakan untuk merancang tampilan tombol (button) menjadi lebih menarik dengan berbagai bentuk, seperti pada gambar di bawah ini :
1. Klik Project dan pilih components (atau bisa tekan Ctrl + T).
2. Klik tombol “Browse”. Cari posisi komponen “button_vista.ocx” dan klik “Open”.
3. Perhatikan Toolbox, komponen yang ada di toolbox akan bertambah. Buatlah tombol dengan bentuk yang Anda inginkan.
Membaca file .txt Visual Basic 6.0
Kamis, 28 April 2011
Meregistekan OCX di visual basic 6.0
Menambahkan Efek Suara pada di Visual Basic 6.0
Pasti Anda pernah bermain game kan ???. Game yang Anda mainkan tentu tidak akan seru jika tidak adanya suara yang membuat efek game itu menjadi lebih nyata. Pada postingan kali ini saya akan memberikan cara bagaimana menyisipkan atau menambahkan suara di visual basic 6.0 sehingga jika Anda membuat game dari visual basic, maka Anda hanya tinggal menambahkan suaranya saja. Jadi game yang Anda buat menjadi lebih seru jika di tambah efek suara.
Ni adalah source kodenya
Private Declare Function PlaySound Lib "winmm.dll" Alias _
"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Public Function PlayWaveFile(strFileName As String, Optional blnAsync As Boolean) As Boolean
Dim lngFlags As Long
Const snd_sync = &H0
Const snd_Async = &H1
Const snd_Nodefault = &H2
Const snd_Filename = &H20000
lngFlags = snd_Nodefault Or snd_Filename Or snd_sync
If blnAsync Then lngFlags = lngFlags Or snd_Async
PlayWaveFile = PlaySound(strFileName, 0&, lngFlags)
End Function
Private Sub Command1_Click()
retval = PlayWaveFile(App.Path & "\suara.wav", True)
End Sub