eras.web.id

Membuat Program Penjualan Dengan Visual Basic 6.0. (Tutorial–Bagian 8–Pembuatan Laporan Bagian 2)

2011-05-27T17:30:00.000+07:00

Setelah pada tutorial sebelumnya kita membuat desain laporan, sekarang waktunya kita membuat form untuk mengatur pencetakan dari desain laporan yang telah kita buat tersebut. Karena laporan tersebut adalah Laporan Penjualan Harian, maka tentu saja tidak semua data penjualan akan kita tampilkan. Kita akan membuat filter, agar data yang tercetak adalah data pada tanggal yang kita inginkan saja. Untuk itu, silahkan kembali pada jendela form designer, dan tambahkan satu form kosong ke dalam Project kita ini. Caranya, sudah tahu kan? Tekan saja Ctrl-D, lalu pilih “Form”, dan klik tombol “Open”.

Setelah itu, akan muncul sebuah form kosong bernama Form1.

Lakukan perubahan pada beberapa properti form tersebut, pada item-item sebagai berikut:

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmCetakLaporanHarian
2.	Caption	Form1	Cetak Laporan Harian
3.	StartUpPosition	3 – Windows Default	2 – Center Screen

Tampilan sesudah diubah akan menjadi kira-kira seperti di bawah ini:

Setelah itu, tambahkan kontrol Label, DateTimePicker, juga 3 buah CommandButton, dan atur agar tampilannya kira-kira seperti di bawah ini:

Kemudian, atur properti dari masing-masing kontrol tersebut, menjadi seperti di bawah ini :

Kontrol Label1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Caption	Form1	Cetak Laporan Harian

Kontrol DTPicker1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	DTPicker1	dtpTanggal
2.	CustomFormat	(kosong)	dd/MM/yyyy
3.	Format	1 – dtpShortDate	3 – dtpCustom

Kontrol Command1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command1	cmdPreview
2.	Caption	Command1	Preview

Kontrol Command2

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command2	cmdCetak
2.	Caption	Command2	Cetak

Kontrol Command3

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command3	cmdSelesai
2.	Caption	Command3	Selesai

Kemudian atur juga lebar dan tinggi form-nya, agar terlihat rapi. Kira-kira seperti di bawah ini:

Sekarang, kita tinggal menuliskan kode program untuk form ini. Double-click dulu pada control Command3 yang sekarang telah berubah menjadi cmdSelesai. Ini adalah kontrol yang paling mudah untuk penulisan script-nya.

Terlihat di situ jendela Code sudah terbuka dengan kursor keyboard yang berada di dalam prosedur “Private Sub cmdSelesai_Click()”. Nah, tuliskan kode berikut di situ:

   Unload Me

Tampilan sesudahnya akan menjadi kira-kira seperti di bawah ini :

Tutup jendela Code ini, kemudian double-click pada kontrol Command1 yang sekarang telah berubah menjadi cmdPreview.

Terlihat di situ jendela Code sudah terbuka dengan kursor keyboard yang berada di dalam prosedur “Private Sub cmdPreview_Click()”. Tuliskan kode berikut di dalam situ:

Cek:
    On Error GoTo Buka
    dePenjualan.rscmdHarian_Grouping.Filter = _
        "Tanggal=#" & _
        Format(dtpTanggal.Value, _
        "dd/MM/yyyy") & "#"
    dePenjualan.rscmdHarian_Grouping.Requery -1
    rptHarian.Show vbModal
    Exit
 SubBuka:
    dePenjualan.rscmdHarian_Grouping.Open
    GoTo Cek

Tampilannya pada jendela code editor akan nampak kira-kira seperti di bawah ini:

Tutup jendela Code Editor ini. Sekarang kita akan menuliskan script untuk kontrol Command2 yang sekarang telah berubah menjadi cmdCetak. Jadi, silahkan double-click cmdCetak, untuk membuka jendela code editor, dengan kursor yang berada di dalam prosedur cmdCetak_Click() yang sudah terbentuk.

Script pada prosedur cmdCetak ini mirip dengan script pada cmdPreview, dan hanya berbeda pada satu baris tertentu saja. Jadi kalau mau, Anda bisa meng-copy-nya dari script cmdPreview, untuk kemudian di-paste di dalam prosedur cmdCetak. Setelah itu, carilah baris bertuliskan rptHarian.Show vbModal, dan gantilah dengan rptHarian.PrintReport True. Lengkapnya, adalah seperti di bawah ini:

Cek:
    On Error GoTo Buka
    dePenjualan.rscmdHarian_Grouping.Filter = _
        "Tanggal=#" & _
        Format(dtpTanggal.Value, _
        "dd/MM/yyyy") & "#"
    dePenjualan.rscmdHarian_Grouping.Requery -1
    rptHarian.PrintReport True
    Exit Sub
Buka:
    dePenjualan.rscmdHarian_Grouping.Open
    GoTo Cek

Tampilannya pada jendela code-editor akan menjadi kira-kira seperti di bawah ini:

Selanjutnya, tentu saja adalah menambahkan atau mengubah script yang ada pada form Utama, tepatnya pada prosedur mnuLaporanPenjualanHarian_Click(). Jadi sekarang, silahkan kembali pada form frmUtama, lalu klik pada menu Laporan, dan pilih submenu Laporan Penjualan Harian.

Tak lama kemudian akan muncul jendela Code Editor untuk prosedur mnuLaporanPenjualanHarian_Click().

Terlihat di situ script yang pernah kita tuliskan sebelumnya, saat hendak menguji desain laporan yang sudah kita buat. Script inilah yang akan kita ganti. Jadi, hapus script tersebut, dan gantilah dengan script berikut ini:

   frmCetakLaporanHarian.Show

Tampilannya pada jendela Code Editor akan menjadi kira-kira seperti di bawah ini.

Tutup jendela Code Editor ini. Dan untuk sementara, script pada form CetakLaporanHarian ini sudah selesai. Anda bisa kembali pada jendela form-designer, dan menguji form ini dengan me-running program ini. Silahkan tekan tombol F5 pada keyboard Anda untuk me-running-nya. Jika sudah running, silahkan klik pada menu Laporan, lalu pilih submenu Laporan Penjualan Harian.

Tak lama akan muncul form Cetak Laporan Harian.

Pilih tanggal laporan yang diinginkan, kemudian silahkan klik pada tombol “Preview” untuk melihatnya pada layar monitor Anda (preview).

Anda dapat menutup jendela Preview ini, dan kembali ke form Cetak Laporan Harian, serta memilih tombol Cetak untuk menampilkan kotak dialog Print, untuk kemudian mencetaknya di atas kertas.

Langkah selanjutnya adalah membuat desain Laporan Penjualan Mingguan. Tapi itu nanti, di tutorial berikutnya. Sekarang, simpan dulu hasil pekerjaan Anda, dan sampai jumpa pada tutorial berikutnya.

Membuat Program Penjualan Dengan Visual Basic 6.0. (Tutorial–Bagian 7 - Desain Laporan Bagian 1)

2011-05-08T22:59:00.000+07:00

Yang pertama harus saya lakukan, adalah meminta maaf kepada Anda semua karena tertundanya tutorial ini, dalam waktu yang cukup lama. Ada beberapa pekerjaan yang harus saya selesaikan juga terkena virusnya komputer saya, yang tentu saja membutuhkan waktu yang lumayan untuk merestore data-data saya, termasuk data mengenai Tutorial ini. Tapi apapun itu, tentu saja, saya berterima kasih karena Anda masih mau menunggu kelanjutan tutorial ini. Yak, langsung saja jadinya ya.

Pada tutorial sebelumnya kita sudah melakukan penulisan kode program (script) pada form Transaksi Penjualan. Dan kali ini, kita akan mulai mendesain laporan-laporan yang akan dihasilkan oleh program ini. Akan ada 3 (tiga) laporan yang akan kita buat nanti, yaitu Laporan Penjualan Harian, Laporan Penjualan Mingguan dan Laporan Penjualan Bulanan.

Laporan pertama yang akan kita buat, tentu saja adalah Laporan Penjualan Harian. Namun sebelum itu, kita harus menambahkan dulu “komponen” Data Environment dan Data Report pada program kita. Jadi, silahkan klik menu Project, lalu pada submenu yang muncul, pilihlah “Add Data Environment”.

Dan segera sesudah itu akan muncul jendela Data Environment, seperti di bawah ini.

Terlihat pada jendela Data Environment tersebut, sudah ada 2 (dua) item yang terdaftar, yaitu DataEnvironment1 dan Connection1. Ubahlah dulu properti “Name” Data Environment ini, dari nilai awal “DataEnvirontment1” menjadi “dePenjualan”. Kemudian ubah juga properti “Name” dari “Connection1” menjadi “conPenjualan”. Tampilan sesudah diubah akan menjadi kira-kira seperti di bawah ini:

Langkah selanjutnya, adalah mendefinisikan atau menghubungkan Data Environment ini dengan database yang sudah kita buat. Caranya, klik kanan pada item conPenjualan, lalu pada popup menu yang muncul, pilih “Properties”.

Dan akan muncul jendela “Data Link Properties”, dengan tab aktif berada pada “Provider”. Pada daftar yang ada, pilihlah “Microsoft Jet 4.0 OLE DB Provider”, lalu klik tombol “Next”.

Setelah itu, tab “Connection” akan terbuka. Klik lah tombol “…” yang berada di samping kanan kotak isian “Select or enter a database name:”.

Kemudian, pada kotak dialog yang muncul, pindahkan lokasi folder pada folder yang berisi database yang telah kita buat sebelumnya, yaitu pada folder “c:penjualan”, dan pilihlah file “Penjualan.mdb” (extention .mdb mungkin tidak terlihat pada kotak dialog ini), lalu klik tombol “Open”.

Dan setelah itu, kotak isian “Select or enter a database name:” akan terisi dengan nama file database kita, lengkap dengan path-nya. Klik tombol “Test Connection” untuk memastikan bahwa koneksi ke database tersebut berhasil dengan baik.

Akan muncul kotak pesan yang memberitahukan bahwa koneksi dengan database sukses dilakukan. Klik saja tombol OK untuk menutup kotak pesan tersebut.

Langkah selanjutnya, adalah menambahkan “Command” untuk Laporan Penjualan Harian. Caranya adalah dengan meng-klik-kanan (right-click) pada item “conPenjualan”, dan memilih “Add Command” pada popup menu yang muncul.

Dan sebuah subitem dari conPenjualan akan muncul dengan nama Command1.

Ubah namanya menjadi cmdHarian.

Dan klik-kanan pada subitem cmdHarian, lalu pilih Properties, pada popup menu yang muncul.

Kemudian akan muncul jendela “cmdHarian Properties”.

Klik pada pilihan “SQL Statement”.

Dan ketikkan perintah SQL berikut pada kotak isian “SQL Statement:”.

SELECT Penjualan_Detail.Kode_Barang, 
  Barang.Nama_Barang,
  Penjualan_Detail.Jumlah, 
  Barang.Harga,
  (Penjualan_Detail.Jumlah * Barang.Harga) AS Jumlah_Harga
  FROM Penjualan, Penjualan_Detail, Barang
  WHERE Penjualan_Detail.No_Faktur=Penjualan.No_Faktur
  AND Barang.Kode_Barang=Penjualan_Detail.Kode_Barang
  ORDER BY Penjualan.Tanggal DESC

Tampilannya pada jendela cmdHarian akan kira-kira seperti di bawah ini. Klik tombol “Apply” untuk menyimpan perubahan ini.

Sekarang, klik-lah tab “Grouping” yang berada di bagian atas dari jendela ini.

Klik checkbox “Group Command Object”.

Kemudian, klik field Penjualan.No_Faktur, Tanggal dan Keterangan (bisa satu-persatu, atau sekaligus tiga-tiganya), lalu pindahkan ke kolom sebelah kanan, dengan cara mengklik tombol “>”. Silahkan klik OK untuk menutup jendela ini. Field-field ini adalah field yang berada pada file transaksi Penjualan

Tampilan sesudah properti SQL diisi, kira-kira akan menjadi seperti di bawah ini.

Langkah selanjutnya, adalah menambahkan Data Report untuk Laporan Harian. Klik menu Project pada menubar Visual Basic 6.0, dan pilih “Add Data Report” pada submenu yang muncul.

Akan muncul sebuah jendela DataReport1.

Seperti biasa, ubah dulu beberapa properti dari DataReport ini, seperti di bawah ini:

Tampilan sesudah properti-properti tersebut diubah kira-kira akan menjadi seperti di bawah ini:

DataReport rptHarian ini sudah terhubung dengan database Penjualan dan tabel Penjualan (lewat perintah SQL yang sebelumnya diberikan). Jadi, kita tinggal meletakkan field-field yang diperlukan pada DataReport tersebut.

Sebelumnya, ubah dulu ukuran jendela DataReport ini agar kita lebih leluasa dalam meletakkan field-field nanti.

Kemudian klik kanan (right-click) pada area kosong (sembarang, asal masih di dalam jendela DataReport), dan pilih “Retrieve Structure” dari popup menu yang muncul.

Pilih saja “Yes” jika ada pesan konfirmasi yang muncul.

Tampilan sesudahnya akan menjadi kira-kira seperti di bawah ini.

Lalu pilihlah area kosong pada bagian “Detail (cmdHarian_Detail)”, klik kanan di situ. Pada popup menu yang muncul, pilihlah “Insert Control”, lalu pada submenunya, pilih “TextBox”.

