Buat MP3 Player Dengan VB Versi abazgamers

Anda pasti hobi sekali bermain komputer sambil mendengar musik atau apalagi online sambil mendengarkan musik itu sangat mengasikkan, program yang anda buka pasti kalau bukan winamp, windows media player, GOM player atau yang lainnya.
Tapi kali ini kita akan membuat sendiri aplikasi pemutar musik atau mp3 player tersebut dengan Visual basic,  pasti anda menyangka sangat sulit untuk membuat aplikasi tersebut, jika prediksi saya itu benar berarti selama ini Anda salah besar karena dalam membuat program aplikasi mp3 player dengan program vb  wah itu sangat mudah sekali, berikut tutorialnya :

1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda

Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :

5.  kemudian ketikkan kode/listing/script program dibawah ini :
Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub

Private Sub Command2_Click()
End
End Sub
6. Save hasil kerja anda dan kemudian silahkan run program anda dengan menekan F5, lalu klik open dan ambil lagu kesayangan anda lalu klik tanda play,,selamat mendengarkan

Gambar Hasil program aplikasi mp3 player dengan vb 6.0

7. Mudahkan, Selamat Mencoba…!!!

Bikin Browser

Cara buat Browser ala : http://blog.izal06.com/


 1- Menambahkan komponen:

Pergi ke "Proyek" pada menu atas, dan pilih "Komponen" atau klik CTRL-T, kemudian memeriksa "perpustakaan Microsoft objek html" dan "Microsoft kontrol internet" dan "Microsoft Windows Kontrol umum 5,0".

Anda akan melihat bahwa benda-benda baru muncul di kotak kiri menu Anda, sekarang memilih ikon penjelajah web yang tampak seperti bumi dengan dan menambahkannya ke formulir Anda, dan membuat ukurannya yang Anda inginkan, (nama adalah WebBrowser1 dalam tutorial ini)

Juga klik pada komponen "Progress bar" dan menambahkannya ke formulir Anda.

2 - Menambahkan tombol dan objek:

Sekarang tambahkan "6" tombol perintah penting untuk membentuk Anda, dan nama mereka sebagai berikut: "Back", "Forward", "Stop", "Refresh", "Home" dan "GO", Sekarang tambahkan 1 kotak Combo box user akan memasukkan alamat web di atasnya.

3 - Coding aplikasi Anda:

Pertama klik pada tombol "GO dan menulis kode di dalamnya:
VB Code:

WebBrowser1.Navigate Combo1 

Tombol Back:
VB Code:

On Error Resume Next
WebBrowser1.GoBack

Tombol Forward:
VB Code:

On Error Resume Next
WebBrowser1.GoForward 

Tombol Stop:

VB Code:

On Error Resume Next
WebBrowser1.Stop 

Tombol Refresh:
VB Code:

WebBrowser1.Refresh 

Tombol Home:
VB Code:

WebBrowser1.GoHome 

4 - kode Lanjutan:

Anda dapat menambahkan kode berikut ke aplikasi Anda untuk membuatnya bekerja lebih baik, Hanya tempat kode ini di mana saja di jendela coding Anda.

* Add a progress bar

VB Code:

'This to make the progress bar work and to show a status message, and an image.
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
Label1.Caption = "Done"
ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
Image1.Visible = True
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub 

Tapi di sini Anda akan perlu untuk menambahkan label yang disebut "Label1" dan juga gambar kecil seperti senyum atau bumi atau apapun yang Anda inginkan dan nama adalah "image1"

* Open in new window

VB Code:

'This to open a new window with our browser.
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set frm = New Form1
Set ppDisp = frm.WebBrowser1.Object
frm.Show
End Sub 

Ini untuk membuka jendela baru dengan browser Anda.

* History and current visited site.

VB Code:

'This keeps the visited sites history and also changes the title of the browser as the page title.
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim i As Integer
Dim bFound As Boolean
Me.Caption = WebBrowser1.LocationName
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = WebBrowser1.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
Combo1.RemoveItem i
End If
Combo1.AddItem WebBrowser1.LocationURL, 0
Combo1.ListIndex = 0
mbDontNavigateNow = False
End Sub 

5 - Coding:

Anda dapat menambahkan tombol lebih ke browser Anda sebagai orang-orang:

* Cari jika sebuah kata di halaman (diambil dari tutorial pada Blog ini).

VB Code:

'This to tell you if a word is in the page, Here we call the WebPageContains function.
Private Sub Command7_Click()
Dim strfindword As String
strfindword = InputBox("What are you looking for?", "Find", "") ' what word to find?
If WebPageContains(strfindword) = True Then 'check if the word is in page
MsgBox "The webpage contains the text" 'string is in page
Else
MsgBox "The webpage doesn't contains the text" 'string is not in page
End If
End Sub
 
