Jawaban pastinya ada dalam diri anda. Jika saya menjawabnya maka tentu saya akan menjawabnya mudah. Saya telah melalui beberapa tahap dalam belajar bahasa pemrograman baik itu visual atau web.
Sebagian orang khususnya mahasiswa komputer mengatakan bahwa belajar bahasa pemrograman itu sulit kemungkinan disebabkan beberapa hal:
1. Tidak ada niat dalam belajar.
2. Malas dalam belajar.
Sangat disayangkan bagi anda mahasiswa komputer sampai di wisuda dan mendapatkan gelar S.xxx tidak tahu membuat aplikasi/software, walaupun yang sederhana saja. Apa yang anda lakukan semasa menempuh pendidikan 3, 4 tahun dikampus anda?
Saya mengapresiasi beberapa teman dan senior saya yang bukan jurusan komputer tapi ternyata mereka pakar dalam pembuatan software dan ternyata juga ada rahasia cara belajar mereka yang sudah diketahui oleh orang yang jurusan komputer tapi tidak dilaksanakan karena malas tadi.
Apa rahasianya:
Mereka habiskan waktu yang tidak terpakai dan tidak penting untuk belajar algoritma dan coding program, belajar sendiri dan belajar pada orang lain (ahlinya program).
Menjawab pertanyaan diatas, apa yang dilakukan mahasiswa komputer sampai lulus tidak tahu pembuatan aplikasi/software walaupun sederhana saja?
Coba lihat aktifitas mereka. Mereka lebih pentingkan jemput dan antar jalan-jalan pacar mereka (bukan istri). Yang sudah nikah dan umur masih muda (< 30 Thn), menggunakan alasan karena sibuk urus istri/suami padahal itu bukan alasan yang tepat. Lebih suka main game dan dengar musik bahkan sampai keras-keras suaranya tiap hari. Lebih banyak galau dan lebay dengan menulis status di facebook tiap hari seakan-akan dunia ini mau kiamat, karena pacarnya tadi. Tidak ada aktifitas belajar tambahan, hanya dari kos ke kampus, kampus ke kos. Mereka segan meminta kesempatan waktu kepada dosen pengajarnya untuk minta les privat tambahan dirumah. Lebih parah lagi, sampai lulus tidak pernah ke perpustakaan. Satu lagi, mereka enggan keluarkan uang mereka hanya untuk membeli buku referensi bahasa pemrograman dan masih banyak lagi.
Jadi, jika anda seperti yang saya sebutkan diatas jangan salahkan dosen/pengajar anda. Kecuali dosennya gak pernah masuk kelas. Dan pastinya, anda tinggal menunggu bom waktu untuk disingkirkan dari peluang pekerjaan dan gagalnya menciptakan hal-hal baru. Itu aja,,,,
Semoga bermanfaat…..
Jika anda yang sudah mahir dengan pemrograman visual studio 6 (vb6) tentu hal ini menjadi mudah untuk anda membuatnya.
Tapi bagaimana buat anda yang baru belajar bahasa pemrograman, tentu ini menjadi hal tersulit dipikiran anda.
Ebook ini saya beri Judul “Membangun Aplikasi Administrasi Sekolah dengan Visual Studio 6 (vb6) dan CrystalReport“. Saya peruntukkan untuk anda yang masih pemula dibidang pemrograman komputer.
Isi dari ebook ini dapat anda lihat pada video dibawah ini:

[Non AutoPlay]

Isi Ebook ini terdiri 88 halaman. Dengan materi:
  1. Pengenalan Visual Basic, Konsep Pemrograman Visual Basic, Antar muka visual basic, Kontrol Visual basic.
  2. Persiapan pembuatan project program.
  3. Rancangan dan pembuatan database dan tabel program menggunakan access 2007 dengan format 2002-2003.
  4. Koneksi database menggunakan fasilitas DAO.
  5. Perancangan form siswa, Form ruang kelas, Form pembagian ruang kelas, Form naik dan tinggal kelas, Form kelulusan siswa, Form login, form user, form laporan siswa dan form menu utama.
  6. Pembuatan laporan menggunakan crystalreport.
  7. Membuat file setup instalasi. Dapat diinstal dan dijalankan pada windows 7.
  8. Source code project dan setup instalasi diikutsertakan.