Sesaat kemudian, pada bagian Detail tadi, sudah terletak 1 (satu) field. Namun field ini belum dihubungkan dengan field manapun. Untuk menentukan field mana yang akan muncul pada textbox tadi, lakukan dulu perubahan pada properti “DataMember”. Isilah dengan “cmdHarian” (Anda dapat memilihnya dari combobox yang ada pada baris properti tersebut). Kemudian ubah juga properti “DataField”, dengan mengisinya dengan “Penjualan_Detail.Kode_Barang” (Anda juga dapat memilihnya dari combobox yang tersedia pada baris properti tersebut). Untuk properti lainnya bisa dibiarkan.

Tampilan sesudahnya akan menjadi kira-kira seperti di bawah ini.

Nah, ulangi langkah-langkah di atas, untuk field-field Nama_Barang, Jumlah, dan Harga. Setelah itu, khusus untuk field Jumlah dan field Harga, ubah juga properti-properti lainnya nya sebagai berikut:

Tampilan sesudahnya akan menjadi kira-kira seperti di bawah ini.

Selanjutnya, kita akan membuat garis pembatas antar record. Jadi, klik kanan di area kosong pada bagian Detail (cmdHarian_Detail), lalu pilih “Insert Control” pada popup menu yang muncul, dan pilih “Line” pada submenunya.

Kemudian, aturlah garis yang muncul, agar letaknya kira-kira seperti di bawah ini.

Setelah itu, rapatkan atau persempit area Detail (cmdHarian_Detail) menjadi kira-kira seperti di bawah ini:

Langkah selanjutnya adalah membuat Table Header untuk laporan ini. Kita akan menempatkan label yang berisi keterangan atau judul dari masing-masing field yang sudah ditambahkan sebelumnya, juga beberapa keterangan tambahan. Jadi sekarang lakukan klik kanan di area kosong pada bagian header tersebut, kemudian pada popup menu yang muncul, pilih “Insert Control”, lalu pilih lagi “Label”.

Tampilannya setelah itu akan menjadi kira-kira seperti di bawah ini.

Ubah caption dari “Label1” menjadi “Nomor Faktur :”, seperti di bawah ini.

Setelah itu, kita akan memasukkan field No_Faktur di sampingnya. Jadi, silahkan klik kanan lagi di area kosong pada bagian Group Header, lalu pilih Insert Control pada popup menu yang muncul, dan pilih lagi TextBox pada submenunya.

Tampilannya akan menjadi kira-kira seperti di bawah ini.

Terlihat di situ bahwa textbox tersebut belum terhubung dengan field manapun, yang ditangai dengan caption-nya yang bertuliskan “Unbound”. Untuk menghubungkannya dengan field No_Faktur, dengan textbox yang masih terpilih, silahkan klik pada jendela properties, lalu pada item properti DataField, pilihlah No_Faktur, dari combobox yang tersedia.

Tempilannya setelah itu akan menjadi kira-kira seperti di bawah ini:

Sekarang, karena keterangan untuk Nomor Faktur beserta field-nya sudah terhubung, silahkan ulangi lagi langkah-langkah di atas, mulai dari langkah klik kanan pada area Group Header, dan memilih menu Insert Control dan memilih lagi pilihan Label, sampai pada langkah memilih DataField dari combobox yang tersedia. Lakukan langkah-langkah tersebut untuk memasukkan keterangan tentang Tanggal Faktur. Buat agar menjadi kira-kira seperti di bawah ini.

Setelah itu, untuk memperjelas tiap field / textbox yang berada di bagian Detail, kita juga akan memberikan keterangan dari tiap textbox / field tersebut, di mana keterangan tersebut juga akan kita tempatkan pada bagian Group Header. Jadi, silahkan klik kanan lagi pada area kosong di bagian Group Header, lalu pilih Insert Control, dan pilih lagi Label pada menu yang ada. Tampilannya akan menjadi kira-kira seperti di bawah ini:

Ubah caption-nya menjadi Kode Barang, seperti di bawah ini.

Ulangi langkah tersebut, masing-masing untuk “Nama Barang”, “Jumlah”, “Harga” dan “Jum. Harga”, sehingga tampilannya akan menjadi seperti di bawah ini. Jika perlu, Anda bisa mengubah properti Font dari masing-masing label tersebut menjadi Arial-Bold 8 points. Anda bisa mengubahnya, tentunya pada jendela Properties, dengan masing-masing label yang masih terpilih (selected).

Untuk mempermanis tampilan, kita akan menambahkan kontrol Shape sebagai latar belakang dari label-label tersebut. Untuk itu, silahkan klik kanan pada area kosong, masih di bagian Group Header. Lalu pada popup menu yang muncul, pilihlah Insert Control, dan pilih lagi Shape, pada submenu yang tersedia.

Tampilannya sesudah itu akan menjadi kira-kira seperti di bawah ini.

Terlihat di situ sudah ada sebuah “kotak” yang muncul. Sekarang pindahkan kotak tersebut sehingga letaknya akan menjadi melingkupi label Kode Barang yang berada di bawahnya.

Tariklah bagian kanan dari kotak tersebut, untuk memperluas atau menambah panjang dari kotak tersebut.

Sekarang, kita akan memberikan warna pada kotak tersebut. Dengan kotak tersebut yang masih terpilih, beralihlah pada jendela Properties, lalu ubah item properti BackColor menjadi warna abu-abu. Anda dapat memilih warna lain sesuka Anda. Saya di sini memilih warna abu-abu yang berada pada baris ke tiga di kolom pertama.

Ubah juga properti BackStyle-nya menjadi “1 – rptBkOpaque”.

Tampilannya pada jendela report designer, akan menjadi seperti di bawah ini.

Terlihat di situ bahwa tulisan yang sebelumnya ada dan kita jadikan keterangan, malah tertutupi oleh kotak abu-abu tersebut. Untuk itu, kita akan mengatur agar kotak tersebut berada di bagian bawah dari label-label yang telah kita buat sebelumnya. Caranya adalah dengan melakukan klik-kanan pada kontrol shape / kotak tersebut, dan memilih Send to Back, pada popup menu yang muncul.

Setelah itu, akan nampak bahwa sekarang label-label yang sebelumnya kita buat, sudah terlihat / muncul kembali.

Untuk lebih mempermanis lagi, Anda dapat memperbesar sedikit tinggi dari kotak tersebut, sehingga akan menjadi seperti di bawah ini.

Laporan ini, untuk sementara sudah selesai. Namun kita belum dapat menampilkannya pada program yang kita buat. Untuk itu, buka lagi form frmUtama, lalu klik pada menu Laporan, dan klik lagi pada submenu Laporan Penjualan Harian.

Setelah itu, akan terbuka jendela Code Editor, untuk prosedur mnuLaporanPenjualanHarian_Click.

Pada area antara Private Sub dan End Sub, ketikkan kode berikut ini:

    rptHarian.Show vbModal

Tampilannya akan menjadi kita-kira seperti di bawah ini.

Setelah itu, Anda dapat mengujinya, dengan cara running program ini, dan mengklik menu Laporan dan memilih submenu Laporan Penjualan Harian. Tampilan yang muncul mungkin saja bisa berbeda, tergantung berapa banyak data yang sudah Anda masukkan ke dalam database program ini. Namun secara garis besar, akan seperti gambar di bawah ini.

Untuk sementara, desain dan pembuatan Laporan Bagian 1 ini selesai sampai di sini. Pada tutorial berikutnya, kita akan menambahkan form tersendiri untuk pencetakan Laporan Penjualan Harian ini. Dan karena ada form baru, maka tentu saja akan ada script tambahan juga. Jadi… sampai bertemu pada tutorial berikutnya ya. Jangan lupa untuk menyimpan dulu hasil pekerjaan Anda.

Doakan juga ya, agar tutorial berikutnya bisa selesai dengan baik, dan saya tidak terkena masalah lagi, hehe. Terima kasih masih mau menunggu dan maaf telah membuat Anda terlalu lama menunggu.

membuat program penjualan dengan visual basic 6.0 (tutorial – bagian 6 – PENULISAN SOURCE-CODE Form TRANSAKSI PENJUALAN)

2010-11-26T15:57:00.000+07:00

Pada tutorial sebelumnya, kita sudah mendesain form Transaksi Penjualan. Nah, sekarang saatnya kita menuliskan kode program alias source-code untuk form tersebut. Namun sebelum kita mulai mulai dengan kontrol-kontrol yang ada pada form tersebut, ada beberapa fungsi tambahan yang harus kita buat. Yang pertama adalah fungsi Pads(), yang berguna untuk memberikan angka “0” di depan angka yang akan kita olah. Bingung ya? Hehe, saya juga sebenarnya bingung untuk menerangkannya. Tapi nanti juga akan jelas kok, saat sudah mulai dan melihat hasilnya. Fungsi kedua adalah fungsi untuk menghasilkan Nomor Faktur. Jadi, kita namakan saja fungsi tersebut dengan nama NomorFaktur(). Dan fungsi ke tiga yang bernama IsiKodeBarang, sesuai dengan namanya, adalah untuk mengisi combobox cbKodeBarang, dengan data KodeBarang yang sudah ada pada tabel master Barang.

Langsung saja, buka form penjualan yang telah kita buat, lalu klik kanan di sembarang area kosong (yang tidak berisi kontrol) pada form penjualan, dan pilih View Code pada popmenu yang muncul.

Setelah itu akan muncul halaman source-code untuk form penjualan, yang hanya berisikan satu baris kode, yaitu “Option Explicit”. Ya, itu memang otomatis akan tampil pada setiap form baru yang kita buat, jika Anda mengeset opsi “Require Variable Declaration” pada posisi on atau checked. Jadi, jika kalimat tersebut tidak muncul, tidak usah khawatir, meskipun saya merekomendasikan untuk dipilihnya opsi tersebut, untuk membiasakan kita agar mendeklarasikan setiap variabel yang kita gunakan pada program.

Nah, tekan Enter satu kali untuk memberi ruang satu spasi di bawah tulisan tersebut, lalu ketikkan kode berikut:

Function Pads(nAngka) As String    
    'kita akan menetapkan batas panjang angka maksimal 3 digit    
    'jika lebih dari 3 digit, tiga angka pertama yang akan dipakai    
    If Len(Trim(Str(nAngka))) > 3 Then        
        Pads = Left(Trim(Str(nAngka)), 3)        
        Exit Function    
    'jika panjangnya hanya 3 digit, angka itulah yang dipakai    
    ElseIf Len(Trim(Str(nAngka))) = 3 Then        
        Pads = Trim(Str(nAngka))        
        Exit Function    
    'jika hanya 2 digit, tambahkan satu "0" (nol) di depannya    
    ElseIf Len(Trim(Str(nAngka))) = 2 Then        
        Pads = "0" & Trim(Str(nAngka))        
        Exit Function    
    'jika hanya 1 digit, tambahkan dua "0" (nol) di depannya    
    ElseIf Len(Trim(Str(nAngka))) = 1 Then        
        Pads = "00" & Trim(Str(nAngka))        
        Exit Function    
    End If
End Function

Berikan lagi satu spasi di bawah fungsi ini, dan ketikkan fungsi ke dua ini di bawahnya:

Function NomorFaktur() As String
Dim sNF As String
Dim nUrut As Single
    nUrut = 1
Ulang:
    'tetapkan dulu format nomor faktur di sini
    '(4 digit tahun + 2 digit bulan + 3 digit nomor urut)
    sNF = Format(dtpTanggal.Value, "yyyymm") & Pads(nUrut)
    'kemudian cari record dengan nomor faktur tersebut
    datPenjualan.RecordSource = "SELECT * FROM Penjualan WHERE No_Faktur = '" & sNF & "'"
    datPenjualan.Refresh
    'jika tidak ada, tetapkan ini sebagai nomor faktur
    If datPenjualan.Recordset.RecordCount = 0 Then
        NomorFaktur = sNF
        'jangan lupa untuk mengembalikan posisi awal
        'dari 'RecordSource' tabel penjualan ini...
        datPenjualan.RecordSource = "SELECT * FROM Penjualan"
        datPenjualan.Refresh
        Exit Function
    'jika tidak, maka sudah ada record lama,
    'jadi tambahkan saja nomor urutnya, dan ulangi pencarian
    Else
        nUrut = nUrut + 1
        GoTo Ulang
    End If
End Function

Sekali lagi, berikan lagi satu spasi di bawahnya untuk menambahkan fungsi ke tiga ini:

Sub IsiKodeBarang()
    cbKodeBarang.Clear
    datBarang.RecordSource = "SELECT * FROM Barang ORDER BY Kode_Barang"
    datBarang.Refresh
    If datBarang.Recordset.RecordCount = 0 Then
        MsgBox "Data Master Barang masih kosong. Isi dulu datanya!", vbCritical
        Unload Me
        Exit Sub
    End If
    Do While Not datBarang.Recordset.EOF
        cbKodeBarang.AddItem datBarang.Recordset.Fields("Kode_Barang")
        datBarang.Recordset.MoveNext
    Loop
    cbKodeBarang.ListIndex = 0
End Sub

Tampilan pada jendela source-code, kira-kira akan seperti di bawah ini:

Tiga fungsi dasar sudah jadi. Sekarang kita akan menuliskan kode program untuk kontrol selanjutnya. Kembalilah ke jalan yang benar, eh, maksudnya kembalilah ke jendela Desain Form .

