Jumat, 18 April 2014

Referensi Skripsi/ Tugas Akhir Visual Basic 6.0




“Dapatkan Akses Instan Ke Lebih Dari 296.000.000 bytes  Source Code VISUAL BASIC 6.0, SQL SERVER 2000, MS ACCESS 2003 , MS ACCESS 2007 dan MYSQL”

Sekarang anda tidak perlu pusing bila menghadai Tugas Akhir ataupun Skripsi di bidang Ilmu Komputer, saya sudah menyediakan 58 Macam Source Code yang tentunya berbeda antara satu dengan yang lainya, tapi bukan hanya itu saja ....

Nama saya adalah Dimas Arie Prastyo, anda bisa searching saya di facebook. Latar belakang saya adalah D III Manajemen Komputer dengan Indek Prestasi Komulatif adalah 3,82. Bukan bermaksud sombong, tetapi saya adalah mahasiswa no 5 dengan IPK tertinggi tahun 2012.. ya saya di wisuda tahun 2012 kemarin, tenunya dengan didampingi oleh orang tua saya persis di sebelah kiri saya.
            Berawal dari tahun 2012 saya mulai menggeluti jadi programmer lepas, makin hari makin banyak orderan. Bulan agustus orderan mulai sepi, tetapi di forum forum diskusi ataupun di Facebook ternyata masih banyak orang yang membutuhkan referensi program untuk tugas kuliah, Tugas Akhir ataupun Skripsi. Bayangkan, kuliah 3 atau hingga 4.5 tahun tetapi yang menentukan adalah sidang program yang sebenarnya sangat lah menyenangkan..,, ITU BAGI YANG PANDAI PROGRAM.. nah kalau tidak ??
Maka dari itu saya akan beri pada anda adalah hasil 2 tahun saya berprofesi sebagai Freelance di VB 6. Dari 2012 sampai 2013 kemaren ada sekitar 58 Project yang sudah saya kerjakan , harganya mulai dari yang termurah Rp 150.000 sampai dengan Rp. 1.200.000. kebanyakan adalah orderan dari mahasiswa yang terbentur dengan Tugas Akhir ataupun Skripsi dari daerah Medan, Pematang Siantar, Bangka Belitung, Serang dan beberapa daerah lainnya.

YANG AKAN ANDA DAPATKAN :
Ø  58 Project vb 6.0 yang pastinya berbeda satu dengan yang lainnya (821 MB)
Ø  Kesemua project memiliki fungsi pencarian, fungsi pembuatan laporan, ERD, DFD, RAT.
Ø  Bonus Program Visual Basic 6.0 (396 MB)
Ø  Bonus Program Crystal Report (426 MB)
Ø  Bonus Program VSFlexgrid (6 MB)
Ø  Bonus Program XtremeSkin (57 MB)
Ø  Bonus Tutorial Bahasa Pemrograman VB 6.0 - Video (262 MB)
Ø  Bonus Tutorial Bahasa Pemrograma VB 2008 - Latihan dan Video (272 MB)
Ø  Bonus Tutorial Bahasa Pemrograman VB 2010 - Latihan dan Video (472 MB)
Ø  Bonus Tutorial Bahasa Pemrograman JAVA  - Latihan dan Video (376 MB)
Ø Total 2.96 GB



Semuanya saya paketkan kedalam 1 buah DVD
Berapa harganya ??
Cuma Rp 195.000,-

Seberapa lama sih uang Rp 195.000 bertahan di kantong anda ?
ü  Buat jalan-jalan.. Paling 3 hari habis... tetapi Tugas Kuliah ngga siap, Tugas akhir Keteter, Skripsi Amburadul
ü  Buat Jajan jajan .. Paling buat nraktir 2 orang teman ... tetapi Tugas Kuliah ngga siap, Tugas akhir Keteter, Skripsi Amburadul
ü  Buat beli pulsa .. paling 1 bulan.. tetapi Tugas Kuliah ngga siap, Tugas akhir Keteter, Skripsi Amburadul

Nah... dari pada kebuang percuma tetapi Tugas Kuliah ngga siap, Tugas akhir Keteter, Skripsi Amburadul, mending dipakai buat yang lebih berguna misal beli paket ini. Kasian ibu dan bapak kita udah kerja keras buat kuliah kita, eh ternyata terhambat di pembuatan program untuk Tugas Akhir atau Skripsi. Toh disimpen lama juga kan ngga bakal basikan.

Bayarnya kemana ??

