Sunday, December 16, 2012

Membuat Program Pemutar Music dengan Visual Basic 6.0

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
Program Aplikasi mp3 player dengan VB
Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :
tabel keterangan desain form mp3 player dengan VB 6.0
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
Hasil program aplikasi mp3 player dengan vb 6.0
Gambar Hasil program aplikasi mp3 player dengan vb 6.0
7. Mudahkan, Selamat Mencoba…!!!
Wahai manusia, kenalilah dirimu, niscaya kamu akan mengenal Tuhanmu. (Al-Hadits)
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
Program Aplikasi mp3 player dengan VB
Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :
tabel keterangan desain form mp3 player dengan VB 6.0
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
Hasil program aplikasi mp3 player dengan vb 6.0
Gambar Hasil program aplikasi mp3 player dengan vb 6.0
7. Mudahkan, Selamat Mencoba…!!!
Wahai manusia, kenalilah dirimu, niscaya kamu akan mengenal Tuhanmu. (Al-Hadits)
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
Program Aplikasi mp3 player dengan VB
Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :
tabel keterangan desain form mp3 player dengan VB 6.0
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
Hasil program aplikasi mp3 player dengan vb 6.0
Gambar Hasil program aplikasi mp3 player dengan vb 6.0
7. Mudahkan, Selamat Mencoba…!!!
Wahai manusia, kenalilah dirimu, niscaya kamu akan mengenal Tuhanmu. (Al-Hadits)
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
Program Aplikasi mp3 player dengan VB
Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :
tabel keterangan desain form mp3 player dengan VB 6.0
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
Hasil program aplikasi mp3 player dengan vb 6.0
Gambar Hasil program aplikasi mp3 player dengan vb 6.0
7. Mudahkan, Selamat Mencoba…!!!
Wahai manusia, kenalilah dirimu, niscaya kamu akan mengenal Tuhanmu. (Al-Hadits)v

TUTORIAL MEMBUAT MENU UTAMA


1.      Pilih menu project -> MDI Form

2.      Pilih menu Tols -> Menu Editor
3.      Atur properties pada Menu Editor
= Untuk Memilih menu ke bawah
= Untuk membuat menu dan sub menu
Caption
Name
Form
Frm
…..Biodata
Fbiodata
…..Mata Kuliah
Fmk
…..Nilai
Fnilai
Laporan
Laporan
…..Data Mahasiswa
L_biodata
.....Nilai Siswa
L_nilai
About
About
Klik OK

Code program untuk menampilkan form

Private Sub biodata_Click()
Form2.Show
End Sub
Private Sub biodata_Lap_Click()
'DataReport1.Show
CR.ReportFileName = App.Path & "\Laporan_Biodata.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
Private Sub keluar_Click()
psn = MsgBox("Anda yakin mau keluar?", vbYesNo + 32, "Konfirmasi")
    If psn = vbYes Then
    End
    End If
End Sub
Private Sub matakulliah_Click()
Form1.Show
End Sub
Private Sub matakulliah_Lap_Click()
DataReport2.Show
End Sub

TUTORIAL PEMBUATAN LAPORAN DENGAN CRYSTAL REPORT V 8.5 BERDASARKAN GROUPING

1.      Start -> All Program -> CRYSTAL REPORT TOOLS 

2.      Pilih using the report expert -> OK
3.      Klik database -> Next
4.      Pilih fine database file -> Add
5.      Cari letak penyimpanan database -> Pilih nama database yang dituju -> OPEN
6.      Pilih nama table atau Queery -> Add -> Close
7.      Maka akan tampil nama table / Queery yang dipilih -> Next
8.      Masukan nama field yang ingin dicetak denagn cara pilih “ Add ” untuk satu field dan
 “ Add All ” untuk semua field -> Next
9.      Karena akan menampilkan laporan sesuai dengan criteria maka masukan field sebagai kunci criteria, masukan ke dalam kotak Group by. Jika dalam pembuatan laporan ingin menampilkan semua data tanpa ada criteria tertentu maka dialog group ini abaikan saja, langsung pilih next
Untuk pembuatan lapotan ini saya masukan beberapa field sebagai criteria untuk menampilkan laporan
10.  Karena akan menampilkan laporan berdasarkan criteria maka yang tampil adalah dialog seperti diatas -> Next
11.  Klik Next
12.  Uncheck list pada “ Automatically Set Chart Option ”
13.  Klik Next
14.  Berikan judul laporan pada kolom “ Title ” dan pilih Style laporan -> Next
15.  Preview laporan
16.  Design laporan
17.  Simpan dalam folder penyimpanan satu file dengan ProjectVisual Basic
UNTUK MENAMPILKAN LAPORAN DENGAN VB MAKA BERIKUT TAHAPANNYA
1.      Buka project VB nya
2.      Tambahkan component Crystal Control
Pilih menu project -> Componen -> chectklist “ Crystal Report Control ”
3.      Buat Crystal control pada form dengan Name = CR
 Code program untuk menampilkan laporan pada VB dengan menmpilkan criteria berdasarkan         semester dan nim