Kontrol pertama yang akan kita “kerjain” adalah combobox cbKodeBarang. Jadi, double-click pada cbKodeBarang, agar terbuka jendela code-editor untuk cbKodeBarang tersebut.

Kita akan menuliskan kode untuk event Click(), jadi ubah dulu event-nya dengan cara mengklik combobox event, dan pilih Click di situ.

Dan akan muncul sebuah prosedur baru untuk event click ini.

Nah, tuliskan kode berikut pada batas antara “Private Sub cbKodeBarang_Click()” dan “End Sub”.

    datBarang.RecordSource = "SELECT * FROM Barang WHERE Kode_Barang = '" & cbKodeBarang.Text & "'"
    datBarang.Refresh
    If datBarang.Recordset.RecordCount > 0 Then
        txtNamaBarang.Text = datBarang.Recordset.Fields("Nama_Barang")
        datBarang.RecordSource = "SELECT * FROM Barang"
    datBarang.Refresh
    End If

Tampilan pada jendela code-editor kira-kira akan seperti ini:

Kontrol selanjutnya yang akan kita tulis kode programnya adalah tombol / commandbutton cmdMasuk. Jadi, setelah kembali ke jendela form-design, double-click-lah pada tombol cmdMasuk.

Dan jendela code-editor akan terbuka seperti biasa.

Ketikkan code berikut pada baris antara “Private Sub cmdMasuk_Click()” dan “End Sub”.

    On Error Resume Next
    datTemporar.Refresh
    datTemporar.Recordset.AddNew
    datTemporar.Recordset.Fields("Kode_Barang") = cbKodeBarang.Text
    datTemporar.Recordset.Fields("Nama_Barang") = txtNamaBarang.Text
    datTemporar.Recordset.Fields("Jumlah") = Val(txtJumlah.Text)
    datTemporar.Recordset.Update
    MsgBox "Data sudah dimasukkan ke dalam tabel sementara.", vbInformation
    txtJumlah.Text = ""
    cbKodeBarang.ListIndex = cbKodeBarang.ListIndex + 1
    cbKodeBarang.SetFocus

Tampilan di jendela code-editor kira-kira akan seperti di bawah ini:

Tutup jendela code-editor untuk kembali ke form-designer. Kontrol berikutnya yang akan kita berikan script adalah textbox txtJumlah. Jadi, double-click pada txtJumlah, agar jendela code-editor kembali terbuka dengan kursor yang berada pada posisi prosedur txtJumlah_Change.

Lalu pada bagian antara “Private Sub txtJumlah_Change()” dan “End Sub”, ketikkan kode berikut:

    If Val(txtJumlah.Text) = 0 Then
        cmdMasuk.Enabled = False
    Else
        cmdMasuk.Enabled = True
    End If

Tampilan pada jendela code-editor akan terlihat kira-kira seperti di bawah ini:

Script di atas akan berguna untuk mendeteksi nilai atau isian dari txtJumlah. Jika yang diisi di situ bukan angka, maka comandbutton cmdMasuk, tidak akan bisa diklik (disabled). Sebaliknya, jika yang diisi adalah angka, maka cmdMasuk baru akan bisa diklik. Lalu bagaimana kalau user mengisikan campuran antara angka dan huruf? Tergantung isiannya. Jika isian pertama adalah huruf, maka cmdMasuk akan di-disabled. Dan jika isian pertama adalah angka, maka deretan angka pertama itulah yang akan diambil. Jadi, jika user mengisikan 123wrt, maka yang diambil adalah angka 123. Namun jika user mengisikan wrt123, cmdMasuk tidak akan bisa diklik (disabled). Dan jika yang diisi adalah 123wrt456, maka yang diambil hanyalah 123 saja. Oiya, jika yang diisikan adalah angka 0 (nol), cmdMasuk juga akan di-disable.

Kontrol selanjutnya yang akan diberikan script adalah cmdBatal. Lho, kenapa bukan cmdSimpan? Karena ada baris program pada cmdSimpan yang nantinya akan memanggil prosedur cmdBatal. Jadi, cmdBatal akan kita buat lebih dulu scriptnya. Jadi, kembalilah ke jendela form-designer, lalu double-click pada tombol / commandbutton cmdBatal, agar jendela code-editor terbuka, dan kursor berada pada prosedur cmdBatal_Click.

Dan, di antara “Private Sub cmdBatal_Click()” dan “End Sub”, ketikkan kode berikut:

Dim dbTemp As Database
    On Error Resume Next
    lblNoFaktur.Caption = "Nomor Faktur : " & NomorFaktur()
    Set dbTemp = OpenDatabase(App.Path & "Penjualan.mdb")
    dbTemp.Execute "DELETE * FROM Temporar"
    dbTemp.Recordsets.Refresh
    datTemporar.Refresh
    dbgTemporar.Refresh
    dbTemp.Close
    cbKodeBarang.ListIndex = 0
    cbKodeBarang.SetFocus

Tampilan pada jendela code-editor akan terlihat kira-kira seperti di bawah ini:

Kontrol selanjutnya yang akan kita tuliskan script-nya adalah cmdSimpan. Jadi, kembalilah ke jendela form-designer, lalu double-click pada tombol / commandbutton cmdSimpan, agar jendela code-editor terbuka, dan kursor berada pada prosedur cmdSimpan_Click.

Dan, di antara “Private Sub cmdSimpan_Click()” dan “End Sub”, ketikkan kode berikut:

Dim sNoFaktur As String
    sNoFaktur = NomorFaktur()
    datPenjualan.Refresh
    datPenjualan.Recordset.AddNew
    datPenjualan.Recordset.Fields("No_Faktur") = sNoFaktur
    datPenjualan.Recordset.Fields("Tanggal") = dtpTanggal.Value
    datPenjualan.Recordset.Fields("Keterangan") = "-"
    datPenjualan.Recordset.Update
    Do While Not datTemporar.Recordset.EOF
        datPenjualanDetail.Recordset.AddNew
        datPenjualanDetail.Recordset.Fields("No_Faktur") = NomorFaktur()
        datPenjualanDetail.Recordset.Fields("Kode_Barang") = datTemporar.Recordset.Fields("Kode_Barang")
        datPenjualanDetail.Recordset.Fields("Jumlah") = datTemporar.Recordset.Fields("Jumlah")
        datPenjualanDetail.Recordset.Update
        datTemporar.Recordset.MoveNext
    Loop
    datPenjualan.Refresh
    datPenjualanDetail.Refresh
    MsgBox "Data penjualan sudah disimpan.", vbInformation
    cmdBatal_Click

Tampilan pada jendela code-editor akan terlihat kira-kira seperti di bawah ini:

Setelah itu, kita harus memberikan script juga pada event “Load”, pada form Transaksi Penjualan ini. Caranya, setelah kembali ke jendela form-designer, double-click-lah pada sembarang area form yang kosong (tidak berisi kontrol apapun), agar terbuka jendela code-editor yang menunjukkan prosedur Form_Load.

Setelah itu, di antara text “Private Sub Form_Load()” dan “End Sub”, ketikkan script berikut:

    lblNoFaktur.Caption = "Nomor Faktur : " & NomorFaktur()
    IsiKodeBarang
    If Val(txtJumlah.Text) = 0 Then
        cmdMasuk.Enabled = False
    Else
        cmdMasuk.Enabled = True
    End If
    cmdBatal_Click

Tampilan pada jendela code-editor akan tampak kira-kira seperti di bawah ini:

Kontrol terakhir yang akan kita beri script, tentu saja adalah cmdSelesai. Jadi, pada form-designer, double-click-lah pada tombol cmdSelesai, agar terbuka jendela code-editor pada prosedur cmdSelesai_Click.

Dan, di antara “Private Sub cmdSelesai_Click()” dan “End Sub”, ketikkan kode berikut:

    Unload Me

Yup. Memang hanya satu baris itu saja yang diperlukan. Gunanya adalah untuk menutup form data transaksi Penjualan ini, setelah user selesai mengisikan seluruh data-data penjualan.

Anda bisa mencobanya. Namun sebelum itu, kembalilah kepada form frmUtama, lalu klik pada menu Transaksi, dan submenu Penjualan, untuk mengisikan script pada bagian tersebut.

Lalu pada bagian antara “Private Sub cmdSelesai_Click()” dan “End Sub”, ketikkan kode berikut:

    frmPenjualan.datBarang.Refresh
    If frmPenjualan.datBarang.Recordset.RecordCount = 0 Then
        MsgBox "Data master barang masih kosong. Isi dulu!", vbCritical
        mnuBarang_Click
        Exit Sub
    End If
    frmPenjualan.Show vbModal

Tampilan pada jendela code-editor akan terlihat kira-kira seperti di bawah ini:

Mungkin di antara Anda ada yang bertanya, mengapa harus ada script untuk memeriksa apakah data Barang sudah terisi atau belum. Jawabannya adalah karena jika data Barang masih kosong, maka combobox cbKodeBarang pada form Transaksi Penjualan juga tidak bisa terisi. Dan jika cbKodeBarang tidak bisa terisi, maka proses pemasukan data pada form transaksi penjualan juga tidak akan bisa dilakukan. Maka dari itu, script tersebut juga mengatur agar bila data pada tabel Barang masih kosong, maka user akan diberitahu mengenai hal tersebut, dan kemudian langsung membuka form Data Master Barang.

Script untuk form Transaksi Penjualan sudah selesai, termasuk script untuk memanggilnya. Anda bisa langsung mencobanya.

Sebenarnya ada beberapa modifikasi yang bisa kita lakukan pada form tersebut. Tapi itu akan kita lakukan nanti, pada bagian-bagian akhir. Selanjutnya, kita akan membuat desain untuk laporan-laporan yang nantinya akan dihasilkan oleh program ini.

Tapi itu nanti, pada tutorial selanjutnya ya…

membuat program penjualan dengan visual basic 6.0 (tutorial - bagian 6 – Design Form TRANSAKSI PENJUALAN)

2010-11-19T13:47:00.000+07:00

Pertama, tentu saja, saya harus meminta maaf karena tutorial ini sudah tertunda cukup lama, yang dikarenakan oleh tingginya volume pekerjaan di kantor saya. Dan, terima kasih karena masih mau menunggu.

Pada tutorial sebelumnya, kita sudah membuat form Data Master Barang. Sekarang kita akan membuat form Transaksi Penjualan. Langsung saja ya. Tambahkan sebuah form pada Project yang sudah kita buat ini, dengan cara menekan tombol Ctrl-D pada keyboard Anda, atau dengan mengklik menu “Project”, dan memilih submenu “Add Form”.

Pada kotak dialog yang muncul, pilih “Form”, lalu klik tombol “Open”.

Dan sebuah form kosong akan muncul.

Seperti biasa, ubah beberapa property-nya, lewat jendela Properties.

Ubah property-nya untuk nilai-nilai berikut ini:

No.	Nama Properti	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmPenjualan
2.	BorderStyle	2 – Sizeable	1 – Fixed Single
3.	Caption	Form1	Form Transaksi Penjualan
4.	StartUpPosition	3 – Windows Default	2 – Center Screen

Setelah itu, mungkin lebih baik Anda menyimpan dulu form ini, pada folder yang telah kita buat di awal.

Jika sudah selesai menyimpan, kita akan dikembalikan pada Form Transaksi Penjualan yang masih kosong ini.

Sebelum kita mulai mendesain form Transaksi Penjualan ini, ada satu hal yang harus dilakukan, yaitu kembali menambah satu komponen tambahan, yang akan dipakai pada form ini. Caranya tentu saja, dengan mengklik menu Project, kemudian pilih submenu Components, atau bisa juga dengan menekan tombol Ctrl-T pada keyboard Anda.

Lalu pada jendela Components, carilah kontrol “Microsoft Windows Common Controls-2 6.0”, berikan tanda centang (check) pada checkbox di sampingnya, lalu klik tombol Apply, dan klik juga tombol Close.

Sesudah itu, pada toolbox akan bertambah beberapa kontrol tambahan, karena pada komponen Microsoft Windows Common Controls-2 6.0 memang memuat beberapa kontrol sekaligus, yaitu kontrol Animation, UpDown, MonthView, DTPicker, dan FlatScrollBar. Namun kita hanya akan menggunakan satu kontrol saja yaitu DTPicker alias DateTimePicker.

Sekarang, taruhlah beberapa kontrol dan buatlah desain form-nya seperti di bawah ini:

Keterangan:

Kontrol Nomor 1,3,4,6, dan 8 adalah Label
Kontrol Nomor 2 adalah DTPicker atau DateTimePicker
Kontrol Nomor 5 adalah ComboBox
Kontrol Nomor 7 dan 9 adalah TextBox
Kontrol Nomor 10, 12, 13 dan 14 adalah CommandButton
Kontrol Nomor 11 adalah DBGrid atau DataBoundGrid
Kontrol Nomor 15, 16, 17 dan 18 adalah kontrol Data.

Sedangkan properti yang harus diubah dari masing-masing kontrol tersebut adalah:

Kontrol Nomor 1 (Label):

Properti	Nilai Awal	Ubah Menjadi
Caption	Label1	Tanggal
AutoSize	False	True
BackStyle	1 - Opaque	0 - Transparent

Kontrol Nomor 2 (DTPicker atau DateTimePicker):