'This is the finding function.
Private Function WebPageContains(ByVal s As String) As Boolean
Dim i As Long, EHTML
For i = 1 To WebBrowser1.Document.All.length
Set EHTML = _
WebBrowser1.Document.All.Item(i)
 
 
If Not (EHTML Is Nothing) Then
If InStr(1, EHTML.innerHTML, _
s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function 

* Page properties

VB Code:

WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT 

ini akan menjalankan sifat halaman

* Print a page

VB Code:

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT 

* Save a page

VB Code:

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT 

* Delete cookies Dari Komputer Anda

VB Code:

'This code is used to empty the cookies from the user's computer / We call function from here.
Private Declare Function GetUserName _
Lib "advapi32.dll" Alias "GetUserNameW" ( _
ByVal lpBuffer As Long, _
ByRef nSize As Long) As Long
 
Private Declare Function SHGetSpecialFolderPath _
Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" ( _
ByVal hwnd As Long, _
ByVal pszPath As String, _
ByVal csidl As Long, _
ByVal fCreate As Long) As Long
 
Private Const CSIDL_COOKIES As Long = &H21
 
'This calls the function that deletes the cookies.
Public Sub Command1_Click()
Dim sPath As String
sPath = Space(260)
Call SHGetSpecialFolderPath(0, sPath, CSIDL_COOKIES, False)
sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\*.txt*"
On Error Resume Next
Kill sPath
 
End Sub 

* Tampilkan kode sumber halaman Web's:

VB Code:

Private Sub Form_Load()
Text1.Text = Form1.browser.Document.documentElement.innerHTML
End Sub 

6- Kode Penting:


* Popups Blocker

VB Code:

Private Function IsPopupWindow() As Boolean
On Error Resume Next
If WebBrowser1.Document.activeElement.tagName = "BODY" Or WebBrowser1.Document.activeElement.tagName = "IFRAME" Then
IsPopupWindow = True
Else
IsPopupWindow = False
End If
End Function
 
Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Cancel = IsPopupWindow
If Cancel = False Then
Set frm = New Form1
Set ppDisp = frm.WebBrowser1.object
frm.Show
End If
End Sub 

Ini akan memblokir semua pop-up, tapi di saat yang sama akan membuka link di jendela baru seperti biasa.

* JavaScripts handeling

VB Code:

WebBrowser1.Silent = True 

Ini tidak akan menunjukkan kesalahan dari halaman saat Anda menggunakan browser web Anda, taruh dalam hal beban bentuk

* Ukuran browser dan kode scrollbars

VB Code:

Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub 

Membuat Yogurth Sendiri

Salah satu produk bioteknologi yang sering kita jumpai sehari-hari adalah yoghurt. Yoghurt yang rasanya asam ini memiliki banyak manfaat, diantaranya memperlancar masalah pencernaan, menurunkan berat badan, mencegah osteoporosis, dan menurunkan kadar kolesterol dalam darah jika diminum secara teratur.

Yoghurt dibuat dari susu sapi yang difermentasi oleh bakteri Streptococcus thermophilus dan Lactobacillus bulgaricus. Bakteri ini adalah bakteri asam laktat yang mengubah laktosa dari susu biasa menjadi asam laktat Keasaman dari susu yang difermentasi pada umumnya cukup untuk mencegah kerusakan oleh bakteri proteolitik yang tidak tahan asam.

Untuk membuat yoghurt, kita harus menyediakan lingkungan yang menunjang perkembangan kedua bakteri tersebut sehingga keduanya akan bisa menghasilkan yoghurt. Bakteri tersebut akan bekerja dengan baik pada suhu 30-50 derajat Celcius, tapi yang optimal adalah pada 42-45 derajat Celcius. Kebanyakan yoghurt dibuat dari susu segar, namun yoghurt juga bisa dibuat dari susu UHT, bahkan susu bubuk atau susu skim yang dilarutkan dalam air dengan perbandingan yang tergantung pada kekentalan yoghurt yang diinginkan. Tetapi, yoghurt tidak bisa dibuat dari susu kedelai dan santan karena keduanya tidak mengandung laktosa. Jika ingin membuat yoghurt dari susu kedelai atau santan, kita harus menambahkan susu skim.

Proses pembuatan yoghurt terbagi menjadi 4 tahapan utama: pasteurisasi, kulturisasi, inkubasi, dan pendinginan. Pasteurisasi adalah tahap an untuk mensterilisasi susu. Kulturisasi adalah tahap penanaman bibit yoghurt. Inkubasi adalah tahap di mana bakteri Streptococcus thermophilus dan Lactobacillus bulgaricus memfermentasikan susu dan yoghurt terbentuk. Tahap pendinginan berguna untuk lebih mengeluarkan aroma dan rasa yoghurt tersebut.

CARA KERJA

1.    Sebelum memulai proses pembuatan yoghurt, cuci bersih semua peralatan. Jika wadah/botol yang akan dipakai untuk inkubasi terbuat dari plastik tahan panas, bilas bagian dalam dan tutupnya dengan air mendidih. Jika terbuat dari botol/wadah kaca, harus direbus dalam air mendidih minimal 3 menit (lebih baik hasilnya).

