Membuat Program Pemutar Musik Dengan Vb 6
Transcript of Membuat Program Pemutar Musik Dengan Vb 6
MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER
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.exe2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK3. 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 loncatMMControl1.Command = "stop"CommonDialog1.ShowOpenMMControl1.FileName = CommonDialog1.FileNameMMControl1.Command = "open"Label1.Caption = CommonDialog1.FileTitleloncat:Exit SubEnd Sub
Private Sub Form_Unload(Cancel As Integer)MMControl1.Command = "stop"End Sub
Private Sub Command2_Click()EndEnd Sub6. 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!!!
MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0
Dalam membuat program database cukup mudah hanya saja dalam pembuatan programnya prosedural. Yang namanya database, sekarang sudah sangat diperlukan, hampir di semua instalsi baik dipemerintahan, pendidikan maupun perusahaan. Database merupakanKumpulan dari item data yang saling berhubungan satu dengan yang lainnya yang diorganisasikan berdasarkan sebuah skema atau struktur tertentu, tersimpan di hardware komputer dan dengan software untuk melakukan manipulasi untuk kegunaan tertentu.Mengapa Diperlukan Database alasannya antara lain : Salah satu komponen penting dalamsistem informasi, karena merupakan dasar dalam menyediakan informasi Menentukan kualitas informasi : akurat, tepat pada waktunya dan relevan.Informasi dapat dikatakan bernilai bila manfaatnya lebih efektif dibandingkan dengan biaya mendapatkannya. Mengurangi duplikasi data (data redudancy) Hubungan data dapat ditingkatkan (data relatability) Mengurangi pemborosan tempat simpanan luarPertama kali dalam membuat program database ini adalah dengan visual data manager :Berikut langkah-langkah dalam membuat program database :1.Buka program VB 6.0 anda2.Pilih menu Add-Ins >> Visual Data Manager >> File >> New >> Microsoft Access >> Version 7.0 MDB3.Beri nama database anda lalu simpan klik kanan Properties >> New Table4.Beri nama Tabel database anda >> Add Field >> tambahkan satu persatu komponen data yang ingin anda tampilkan seperti, NAMA, NIM, JURUSAN, IPK dan lain-lain >> close jika sudah5.Kemudian Build The Table hasilnya seperti berikut :
Gambar Visual Data Manager6.Klik Add lalu masukkan data mahasiswa jika sudah close7.Sekarang buka form anda kemudian desain dan tambahkan satu buah frame, 9 label, 5 commanbutton, 8 textbox dan satu kontrol data, untuk commandbutton ubah nama pada propertinya sesuai seperti yang dibawah ini
Gambar Program Database mahasiswa dengan VB 6.08.Kemudian klik control data ,lihat diproperties pilih DatabaseName lalu masukkan database yang kita buat tadi, satu lagi RecordSources ganti dengan nama databasenya9.Kemudian atur properties masing-masing textbox seperti dibawah ini :TextBoxDataSourceDataField
Text1Data1NAMA
Text2Data1NIM
Text3Data1JENIS KELAMIN
Text4Data1ALAMAT
Text5Data1JURUSAN
Text6Data1NO HP
Text7Data1IPK
10.Ketikkan Kode/listing/script program berikut ini :Private Sub CANCEL_Click()EndEnd SubPrivate Sub CARI_Click()Data1.Recordset.FindFirst "NIM='" + Text8 + "'"If Data1.Recordset.NoMatch ThenMsgBox "NIM yang Anda cari Tidak Ditemukan", vbOKOnly, "cari"Data1.Recordset.MoveFirstText8.SetFocusEnd IfEnd SubPrivate Sub Form_Load()Call tidaktampilEnd SubPrivate Sub tampil()Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueEnd SubPrivate Sub tidaktampil()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseEnd SubPrivate Sub HAPUS_Click()Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")If Delete = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextElseData1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub SIMPAN_Click()Data1.Recordset.UpdateData1.Recordset.MoveFirstCall tidaktampilEnd SubPrivate Sub TAMBAH_Click()Data1.Recordset.AddNewCall tampilText1.SetFocusEnd Sub11.Kemudian silahkan coba program anda dan lihat contoh seperti dibawah ini :
Gambar program membuat Database Mahasiswa dengan VB 6.0CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0
Baiklah dalam postingan kita akan membuat program-programmatematikasederhana dengan VB dimana materi ini juga sudah pernah saya bahas dalam postingan bahasa pemrograman C++, yaitu :Program Hitung Gaji Karyawan dengan C++Program c++ Menghitung Keliling dan Luas Segitiga
Program c++ Menghitung Keliling dan Luas Lingkaran
Program c++ Tarif Parkir
C++ Menghitung Luas, Keliling Persegi Panjang Dan LingkaranBaik Langsung saja bahas contoh program yang pertama menggunakan VB :
contoh 1 :Membuat Program Faktorial Dengan Vb 6.0a.Buatlah New Project pada software VB anda kemudian tambahkan tiga buah label, tiga commandbutton dan dua textbox pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :
Gambar Program faktorialb.kemudian ketikkan code/listing/script program berikut :Private Sub Command1_Click()Dim a, b, i As Integeri = 1b = Text1.TextFor a = 1 To bi = i * aNextText2.Text = iEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Subc.Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :
Gambar Program faktorial dengan VB 6.0contoh 2 :Membuat Program Penghitung Determinan dan Penjumlahan, Perkalian Matriks Berordo 2x2 dengan VB 6.0a.Buatlah New Project pada software VB anda kemudian tambahkan 5 buah label, tiga commandbutton, 13 textbox dan 3 optionbutton pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :
Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VBb.kemudian ketikkan code/listing/script program berikut :Private Sub Command1_Click()If Option2.Value = True ThenText12.Text = Val(Text1.Text) + Val(Text8.Text)Text11.Text = Val(Text2.Text) + Val(Text7.Text)Text10.Text = Val(Text3.Text) + Val(Text6.Text)Text9.Text = Val(Text4.Text) + Val(Text5.Text)ElseIf Option3.Value = True ThenText13.Text = (Val(Text1.Text) * Val(Text4.Text) - Val(Text2.Text) * Val(Text3.Text)) + (Val(Text8.Text) * Val(Text5.Text) - Val(Text7.Text) * Val(Text6.Text))ElseText12.Text = (Val(Text1.Text) * Val(Text8.Text)) + (Val(Text2.Text) * Val(Text6.Text))Text11.Text = (Val(Text1.Text) * Val(Text7.Text)) + (Val(Text2.Text) * Val(Text5.Text))Text10.Text = (Val(Text3.Text) * Val(Text8.Text)) + (Val(Text4.Text) * Val(Text6.Text))Text9.Text = (Val(Text3.Text) * Val(Text7.Text)) + (Val(Text4.Text) * Val(Text5.Text))End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text12.Text = ""Text13.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Subc.Silahkan run(F5) program anda coba masukkan nilai pada matriks A dan matriks B kemudian pilih salah satu option lalu tekan tombol proses,,selamat mencoba !
Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB 6.0MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB
1. Buatlah hardwarenya dengan 12 buah led dimana 8 led pertama sambungkan dengan pin data (2-9) dan 4 led trakhir sambungkan dengan pin control (1,14,16,17) jangan lupa tambahkan resistor dan penyambungan system katoda.
2. Buat project baru kemudian tambahkan 12 shape untuk simulasi lednya, 1 label untuk judul kemudian 5 commandbutton dan 4 buah timer.
3. Kemudian desain lah menjadi seperti gambar berikut :
4. Atur properties masing-masing komponen seperti untuk shape backstyle ubah menjadi 1-opaque kemudian backcolornya pilih warna putih kemudian unutk timer semua interval beri nilai 100 dan dalam keadaan false.
5. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.
6. Masukkan kode program seperti dibawah ini :
Private Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Out 888, 255
Out 890, 4
Shape1.BackColor = vbRed
Shape2.BackColor = vbRed
Shape3.BackColor = vbRed
Shape4.BackColor = vbRed
Shape5.BackColor = vbRed
Shape6.BackColor = vbRed
Shape7.BackColor = vbRed
Shape8.BackColor = vbRed
Shape9.BackColor = vbRed
Shape10.BackColor = vbRed
Shape11.BackColor = vbRed
Shape12.BackColor = vbRed
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End Sub
Private Sub Command2_Click()
Out 888, 0
Out 890, 11
Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbWhite
Shape11.BackColor = vbWhite
Shape12.BackColor = vbWhite
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command4_Click()
Timer4.Enabled = True
Timer3.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Out 888, 0
Out 889, 11
Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbWhite
Shape11.BackColor = vbWhite
Shape12.BackColor = vbWhite
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer2_Timer()
Dim a As Integer
a = Timer1.Interval
Timer1.Interval = a + 100
Select Case a
Case 100
Out 890, 11
Out 888, 1
Shape12.BackColor = vbWhite
Shape1.BackColor = vbRed
Case 200
Out 888, 2
Shape1.BackColor = vbWhite
Shape2.BackColor = vbRed
Case 300
Out 888, 4
Shape2.BackColor = vbWhite
Shape3.BackColor = vbRed
Case 400
Out 888, 8
Shape3.BackColor = vbWhite
Shape4.BackColor = vbRed
Case 500
Out 888, 16
Shape4.BackColor = vbWhite
Shape5.BackColor = vbRed
Case 600
Out 888, 32
Shape5.BackColor = vbWhite
Shape6.BackColor = vbRed
Case 700
Out 888, 64
Shape6.BackColor = vbWhite
Shape7.BackColor = vbRed
Case 800
Out 888, 128
Shape7.BackColor = vbWhite
Shape8.BackColor = vbRed
Case 900
Out 888, 0
Out 890, 10
Shape8.BackColor = vbWhite
Shape9.BackColor = vbRed
Case 1000
Out 888, 9
Shape9.BackColor = vbWhite
Shape10.BackColor = vbRed
Case 1100
Out 888, 15
Shape10.BackColor = vbWhite
Shape11.BackColor = vbRed
Case 1200
Out 888, 3
Shape11.BackColor = vbWhite
Shape12.BackColor = vbRed
Timer1.Interval = 100
End Select
End Sub
Private Sub Timer3_Timer()
Dim b As Integer
b = Timer4.Interval
Timer4.Interval = b + 100
Select Case b
Case 100
Out 888, 96
Shape1.BackColor = vbWhite
Shape12.BackColor = vbWhite
Shape6.BackColor = vbRed
Shape7.BackColor = vbRed
Case 200
Out 888, 144
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape5.BackColor = vbRed
Shape8.BackColor = vbRed
Case 300
Out 888, 8
Out 890, 10
Shape5.BackColor = vbWhite
Shape8.BackColor = vbWhite
Shape4.BackColor = vbRed
Shape9.BackColor = vbRed
Case 400
Out 888, 4
Out 890, 9
Shape4.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape3.BackColor = vbRed
Shape10.BackColor = vbRed
Case 500
Out 888, 2
Out 890, 15
Shape3.BackColor = vbWhite
Shape10.BackColor = vbWhite
Shape2.BackColor = vbRed
Shape11.BackColor = vbRed
Case 600
Out 888, 1
Out 890, 3
Shape2.BackColor = vbWhite
Shape11.BackColor = vbWhite
Shape1.BackColor = vbRed
Shape12.BackColor = vbRed
Timer4.Interval = 100
End Select
End Sub7. Sekarang silahkan ru... :)
MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC
Selamat Datang di BlogRojear, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.1.Langkah pertama buka program Visual Basic2.Pilih standar.exe untuk New Project kemudian Klik Open
3.Tambahkan 5 Label 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle mendaji solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :
4.Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.5.Masukkan kode program seperti dibawah ini :Private Sub tunda()a = TimerDo While Timer < 1 + aDoEventsLoopEnd SubPrivate Sub Form_Load()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()For i = 0 To 10Label1(0).Caption = 11 - iLabel1(1).Caption = 21 - iLabel1(2).Caption = 31 - iLabel1(3).Caption = 41 - iIf i = 0 ThenShape10.FillColor = &HC0C0&Shape1.FillColor = &HC0&Shape2.FillColor = vbYellowShape5.FillColor = vbRedShape8.FillColor = vbRedShape11.FillColor = vbRedElseShape12.FillColor = &H8000&Shape2.FillColor = &HC0C0&Shape3.FillColor = vbGreenEnd IftundaNext iFor i = 10 To 20Label1(0).Caption = 51 - iLabel1(1).Caption = 21 - iLabel1(2).Caption = 31 - iLabel1(3).Caption = 41 - iIf i = 10 ThenShape5.FillColor = &HC0&Shape3.FillColor = &H8000&Shape2.FillColor = vbYellowShape4.FillColor = vbYellowElseShape2.FillColor = &HC0C0&Shape4.FillColor = &HC0C0&Shape1.FillColor = vbRedShape5.FillColor = &HC0&Shape6.FillColor = vbGreenEnd IftundaNext iFor i = 20 To 30Label1(0).Caption = 51 - iLabel1(1).Caption = 61 - iLabel1(2).Caption = 31 - iLabel1(3).Caption = 41 - iIf i = 20 ThenShape8.FillColor = &HC0&Shape6.FillColor = &H8000&Shape4.FillColor = vbYellowShape7.FillColor = vbYellowElseShape4.FillColor = &HC0C0&Shape7.FillColor = &HC0C0&Shape5.FillColor = vbRedShape8.FillColor = &HC0&Shape9.FillColor = vbGreenEnd IftundaNext iFor i = 30 To 40Label1(0).Caption = 51 - iLabel1(1).Caption = 61 - iLabel1(2).Caption = 71 - iLabel1(3).Caption = 41 - iIf i = 30 ThenShape11.FillColor = &HC0&Shape9.FillColor = &H8000&Shape7.FillColor = vbYellowShape10.FillColor = vbYellowElseIf i = 40 ThenShape2.FillColor = vbYellowShape10.FillColor = vbYellowShape12.FillColor = &H8000&Shape1.FillColor = &HC0&ElseShape7.FillColor = &HC0C0&Shape10.FillColor = &HC0C0&Shape8.FillColor = vbRedShape11.FillColor = &HC0&Shape12.FillColor = vbGreenEnd IftundaNext iEnd SubSelamat Mencoba.... :)MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0
Baiklah kita akan membuat program aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :1.Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe2.Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah ini :
Gambar Program Aplikasi Alarm Dengan Vb 6.03.Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga4.kemudian ketikkan kode/listing/script program dibawah ini :Dim alarm As BooleanPrivate Sub Command1_Click()If alarm = True ThenTimer2.Enabled = FalseCommand1.Caption = "Aktif"alarm = FalseElseCommand1.Caption = "Tidak Aktif"alarm = TrueEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()alarm = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeIf Text1.Text = Label1.Caption And alarm = True ThenTimer2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer2_Timer()BeepEnd Sub5.Save dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.06.Mudahkan, Selamat Mencoba!!!