Properti	Nilai Awal	Ubah Menjadi
Name	DTPicker1	dtpTanggal
CustomFormat	(kosong)	dd/MM/yyyy
Format	1 – dtpShortDate	3 – dtpCustom

Kontrol Nomor 3 (Label):

Properti	Nilai Awal	Ubah Menjadi
Name	Label2	lblNomorFaktur
Alignment	0 – Left Justify	1 – Right Justify
Caption	Label2	Nomor Faktur : -
AutoSize	False	True
BackStyle	1 - Opaque	0 – Transparent

Kontrol Nomor 4 (Label):

Properti	Nilai Awal	Ubah Menjadi
Caption	Label3	Kode Barang
AutoSize	False	True
BackStyle	1 - Opaque	0 - Transparent

Kontrol Nomor 5 (ComboBox):

Properti	Nilai Awal	Ubah Menjadi
Name	Combo1	cbKodeBarang
Style	0 – Dropdown Combo	2 – Dropdown List

Kontrol Nomor 6 (Label):

Properti	Nilai Awal	Ubah Menjadi
Caption	Label4	Nama Barang
AutoSize	False	True
BackStyle	1 - Opaque	0 - Transparent

Kontrol Nomor 7 (Textbox):

Properti	Nilai Awal	Ubah Menjadi
Name	Text1	txtNamaBarang
Text	Text1	(kosongkan)
Enabled	True	False

Kontrol Nomor 8 (Label):

Properti	Nilai Awal	Ubah Menjadi
Caption	Label5	Jumlah
AutoSize	False	True
BackStyle	1 - Opaque	0 – Transparent

Kontrol Nomor 9 (Textbox):

Properti	Nilai Awal	Ubah Menjadi
Name	Text2	txtJumlah
Text	Text2	(kosongkan)

Kontrol Nomor 10 (CommandButton):

Properti	Nilai Awal	Ubah Menjadi
Name	Command1	cmdMasuk
Caption	Command1	Masukkan Ke Dalam Daftar

Untuk kontrol nomor 11 (DataBoundGrid atau DBGrid), kita lewatkan saja dulu, karena propertinya berhubungan dengan kontrol data yang nantinya akan kita ubah proeprtinya.

Kontrol Nomor 12 (CommandButton):

Properti	Nilai Awal	Ubah Menjadi
Name	Command2	cmdSimpan
Caption	Command2	Simpan

Kontrol Nomor 13 (CommandButton):

Properti	Nilai Awal	Ubah Menjadi
Name	Command3	cmdBatal
Caption	Command3	Batal

Kontrol Nomor 14 (CommandButton):

Properti	Nilai Awal	Ubah Menjadi
Name	Command4	cmdSelesai
Caption	Command4	Selesai

Kontrol Nomor 15 (Data):

Properti	Nilai Awal	Ubah Menjadi
Name	Data1	datBarang
DatabaseName	(kosong)	C:PenjualanPenjualan.mdb
RecordSource	(kosong)	Barang

Kontrol Nomor 16 (Data):

Properti	Nilai Awal	Ubah Menjadi
Name	Data2	datTemporar
DatabaseName	(kosong)	C:PenjualanPenjualan.mdb
RecordSource	(kosong)	Temporar

Kontrol Nomor 17 (Data):

Properti	Nilai Awal	Ubah Menjadi
Name	Data3	datPenjualan
DatabaseName	(kosong)	C:PenjualanPenjualan.mdb
RecordSource	(kosong)	Penjualan

Kontrol Nomor 18 (Data):

Properti	Nilai Awal	Ubah Menjadi
Name	Data4	datPenjualanDetail
DatabaseName	(kosong)	C:PenjualanPenjualan.mdb
RecordSource	(kosong)	Penjualan_Detail

Setelah seluruh kontrol data kita ubah, waktunya kita mengubah properti untuk kontrol nomor 15, yaitu DBGrid atau DataBoundGrid. Berikut adalah properti yang harus diubah:

Kontrol Nomor 11 (DBGrid atau DataBoundGrid):

Properti	Nilai Awal	Ubah Menjadi
Name	DBGrid1	dbgTemporar
DataSource	(kosong)	datTemporar

Setelah itu, silahkan Anda melakukan klik-kanan atau right-click pada kontrol DBGrid tersebut, lalu pada popup menu yang muncul, pilihlah “Retrieve Fields”.

Dan, tampilan form sesudah seluruh properti itu diubah, kira-kira akan menjadi seperti berikut ini:

Ada lagi yang mesti diubah. Empat kontrol Data yang berada di bagian paling bawah form, akan kita sembunyikan, karena kita tidak ingin user melihat dan berinteraksi dengannya. Jadi, kita akan mengubah tinggi form. Tampilannya akan menjadi seperti berikut ini:

Desain form sudah selesai. Selanjutnya tentu saja, kita akan menulis kode program untuk form tersebut. Dan itu akan kita bahas pada tutorial berikutnya. Doakan biar lancar dan tidak tertunda lagi ya…

membuat program penjualan dengan visual basic 6.0 (tutorial - bagian 5 – PENULISAN SCRIPT PADA FORM DATA MASTER BARANG)

2010-09-20T13:45:00.000+07:00

Sebelum kita mulai menuliskan script, enaknya form Data Master Barang yang sudah kita buat ditampilkan dulu ya.

Nah, script yang akan kita tuliskan adalah script untuk kontrol cmdTambah, cmdEdit, cmdBatal, cmdHapus, cmdSelesai dan Form_Load. Tapi sebelum itu, ada beberapa fungsi tambahan dulu yang akan kita buat.

Langsung saja, lakukan right-click (klik-kanan) pada bagian form manapun yang kosong (tidak terdapat kontrol), dan pilih “View Code” pada popup menu yang muncul. Atau Anda bisa juga menekan tombol Ctrl-F6 pada keyboard Anda.

Setelah itu, akan terbuka jendela Code Editor VB6. Di sinilah kita akan menuliskan script-script kita. Jika anda mengaktifkan opsi Require Variable Declaration pada Visual Basic 6.0 setting, maka di bagian paling atas akan ada 1 baris script bertuliskan “Option Explicit” .

Jika tidak, maka jendela code editor ini akan benar-benar kosong. Dan Anda sebaiknya menambahkan script tersebut pada bagian paling atas dari jendela code editor tersebut, seperti terlihat pada gambar.

Anda mungkin bisa menambahkan satu baris kosong, untuk mempercantik penulisan script-nya, agar terlihat rapi. Dan setelah itu, dua baris di bawah script Option Explicit, tuliskan script berikut ini:

Sub Kosong()
    On Error Resume Next
    txtKodeBarang.Text = ""
    txtNamaBarang.Text = ""
    meHarga.Text = ""
    txtKodeBarang.SetFocus
End Sub

Itu adalah prosedur untuk membershkan / mengosongkan isian pada semua kotak isian yang ada, dan (kalau mungkin) menempatkan kursor pada kontrol txtKodeBarang. Sebenarnya hal ini bisa saja langsung dituliskan pada setiap kontrol yang membutuhkan. Tapi dengan menempatkan beberapa baris program pada satu atau beberapa prosedur, akan bisa mempercepat penulisan script, dan tentu saja, akan membuat tampilan dari kode program / script menjadi lebih rapi.

Ini adalah prosedur ke dua yang kita akan buat. Jadi, tuliskan script berikut ini, di bawah prosedur pertama tadi. Berikan satu baris kosong dulu agar penulisan menjadi lebih rapi.

Sub Kunci(bKunci As Boolean)
    txtKodeBarang.Enabled = Not bKunci
    txtNamaBarang.Enabled = Not bKunci
    meHarga.Enabled = Not bKunci
End Sub

Script ke dua adalah script untuk mengunci beberapa kontrol, yaitu txtKodeBarang, txtNamaBarang dan meHarga, agar tidak dapat ditulisi. Kenapa harus dikunci? Karena kita akan membuat agar user harus mengklik dulu tombol cmdTambah, jika ingin menambahkan data, atau mengklik tombol cmdEdit, bila ingin mengedit data yang ada. Sedangkan bila ingin menghapus, tidak berpengaruh, apakah kotak isian dalam kondisi terkunci atau tidak, meskipun sebaiknya mereka berada dalam kondisi terkunci (disabled).

Script ke tiga adalah sebuah fungsi untuk memeriksa keberadaan Kode Barang yang dimasukkan oleh User. Jika sudah ada, maka fungsi ini akan mengembalikan nilai True, dan jika belum ada, akan mengembalikan nilai False. Script-nya adalah sebagai berikut:

Function CariKode(sKode As String) As Boolean
    datBarang.RecordSource = "SELECT * FROM Barang " & _
        "WHERE Kode_Barang = '" & sKode & "'"
    datBarang.Refresh
    If datBarang.Recordset.RecordCount = 0 Then
        CariKode = False
    Else
        CariKode = True
    End If
    datBarang.RecordSource = "SELECT * FROM Barang"
    datBarang.Refresh
End Function

Tampilan setelah kedua prosedur dan satu fungsi tersebut ditambahkan akan menjadi kira-kira seperti di bawah ini:

Sekarang, kembalikan dulu tampilan pada jendela form designer, dengan cara menekan Ctrl-F6, atau melakukan klik-kanan pada item frmBarang (frmBarang.frm) yang berada di dalam jendela Project Explorer.

Dan kita akan dikembalikan pada jendela Form Designer untuk form Data Master Barang.

Hm… kontrol mana dulu yang akan kita buatkan script-nya? Yang paling mudah saja ya. Kita akan pilih tombol cmdSelesai. Jadi lakukan double-click pada tombol atau kontrol cmdSelesai, untuk kembali membuka jendela Code Editor.

Tak lama setelah itu akan terbuka jendela code editor, dengan kursor yang berada di dalam bagian dari prosedur “Private Sub cmdSelesai_Click()”.

Lagi-lagi untuk lebih merapikan penulisan, tekan tombol Tab pada keyboard Anda sekali, lalu tuliskan script berikut:

    Unload Me

atau tampilan lengkapnya adalah sebagai berikut:

Kok cuma satu baris? Cuma Unload Me saja? Yup! Memang, karena fungsi tombol tersebut memang hanya untuk menutup form Data Master Barang ini, dan mengembalikan user pada form utama. Jadi, perintahnya ya memang itu saja.

Script untuk cmdSelesai sudah, sekarang beralih ke script untuk kontrol lainnya ya. Tekan lagi Ctrl-F6 pada keyboard Anda, untuk mengembalikan tampilan pada jendela Form Designer VB6.

Kontrol berikutnya yang akan kita tuliskan scriptnya adalah tombol cmdTambah. Jadi, silahkan double-click pada cmdTambah, untuk membawa kita pada jendela code editor, tepatnya pada prosedur Private Sub cmdTambah_Click().

Jendela code editor akan terbuka pada prosedur cmdTambah_Click().

Seperti biasa, tekan dulu tombol TAB pada keyboard Anda, agar penulisan script bisa agak masuk ke dalam dan terlihat rapi.

Setelah itu, ketikkan script berikut ini di antara bagian “Private Sub cmdTambah_Click()” dan “End Sub” :

    If cmdTambah.Caption = "Tambah" Then
        Kunci False
        Kosong
        cmdEdit.Enabled = False
        cmdHapus.Enabled = False
        cmdBatal.Enabled = True
        cmdTambah.Caption = "Simpan"
    Else
        If CariKode(txtKodeBarang.Text) Then
            MsgBox "Kode Barang tersebut sudah ada.", _
                vbCritical, "Maaf..."
            txtKodeBarang.SetFocus
            Exit Sub
        End If
        datBarang.Recordset.AddNew
        datBarang.Recordset.Fields("Kode_Barang") = txtKodeBarang.Text
        datBarang.Recordset.Fields("Nama_Barang") = txtNamaBarang.Text
        datBarang.Recordset.Fields("Harga") = meHarga.Text
        datBarang.Recordset.Update
        datBarang.Refresh
        dbgBarang.Refresh
        MsgBox "Data sudah disimpan.", vbInformation, "Terima kasih."
        cmdTambah.Caption = "Tambah"
        cmdEdit.Enabled = True
        cmdHapus.Enabled = True
        cmdBatal.Enabled = False
        Kosong
        Kunci True
    End If

Atau, tampilan lengkapnya adalah sebagai berikut:

Selanjutnya, Anda bisa kembali ke jendela Form Designer, dengan menekan tombol Ctrl-F6 pada keyboard Anda.

Script berikutnya adalah untuk tombol cmdEdit. Double-click cmdEdit, kemudian pada jendela code editor yang muncul, ketikkan script berikut di antara bagian “Private Sub cmdEdit_Click()” dan “End Sub” :

    If cmdEdit.Caption = "Edit" Then
        Kunci False
        cmdTambah.Enabled = False
        cmdHapus.Enabled = False
        cmdBatal.Enabled = True
        'kita tidak mengizinkan isi Kode Barang untuk diubah,
        'jadi kotak isian ini harus di-disable terlebih dulu...
        txtKodeBarang.Enabled = False
        cmdEdit.Caption = "Update"
        txtNamaBarang.SetFocus
    Else
        datBarang.Recordset.Edit
        datBarang.Recordset.Fields("Nama_Barang") = txtNamaBarang.Text
        datBarang.Recordset.Fields("Harga") = meHarga.Text
        datBarang.Recordset.Update
        datBarang.Refresh
        dbgBarang.Refresh
        MsgBox "Data sudah di-update.", vbInformation, "Terima kasih."
        cmdEdit.Caption = "Edit"
        cmdTambah.Enabled = True
        cmdHapus.Enabled = True
        cmdBatal.Enabled = False
        Kosong
        Kunci True
    End If