Private Sub Command1_Click()
CR.Reset
CR.SelectionFormula = “ ({ Q_nilai.semester }) = ‘” & cmbsemester & ‘” and ({ Q_nilai.nim}) = “” & t_nim.Text & “’”
            CR.ReportFileName = App.Path & “\LAPORAN NILAI MAHASISWA.rPT”
            CR.WindowState = crptMaximized
            CR.RetrieveDataFiles
            CR.Action = 0
End Sub
 Code program untuk menampilkan laporan pada VB dengan menampilkan criteria  berdasarkan semester dan nim.
Private Sub Command1_Click()
CR.ReportFileName = App.Path & “\LAPORAN DATA MAHASISWA.rpt”
            CR.WindowState = crptMaximized
            CR.RetrieveDataFiles
            CR.Action = 1
End Sub
Setelah code program kita masukan,maka program sudah bisa di tes.

Monday, December 10, 2012

Penggunaan Crystal Report dengan Visual Basic 6





  1. Install Crystal Report 4.6
1.       Pilih file “CRYSTL32.EXE”







2.       Lalu kemudian akan muncul dialog seperti berikut ini :




3.       Tekan tombol Yes dan kemudian akan muncul dialog untuk memilih lokasi instalasi






4.       Lalu Kemudian Proses instalasi akan berjalan, dan akan muncul konfirmasi seperti berikut :




5.       Untuk Melihat apakah Crystal Report Berhasil terintegrasi dengan Visual Basic kita bisa melihatnya dengan :
a.       Buka Visual Basic
b.      Pilih Add-Ins -> Report Designer
c.       Lalu akan muncul aplikasi Crystal Report






  1. Penggunaan Crystal Report
1.       Bukalah Aplikasi Crystal Report dengan cara :
a.       Buka Visual Basic
b.      Pilih Add-Ins -> Report Designer
c.       Lalu akan muncul aplikasi Crystal Report
2.       Pilih File -> New




Akan muncul tampilan seperti berikut :

3.       Pilih Tombol “Standard”, sehingga muncul tampilan berikut :
4.       Pilih Tombol “Data File”, lalu Kemudian pilih database file (dalam contoh kali ini digunakan database Access)
5.       Lalu kemudian pilih “Add”, dan akan muncul tampilan relasi database nya seperti berikut :
6.       Kemudian pilih field-field yang akan digunakan dalam report
7.       Lalu pilih Pengelompokan data (Grouping)
8.       Lalu pilih tombol “Preview Report”, hasilnya akan ditampilkan sebagai berikut :
9.       Setelah muncul tampilan tersebut, selesai sudah pembuatan crystal report, Tahap selanjutnya adalah melakukan pengaturan-pengaturan pada Report

  1. Beberapa contoh fitur-fitur pada Crystal Report
1.       Sekarang kita akan melakukan pengaturan pada file report yang telah kita buat tadi






Tampilan awal report sebelum dilakukan pengaturan
2.       Memberi Judul pada Report, tekan tombol berikut :
3.       Letakkan penempatan judul pada section “Title”
4.       Lakukan perubahan penamaan pada tiap2 field, dan lakukan pengaturan penempatan2 sesuai dengan kehendak
5.       Pengaturan Format Tanggal
1.       Klik kanan pada record bertipe “date”
2.       Lalu akan muncul tampilan seperti berikut :
3.       Pilih Format tanggal sesuai yang di inginkan
6.       Menampilkan dan menyembunyikan Section
Dalam Crystal Report, kita bisa menampilkan dan menyembunyikan Section, sesuai dengan apa yang kita kehendaki. Misalnya kita ingin menampilkan atau menyembunyikan section “Title”, atau yang lainnya, berikut langkah untuk melakukannya :
1.       Klik kanan pada area sebelah tulisan section (Area abu-abu), akan muncul  tampilan berikut
 
2.       Dalam contoh diatas kita akan menyembunyikan section #1 : ID_department
7.       Menambahkan Field pada report
1.       Jika kita menginginkan tambahan field pada report, kita bisa melakukan penambahan field dengan menekan tombol :
2.       Setelah itu akan keluar tampilan berikut
3.       Untuk melakukan penambahan field, kita cukup menekan tombol Insert atau dengan melakukan drag and drop pada tulisan
8.       Untuk fitur-fitur lainnya bisa anda jelajahi dengan sesuka hati :D


  1. Pemanggilan Crystal Report melalui Visual Basic
Untuk melakukan pemanggilan Report dari Visual Basic, berikut langkah-langkahnya
1.       Buat  Form Baru
2.       Lakukan pemanggilan komponen yang dibutuhkan, antara lain :
3.       Kemudian Buatlah tampilan Form seperti berikut ini :
4.       Sebelum itu kita lakukan setting koneksi pada komponen AdoDC
1.       Klik kanan pada komponen AdoDC, akan muncul tampilan berikut
·         Pilih radio button “Use Connection String”
·         Kemudian Tekan tombol Build
·         Akan muncul tampilan seperti berikut :
·         Pilih Microsoft Jet 4.0 OLE DB Provider
·         Setelah itu akan muncul tampilan seperti berikut
·         Kemudian pilih File database (Database Ms. access)
·         Lalu kemudian lakukan Test Connection, jika berhasil akan muncul tampilan berikut :
·         Setelah itu, pindah pada Tab “Recordsource”
·         Ganti Command Type dengan “Table”
2.       Lakukan Pengaturan Properties pada DataGrid
·         Pilih DataSource dengan AdoDC1
3.       Lakukan Penambahan Script pada tombol “Cetak”
Private Sub Command1_Click()
    CrystalReport1.ReportFileName = App.Path & "\contoh.rpt"
    CrystalReport1.PrintReport