Bayar ke rekening BCA  saya : 8200287151 atas nama Dimas Arie Prastyo
Jumlah yang dibayar adalah Rp 190.xxx , xxx diisi dengan 3 angka no HP anda
CTH : no Hp. 085658111438 -> maka yang ditransfer Rp 190.438,-
Hal ini berguna agar saya mudah mengecek transfer anda ke saya.
Setelah ditransfer, segera konfirmasi ke 085658111438 (im3) disertai dengan alamat lengkap anda, jangan lupa no kode posnya, karena akan segera saya kirim ke alamat anda setelah pembayaran saya validasi.

Contact Person:
Ø 085658111438 (sms)
Ø 74ACA14C (BBM)

 
Harga paket ini sewaktu waktu bisa saya naikkan ke 
Rp 380.000,-
Segeralah beraksi !





Rabu, 01 Januari 2014

Database yang mana ya ... tandatanya...tandatanya...tandatanya

Tahun baru 2014 udah berjalan 2 hari yang lalu, semua maunya serba baru, dan bagi yang tahun ini jadi tahun buat sidang musti dipersiapkan semuanya. Oke, saya tamatan D3 komputer jadi yang bakal saya bahas adalah Tugas Akhir untuk anak-anak D3 Komputer, khususnya bahasa pemrograman VB 6.0. Sudah 2 tahun saya jadi Programmer Freelancer (1 Tahun kemarin waktu kuliah, 1 tahun waktu udah kerja). Kalau dari segi database ada 3 database yang bisanya disandingkan dengan VB 6.0.
  1. SQL SERVER 2000 : adalah jenis database Client-Server, syntax yang bisa digunakan banyak, tetapi hanya  akan mulus berjalan di Windows XP. Untuk digunakan di Windows 7, semua dapat dilakukan kecuali membuat tabel (Create Table), pokoknya yang berhubungan dengan modifikasi tabel di Windows 7, SQL SERVER 2000 bakal macet.
  2. Micrsoft Access 2003 & 2007 : jenis databasenya Stand Alone, mulus berjalan di Windows XP maupun 7, karena masi satu pabrikan dengan SQL SERVER 2000 maka banya syntaxnya yang sama.
  3. MYSQL : jenis database yang sangat kentla dengan unsur WEB. Ya, Mysql memang databasenya web, tetapi tetap masih bisa digunakan untuk VB 6.0 juga. Bebrapa aplikasi yang pernah saya buat menggunakan database ini.
Kesimpulan :
Buat yang PC/Laptop nya memakai Windows XP sebagai S.O -nya, bisa dengan lancar menggunakan ketiga macam Database diatas, buat yang PC/Laptopnya menggunakan Windows 7, Microsoft Acces dan MYSQL akan berjalan dengan mulus, untuk SQL SERVER 2000, bila ingin membuat tabel terpaksa menggunakan PC/Laptop yang menggunakan Windows XP.

Sabtu, 02 Februari 2013

IlmuJutawan.com.. Bisnis yang diterima logika dan make Algoritma

Minggu lalu, dengan modal patungan kita bertiga (Dimas, Wawan dan Bang Sugi) ngikutin sebuah program bisnis online dengan nama situs IlmuJutawan.com. Tapi tentunya sebelum kita ikut, saya Dimas Arie Prastyo ditunjuk oleh kawan kawan untuk melakukan pelacakan terhadap situs IlmuJutawan.com . Aku cek di Alexa.com, cari data-data whois -nya.. eh pas ketemu ternyata ni situs nyanding server dengan situs KumpulJutawan.com. Ya udah Tanpa was wes wos langsung aja kita daftar ke situs IlmuJutawan.com

Keluar uang Rp 150.000 nggak masalah buat kami karena setelah beberapa jam kemudian setelah daftar dan membayar (..ya benar, kita daftarnya gratis.. kalo emang bener2 mau serius makan nanti disuruh bayar sekitaran Rp 150.000,-) tuh langsung ada yang bayar ke rekening kita Rp 75.000,- .ya 50% lah dari modal yang udah keluar tadi ... nih screeshotnya masi kami simpan.(maaf nama pemesan kami samarkan)
Sebenarnya untuk menghasilkan banyak uang di program IlmuJutawan.com ini kita harus mencari Member Refereal dibawah kita sebanyak banyaknya.. nah ternyata di IlmuJutawan.com, pihak situs juga membantu mencarikan Member untuk kita .. Istilahnya si Random System... nah Rp 75.000 yg diatas tadi adalah contoh dari Random System tadi..soalnya member itu bertambah sebelum kami sempat melakukan promosi link.
Jadi apa kita cuma dapat sistem yang bekerjanya saja ?... Tidak, tidak kita juga mendapat ... kalau kami tidak salah ada 600-an Ebook Ebook rahasia Bisnis Online.