Video (Audio Visual) pendukung ebook disertakan dalam DVD. Kapasitas video 786mb, tidak dikompress sehingga terjaga kualitasnya :
  1. Membuat database dan tabel di Microsoft Access 2007.
  2. Membuat Project Baru dan Mengatur Komponen Koneksi database.
  3. Mengaktifkan komponen object tambahan.
  4. Membuat form baru dan menambahkan object.
  5. Menjalankan dan menguji program.
  6. Mendesain laporan dengan crystal report.
  7. Membuat dan Mengatur Menu Utama.
  8. Membuat file setup instalasi program.
Cocok Untuk:
  • Orang Awam yang ingin membuat program dengan vb6 / Visual studio 6.
  • Sedang belajar persiapan pembuatan program untuk tugas akhir/skripsi dengan vb6/visual studio 6.
  • Guru / Dosen / Instruktur Lab. komputer yang mengajar tentang Visual studio 6/vb6 sebagai modul pengajaran.
Bonus 100 source code vb6 lainnya dalam DVD:

1. Aplikasi Counter Handphone
2. Aplikasi Cuti Pegawai
3. Sisfo Kepegawaian
4. Aplikasi Apotik
5. Aplikasi Asuransi
6. Aplikasi Grosir
7. Aplikasi Klinik Penyakit Mata
8. Sisfo Penjualan Sepeda Motor
9. Aplikasi Penjualan Kredit
10. Program Stok Barang
11. Sisfo Perpustakaan
12. Sisfo Kriminalitas
13. Sisfo Penjualan Pupuk
14. Aplikasi Rumah Sakit
15. Sisfo Penerimaan Siswa Baru … 100

Anda dapat merequest source code yang anda inginkan, jika ada akan diikutsertakan.

Tambahan Bonus:

1. Ebook Kumpulan Tips dan Trik Visual Studio 6 (vb6).

Tips dan trik Visual Studio 6 ini saya koleksi sejak januari 2008 dan semuanya sudah saya uji coba dan alhamdulillah berhasil baik. Kebanyakan berbentuk sourcecode.



2.  Ebook Trik Membuat Setup Instalasi dengan Installshield Express.

Ebook ini akan membantu anda dalam pembuatan file instalasi software. Dilengkapi dengan penjelasan bergambar sehingga memudahkan anda untuk mempelajarinya.

3. Ebook Membuat Aktivasi Software + Sourcecodenya.

Bocoran cara membuat aktivasi sebuah software. menjadikan software anda Trial dan Full version. Trial maksudnya ada batasan penggunaan. Sedangkan full version tidak ada batasan penggunaan. Sehingga pengguna dapat mencoba software yang anda buat lebih dulu dan jika tertarik menggunakan Full Versionnya maka penguna akan membeli Kode aktivasinya. Sebenarnya ini sangat rahasia karena berhubungan dengan project software yang saya jual di Internet. Penjelasan ebook dilengkapi dengan gambar dan source codenya sehingga memudahkan anda dalam mempelajarinya.


Master Software pendukung yang diikutsertakan dalam DVD:

  1. Master Visual studio 6 Full version.
  2. Crystal report 6 dan 8.5.
  3. Software Installshield Express.
  4. Komponen .ocx Vb6.
  5. Software buat box software dan cover ebook.
  6. Software buat file .pdf dan password .pdf.
  7. Master Visual Foxpro 9 (Bonus).
  8. Master Visual Delphi 7 (Bonus).

Semua disatukan dalam keping DVD dan tidak diproteksi oleh password apapun, sehingga anda dapat mengcopynya kedalam drive anda dan mempraktekkannya langsung ebook “Membangun Aplikasi Administrasi Sekolah” ini di komputer anda.

Saya berlakukan 2 (dua) jenis pengiriman:

  1. Ebook + Source code Project Program + Video pendukung + Bonus 100 source code program lainnya serta software pendukung dikirim via email jadi anda tinggal mendownloadnya. Harga hanya Rp.50.000,- 
  2. Ebook + Source code Project Program + Video pendukung + Bonus 100 source code program lainnya serta software pendukung disimpan dalam DVD dikirim via jasa pengiriman barang. Biaya hanya  Rp. 100.000,-(Ongkir 50rb ke seluruh Indonesia). Order 5 (Lima) DVD, Gratis 1 dvd lagi.