Dan tampilan pada jendela Code Editor adalah seperti berikut ini:

Selanjutnya tentu saja, tekan Ctrl-F6 pada keyboard Anda untuk kembali ke jendela Form Designer.

Berikutnya adalah script untuk cmdBatal. Seperti sebelumnya, double-click pada tombol cmdBatal, dan pada jendela Code Editor, ketikkan script berikut di antara bagian “Private Sub cmdBatal_Click()” dan “End Sub”.

    Kosong
    Kunci True

Atau tampilan lengkapnya adalah seperti berikut ini:

Setelah itu, tekan lagi tombol Ctrl-F6 untuk kembali ke jendela Form Designer.

Selanjutnya, double-click tombol cmdHapus untuk membuka jendela Code Editor. Lalu di antara bagian “Private Sub Hapus_Click()” dan “End Sub”, ketikkan script berikut:

    If MsgBox("Yakin ingin menghapus data ini?" & Chr(13) & _
            "Kode Barang: " & datBarang.Recordset.Fields("Kode_Barang") & Chr(13) & _
            "Nama Barang: " & datBarang.Recordset.Fields("Nama_Barang") & Chr(13) & _
            "Harga: " & Format(datBarang.Recordset.Fields("Harga"), "#,##0"), _
            vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
        datBarang.Recordset.Delete
        datBarang.Refresh
        dbgBarang.Refresh
        MsgBox "Data sudah dihapus...", vbInformation, "Informasi"
    End If

Dan tampilan lengkapnya adalah sebagai berikut:

Setelah itu, tekan lagi tombol Ctrl-F6 untuk kembali ke jendela Form Designer.

Kontrol selanjutnya yang akan diberikan script adalah DataBoundGrid dbgBarang. Jadi, double-click pada dbgBarang untuk membuka jendela Code Editor.

Terlihat di situ bahwa secara default, yang terbuka adalah Sub Rutin dbgBarang, namun untuk event “Click” . Namun karena kita menginginkan user untuk men-double-click (bukan single-click), maka kita harus mengubah dulu event-nya. Caranya adalah dengan mengklik pada combobox Event, yang sekarang bertuliskan “Click”, dan ubah nilainya dengan memilih “DblClick”.

Setelah itu akan muncul sebuah prosedur baru, di mana kursor keyboard secara otomatis juga akan berada di dalamnya.

Nah, pada bagian antara “Private Sub dbgBarang_DblClick()” dan “End Sub” , ketikkan script berikut ini.

    dbgBarang.Col = 0
    txtKodeBarang.Text = dbgBarang.Text
    dbgBarang.Col = 1
    txtNamaBarang.Text = dbgBarang.Text
    dbgBarang.Col = 2
    meHarga.Text = dbgBarang.Text

Atau lengkapnya adalah sebagai berikut:

Sudah? Tekan lagi Ctrl-F6 pada keyboard Anda untuk kembali ke jendela Form Designer.

Script terakhir adalah untuk event Form_Load. Script ini akan di-eksekusi atau dijalankan, saat form Data Master Barang ini di-load ke memory, atau ditampilkan. Jadi, silahkan double-click pada sembarang bagian form yang kosong (tidak berisi kontrol apapun), untuk membuka jendela Code Editor. Lalu pada bagian antara “Private Sub Form_Load()” dan “End Sub”, ketikkan script berikut.

    On Error Resume Next
    datBarang.Refresh
    'Jika database masih kosong, maka
    If datBarang.Recordset.RecordCount = 0 Then
        'tombol Edit & Hapus harus di-disable
        cmdEdit.Enabled = False
        cmdHapus.Enabled = False
    Else
        'jika tidak, bisa di-enable
        cmdEdit.Enabled = True
        cmdHapus.Enabled = True
    End If
    Kosong
    Kunci True

Atau tampilan lengkapnya adalah sebagai berikut:

Tekan lagi Ctrl-F6 untuk kembali ke jendela Form Designer VB6.

Sampai tahap ini sebenarnya tahap coding / penulisan script untuk form Data Master Barang sudah selesai, dan form tersebut sudah bisa digunakan. Namun masih ada modifikasi yang akan kita tambahkan nantinya. Sekarang, untuk sementara, tutup dulu form Data Master Barang ini, dan kita akan kembali ke form Utama (frmUtama).

Jika sudah, Anda dapat mengklik pada menu Master, kemudian pilih submenu Barang, dan jendela Code Editor akan kembali terbuka.

Dan di antara bagian “Private Sub mnuBarang_Click()” dan “End Sub”, ketikkan script berikut ini:

    frmBarang.Show vbModal

Atau tampilan lengkapnya adalah seperti berikut ini:

Jika sudah, Anda dapat menekan tombol Ctrl-F6 pada keyboard Anda untuk kembali ke jendela Form Designer.

Sekarang, klik menu Keluar, dan tak lama kemudian jendela Code Editor akan terbuka.

Pada bagian antara “Private Sub mnuKeluar_Click()” dan “End Sub’, ketikkan script berikut:

    If MsgBox("Yakin ingin keluar dari aplikasi ini?", _
            vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
        End
    End If

atau tampilan lengkapnya adalah seperti di bawah ini:

Setelah itu, klik tombol Ctrl-F6 pada keyboard Anda, untuk kembali lagi ke jendela Form Designer.

Selanjutnya Anda dapat men-test form Data Master Barang dengan cara menjalankan (running) aplikasi ini. Caranya dengan menekan tombol “F5” pada keyboard Anda. Lalu setelah aplikasi berjalan dan form Utama telah tampil, pilihlah menu Master, lalu pilih submenu Barang.

Dan, setelah jendela Form Data Master Barang terbuka,

Anda dapat mulai melakukan pengujian, dengan cara menambah data, mengedit, maupun menghapusnya. Untuk mengedit, Anda harus melakukan double-click pada setiap baris data pada tabel dbgBarang yang Anda ingin Edit. Demikian juga untuk menghapus data, Anda harus melakukan double-click pada setiap baris data yang Anda ingin hapus.

Isikan sampai beberapa data dalam tahap pengujian ini.

Kalau sudah selesai, Anda dapat menutup form Data Master Barang dengan cara mengklik tombol “Selesai”. Dan setelah selesai dan kembali ke Form Utama, Anda kembali dapat keluar dengan mengklik menu Keluar, lalu pilih “Yes” pada pertanyaan yang muncul.

Selanjutnya, kita akan membuat form Transaksi Penjualan. Dan nanti kalau seluruh bagian program sudah selesai dibuat, termasuk Desain Laporan-Laporan yang diperlukan, baru kita akan membuat beberapa modifikasi atau perubahan-perubahan. Sengaja saya buat terpisah, untuk lebih memperjelas, karena sebenarnya tanpa modifikasi itupun program sudah bisa berjalan dengan baik. Modifikasi yang ada dilakukan untuk lebih “memperkuat” aplikasi program ini.

Dan sekarang, silahkan simpan pekerjaan Anda, dan sampai jumpa lagi pada Tutorial tahap selanjutnya.

membuat program penjualan dengan visual basic 6.0 (tutorial - bagian 4 - perancangan form data master barang Bagian 2)

2010-09-17T14:02:00.000+07:00

Mau bayar utang nih. Setelah lama tertunda karena kesibukan menjelang lebaran kemarin, sekarang saya akan melanjutkan tutorial Pembuatan Program Penjualan Dengan Visual Basic 6.0. Maaf sudah lama menunggu dan terima kasih karena masih mau menunggu. Pada tutorial sekarang, kita akan coba dulu menampilkan form Data Master Barang yang sudah kita buatkan desain formnya pada tutorial sebelumnya.

Yup! Itulah desain form Data Master Barang yang sudah kita buat. Dan seharusnya, tahap berikutnya adalah penulisan kode program / script. Tapi rupanya ada yang mesti kita ubah dahulu, karena ada sesuatu yang janggal di situ. Ada yang tahu? Yup, benar sekali. Coba perhatikan ada berapa kotak isian, dan ada berapa pula field pada tabel yang berada di bawah deretan tombol yang ada? Terlihat kan, bahwa ternyata ada satu kotak isian lagi yang tertinggal, yaitu kotak isian “Harga”, padahal pada tabel di bawahnya, jelas terlihat ada field Harga. Lagipula program penjualan kan memang mestinya ada komponen harga, hehe.

Jadi sekarang, untuk mengubahnya, perluas dulu form tersebut, agar tersedia ruang yang cukup untuk kita nantinya menempatkan kolom harga.

Setelah itu, pilihlah seluruh kontrol, mulai dari cmdTambah, cmdEdit, cmdBatal, cmdHapus, cmdSelesai, sampai dbgBarang.

Setelah terpilih semua, geserlah seluruh kontrol tersebut ke bawah, dan atur agar tersisa ruang kosong di bawah kolom Nama Barang, yang cukup untuk ditempatkan satu kotak isian lagi yang tingginya kira-kira sama.

Setelah itu, Anda dapat menambahkan sebuah kontrol label, sebagai penunjuk untuk kotak isian Harga nantinya. Kliklah icon Label ( ) pada toolbox, lalu “lukislah” pada form, dan ubah propertinya menjadi seperti berikut:

No.	Nama Properti	Nilai Awal	Ubah Menjadi
1.	AutoSize	False	True
2.	BackStyle	1 - Opaque	0 - Transparent
3.	Caption	Label3	Harga

Tampilannya akan seperti ini:

Nah, untuk kotak isian-nya, kita tidak akan menggunakan kontrol textbox biasa, melainkan akan menggunakan kontrol Masked Edit. Dan karena secara default VB6 belum menyertakannya dalam toolbox yang ada, maka kita harus menambahkannya. Caranya sama seperti saat kita menambahkan kontrol Data Bound Grid, yaitu dengan mengklik menu Project, kemudian memilih submenu Components.

Dan, pada daftar komponen yang ada, carilah Microsoft Masked Edit Control 6.0, lalu isikan checkbox-nya, dan klik tombol OK.

Setelah itu, pada toolbox akan ada icon tambahan, yaitu ( ). Nah, klik-lah icon tersebut, dan lukislah pada form, seperti di bawah ini:

Kemudian ubah properti-propertinya seperti di bawah ini:

No.	Nama Properti	Nilai Awal	Ubah Menjadi
1.	Name	MaskEdBox1	meHarga
2.	Format	(kosong)	#,##0

Penjelasan sedikit: format pada MaskEditBox ini, berguna agar tiap kali user mengetikkan angka atau jumlah atau harga, maka begitu ia memindahkan kursornya dari kotak isian tersebut, nilai yang ada akan terformat sesuai dengan format angka. Dengan textbox biasa, hal tersebut tidak bisa dilakukan. Makanya saya pakai MaskEditBox.

Setelah itu, rapikan form-nya. Maksudnya, jika masih ada ruang kosong tersisa di bawah kolom Harga, maka sebaiknya pilih lagi kontrol cmdTambah, cmdEdit, cmdBatal, cmdHapus, cmdSelesai dan dbgBarang, lalu drag / pindahkan / geser sehingga letaknya menjadi lebih rapi.

Masih ada satu lagi yang harus kita tambahkan, yaitu sebuah label, yang berguna sebagai keterangan bagi user nantinya. Label tersebut akan terletak tepat di atas DataBoundGrid dbgBarang, dan bertuliskan “Double-Click Pada Baris Untuk Memilih Data”. Maksudnya, jika nanti user ingin memilih data yang sudah ada, baik untuk di-edit maupun untuk dihapus, maka ia harus men-double-click pada tiap baris data yang ia ingin proses.

Jadi sekarang, perluas dulu area form Data Master Barang ini, kemudian geser dbgBarang ke bawah, untuk memberikan tempat bagi sebuah label di atasnya.

Setelah itu tambahkan sebuah kontrol label, dan “lukislah” pada bagian form kosong yang berada tepat di atas kontrol dbgBarang, seperti di bawah ini.

Setelah itu, ubah properti dari label tersebut, seperti di bawah ini:

No.	Nama Properti	Nilai Awal	Ubah Menjadi
1.	Alignment	0 – Left Justify	2 – Center
2.	BackStyle	1 - Opaque	0 – Transparent
3.	Caption	(kosong)	Double-Clik Pada Baris Untuk Memilih Data
4.	Font	MS Sans Serif, Regular, 11 pt	Arial, Bold, 11 pt

Tampilan form setelah perubahan properti tersebut akan menjadi kira-kira seperti di bawah ini:

Jangan lupa untuk menyimpan dulu perubahan yang telah kita buat ini. Dan, selanjutnya adalah proses penulisan kode program untuk form Data Master Barang ini. Tapi sepertinya itu di tutorial selanjutnya aja ya?

Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 3 – Perancangan Form Data Master Barang)

2010-08-19T15:32:00.000+07:00

Sesudah kita sedikit “mengutak-atik” Form Utama (frmUtama) pada tutorial sebelumnya, sekarang kita akan mulai membuat form Data Master Barang. Pertama-tama, tambahkan sebuah form pada Project Penjualan yang sudah kita buat. Caranya adalah dengan mengklik menu Project pada menubar Visual Basic 6.0,

dan dilanjutkan dengan memilih “Add Form”, pada submenu yang ada.

Setelah itu, akan muncul sebuah kotak dialog “Add Form”.

Pilih “Form” , dan klik tombol “Open”, untuk menambah sebuah form kosong pada Project kita.

Form ini akan menjadi form Data Master Barang kita. Jadi, kita akan ubah dulu property-nya. Adapun property yang diubah adalah sebagai berikut:

No.	Nama Property	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmBarang
2.	BorderStyle	2 – Sizeable	1 – Fixed Single
3.	Caption	Form1	Data Master Barang
4.	StartUpPosition	3 – WIndows Default	2 – Center Screen

Sudah tahu kan caranya? Belum? Ah! Masa sudah lupa. Ya sudah, kalau begitu, beralihlah pada jendela properties, yang berada di sebelah kanan dari IDE Visual Basic 6.0. ini.

Carilah item-item property yang akan diubah nilainya, dan ubah nilainya menjadi seperti tabel di atas.

Setelah selesai, pada form kosong tersebut, tambahkan beberapa kontrol (dari toolbox) sebagai berikut:

No.	Nama Kontrol Yg Ditambahkan	Icon	Nama Semula	Ubah Menjadi	Caption /Text Semula	Ubah Menjadi
1.	Label		Label1	lblKodeBarang	Label1	Kode Barang
2.	Textbox		Text1	txtKodeBarang	Text1	-
3.	Label		Label1	lblNamaBarang	Label1	Nama Barang
4.	Textbox		Text1	txtNamaBarang	Text1	-
5.	CommandButton		Command1	cmdTambah	Command1	Tambah
6.	CommandButton		Command1	cmdEdit	Command1	Edit
7.	CommandButton		Command1	cmdBatal	Command1	Batal
8.	CommandButton		Command1	cmdHapus	Command1	Hapus
9.	CommandButton		Command1	cmdSelesai	Command1	Selesai

Caranya adalah dengan mengklik icon-icon sesuai tabel di atas, dan “melukisnya” di dalam form Data Master Barang tadi (drag).

Tampilan awalnya, kira-kira akan menjadi seperti di bawah ini:

Lho, kok di bagian bawah tombol-tombol (CommandButton) itu ada bagian yang kosong? Iya, karena di situ akan kita tambahkan sebuah kontrol DataBoundGrid, untuk menampilkan data-data Master Barang yang nantinya akan diinput atau dimasukkan. Namun karena secara default, Visual Basic belum menambahkannya ke dalam Toolbox yang ada, maka kita harus menambahkannya secara manual. Caranya adalah dengan mengklik menu Project,

dan pilih “Components… Ctrl+T” pada submenu yang muncul.

Pada kotak dialog “Components” yang muncul, carilah kontrol “Microsoft Data Bound Grid Control 5.0 (SP3)”, kemudian kliklah checkbox di sebelah kirinya, klik tombol “Apply”, lalu klik juga tombol “OK”.

Setelah itu, terlihat bahwa toolbox kita sudah bertambah satu kontrol lagi, yaitu kontrol DBGrid. Iconnya seperti ini:

Toolbox semula	Menjadi

Nah, kontrol tersebut akan kita tambahkan pada form tadi. Caranya sama dengan kontrol-kontrol yang lain, yaitu dengan cara mengklik icon kontrol DBGrid, kemudian menggambarnya di atas form, tepat di bawah deretan tombol yang sudah ada sebelumnya. Tampilannya akan menjadi seperti berikut ini:

Sudah? Belum dong. Kita masih harus mengubah property-nya. Tapi sebelum itu (hampir lupa), tambahkan dulu kontrol Data dari Toolbox VB6. Iconnya seperti ini: .

Tampilannya akan menjadi seperti berikut ini:

Selanjutnya ubah dulu property “Name” dari kontrol Data ini, menjadi datBarang, dan property Caption menjadi kosong (tidak usah diisi). Kemudian, masih pada jendela property, kliklah icon .

Kemudian, pada kotak dialog DatabaseName yang muncul, pilihlah database Penjualan yang sebelumnya sudah kita buat.

Lalu, kembali pada jendela property, turunkan kursor mouse Anda ke arah bawah, dan ubah property RecordSource-nya menjadi Barang (Anda dapat memilihnya dari combobox yang tersedia).

Ingat, nilai-nilai atau nama-nama tabel yang ada pada combobox RecordSource itu hanya akan muncul, jika Anda sudah menambahkan database Penjualan, pada kontrol Data, seperti langkah di atas.

Nah, karena kita sudah memilih tabel Barang pada kontrol Data, selanjutnya kita akan mengkaitkannya dengan tombol DBGrid atau DataBoundGrid yang sebelumnya juga sudah kita tambahkan. Caranya, klik kontrol DBGrid tersebut, kemudian pada item DataSource, pilihlah datBarang dari daftar yang ada.

Sehingga tampilannya akan menjadi seperti ini:

Selanjutnya, pada kontrol DBGrid yang ada pada Form, lakukan klik kanan, dan pada popup menu yang muncul, pilihlah Retrieve Fields.

Tampilannya akan menjadi seperti ini:

Terlihat di situ bahwa field Kode_Barang, Nama_Barang dan field Harga sudah ditambahkan atau muncul pada DBGrid tadi. Nah, sebelum lupa, ubah juga property Name dari DBGRid ini, dari DBGrid1 menjadi dbgBarang.

Langkah selanjutnya adalah menuliskan kode program atau script, agar kontrol-kontrol yang kita tambahkan tadi, bisa berfungsi dan form ini juga dapat digunakan sebagai Form Data Master Barang.

Kita akan membahasnya pada tutorial berikutnya, yaitu Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 4 – Penulisan Script Pada Form Data Master Barang). Jadi, mohon bersabar ya. Orang sabar itu disayang Tuhan lho, hehehe.

Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 3 – Perancangan Form)