End Sub
4.       Setelah Itu Jalankan Program Tersebut :
5.       Lalu Tekan Tombol Cetak, akan keluar Report yang telah kita buat sebelumnya :
Pembuatan Laporan dengan Kriteria berdasarkan tanggal (Transaksi/Rekap) dengan passing parameter

  1. Buatlah Report terlebih dahulu dengan table yang ditentukan



  1. Lalu kemudian Save
  1. Tampilan awal report akan standard seperti berikut


Untuk membuat laporan berdasarkan criteria, kita dapat melakukan nya dengan mengirimkan parameter  formula pada program Visual Basic (VB), berikut ini adalah langkah-langkah pembuatan aplikasi dari VB:
1.       Buat Form Baru dengan sampai menjadi tampilan seperti berikut :
2.       Untuk Koneksi adodc dan datagrid lakukan seperti pada contoh sebelumnya, namun kali ini kita menggunakan database berbeda yaitu transaksi.mdb
3.       Cara Melakukan Pengiriman parameter pada Crystal Report (Pemilihan Berdasarkan Tanggal)

·         Lakukan Double Click pada Button Cetak
·         Kemudian tuliskan script seperti  berikut :




Private Sub cetak_Click()
    Dim tanggalan As String
    tanggalan = Format(DTPicker1.Value, "yyyy,mm,dd")
    CrystalReport1.SelectionFormula = "{faktur.tanggal}=Date(" & tanggalan & ")"
    CrystalReport1.ReportFileName = App.Path & "\rekap.rpt"
    CrystalReport1.PrintReport
End Sub
                Penjelasan :
·         Untuk Mengirimkan parameter pada crystal report, kita melakukannya dengan melalui fungsi “SelectionFormula”
·         Lakukan Pemilihan table dan Field, pada kali ini kita menggunakan table ‘faktur’ dan field ‘tanggal’
·         DTPicker1 digunakan untuk penanggalan dan kita lakukan format tanggal sesuai dengan yang diminta oleh Formula pada Crystal Report yaitu “Date(yyyy,mm,dd)”
 CrystalReport1.SelectionFormula = "{faktur.tanggal}=Date(" & tanggalan & ")"
4.       Cara Melakukan Pengiriman parameter pada Crystal Report (Pemilihan Berdasarkan nama)
·         Lakukan seperti pada nomor 3
·         Ketikkan Script seperti berikut :
Private Sub cetak2_Click()
    CrystalReport1.SelectionFormula = "{faktur.nama}='" & nama.Text & "'"
    CrystalReport1.ReportFileName = App.Path & "\rekap.rpt"
    CrystalReport1.PrintReport
End Sub
     Penjelasan:
·         Lakukan Pemilihan table dan Field, pada kali ini kita menggunakan table ‘faktur’ dan field ‘nama’
·         Text Field digunakan sebagai parameter yang akan dikirimkan pada crystal report
CrystalReport1.SelectionFormula = "{faktur.nama}='" & nama.Text & "'"
5.       Rekapitulasi data berdasarkan tanggal (Range tanggal)
·         Lakukan Double Klik pada button (seperti langkah pada nomor 3 dan 4)
·         Ketikkan Script seperti berikut :
Private Sub cetakrekap_Click()
    Dim tanggalan1 As String, tanggalan2 As String
    tanggalan1 = Format(DTPicker2.Value, "yyyy,mm,dd")
    tanggalan2 = Format(DTPicker3.Value, "yyyy,mm,dd")
    CrystalReport1.SelectionFormula = "{faktur.tanggal}>Date(" & tanggalan1 & ");{faktur.tanggal}<Date(" & tanggalan2 & ");"
    CrystalReport1.ReportFileName = App.Path & "\rekap.rpt"
    CrystalReport1.PrintReport
End Sub
                Penjelasan :
·         Lakukan Pemilihan table dan Field, pada kali ini kita menggunakan table ‘faktur’ dan field ‘tanggal
·         Prosedur mirip dengan langkah pada nomor 3, namun kali ini kita menggunakan 2 DTPicker untuk range tanggal awal dan tanggal akhir :
CrystalReport1.SelectionFormula = "{faktur.tanggal}>Date(" & tanggalan1 & ");{faktur.tanggal}<Date(" & tanggalan2 & ");"
·         Pada formula pertama yaitu tanggal lebih besar (>) dari DTPicker2 (tanggal awal)
·         Pada formula pertama yaitu tanggal lebih kecil (<) dari DTPicker3 (tanggal akhir)

*)Untuk Mencobanya silahkan melihat contoh program pada file contoh.rar