Pengiriman Menggunakan Jasa:

Penyetoran pada jasa pengiriman, dilakukan pada hari Senin s.d. Jumat (Pkl. 10.00 s.d. 14.00). Nomor Resi pengiriman akan dikirimkan kepada anda via HP. Pastikan alamat tujuan sesuai dengan lokasi dimana anda berada.

Jika ada pengembangan ebook + source code project aplikasi administrasi sekolah, akan dikirimkan via email secara GRATIS kepada anda yang sudah mengorder.

Berminat, contact via HP: 0857-5623-1035 – Yanto Naim (Stok DVD sisa 13 keping).

Kemudian lakukan konfirmasi:
paketebook#tgl_transfer#jumlah_transfer#Bank#email#nama_anda
Garansi:
Saya akan mengganti File Ebook + file sertaan lainnya, jika :

  1. File dalam DVD tersebut Rusak atau tidak terbaca. (Sebelum DVD dikirimkan kepada anda akan diuji coba lebih dulu untuk memastikan bahwa semua file dapat terbaca).
  2. Link download bermasalah sehingga file tidak dapat didownload.

Gratis Konsultasi via YM (yantoit2011), jika:
1. Prototype Aplikasi Administrasi Sekolah tidak jalan.
2. Tutorial dalam Ebook susah dipahami.
3. Saran dan kritik pengembangan ebook “Membangun Aplikasi Administrasi Sekolah

Kelebihan ebook dibandingkan buku:

Lebih Simpel. Ebook dinilai lebih simpel untuk dibawa dan disimpan, ketimbang buku cetak. Dengan format ebook, Anda tak butuh lagi tas besar untuk membawa beberapa buku atau rak buku berderet-deret untuk menyimpan koleksi buku Anda. Anda hanya butuh ebook readers untuk membawa atau menyimpan buku-buku Anda.
Lebih Murah. Ebook tergolong jauh lebih murah ketimbang buku cetak.
Lebih Tahan Lama dan Abadi. Ebook adalah buku yang tahan lama atau bahkan abadi (everlasting). Ia tak akan mudah rusak dimakan usia. Berbeda dengan buku cetak, yang makin lama akan makin menguning dan rusak.

Jangan sia-siakan kesempatan yang anda didepan mata, cermati dan ACTION. PERHATIAN: penjualan DVD ebook ini, tidak menggunakan sistem reseller. Anda hanya mendapatkannya di http://www.KlikAkuAja.com. DVD ebook ini GRATIS buat anda yang telah menjadi Member Premium dan mengikuti ketentuan yang ada di web jasa sourcecode.

DAFTAR YANG MENGORDER.
  1. Sofyan Likabu, A.Md.Kom 08523424xxxx  Banggai (DVD)
  2. Gufran 08784406xxxx  Banggai (DVD)
  3. Irwan Polewali Mandar Sulawesi Barat 08124269xxxx (DVD)
  4. Edi Junaedi Cianjur Jawa Barat 08565957xxxx (email + DVD)
  5. Nurmanto Banggai 08523143xxx  (DVD)
  6. Surahman Kel. Baru Luwuk 08565613xxxx (DVD)
  7. Gusti Bayu Sakti, SH Kota Palembang (DVD)
  8. Master Kwang masterxxx@yahoo.com (Email)
  9. Andika AMIK Nurmal Luwuk Banggai (DVD)
  10. Albert Abe.albertxx@gmail.com (Email)
  11. Arif arifhamidixx@yahoo.co.id (Email)
  12. Hairul Anwar Banyuwangi Jawa Timur (DVD)
  13. Nafan n4f_xx@yahoo.com (Email)
  14. Suri Rahmadi via email: surirahmaxx@yahoo.co.id
  15. Agus Santoso Denpasar Bali (DVD)
  16. dll,,,
Jika anda seorang pembuat program (programmer), Langkah ini wajib anda lakukan.
Karena dengan kita membuat Instalasi Aplikasi, maka aplikasi yang kita buat mudah didistribusikan kepada pengguna komputer yang lain untuk diuji coba atau digunakan tanpa mengikutsertakan program pembuatnya.
Contoh aplikasi yang sudah dibuatkan Paket Instalasinya, KLIK DISINI.
Nah, bagaimana cara membuatnya. Ebook ini akan membantu anda. Dilengkapi dengan penjelasan bergambar sehingga memudahkan anda untuk mempelajarinya. Untuk mendapatkan ebook ini, anda harus join DISINI.