Segeralah mendaftar di IlmuJutawan.com , bagi yang mendaftar lewat link reffereal saya di http://www.Ilmujutawan.com/?id=adminweb ... saya akan beri gratis Panduan Clickbank dari situs Rahasia Sukses ClickBank

Segera mendaftar.. SELAMA MASIH GRATIS.... 

Senin, 29 Oktober 2012

Program Dana Keluar Dana Masuk


            Tiap program yang saya buat punya cerita sendiri-sendiri dibelakangnya, mulai dari rasa ingin membantu tetapi kok yang minta bantuan malah lepas tangan akhirnya malah semua bagian program saya yang buat, ada juga yang karena direkomendasikan teman jadi efeknya berantai mulut ke mulut gitu…ada juga yang karena orangnya memang super duper waswas, semua kerjaanya keburu buru hasilnya program dia direvisi hamper 5 kali (untung orangya royal…uangnya ntah darimana aja)…dan untuk program ini, pemirsa eh…pembaca boleh percaya boleh tidak, program ini dibuat hanya dalam waktu 24 jam, saya sampai begadang.
            Berawal dari kelupaan saya akan janji seorang teman yang mau dating kerumah malam hari, saya kelupaan balik kerumah hampir jam 9 malam, untungnya ada warnet sepupu jadi dia main dulu disana sembari nunggu saya pulang (…perjuangan yang berat Teman!!). Setelah bertemu dan basa basi dikit, akhirnya saya dikasi panjar untuk ngerjain programnya…kirain untuk lusa,.ternyata untuk besoknya, alhasil saya kerja sambil mata diganjal korek api ma tusuk gigi….(bohong). Dan pada akhirnya si kawan sukses sidang dengan program yang terkesan terburu buru pula.
Program ini masih sangat bisa dikembangkan lagi karena alur programnya mirip saldo nasabah di bank walau sangat sangat sederhana.
Mari kita bahas program ini:

1. Database
     Dinamai db_DanaPAM karena berhubungan dengan Dana Masuk dan Dana Keluar di PAM (Perusahaan Air Minum atau Perusahaan Air Mandi ya…) setempat .

2. Login
 
     Walau tampilanya sederhana, ternyata form yang satu ini memiliki alur programan yang banyak, bila ini maka ini, bila itu maka ini, bila itu maka itu dsb. berikut potongan koding yang terletak di tombol “OK” :
---------------------------------------------------------------------------------------------------------
Private Sub CmdOk_Click()
If TxtUsername.Text = "" Then
    MsgBox "Username masih kosong !", vbCritical, "Kesalahan"
    TxtUsername.SetFocus
    Exit Sub
ElseIf TxtPassword.Text = "" Then
    MsgBox "Password masih kosong !", vbCritical, "Kesalahan"
    TxtPassword.SetFocus
    Exit Sub
End If

'Cek ke-eksisan dari username
sql = "select * from TblLogin where Username= '" & Trim(TxtUsername.Text) & "'"
Set rsCari = New ADODB.Recordset
rsCari.Open sql, conn, 3, 4

If rsCari.EOF Then
    'Bila ternyata username tidak terdaftar...
    MsgBox "Username Tidak terdaftar, silakan ulangi !", vbCritical, "Kesalahan"
    Call Bersih
    Exit Sub
Else
    'Bila ternyata username terdaftar maka cek username dan password
    sql = "select * from TblLogin where Username= '" & Trim(TxtUsername.Text) & "' and Password = '" & _
    Trim(TxtPassword.Text) & "'"
    Set rsBaca = New ADODB.Recordset
    rsBaca.CursorLocation = adUseClient
    rsBaca.Open sql, conn, 3, 4
    
    If rsBaca.RecordCount = 0 Then
        CobaMasuk = CobaMasuk + 1
            If CobaMasuk >= 4 Then
                MsgBox "Kesempatan anda habis, Aplikasi akan ditutup !", vbCritical, "Peringatan !"
                End
            End If
        MsgBox "Password salah, Anda punya " & 4 - CobaMasuk & " kesempatan lagi!", vbCritical, "Coba Lagi"
        Call Bersih
    Else
        MsgBox "Akses Diterima !", vbInformation, "Sukses"
        VarUsername = TxtUsername.Text
        Unload Me
        Utama.Show
        Call Tema(Utama.Skin, Utama)
    End If