2.    Pasteurisasi (sterilkan) susu. Caranya, panaskan susu tersebut hingga suhu 73 derajat Celcius selama 15 menit. Bisa juga dilakukan dengan cara mengetim susu tersebut (seperti mengetim cokelat) hingga airnya mendidih.

3.    Diamkan susu hingga suhunya 40 derajat Celcius (kurang lebih satu jam). Pindahkan susu ke wadah inkubasi. Masukkan bibit yoghurt sebanyak 5% dari jumlah susu. Aduk rata.

4.    Hangatkan susu yang sudah dikulturkan tadi (diinkubasi) pada suhu 45 derajat Celcius. Ada beberapa cara untuk melakukan inkubasi. Cara pertama, kardus ditempeli lampu bohlam (yang diatur agar lampu bohlam bisa dinyalakan sehingga mampu memberikan kehangatan kepada susu tersebut) lalu di beri dua lubang untuk ventilasi. Taruh susu yang sudah dikulturkan tadi di dalam kardus tersebut selama 8 jam. Nyalakan lampunya selama susu berada di dalam kardus tersebut.

Cara yang kedua, wadah/botol diselubungi dengan serbet dan diletakkan di tempat yang paling gelap dan hangat di rumah kita. Bisa juga diletakkan di meja dan diterangi dengan lampu. Selama proses inkubasi, wadah harus dalam keadaan tertutup rapat (kedap) karena jumlah oksigen harus diminimalisasi.

Selesainya proses inkubasi ditandai dengan teksturnya yang berubah menjadi seperti tahu. Proses inkubasi bergantung pada waktu dan suhu. Waktu yang optimal untuk suhu antara 40-45 derajat Celcius adalah selama 3-8 jam. Jika suhunya lebih rendah (suhu ruangan), butuh waktu sekitar 20 jam serta aroma dan rasanya lemah (kurang asam dan tidak khas yoghurt) meski teksturnya akan menyerupai yoghurt.

5. Setelah proses inkubasi, biasanya akan muncul lapisan kental kekuningan di bagian atasnya. Yoghurt sudah siap untuk dikonsumsi. Namun, agar aroma dan rasanya lebih keluar, sebaiknya masukkan yoghurt ke kulkas minimal 3 jam. Yoghurt yang sudah jadi jika disimpan di suhu ruang bisa bertahan 2 hari, di kulkas bertahan 2 minggu dan di freezer bisa mencapai 6 bulan.        

COMING SOON!! SALUS BHK MULTI MEDIA

AKAN HADIR SEBENTAR LAGI!!

Salus BHK simple stop watch

Salus BHK Simple Stop Watch

Download HERE

Membuat Progress Bar Dengan VB 6.0

Buatlah project baru dengan pilihan standart exe, kemudian tambahkan component progress bar, dengan cara klik kanan pada area toolbox. Pilih component, pada tab control. Kemudian pilih dengan cara beri tanda centang Microsoft windows common control 6.0 (SP6).
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:

Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()

ProgressBar1 = ProgressBar1 + 99

End
End Sub

Private Sub Form1_Load()
Dim ProgressBar1 As Integer
ProgressBar1.Max = 99999
ProgressBar1.Min = 99999
End Sub

Buat Stop Watch Dengan Visual Basic 6.0

Membuat digital stopwatch menggunakan bahasa pemrograman seperti Visual Basic spertinya udah ga asing lagi, mungkin banyak rekan-rekan sekalian yang udah bisa membuat stopwatch digital yang lebih bagus lagi, kali ini saya juga akan membagikan sedikit ilmu saya kepada teman-teman sekalian, semoga artikel ini bermanfaat.

Buatlah project baru dengan pilihan standart exe, buatlah 2 buah timer, timer ini nantinya digunakan untuk mengaktifkan jam sedangkan timer yang kedua digunakan untuk mengaktifkan stopwatch, kemudian isi kedua buah interval timer dengan nilai disesuaikan dengan kebutuhan. Selanjutnya buat 3buah commandbutton,
Button1 isi caption dengan nilai START
Button2 isi caption dengan nilai STOP
Button3 isi caption dengan nilai RESET
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Dim a As String
Dim b As String
Dim c As String
Dim x As String
Dim y As String
Dim z As String
Dim h As String
Dim m As String
Dim s As String
Dim u As String
Dim v As String
Public interval As Double
Private Sub clock_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
'To set the display as "00:00:00.00"
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Sub counttime()
If Val(v) < 9 Then
v = v + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(u) < 9 Then
v = 0
u = u + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(z) < 9 Then
v = 0
u = 0
z = z + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(y) < 5 Then
v = 0
u = 0
z = 0
y = y + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(x) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = x + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(c) < 5 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = c + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(a) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = 0
a = a + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
End If
End Sub
Private Sub dat_Click()
Label1.Caption = Date
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = 0
v = 0
h = a + b
m = c + x
s = y + z
'To set the display as "00:00:00.00"
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub stopwc_Click()
Timer2.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub Timer1_Timer()
counttime
End Sub
Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda. Jika ingin melakukan hasil yang maksimal silahkan kreasi anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!
artikel selangkapnya dapat didownload klik disini