Kayanya sudah lama sekali gk nulis artikel lagi, karena ada kesempatan hari ini maka saya share sebuah source code Sistem Pendukung Keputusan pemberian kredit. SPK ini menggunakan 3 (Tiga) kriteria penilaian. Berikut screennya:

SPK SAW 4 SPK SAW 1 SPK SAW 2 SPK SAW 3

Hanya maaf, teman2 dapat mengambil source code jika menjadi member di DISINI.

Sebelumnya buat database terlebih dahulu dengan nama dblatihan1 pada Ms.Access 2007. Simpan dengan format 2002-2003, kemudian lanjutkan buat tabel dengan nama tbbarang dengan struktur tabel seperti gambar dibawah ini:

tbbarang

Selanjutnya buat project baru, kemudian rancang form barang seperti dibawah ini:

form barang vbnet 2010

 

Tambahkan model untuk koneksi, masukkan source dibawah ini:

Imports System.Data.OleDb
Module Module1
 Public Conn As OleDbConnection
 Public LokasiDB As String
 Sub Koneksi()
 LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=dblatihan1.mdb"
 Conn = New OleDbConnection(LokasiDB)
 If Conn.State = ConnectionState.Closed Then Conn.Open()
 End Sub
End Module

Selanjutnya, ketik source penyimpan, edit, hapus dan batal dibawah ini:

