Membuat MP3Player yang sangat Sederhana dan Penuh Warna dengan Visual Basic 6.0

Selamat Sore, Hari terakhir di tahun 2015 ini saya mau posting lagi tentang Visual Basic 6.0. Postingan kali ini saya mau mencoba berbagi tentang cara membuat MP3 Player Sederhana tapi dengan tampilan yang lumayan cantik dan berkilauan (tema tahun baru),hehehehe…

                Sebenarnya program ini berasal dari berbagai tutorial yang saya coba praktekan,lalu saya coba tambahkan dan aplikasikan di aplikasi mp3 player yang dibuat ini.daripada lama, langsung saja kita mulai, Pertama buka Visual Basic 6.0 milik anda.  

Tambahkan Component Microsoft Common Dialog Control 6.0 (SP3) dan Microsoft Multimedia Control 6.0. lalu klik OK dan component nya akan tampil.

Sekarang kita buat Desain Form nya seperti berikut.

Label yang diberi kotak adalah label dengan properties Backstyle : Transparent dan Borderstyle : None

Kenapa label yang ke 2 saya buat kosong dan transparan, karena itu dibuat untuk nanti tampilan judul lagu yang diputar bisa tampil sesuai dengan nama file lagu tersebut. Dan 2buah timer sendiri saya gunakan untuk  yang pertama agar label1 bisa berkelip-kelip, kemudian timer ke 2 saya gunakan untuk label ke 2 yaitu judul lagu bisa berjalan dari kanan ke kiri dan berkelip-kelip. Kecepatan kelip atau jalannya text bisa di atur melalui interval di masing-masing timer. Sesuaikan saja menurut selera anda.Untuk gambar background silahkan mau pake atau tidak terserah anda. Jika ingin memakai background silahkan masukan gambarnya di properties,lalu picture dan pilih gambar yang ada di computer anda. mp3 player ini juga ketika di run tidak bisa di perbesar atau di perkecil form nya.

Listing code untuk mp3 player ini adalah sebagai berikut silahkan anda copy:

Private Const GWL_STYLE = (-16)

Private Const WS_THICKFRAME = &H40000

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long) As Long

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_load()

Dim lStyle As Long

    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

    lStyle = lStyle And Not WS_THICKFRAME

    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub

Private Sub Form_Unload(Cancel As Integer)

MMControl1.Command = "stop"

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

    If (Label1.Left + Label1.Width) <= 0 Then

        Label1.Left = Me.Width

    End If

    Label1.Left = Label1.Left - 100

End Sub

Private Sub Timer2_Timer()

Label2.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

End Sub

Sekian cara membuat Mp3 Player sederhana yang penuh warna,hehehe... terimakasih sudah berkunjung di blog ini. Seperti biasa saya juga akan menyertakan project dari program yang dibuat ini silahkan download disini. terima kasih.... Selamat Tahun baru 2016...

Membuat Kalkulator Sederhana dengan Mcrosoft Visual Basic 6.0

 
 Cara membuat kalkulator sederhana dengan Microsoft Visual Basic 6.0 memang sudah banyak tutorialnya. Memang design form nya berbeda-beda, tapi dari codingnya masih tetap sama begitu-begitu juga. Hanya saja jika kita punya imajinasi yang bagus tampilannya bisa kita rubah sesuai keinginan.

    Sebenarnya disini saya juga mau share cara membuat kalkulator yang sangat sederhana dan biasa sekali, tidak ada yang istimewa. Tapi tak apalah tinggal nanti anda bedakan saja dimana letak perbedaannya dari yang lain. Daripada lama-lama kita langsung saja jalankan Microsoft visual basic 6.0 anda masing-masing. Berikut ini design kalkulator yang saya buat..

Sangat sederhana Sekali bukan?  Untuk nama tiap component nya saya biarkan atau tidak diganti. Ok jika sudah selesai membuat design form nya kita lanjut ke listing code. Berikut listing code nya..

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Command6_Click()

Unload Me

End Sub

Private Sub Text1_KEYPRESS(keyascii As Integer)

If Not ((keyascii >= 48) And (keyascii <= 57) Or keyascii = 8) Then

keyascii = 0

End If

End Sub

Private Sub Text2_keypress(keyascii As Integer)

If Not ((keyascii >= 48) And (keyascii <= 57) Or keyascii = 8) Then

keyascii = 0

End If

End Sub

Pada Textbox 1 dan 2 saya batasi hanya bisa input angka saja dan tombol backspace yang dapat berfungsi pada kedua textbox tersebut...
Demikian cara membuat kalkulator sangat biasa dan sederhana sekali ini. semoga bisa menambah referensi dan bisa memotivasi supaya kita bisa lebih kreatif lagi. Berikut saya kasih contoh projek nya silahkan anda download disini.
Selamat Siang... 

Affiliate