2010-08-10T17:40:00.000+07:00

Bikin database sudah, sekarang waktunya perancangan form. Dulu, waktu pertama kali belajar (sampe sekarang juga masih sih ) bikin program pakai Visual Basic, bagian ini yang jadi favorit saya: perancangan form . Langsung saja ya. Setelah kita sebelumnya kita membuat database dengan aplikasi VisData, dan menutup aplikasi tersebut, maka kita akan dikembalikan pada layar IDE (Integrated Development Editor) Visual Basic 6.0.

Kita sudah punya satu form di situ, yaitu frmUtama. Sesuai dengan namanya, form ini akan kita jadikan sebagai form utama. Maksudnya, melalui form inilah, kita akan dapat memanggil form-form lainnya yang nanti akan kita buat. Sebagai awal, kita akan menempatkan satu set menu pada form ini. Untuk itu, klik icon ke tiga pada toolbox IDE Visual Basic. Icon apa itu? Jelas icon Menu Editor dong, hehe.

Nah, setelah Anda mengklik icon “Menu Editor” tersebut, maka akan tampil kotak dialog Menu Editor (ya iyalah ).

Langsung ya. Pada kotak isian “Caption:”, isilah dengan “&Master”, lalu pada kotak isian “Name:”, isi dengan “mnuMaster”. Setelah itu, tekan tombol Enter, atau bisa juga mengklik tombol “Next” pada layar kotak dialog menu editor ini.

Setelah kotak isian “Caption:” dan “Name:” kosong kembali, klik-lah tombol panah kanan yang berada di bagian tengah kiri dari kotak dialog menu editor ini.

Setelah itu, terlihat adanya 4 (empat) titik pada menulist di bawah. Itu artinya, menu yang kita buat selanjutnya, akan menjadi submenu. Karena kita akan membuat menu Barang, maka itu artinya menu Barang tersebut akan menjadi submenu atau bagian dari menu Master. Jelas ya? Ok, langsung saja kalau begitu. Pada kolom Caption, isilah dengan &Barang, dan pada kolom Name, isilah dengan mnuBarang, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Selanjutnya, karena kita akan kembali membuat menu (bukan submenu) untuk Transaksi, maka kita harus mengembalikan posisinya seperti semula dulu. Untuk itu, klik tombol panah kiri (left-arrow) pada kotak dialog Menu Editor ini.

Setelah itu, pada kolom Caption, isilah dengan &Transaksi, dan pada kolom Name, isilah dengan mnuTransaksi, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Setelah itu, karena kita akan membuat submenu Penjualan, maka klik lagi tombol panah kanan (right-arrow) pada jendela Menu Editor ini.

Sudah? Nah, pada kolom Caption, isilah dengan &Penjualan, dan pada kolom Name, isilah dengan mnuPenjualan, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Selanjutnya, lagi-lagi kita harus mengembalikan posisi menu ke semula, karena kita akan membuat menu, dan bukan submenu. Jadi, klik lagi tombol panah kiri (left-arrow) pada jendela Menu Editor ini.

Kemudian pada kolom Caption, isilah dengan &Laporan, dan pada kolom Name, isilah dengan mnuLaporan, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Setelah itu, karena kita akan membuat submenu Laporan Penjualan Harian, Laporan Penjualan Mingguan dan Laporan Penjualan Bulanan, maka klik lagi tombol panah kanan (right-arrow) pada jendela Menu Editor ini.

Jika sudah, maka pada kolom Caption, isilah dengan &Laporan Penjualan Harian, dan pada kolom Name, isilah dengan mnuLaporanPenjualanHarian, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Selanjutnya, pada kolom Caption, isilah dengan &Laporan Penjualan Mingguan, dan pada kolom Name, isilah dengan mnuLaporanPenjualanMingguan, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Kemudian, lagi pada kolom Caption, isilah dengan &Laporan Penjualan Bulanan, dan pada kolom Name, isilah dengan mnuLaporanPenjualanBulanan, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Dan, karena kita akan membuat menu utama lagi (menu yang bukan submenu, maksudnya), maka kita harus mengembalikan posisi pointer menu kita ke posisi awal.

Jika sudah, pada kolom Caption, isilah dengan &Keluar, dan pada kolom Name, isilah dengan mnuKeluar, lalu tekan tombol Enter pada keyboard Anda, atau bisa juga dengan mengklik tombol Next pada kotak dialog Menu Editor ini.

Sudah? Ya memang hanya itu menu yang akan kita buat, hehe. Tampilan untuk menu yang lengkap adalah sebagai berikut:

Selanjutnya tentu saja, Anda bisa mengklik tombol “OK” pada jendela Menu Editor ini. Dan setelah itu, kita akan dikembalikan pada layar utama dari IDE Visual Basic 6.0. ini. Terlihat di situ bahwa frmUtama sudah berisi menu.

Menu-menu tersebut masih dalam kondisi kosong. Maksudnya, kita belum akan mentautkan atau menghubungkannya dengan form-form lain, karena form-form lain tersebut memang belum kita buat .

Langkah selanjutnya adalah… menyimpan dulu pekerjaan kita! Jadi, klik icon “Save Project” pada toolbar IDE Visual Basic 6.0. kita. Kemudian apa lagi? Selanjutnya, kita akan membuat form Data Master Barang, yang akan kita namai frmBarang. Tapi itu akan kita lakukan pada tutorial selanjutnya, yaitu Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 3 – Perancangan Form Data Master Barang).

Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 2 – Membuat Database)”.

2010-08-09T12:13:00.000+07:00

Setelah kita melakukan “persiapan” pada Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial - Bagian 1), sekarang kita akan membuat database untuk program tersebut. Langsung saja, pada layar IDE Visual Basic 6.0, klik menu “Add-Ins”, dan pilih submenu “Visual Data Manager”.

Sesaat kemudian akan muncul halaman Visual Data Manager alias VisData.

Di sinilah kita akan membuat database dan seluruh tabel-tabel yang diperlukan. Sekarang, kliklah menu “File”, kemudian pilih submenu “New”, lalu pilih “Microsoft Acces”, dan pilih lagi “Version 7.0 MDB…”.

Akan ada kotak dialog yang muncul, yang akan menanyakan di mana kita akan menyuimpan database ini. Pindahkan lokasi ke folder yang tadi kita buat, yaitu pada folder “c:Penjualan”, kemudian isikan “Penjualan” (tanpa tanda kutip) pada kotak isian “File name:” yang ada, dan klik tombol “Save”.

dan kita akan dikembalikan pada halaman awal VisData. Bedanya dengan yang tadi adalah bahwa sekarang sudah ada dua jendela yang tersedia, yaitu jendela “Database Windows” di sebelah kiri dan jendela “SQL Statement” di sebelah kanan.

Database sudah terbentuk, namun tabel-tabel yang diperlukan belum ada. Jadi hal selanjutnya yang harus kita lakukan adalah membuat tabel-tabel tersebut, yaitu:

Tabel Master Barang
Tabel Transaksi Penjualan
Tabel Transaksi Penjualan Detail
Tabel Temporar

Adapun detail dari masing-masing tabel tersebut adalah sebagai berikut:

1. Tabel Master Barang

No.	Nama Field	Jenis	Panjang	Keterangan
1.	Kode_Barang	Text	5	Primary Index
2.	Nama_Barang	Text	30
3.	Harga	Double

2. Tabel Transaksi Penjualan

No.	Nama Field	Jenis	Panjang	Keterangan
1.	No_Faktur	Text	10	Primary Index
2.	Tanggal	Date/Time
3.	Keterangan	Text	30

3. Tabel Transaksi Penjualan_Detail