Imports System.Data.OleDb
Public Class Form1
 Dim da As OleDbDataAdapter
 Dim RD As OleDbDataReader
 Dim ds As DataSet
 Dim CMD As OleDbCommand
 Dim ada1 As Boolean

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Koneksi()
 tampil()
 tidakaktif()
 btnsimpan.Text = "Tambah"
 tutuptombol
 End Sub

 Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
 If btnsimpan.Text = "Tambah" Then
 Call btnbatal_Click(sender, e)
 Exit Sub
 End If
 If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
 MsgBox("Data belum lengkap, Pastikan Kode Admin 6 Digit dan Semua form terisi")
 Exit Sub
 Else
 If ada1 = False Then
 Call Koneksi()
 Dim simpan As String = "insert into tbBarang values ('" & TextBox1.Text & "','" & TextBox2.Text & "'," & TextBox3.Text & "," & TextBox4.Text & ",'" & TextBox5.Text & "')"
 CMD = New OleDbCommand(simpan, Conn)
 CMD.ExecuteNonQuery()
 MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
 Call tampil()
 Call btnbatal_Click(sender, e)
 End If
 If ada1 = True Then
 Call Koneksi()
 Dim edit As String = "update tbBarang set NamaBarang='" & TextBox2.Text & "',hargabarang=" & TextBox3.Text & ",jumlahbarang=" & TextBox4.Text & ", satuan='" & TextBox5.Text & "' where KodeBarang='" & TextBox1.Text & "'"
 CMD = New OleDbCommand(edit, Conn)
 CMD.ExecuteNonQuery()
 MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")
 tampil()
 Call btnbatal_Click(sender, e)
 End If
 End If
 End Sub
 Sub tampil()
 da = New OleDbDataAdapter("Select * from tbbarang", Conn)
 ds = New DataSet
 ds.Clear()
 da.Fill(ds, "tbBarang")
 DataGridView1.DataSource = (ds.Tables("tbBarang"))
 DataGridView1.Columns(0).HeaderText = "Kode Barang"
 DataGridView1.Columns(1).HeaderText = "Nama Barang"
 DataGridView1.Columns(2).HeaderText = "Harga Barang"
 DataGridView1.Columns(3).HeaderText = "Jumlah Barang"
 DataGridView1.Columns(4).HeaderText = "Satuan"
 End Sub

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 If e.KeyChar = Chr(13) Then
 'Call Koneksi()
 CMD = New OleDbCommand("Select * from tbBarang where kodebarang='" & TextBox1.Text & "'", Conn)
 RD = CMD.ExecuteReader
 RD.Read()
 If Not RD.HasRows Then
 tutuptombol()
 ada1 = False
 TextBox2.Text = ""
 TextBox3.Text = ""
 TextBox4.Text = ""
 TextBox5.Text = ""
 TextBox2.Focus()
 Else
 ada1 = True
 bukatombol()
 TextBox2.Text = RD.Item("NamaBarang")
 TextBox3.Text = RD.Item("hargabarang")
 TextBox4.Text = RD.Item("jumlahbarang")
 TextBox5.Text = RD.Item("satuan")
 End If
 End If
 End Sub

 Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

 Call Koneksi()
 CMD = New OleDbCommand("Select * from tbBarang where kodebarang='" & TextBox1.Text & "'", Conn)
 RD = CMD.ExecuteReader
 RD.Read()
 If Not RD.HasRows Then
 tutuptombol()
 ada1 = False
 bersih()
 TextBox2.Focus()
 Else
 bukatombol()
 ada1 = True
 TextBox2.Text = RD.Item("NamaBarang")
 TextBox3.Text = RD.Item("hargabarang")
 TextBox4.Text = RD.Item("jumlahbarang")
 TextBox5.Text = RD.Item("satuan")
 TextBox2.Focus()
 End If

 End Sub
 Private Sub bersih()
 TextBox2.Text = ""
 TextBox3.Text = ""
 TextBox4.Text = ""
 TextBox5.Text = ""
 End Sub
 Private Sub tidakaktif()
 TextBox2.Enabled = False
 TextBox3.Enabled = False
 TextBox4.Enabled = False
 TextBox5.Enabled = False
 End Sub
 Private Sub aktif()
 TextBox2.Enabled = True
 TextBox3.Enabled = True
 TextBox4.Enabled = True
 TextBox5.Enabled = True
 End Sub
 Private Sub bukatombol()
 btnedit.Enabled = True
 btnhapus.Enabled = True
 End Sub
 Private Sub tutuptombol()
 btnedit.Enabled = False
 btnhapus.Enabled = False
 End Sub
 Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
 btnsimpan.Text = "Tambah"
 bersih()
 tidakaktif()
 tutuptombol()
 TextBox1.Enabled = True
 TextBox1.Focus()
 End Sub

 Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
 aktif()
 btnedit.Enabled = False
 TextBox1.Enabled = False
 TextBox2.Focus()
 btnsimpan.Text = "Simpan"
 End Sub

 Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
 If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
 Dim hapus As String = "delete * from tbBarang where KodeBarang='" & TextBox1.Text & "'"
 CMD = New OleDbCommand(hapus, Conn)
 CMD.ExecuteNonQuery()
 MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
 Call tampil()
 Call btnbatal_Click(sender, e)
 Exit Sub
 Else
 Call btnbatal_Click(sender, e)
 Exit Sub
 End If
 End Sub
End Class

Hasilnya seperti berikut:

form barang vb 2010

Semoga bermanfaat,,, dapatkan source code lebih banyak untuk vbNet (2008,2010) DISINI.

2 (dua) bulan gak posting lagi, lagi lagi karena agenda padat🙂🙂. Posting kali ini menjawab pertanyaan teman yang menanyakan “cara menampilkan fhoto/gambar dari database pada crystal report 8.5

gambar di crystal report

Yuk download video caranya dari pakar VB6 langsung, KLIK DISINI.

source code sms gatewayTak terasa berjalannya waktu, 8 (delapan) bulan lamanya saya tidak lagi memposting artikel di blog ini. Agenda yang padat itulah penyebabnya.

Ok, kali ini saya memposting artikel source code sistem informasi nilai sekolah berbasis SMS Gateway.  Source code ini bukan buatan saya. Beberapa fasilitas yang ada didalamnya yaitu:

1.  Login. user: 123 pasword: 123

2.  Data Siswa

3. Data Nilai

4. Kirim SMS per kelas, mata pelajaran dan jenis ulangan.

5. Pengaturan User

6. Laporan pesan masuk, pesan terkirim, dan nilai.

7. Setting SMS Gateway (ON/OFF)

Sisfo ini sangat menarik. Dapat anda gunakan sebagai referensi pembelajaran untuk Tugas Akhir atau Project anda yang lain. Disini saya hanya membagikan informasinya tuk anda. Link downloadnya, KLIK DISINI

Older Posts »

Kategori