End If
End Sub
------------------------------------------------------

3. Menu Utama

 
     Menu utama yang sangat sederhana sekali, karena tidak ada cukup waktu untuk membuat desain backgroundnya, jadi hanya menggunakan teknik teknik yang sederhana saja yang penting kita dapat mengantisipasi debug yang akan terjadi.

4. Dana Masuk
            Dapat diakses dari form utama yaitu di Form daftar saldo yang bisa dilihat diatas, yaitu dari tombol “Dana Masuk” atau dari Menu Data Transaksi -> Dana Masuk.
     Sepertinya sederhana ya..padahal ribet loh. Kalau dana masuk daftar sekian maka saldo akan ditambah berurutan berdasarkan antrian di daftar, tiap-tiap rupa-rupa dan besar dana disimpan diikuti besar saldo setelah saldo ditambah dana yang masuk. Ini potongan koding dari tombol “Simpan” :
----------------------------------------------------------------------------------------
Private Sub mdSimpan_Click()
Dim VarSaldo As Currency

If TxtNoDM.Text = "" Then
    MsgBox "No. DM masih kosong!", vbExclamation, "Kesalahan"
    Exit Sub
ElseIf TxtBahagian.Text = "" Then
    MsgBox "Isi data Bahagian!", vbExclamation, "Kesalahan"
    Exit Sub
ElseIf Grid.Rows = 1 Then
    MsgBox "Isi dahulu daftar!", vbExclamation, "Kesalahan"
    Exit Sub
End If

conn.BeginTrans
sql = "insert into TblDanaMasuk values ('" & Trim(TxtNoDM.Text) & "', '" & _
Trim(TxtBahagian.Text) & "', '" & Format(DtpDanaMasuk.Value, "mm/dd/yyyy") & "', " & _
CCur(TxtTotalDana.Text) & ", '" & Trim(VarUsername) & "')"
conn.Execute sql

With Grid
        For i = 1 To .Rows - 1
             sql = "insert into TblDanaMasukDetail values('" & Trim(TxtNoDM.Text) & "','" & _
             Trim(.TextMatrix(i, 1)) & "'," & _
            CCur(.TextMatrix(i, 2)) & "," & _
             Val(.TextMatrix(i, 0)) & ")"
            conn.Execute sql
           
            'mencari besar saldo terakhir-------------
            sql = "select saldo from TblSaldo order by NoTrans desc"
            Set rsCari = New ADODB.Recordset
            rsCari.CursorLocation = adUseClient
            rsCari.Open sql, conn, 3, 4
            If rsCari.RecordCount <> 0 Then
                VarSaldo = rsCari!Saldo
            Else
                VarSaldo = 0
            End If
            'akhir cari saldo
           
          sql = "insert into TblSaldo (Tgl, NoUrut, Saldo, NomorDM )values('" & Format(DtpDanaMasuk.Value, "mm/dd/yyyy") & "'," & _
          Val(.TextMatrix(i, 0)) & "," & _
            CCur(Val(VarSaldo) + .TextMatrix(i, 2)) & ", '" & Trim(TxtNoDM.Text) & "')"
            conn.Execute sql
        Next i
    End With
     If MsgBox("Proses Dana Masuk ?", vbQuestion + vbYesNo, "Pembelian") = vbYes Then
        conn.CommitTrans
        MsgBox "Berhasil diproses!", vbInformation, "Sukses"
        Unload Me
       Call FrmSaldo.TampilDana
    Else
        conn.RollbackTrans
    End If
End Sub
-----------------------------------------------------

5. Dana Keluar
     Alur programnya masih sama seperti pada Dana Masuk hanya saja di Dana Keluar saldo akan dikurangi rupa-rupa dan besar dana yang ditambahkan.

6. Pencarian

 
    Sesuai dengan namanya, di form ini kita dapat mencari No. Transaksi, Kode Dana Masuk, Kode Dana Keluar dan sald akhirnya.

7. Laporan
            Dapat diakses dari menu Laporan . Cukup dengn memilih jenis dana yang akan ditampilkan, pilih tanggal dana maka detail dana dan saldo akan ditampilkan. Untuk mencetak data yang tampil tinggal menekan tombol “Cetak”.


oke sekian dulu ya pembahasanya…