No.	Nama Field	Jenis	Panjang	Keterangan
1.	No_Faktur	Text	10
2.	Kode_Barang	Text	5
3.	Jumlah	Single

4. Tabel Temporar

No.	Nama Field	Jenis	Panjang	Keterangan
1.	Kode_Barang	Text	5
2.	Nama_Barang	Text	30
3.	Jumlah	Single

Sekarang, kita akan mulai membuat tabel pertama, yaitu tabel master Barang. Sudah tahu kan struktur tabelnya? Nah, coba klik kanan pada jendela “Database Window”, lalu pada popup menu yang muncul, pilihlah “New Table”.

Setelah itu akan tampil kotak dialog Table Structure. Di sini kita akan mulai menambahkan field-field yang diperlukan.

Jadi, kliklah tombol “Add Field”, sehingga akan muncul kotak dialog “Add Field”.

Pada kotak isian “Name:”, isilah dengan “Kode_Barang” (tanpa tanda kutip ya), lalu pada combobox “Type:”, pilih “Text”. Secara default, combobox tersebut akan tersorot pada pilihan “Text”, jadi Anda bisa saja langsung mengisikan ukuran field-nya, pada kotak isian “Size:”. Isikan dengan angka “5” (juga tanpa tanda kutip ). Setelah itu, Anda dapat mengklik tombol “OK”, untuk menambahkan field tersebut pada struktur yang akan kita buat.

Langkah selanjutnya, tentu saja adalah dengan cara menambahkan field-field lain seperti field Nama_Barang dan Harga. Perhatikan ukurannya ya. Dan, untuk field Harga, jangan lupa untuk memilih type field-nya dengan “Double”, sesuai dengan struktur yang ada di atas.

Jika ketiga field tersebut sudah dimasukkan, yaitu Kode_Barang, Nama_Barang, dan Harga, silahkan klik tombol Close untuk menutup kotak dialog ini, dan kembali pada kotak dialog sebelumnya, yaitu Table Structure.

Di situ terlihat bahwa field-field yang tadi kita tambahkan, sudah ada pada daftar. Lalu, apakah tabelnya sudah jadi? Belum, saudara-saudara. Kita harus membentuknya secara fisik. Jadi, silahkan klik tombol “Build the Table”. Setelah itu, klik-lah tombol “Close”, untuk menutup kotak dialog ini dan kembali ke jendela Database Window.

Terlihat di situ, sudah ada tabel Barang yang tadi kita buat. Selanjutnya, buatlah tabel-tabel berikutnya, yaitu tabel Penjualan, tabel Penjualan_Detail dan tabel Temporar. Caranya? Ah! Pasti Anda sudah tahu dong. Kan tinggal mengulangi langkah-langkah di atas. Tidak sulit kok, dan bila sudah terbiasa, akan merupakan pekerjaan yang menyenangkan bagi Anda . Nantinya, kalau sudah lengkap, jendela “Database Window” akan tampil seperti tampilan di bawah ini:

Selanjutnya, kita akan mulai membuat form-form yang diperlukan. Jadi, tutuplah aplikasi VisData alias Visual Data Manager ini, dan kita akan bertemu lagi pada tutorial selanjutnya, yaitu Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 3 – Perancangan Form)”.

Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 1)

2010-07-30T14:49:00.001+07:00

Buat yang sedang menyusun Tugas Akhir atau Skripsi untuk jurusan Manajemen Informatika atau Sistem Informasi, di sini saya berikan tutorial sederhana tentang cara membuat Program Penjualan dengan Visual Basic 6.0.

Langsung saja ya. Buka Visual Basic Anda sekarang.

Lalu pilih Standard EXE pada kotak dialog “New Project” yang muncul, dan klik tombol “Open”.

Dan akan muncul sebuah “Project” berisikan satu form kosong.

Biarkan saja dulu form tersebut, karena kita akan mengisikan dulu properti dari Project kita ini. Jadi, klik-lah menu Project pada bagian atas Visual Basic 6.0 ini.’

Setelah itu, pilih submenu “Proejct1 Properties” , untuk memunculkan kotak dialog Project Properties.

Dan pada kotak dialog yang muncul, ganti properti dari Project Name, dari Project1 menjadi Penjualan.

Setelah itu, tinggal klik tombol “OK”, dan Anda akan dikembalikan pada form kosong yang kita temui di halaman awal tadi, yang tentu saja sudah berubah namanya menjadi Penjualan.

Sekarang, kita akan mengubah properti dari form kosong yang ada tersebut. Form ini akan kita gunakan sebagai Form Utama, yang akan berisikan menu yang nantinya akan dijadikan sebagai jalan untuk membuka atau mengakses form-form lainnya. Klik form tersebut, lalu ubahlah propertinya, untuk item-item sebagai berikut:

No.	Nama Properti	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmUtama
2.	Caption	Form1	Aplikasi Penjualan
3.	WindowState	0-Normal	2-Maximized

Jika sudah selesai, Anda dapat menyimpan Project Penjualan ini terlebih dulu, dengan mengklik icon “Save” (dengan gambar Disket) pada Toolbar yang ada di bagian atas IDE Visual Basic 6.0. ini.

Dan selanjutnya, Visual Basic akan menanyakan dimana Anda akan menyimpan Project Penjualan ini.

Klik pada combobox “Save in:”, dan ubah menjadi “Local Disk (C:)”

Setelah itu, klik icon “Create New Folder” yang berada di di bagian atas kanan dari kotak dialog “Save File As” ini, untuk membuat sebuah folder baru pada drive c:. Icon “Create New Folder” adalah icon ketiga dari kiri, dan kedua dari kanan.

Karena kita akan membuat Project Penjualan, maka namain juga folder baru tersebut dengan nama “Penjualan”.

Setelah itu, masuklah ke dalam folder tersebut, dan simpan project Anda. Akan ada 2 (dua) kali penyimpanan, yaitu penyimpanan untuk form frmUtama.frm, dan project Penjualan.vbp

Setelah itu, Anda akan dikembalikan pada halaman awal, dengan project yang sudah bernama Penjualan, dan form yang sudah diberi nama frmUtama. Selanjutnya kita akan masuk pada tutorial berikutnya, yaitu “Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 2 – Membuat Database)”.

Catatan: Untuk ebook bagian pertama ini, dapat didownload di sini. Oiya, password untuk file RAR-nya adalah “www.eras.web.id” (tanpa tanda kutip).

Membuat Program Penjualan Dengan Visual Basic 6.0 (Tutorial – Bagian 1)

2010-07-30T14:49:00.000+07:00

Langsung saja ya. Buka Visual Basic Anda sekarang.

Lalu pilih Standard EXE pada kotak dialog “New Project” yang muncul, dan klik tombol “Open”.

Dan akan muncul sebuah “Project” berisikan satu form kosong.

Biarkan saja dulu form tersebut, karena kita akan mengisikan dulu properti dari Project kita ini. Jadi, klik-lah menu Project pada bagian atas Visual Basic 6.0 ini.’

Setelah itu, pilih submenu “Proejct1 Properties” , untuk memunculkan kotak dialog Project Properties.

Dan pada kotak dialog yang muncul, ganti properti dari Project Name, dari Project1 menjadi Penjualan.

Setelah itu, tinggal klik tombol “OK”, dan Anda akan dikembalikan pada form kosong yang kita temui di halaman awal tadi, yang tentu saja sudah berubah namanya menjadi Penjualan.

No.	Nama Properti	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmUtama
2.	Caption	Form1	Aplikasi Penjualan
3.	WindowState	0-Normal	2-Maximized

Jika sudah selesai, Anda dapat menyimpan Project Penjualan ini terlebih dulu, dengan mengklik icon “Save” (dengan gambar Disket) pada Toolbar yang ada di bagian atas IDE Visual Basic 6.0. ini.

Dan selanjutnya, Visual Basic akan menanyakan dimana Anda akan menyimpan Project Penjualan ini.

Klik pada combobox “Save in:”, dan ubah menjadi “Local Disk (C:)”

Karena kita akan membuat Project Penjualan, maka namain juga folder baru tersebut dengan nama “Penjualan”.

Setelah itu, masuklah ke dalam folder tersebut, dan simpan project Anda. Akan ada 2 (dua) kali penyimpanan, yaitu penyimpanan untuk form frmUtama.frm, dan project Penjualan.vbp

Catatan: Untuk ebook bagian pertama ini, dapat didownload di sini. Oiya, password untuk file RAR-nya adalah “www.eras.web.id” (tanpa tanda kutip).

Google Di-Hack? Ah! Itu Hanya Ad-Change Kok.

2010-05-01T11:05:00.001+07:00

Hari masih pagi ketika seorang teman kantor saya berteriak, "Google dihack! Google dihack!". Karena kebetulan di ruangan kami saat itu baru ada dua orang yang hadir, yaitu saya dan teman saya itu, maka tentu saja ia langsung meminta saya untuk melihat komputernya. Dan memang, sekila, sepertinya Google dihack, karena saat teman saya tersebut mengetikkan kata kunci "Iklan", atau kata apapun yang lainnya pada Google Images, yang muncul hanya deretan gambar-gambar pemandangan.

Lalu, bagaimana hal itu bisa terjadi? Benarkah Gioogle dihack? Sebenarnya bukan itu yang terjadi. Google sama sekali tidak dihack. Itu hanya hasil dari ulah iseng saya pada malam sebelumnya, setelah teman saya tersebut pulang. Malam saat ia sudah pulang, saya memasang add-on AdBlock Plus dan AdChange For AdblockPlus di komputernya.

Anda pasti sudah banyak yang tahu mengenai kedua Add-On tersebut, meskipun mungkin tidak semuanya berfikiran jahil seperti saya .

AdBlock Plus, adalah salah satu Add-On yang cukup populer di kalangan pengguna browser Mozilla Firefox. Yak, hanya Mozilla Firefox. Untuk pengguna browser lain, silahkan mencari pengganti sepadannya. Add-On in dibuat agar para pengguna Mozilla Firefox dapat lebih nyaman dalam melakukan aktifitas browsing, dengan menghilangkan iklan-iklan yang banyak bertebaran di banyak website di dunia ini. Sesuai dengan namanya, AdBlock Plus akan memblok iklan-iklan (Ads) yang muncul di website-website yang kita kunjungi. Sebenarnya tidak dihilangkan, karena pada kenyataannya, iklan-iklan tersebut tetap ada. Hanya saja, dengan menggunakan Add-On AdBlock Plus ini, iklan-iklan tersebut akan disembunyikan, alias tidak ditampilkan. Ini tentu saja merupakan hal yang menyenangkan bagi orang-orang yang memang tidak suka dengan banyaknya iklan yang menempel pada website-website tertentu. Selain website akan tampil lebih "bersih", waktu loading halaman web tersebut juga akan menjadi lebih singkat, dan tentu saja kegiatan browsing menjadi lebih menyenangkan, tanpa terganggu oleh iklan-iklan yang ada.

Sedangkan AdChange for AdBlockPlus, adalah Add-On tambahan yang dibuat untuk "melengkapi" fungsi AdBlock Plus. Pernahkan Anda terfikir untuk mengganti gambar-gambar iklan yang ada dengan foto-foto Anda atau foto-foto kekasih Anda barangkali? Jika Anda punya keinginan tersebut, AdChange for AdBlockPlus adalah jawabannya. Add-On satu ini akan mengganti semua item iklan yang terdaftar pada database AdBlock Plus, dengan menggantinya dengan gambar-gambar lain, sesuai pilihan Anda.

Untuk dapat menggunakan AdChange for AdBlockPlus, tentu saja Anda harus sudah menginstall AdBlock Plus terlebih dulu. Bagi Anda yang belum melengkapi browser Mozilla Firefox-nya dnegan AdBlock Plus, dapat menginstallnya pada alamat ini: https://addons.mozilla.org/en-US/firefox/downloads/latest/1865/addon-1865-latest.xpi?src=addondetail.

Setelah AdBlock Plus terinstall dengan baik, langkah selanjutnya adalah menambahkan AdChange for AdBlockPlus. Anda dapat menginstallnya pada alamat berikut: https://addons.mozilla.org/en-US/firefox/addon/59194/developers/roadblock.

Setelah kedua Add-On tersebut terpasang pada browser Mozilla Firefox yang digunakan, Anda dapat mulai mengkonfigurasikannya dengan membuka halaman settingnya.

Di situ ada beberapa pilihan yang dapat diisi. Anda dapat mengisikan salah satu atau semuanya, terserah Anda.

Pilihan pertama adalah dengan mengambil gambar dari komputer Anda sendiri. Pilihan kedua adalah dengan mengambil gambar dari akun Flickr Anda (jika Anda memilikinya). Pilihan ketiga adalah menggunakan foto-foto yang ada pada akun Facebook Anda. Pilihan ini mungkin termasuk salah satu yang menarik, bagi Anda yang berjiwa narsis :). Di sini sebenarnya Anda dapat mengambil dari foto-foto akun Facebook teman Anda. Yang perlu Anda lakukan adalah meyalin alamat url-nya sesuai contoh yang ada. Pilihan terakhir adalah dengan menggunakan gambar-gambar yang berasal dari alamat web tertentu. Ini juga pilihan menarik. Anda misalnya, dapat mencari gambar-gambar dari Google Images, sesuai kata kunci yang Anda inginkan, kemudian menyalin url-nya pada kotak isian pada pilihan terakhir ini.
Namun, dengan pertimbangan agar waktu loading tidak terganggu, saya memilih hanya mengisi pada pilihan pertama, yaitu dengan mengisikannya dengan file-file gambar yang ada pada komputer saya (local drive). Anda dapat mengklik tombol "Select directory", dan kemudian memilih folder di mana tersimpan file-file gambar yang ingin Anda gunakan. Add-On ini tidak dapat mencari gambar pada sub-folder atau sub-directory, jadi bila Anda mempunyai gambar-gambar yang terpisah pada beberapa folder, sebaiknya Anda buat lagi satu folder khusus, dan tempatkan semua file gambar tersebut di dalamnya. Pada contoh ini, saya menggunakan file-file gambar yang saya dapatkan dari folder Wallpaper Windows.

Setelah folder terpilih, Add-On ini akan mulai melakukan pembacaan pada gambar-gambar yang ada pada folder tersebut. Setelah proses selesai, Anda dapat menekan tombol "Save", untuk menyimpan perubahan yang telah dilakukan. Selanjutnya, silahkan tekan tombol F5 untuk me-refresh halaman web Anda, misalnya halaman detik.com, dan silahkan lihat sendiri hasilnya.

Jika masih kurang puas, Anda bahkan dapat mengganti foto-foto artikel yang ada dengan gambar pilihan Anda. Caranya, cukup klik kanan pada salah satu gambar artikel yang Anda ingin ganti.

Setelah itu, pilih menu "Adblock Plus Block Image", dan Anda akan dihadapkan pada sebuah jendela untuk memasukkan gambar yang Anda pilih tadi, ke dalam daftar Adblock Plus untuk menjadi gambar tidak ditampilkan. Lho, jadinya gambar tersebut tidak bisa muncul dong? Memang, namun sebagai gantinya, gambar tersebut akan digantikan oleh gambar-gambar yang sebelumnya sudah Anda masukkan dalam konfigurasi AdChange for AdBlockPlus. Anda dapat memilih berbagai pilihan yang ada di situ, dan menyimpannya dengan menyimpan tombol "Add Filter".

Sekarang, refresh halaman tersebut...

Anda lihat, bahwa foto Netanyahu sudah berganti dengan gambar pemandangan yang sudah saya siapkan sebelumnya. Di situ bahkan tampak bahwa seluruh gambar-gambar yang menyertai artikel di detik.com sudah berganti menjadi gambar pemandangan. Hal yang sama saya lakukan terhadap situs Google.com. Dan hasilnya adalah seperti yang saya ceritakan di awal artikel ini.

Anda dapat mengganti hampir seluruh gambar yang ada pada banyak web yang Anda kehendaki, jika mau. Dan jangan takut, atau mungkin bagi beberapa orang adalah sayangnya, perubahan itu hanya terjadi pada komputer yang Anda utak-atik tersebut, dan tidak akan ditambahkan oleh Adblock pada database mereka.

Ah! Saya tidak menyangka kedua Add-On itu bisa membuat saya tersenyum saat melihat kepanikan teman saya tersebut...

Google Di-Hack? Ah! Itu Hanya Ad-Change Kok.

2010-05-01T11:05:00.000+07:00

Anda pasti sudah banyak yang tahu mengenai kedua Add-On tersebut, meskipun mungkin tidak semuanya berfikiran jahil seperti saya .

Setelah kedua Add-On tersebut terpasang pada browser Mozilla Firefox yang digunakan, Anda dapat mulai mengkonfigurasikannya dengan membuka halaman settingnya.

Di situ ada beberapa pilihan yang dapat diisi. Anda dapat mengisikan salah satu atau semuanya, terserah Anda.

Jika masih kurang puas, Anda bahkan dapat mengganti foto-foto artikel yang ada dengan gambar pilihan Anda. Caranya, cukup klik kanan pada salah satu gambar artikel yang Anda ingin ganti.

Sekarang, refresh halaman tersebut...

Ah! Saya tidak menyangka kedua Add-On itu bisa membuat saya tersenyum saat melihat kepanikan teman saya tersebut...

Turut Berduka Cita

2009-12-30T15:30:00.000+07:00

eras.web.id menyatakan turut berduka cita atas berpulangnya Guru Bangsa Indonesia, KH. Abdurrahman Wahid, alias Gus Dur. Semoga arwah dan seluruh amal beliau diterima di sisi Allah SWT, dan keluarga yang ditinggalkan mendapatkan kekuatan dan ketabahan dalam menjalani cobaan ini. Amin.

Album Downloader for Facebook

2009-12-04T15:24:00.000+07:00

Jika Anda pernah ingin mendownload foto-foto yang berada pada album Facebook, baik itu Facebook Anda ataupun milik teman Anda, namun mengalami kesulitan karena harus mendownload foto-foto yang ada satu-per satu, maka Software ini adalah salah satu solusinya. Saya menyebutnya sebagai salah satu solusi, karena sebenarnya ada banyak software sejenis. Namun kali ini kita akan membahas m Downloader for Facebook.

Pertama-tama, tentu saja Anda harus mendownload dulu aplikasinya, di alamat ini : http://rajitss.com/albumdownloader/install/setup.exe. Setelah itu, Anda dapat meng-install aplikasi yang telah Anda download tersebut, dan menjalankannya setelah selesai di-install.

Anda akan diminta untuk login ke Facebook, dengan account yang Anda miliki. Setelah login, Anda akan diberikan daftar dari teman-teman Anda yang berada pada Facebook. Pilih salah satu, atau beberapa, atau semuanya - terserah Anda, lalu klik Change Folder jika Anda ingin mengubah folder download, dan klik tombol Download Selected Albums. Tunggulah hingga proses selesai, dan Anda bisa melihat hasil download album dari software ini.

Secara umum, proses download cukup cepat, namun tentu saja tergantung dari seberapa besar atau seberapa banyak album yang Anda download, dan juga bandwidth yang Anda miliki untuk melakukan download

Hasil download akan dikelompokkan dalam nama teman Anda, dan nama-nama album foto yang dimilikinya.

Ingin mencoba?

Panggilan Pengadilan Melalui Twitter

2009-10-29T15:22:00.000+07:00

Mengutip dari Tabloid PC Mild, sebuah panggilan untuk datang pengadilan dikirimkan lewat Twitter. Lho, memangnya sudah bosan yah dengan media biasa? Bukan begitu. Hal ini terjadi rupanya karena orang yang akan dipanggil ke pengadilan tersebut tidak diketahui alamat maupun identitasnya, sehingga pengadilan tinggi di Inggris terpaksa harus memanggil orang tersebut lewat media Twitter.

Kenapa Twitter? Karena orang tersebut, yang menggunakan account dengan nama "blaneysblamey" memposting pesan-pesan di Twitter dan memberikan kesan seakan-akan itu adalah pesan dari Donal Blaney, seorang blogger konservatif, padaal Donal Blaney sendiri menyatakan bahwa account tersebut bukanlah miliknya. Dan ia, lewat kuasa hukumnya, meminta pengadilan untuk mengeluarkan surat untuk memanggil orang tersebut ke pengadilan, agar pemilik account twitter misterius tesebut mau menghentikan aksinya dalam menyebarkan posting-posting yang mengatasnamakan dirinya tersebut.

Nah lo! Ribet memang. Tapi sepertinya itulah salah satu sisi dari teknologi yang mesti dihadapi di saat sekarang.

Open Source Untuk Seluruh Jajaran Pemerintahan Pada Tahun 2011

2009-10-29T15:08:00.000+07:00

Ini jelas berita menarik. Menkominfo, Tifatul Sembiring menyatakan bahwa sesuai dengan edaran Peraturan Kementerian Pemberdayaan Aparatur Negara Nomor 1/2009, seluruh komputer yang dipakai oleh aparat pemerintahan dari tingkat pusat sampai ke daerah, diwajibkan untuk menggunakan Open-Source dalam operasionalnya.

Indonesia sebenarnya telah lama menggalakkan gerakan Open Source ini, yang dikenal dengan nama IGOS alias Indonesia Go Open Source, suatu gerakan yang dilakukan agar bangsa ini mampu bangkit dari keterpurukan teknologi, dan mampu mensejajarkan dirinya dengan bangsa-bangsa lain di dunia, dengan menghasilkan aplikasi-aplikasi sendiri, dan tidak hanya menjadi end-user alias sekadar pemakai belaka.

Dikutip dari Okezone, Tifatul Sembiring menyatakan bahwa memang tidak gampang untuk menerapkan hal ini pada jajaran pemerintahan. Namun dengan cara "memaksa", ia yakin hal ini dapat terwujud pada tahun 2011, meskipun harus secara bertahap.

Tentunya hal ini harus didukung penuh oleh komunitas IT di negeri ini, khususnya komunitas Open Source yang ada di Indonesia. Dan sekali lagi, meski memang sulit, namun kita memang tetap harus mau melakukan hal ini, atau kita akan terus tertinggal oleh bangsa-bangsa lain yang sudah lebih dulu menerapkan open-source di negaranya.

2011 sepertinya terdengar tidak lama. Semoga target itu tercapai.

Facebook dan Twitter Di Dalam Microsoft X-Box

2009-10-29T14:49:00.000+07:00

Meskipun belum mengeluarkan tanggal resmi-nya, namun pihak Microsoft sudah menyatakan bahwa mereka akan memasukkan layanan Facebook dan Twitter sebagai salah satu fitur yang bisa dijalankan dari dalam XBox Live besutannya.

Marc Whitten, General Manager XBox Live mengatakan bahwa adalah sangat menyenangkan untuk bermain Facebook dan Twitter di layanan XBox Live. Salah satu pengembang mereka, Scott Hills juga mengatkan bahwa aplikasi Facebook dan Twitter hadir untuk menambah kemampuan konsol game keluaran Microsoft tersebut.

Bagi para pengguna XBox, yang memiliki account di layanan Facebook dan Twitter, hal ini tentunya merupakan suatu hal yang menyenangkan, karena ini berarti bahwa mereka tidak perlu beranjak meninggalkan XBox yang mereka miliki, jika hanya ingin membuka halaman-halaman Facebook maupun Twitter.

Iklan-Iklan Microsoft Untuk Windows 7

2009-09-28T14:46:00.000+07:00

Dalam rangka menyambut peluncuran Windows 7, sekarang Microsoft gencar menggelontorkan iklan tentang sistem operasi terbarunya tersebut. Cukup menarik, sebenarnya. Coba simak saja tiga iklan tersebut:

Yang ini berjudul "Windows live Movie Maker: Share Videos, Share Your Life".

Kalau yang ini berjudul "Aero Shake: Shake Away the Clutter".

Dan yang ini adalah "Personalization: Your PC, Your Style".

Facebook Lite, Versi Ringan Dari Facebook

2009-09-15T14:40:00.000+07:00

Facebook sudah meluncurkan Facebook Lite, sebuah versi ringan dari versinya yang biasa. Ringan, karena ada beberapa fitur yang dihilangkan, sehingga waktu loadingnya juga relatif lebih cepat. Selain itu, dengan desain yang terkesan minimalis, desain Facebook Lite yang baru tampaknya lebih disukai, terutama oleh mereka yang kurang suka dengan facebook "versi penuh" yang disesaki oleh beragam fitur yang mungkin malah kurang berguna buat mereka. Bukan rahasia lagi bila di setiap aplikasi, selalu ada, bahkan banyak fitur-fitur yang menjadi mubazir buat sebagian penggunanya, karena mereka memang tidak tertarik untuk menggunakannya.

Beberapa waktu sebelumnya, bahkan beberapa postingan di Facebook mengajak untuk ramai-ramai menggunakan Twitter, karena dinilai lebih sederhana. Dan mungkin, salah satunya karena alasan itu, Facebook lantas mengeluarkan Facebook Lite, yang menurut beberapa orang, mirip dengan Twitter. Padahal, beberapa waktu sebelumnya, Facebook dan Twitter sempat dikabarkan akan bekerjasama, sehingga setiap pengguna Facebook akan bisa langsung melakukan posting di Twitter, dan sebaliknya. Namun dengan adanya versi Facebook Lite ini, nampaknya kabar tentang kerjasama tersebut menjadi tidak jelas. Jika Facebook Lite benar-benar sudah diluncurkan (sekarang masih versi Beta), dengan gaya minimalisnya, orang mungkin akan bimbang untuk beralih ke Twitter.

Namun, yah, kita tunggu saja perkembangan selanjutnya.

Dirgahayu Kemerdekaan Republik Indonesia Di Logo Google

2009-08-17T07:00:00.000+07:00

Hari ini saya cukup senang mengetahui bahwa selain masyarakat Indonesia yang merayakan hari kemerdekaan RI yang ke 64 dengan upacara di banyak tempat, dan berbagai lomba yang mengiringinya, ternyata Google juga turut "menyumbangkan" kegembiraan dengan menyajikan logo Google khusus.

Sekarang mungkin, tinggal dari kita, masyarakat Indonesia yang bisa merayakan kemerdekaan dengan berbagai cara. Tidak hanya dengan upacara-upacara dan berbagai lomba yang ada. Namun yang terpenting mungkin adalah kesadaran bahwa hari ini membuktikan bahwa bangsa ini masih eksis, masih ada, dengan segala keterbatasan dan kelebihannya. Dan itu mewajibkan kita semua untuk mensyukurinya dengan berbagai hal yang positif, yang kita bisa lakukan untuk bangsa ini.

Merdeka! Merdeka! Merdeka! :iloveindonesia