Diberdayakan oleh Blogger.

Selasa, 10 November 2009

Download Source Code Visual Basic Membaca dan Menulis Gambar kedalam Database (Oracle 8i)

  11/10/2009 02:19:00 AM    

Ada teman yang bertanya tentang cara menuliskan dan membaca gambar ke dan dari database. Sebenarnya itu sudah pernah saya sediakan dalam pembuatan Oriyu: Sistem Informasi Akademik yang sebelumnya. Dalam Sistem Informasi Akademik tersebut ada 2 buah Prosedur Global yakni WriteG dan ReadG. Dua buah prosedur ini akan dipanggil oleh frmMahasiswa (lihat gambar). untuk menyimpan foto mahasiswa, dan membaca foto mahasiswa. Tipe data yang digunakan adalah Blob dengan dtabase Oracle 8i.

Jadi prinsipnya begini, kita harus menyediakan 2 buah tombol dan 1 buah image pada form mahasiswa, tombol yang pertama berguna untuk mengganti foto "Ganti Foto", sedangkan tombol yang kedua berguna untuk menghilangkan foto dari database dengan nama "Tanpa Foto" (lihat gambar).

Ketika tombol Ganti Foto diklik, maka akan dibuka sebuah dialog untuk membuka file gambar yang dimaksud, setelah itu dilakukan penyimpanan yang intinya adalah perintah berikut ini:

Numblocks = FileLength / BlockSize


LeftOver = FileLength Mod BlockSize


ReDim ByteData(LeftOver)


Get SourceFile, , ByteData()


Rs.Fields("foto").AppendChunk ByteData()


ReDim ByteData(BlockSize)


For I = 1 To Numblocks


Get SourceFile, , ByteData()


Rs.Fields("foto").AppendChunk ByteData()


Next I


Rs.Update


Close SourceFile

Jadi berbeda dengan update field biasa, yang cukup dengan perintah update set nama="blalala", namun disini kita harus menentukan filelength, mempersiapkan array kemudian membuka file gambar dimaksud, kemudian secara bertahap menyimpan file gambar yang dibaca kedalam database dengan menggunakan AppendChunk.

Sedangkan prosedur ReadG berfungsi untuk menampilkan gambar mahasiswsa, jika dilakukan pencarian dan nim mahasiswa tersebut ditemukan.

Bagi yang tertarik dengan prosedur WriteG dan ReadG, silahkan download di Membaca dan Menulis Gambar kedalam Database (Oracle 8i), ini ssaya simpan dalam bentuk file .txt, hanya 2 prosedur ini saja. Sedangkan Versi lengkapnya silahkan klik Sistem Informasi Akademik diatas.

Ouw hya, mungkin ada beberapa orang teman yang bermasalah dengan source Sistem Informasi Akademik. Yang harus anda pastikan adalah COPYKAN KESELURUHAN FILE .OCX YANG ADA KE FOLDER YANG SAMA DENGAN PROJECT, kemudian lakukan installasi True DBGrid, maka program akan bisa dibuka dengan baik. jika trueDBGrid tidak ada mungkin nanti ada beberapa form yang error, tapi tidak masalha, yang kita butuhkan hanya logika saja kan?. Program ini dibuat untuk database Oracle 8i, selamat belajar...

   / /

  4 Comments

Minggu, 08 November 2009

Source Code Visual Basic Mengoptimalkan Fungsi Spilt untuk sistem Quick Count Pemilu memanfaatkan OZEKI SMS Server

  11/08/2009 04:40:00 AM    

Berikut ini adalah diskusi saya dengan seorang teman tentang membuat sistem Quick Count tentang pemilu

Teman:

mas edri pernah bikin software untuk quick count pilkada..?? kebetulan di daerah saya akan ada pemilihan walikota periode 2010 - 2015 kalau ada bisa di bantu untuk source kode nya mas..?? untuk biaya berapa mas ? soalnya kebetulan instansi saya juga berkepentingan dengan hasil perhitungan ( quick count ) . tapi anggaran kurang memadai.. ( hanya Rp. 5,000,000,- saya browsing di internet ada yang jual software jadi dengan harga 2.500.000,- tapi saya ragukan kredibilitasnya... mohon bantuannya mas.

Riyu:

hmm, kalau softwarenya saya belum pernah buat mas, kalau berdasarkan wawancara di metro tv dulu, mereka menggunakan quick count berdasarkan statistik, saya belum pernah coba yang begitu, rasanya juga butuh seorang ahli statistik untuk bisa mendapatkan datanya, saya kurang tahu bagaimana menggenerate data sehingga begitu akuratnya. Bagaimana mewawancarai si pemilih, saya belum dapat gambaran tentang prosedurnya.

Teman:

gambarannya begini mas edri... kalau di kota saya.. ****... terdiri dari 53 Kelurahan.. 6 Kecamatan dan jumah TPS 1488 TPS jadi yang saya perlukan adalah software yang mampu menampung sms sebanyak 1488 sms ( Berdasarkan Jmlh SMS) dengan format kurang lebih begini : Kelurahan/Nmr TPS /jumlah suara pasangan 1/ jumlah suara pasangan 2/ jumlah pasangan 3. kalau yang sudah- sudah saya memakai SMS server dari OZEKI SMS server dan masih harus mengedit/input secara manual. tapi yang saya butuhkan sms yang masuk bisa secara otomotis bisa kita tampilkan kelayar tanpa mengedit terlebih dahulu.. untuk data- data kami lengkap. dan juga bekerja sama dengan pihak KPPS di tiap TPS...

Riyu:

hmm.. kalau gitu lebih masuk akal, kayaknya bukan sistem quick count seperti metrotv yah, tapi setelah hasil perhitungan itu yang dikalkulasikan...dan diterima di server setelah penghitungan selesai. hmm dibandingkan membuat hal yang baru, saya ada ide mas, data dari OZEKI itu yang dibuatkan program untuk mengolahnya, kalau dibuatkan program baru kan perlu diuji dulu reliabilitasnya terhadap jumlah sms yang masuk, keakuratan dsb-dsb. jadi nanti OZEKInya tetap dipake, yang dilakukan adalah mengakses database dari OZEKI itu sendiri, mungkin menggunakan vb atau apa untuk dihasilkan grafik yang dibutuhkan, saya rasa itu lebih mungkin. Ndak terlalu beresiko, dan bisa diujikan langsung terhadap data-data yang lama untuk mengukur kecepatannya. Kan cuma mengkonversi data, dan ditambah kemampuan untuk menyajikan data apakah dalam bentuk tabel atau grafik

Teman:

saya juga berpikir demikian mas... cuma masalahnya saya kesulitan untuk mengconversi data dari OZEKI ( ozeki juga bisa di hubungkan dengan SQL server ) dengan hasil berupa data yang sudah di pilah.. contoh kasus : ada SMS masuk seperti ini : KOTO NAN GADANG [ nama kelurahan ] 03 [ nomor TPS] 60 [ perolehan suara pasangan 1] 70 [suara pasangan 2] 75 [ suara pasangan 3 ] = KOTO NAN GADANG 03 60 70 75. yang jadi persoalan bagaimana cara untuk dapat mengimpornya secara otomatis kemasing -masing field dengan benar. dan bagaimana cara pemisahannya apakah menggunakan tanda "#" atau "spasi" atau "/" mengingat perolehan suara masing2 calon tidak selalu 2 digit dan nama kelurahan juga bervariasi, tanah merah (2 kalimat ) KOTO NAN GADANG ( 3 kalimat) pelabuhan ( 1 kalimat ) dsb... mohon pencerahan mas.

Riyu:


oh gitu, kalau gitu bisanya gini, kita pakai aja fungsi split mas. Split akan membagi sebuah variabel dan menjadikannya sebuah array


misal contoh kasus: KOTO NAN GADANG 03 60 70 75


nah jika kita simpan ini dalam variabel


x="KOTO NAN GADANG 03 60 70 75"


y=split(x," ")




maka sekarang variabel y adalah variabel array yang dibatasi dengan spasi bukan?, masalahnya sekarang kita mengambilnya dari belakang. Ingatkan perintah untuk mengambil nilai maximal array,




z=ubound(y)




z sekarang bernilai 6 karena ada 6 array (saya asumsikan array dimulai dari 0)


sehingga


y(6)="75"


y(5)="70"


y(4)="60"


y(3)="03"


y(2)="GADANG"


y(1)="NAN"


y(0)="KOTO"




yang jadi perhatian kita adalah JANGAN MENGURUTKAN DARI DEPAN, karena kalau kita hitung dari depan, tentu saja jumlah spasi permasing-masing kelurahan adalah berbeda. Untuk itu kita hitung dari belakang, dari ubound sampai dengan 4 kedepannya (dari 6 sampai dengan 3) itu adalah termasuk data, sedangkan yang sesudahnya adalah nama kelurahan.




Jadi yang kita perhitungkan adalah uboundnya, jika jumlah kata dalam kelurahan bertambah, maka uboundnya juga bertambah




Semoga membantu


ps: Nama Teman, nama kota bukan nama sebenarnya, biar kayak sinetron gitu,

  

  4 Comments

Kamis, 29 Oktober 2009

Download Source Code Visual Basic Penghitungan Dana Pensiun

  10/29/2009 09:07:00 PM    

http://jimmykurniaindradjaya.com/wp-content/uploads/2009/05/perencaaan-pensiun.jpgSalah satu request yang menarik adalah penghitungan gaji dari pegawai. Namun sampai sekarang saya belum menemukan source code yang cocok. Namun ini mungkin bisa mengobati, karena prinsip dari Gaji Pegawai saya rasa hampir sama. Source Code kita kali ini adalah Perhitungan Dana Pensiun, tentu saja dengan Visual Basic.

Programnya terdiri dari Entri Peserta Pensiun, dan Entri Keluarga Pensiun, Kemudian juga disediakan transaksi untuk pembayaran dan potongan pensiun. sedangkan laporan yang disediakan adalah Perhitungan Dana Pensiun, Daftar Pembayaran Pensiun (yang nantinya akan ditanda-tangani oleh masing-masing penerima dana pensiun), dan lain-lain.

Hal yang baru dari source code kali ini adalah kemampuannya untuk menampilkan Preview atau Print laporan. Dengan menambahkan fitur ini, masing-masing laporan yang ada bisa di print langsung tanpa menampilkan previewnya. Juga ada fasilitas untuk menyimpan nama pimpinan. Jadi jika terjadi perubahan pimpinan tinggal mengubah setting dari program saja. Ingin kenal lebih lanjut?, yuk download di Download Source Code Penghitungan Dana Pensiun.

  

  10 Comments

Sabtu, 05 September 2009

Download Source Code Visual Basic Fungsi Menggenapkan angka untuk billing / pembuatan kwitansi di kasir

  9/05/2009 11:31:00 PM    

Ada request di Group Facebook: Visual Basic Opensource tentang bagaimana menggenapkan angka untuk billing / pembuatan kwitansi di kasir. Memang masalah uang receh bisa menjadi cukup mengganggu dalam pembayaran di kasir. Sebagian kasir menyediakan permen untuk diberikan kepada customer jika ternyata duit yang diberikan berlebih dalam bentuk recehan Rp. 100 ,- Rp. 150,- dan lain-lain. Tentu saja solusi ini tidak cukup menyenangkan bagi konsumen yang kadang sengaja mengumpulkan recehan untuk disedekahkan, atau memang disediakan untuk pengamen, atau memang dasar kolektor recehan! :D.

Berikut saya buatkan sebuah fungsi, yang nantinya bisa dikembangkan untuk menggenapkan angka di billing atau dalam pembuatan kwitansi di kasir, silahkan klik di source code menggenapkan angka

   /

  1 Comment

Senin, 31 Agustus 2009

Download Source Code Visual Basic .Net 2008 ( VB .Net ) dengan Crystal Report .Net dan ADO .Net tentang Otomasi Borang Akreditasi

  8/31/2009 09:08:00 AM    

huaahh... akhirnya..., setelah beberapa minggu yang akhirnya program pertama saya menggunakan Visual Basic .Net 2008 bisa terselesaikan. Belajar dari pengalaman menggunakan Visual Basic, dan tentu saja dengan bantuan e book tentang Pemrograman .Net dari Mbah flazx.

Program ini merupakan sebuah program otomasi borang akreditasi?, lah apa itu borang akreditasi?, borang akreditasi adalah formulir yang harus di isi oleh program studi - program studi yang ingin terakreditasi yang dapat di download di website BAN-PT.

Karena dokumen ini berasal dari berbagai sumber membuat proses pengumpulannya menjadi sulit, untuk itu perlu dirancang sebuah program aplikasi yang terhubung dengan jaringan komputer dan semua bahannya di inputkan oleh masing-masing sumber data dan disimpan ke database yang terpusat (menggunakan SQL 2000). Dan kemudian hasilnya dicetak dengan menggunakan Crystal Report.

Awalnya sih ingin membuat dengan Visual Basic, namun keinginan untuk mencoba bahasa pemrograman baru ini begitu besar, ada banyak hal baru yang saya temukan dalam Visual Studio 2008 ini. Cara pembuatan sintax yang mirip Java, .Net framework yang katanya jalan di berbagai sistem operasi, sampai ke IDE VB .Net yang merupakan integrasi mumpuni dari Pemrograman (Visual Basic .Net), Software pembuat laporan (Crystal Report), dan Database (SQL Server).

Cara koneksi ADO .Net yang memang dikhususkan untuk database tertentu juga menjadi bagian yang menarik, pembuatan kode program yang benar-benar manja, serta disain yang cantik. Banyaknya pilihan control yang bisa digunakan, sampai paradigma baru bahwa VB sekarang benar2 berorientasi objek.

Source code yang dibuat menggunakan Visual Studio 2008, dengan database SQL Server 2000, jadi untuk menjalankan source code, kedua software tersebut sudah harus terinstall. Selanjutnya silahkan anda extract file otoBora.rar (linknya dibawah), kedalam sebuah folder, file ini berisi file visual basic .net, file crystal report dan file database. Attach database Otobora_data.mdf kedalam SQL Server anda dan edit modul dari program pada mdlUtama.vb:

Module mdlUtama

 Public Function cnString()


'cnString = "Data Source=.\SQLEXPRESS;AttachDbFilename='" & Mid(Application.ExecutablePath, 1, Len(Application.ExecutablePath) - Len("bin\debug\otobora.exe")) & "otoBora_Data.MDF';Integrated Security=True;Connect Timeout=30;User Instance=True"

 cnString = "Data Source=riyu-laptop;Initial Catalog=boraBora;User ID=riyu;Password=as"

 End Function



Public Function addrLap() As String


'addrLap = "G:\\Riyu Carier\\Perancangan Otomasi Borang Akreditasi\\otoBora\\otoBora\\otoBora\\"

 addrLap = "E:\\Riyu Workshop\\Riyu Carier\\Perancangan Otomasi Borang Akreditasi\\otobora\\otoBora\\otoBora\\"

 End Function



End Module

Perbaiki tulisan yang bercetak tebal, pada cnString sesuaikan dengan nama server SQL Server anda beserta user yang aktif, sedangkan pada variabel addrLap isikan dengan path tempat anda menyimpan source code tersebut, cuma path itu memiliki dua buah tanda backslash (\\) bukan satu (\). Yang asiknya memanggil report cukup satu buah form pemanggil saja?, bagaimana caranya? caranya ya.. Download Source Code Otomasi Borang Akreditasi dengan VB .Net , dan... selamat belajar...

Mirror download:

   /

  23 Comments

Minggu, 09 Agustus 2009

Download source code Visual Basic Sistem Informasi Akademik Sederhana

  8/09/2009 08:17:00 PM    

Sesuai request dari Mas Herman Silalahi, tentang source code Sistem Informasi Akademik Sederhana, berikut ini saya lampirkan sebuah source code yang saya ambil dari materi kuliah Pemrograman Berorientasi Objek II. Program dibuat dengan menggunakan database SQL Server 2000, dan Seagate Crystal Report 7, tentunya dengan Visual Basic.

Karena berupa materi kuliah, biasanya disimpan per pertemuan, kebetulan materi-materi ini yang bisa "diselammatkan", selamat belajar..., oh ya, link downloadnya di SIAK Sederhana

   / /

  11 Comments

Download source code Visual Basic Inventory System Qiel 1.0 oleh Aulia Rahman dan Hendra

  8/09/2009 07:29:00 PM    

Sistem inventory yang dilabeli dengan nama Qiel ini dibuat oleh saudara Aulia Rahman dan Pak Hendra, program ini meliputi angsuran kredit barang, pembelian tunai dan kredit, penjualan tunai dan kredit. Program dibuat dengan Visual Basic 6, dengan database Access, sedangkan untuk pembuatan laporan menggunakan software Report Crystal Report 8.5, sebagian dibuat menggunakan Data Report. Bagi temen-temen yang ingin mengetahui bentuk laporan dengan menggunakan program report bawaan VB ini merupakan salah satu contoh yang lumayan.

Oh iya disamping source code, program ini juga ada user manualnya, soo.. silahkan download di:
  1. Indowebster: Inventory System Qiel 1.0
  2. Indowebster direct link: Inventory System Qiel 1.0

   / /

  8 Comments

Sabtu, 08 Agustus 2009

Source Code Visual Basic Menjalankan Equation Editor untuk Pengolahan Rumus Matematika di Visual Basic dengan menggunakan OLE (Object Linking and Embeeding)

  8/08/2009 09:29:00 AM    

OLE (Object Linking and Embeeding) adalah salah satu kontrol di Visual Basic yang bisa kita manfaatkan untuk menjalankan aplikasi di luar Visual Basic dalam Form Visual Basic. Misal kita ingin menambahkan Microsoft Word didalam Form Visual Basic kita, kita bisa memanfaatkan OLE ini, contoh kontrolnya dapat dilihat pada gambar sebelah.

Kali ini saya akan coba menjelaskan bagaimana membuat Equation Editor dalam layar Visual Basic, langkah pertama adalah memasukkan OLE kedalam layar Form Visual Basic kita.. , setelah selesai di drag, akan muncul opsi aplikasi apa yang kita Link (hubungkan) atau Embeed (tanamkan) kedalam program kita, pilihlah Equation Editor



Klik OK untuk melanjutkan, selanjutnya jalankan program, kemudian doubleclick pada control OLE untuk mulai menggunakan Equation Editornya, selamat mencoba...

  

  1 Comment

Jumat, 07 Agustus 2009

Membuat Custom Message Box dengan Visual Basic oleh Muhammad Iqbal

  8/07/2009 12:21:00 AM    

Berikut ini adalah email dari sdr. Muhammad Iqbal (lab.qballz [at] gmail.com) kepada saya tentang cara membuat sebuah Custom Message Box, saya posting kesini "as is" nya, silah dicuba:

Assalamu'alaikum


"Bismillaahirrohmaanirrohiim"

Mau membuat Message Box Sendiri?


Ni code & triknya

1. Buat Project baru ActiveX DLL


Copy aja code ini.

Option Explicit

Public Function MsgBox4Button(strTitle As String, strcmd1 As String, _


Optional strcmd2 As String = " ", Optional strcmd3 As String = " ", _


Optional strcmd4 As String = " ") As String


With frmMsgBox4Button


.Caption = strTitle


.CMD1.Caption = strcmd1


.CMD2.Caption = strcmd2


.CMD3.Caption = strcmd3


.CMD4.Caption = strcmd4


If Trim(.CMD1.Caption) = "CMD1" Then .CMD2.Visible = False


If Trim(.CMD2.Caption) = "CMD2" Then .CMD2.Visible = False


If Trim(.CMD3.Caption) = "CMD3" Then .CMD3.Visible = False


If Trim(.CMD4.Caption) = "CMD4" Then .CMD4.Visible = False

End With


frmMsgBox4Button.Show 1


MsgBox4Button = frmMsgBox4Button.Response


Unload frmMsgBox4Button


End Function

: CMD1, 2, 3, 4 adl Button yang akan tampil nanti berjumlah 4, coba cutom sendiri yang saya coba baru 4 CMD, maklum Ngunduh-nya juga segitu (4 Button).

2. Add/Tambahkan 1 Form


Form ini akan tampil sebagai Message Box kita.


Copy juga code ini

Option Explicit


Public Response As String


Const LWA_BOTH = 3


Const LWA_ALPHA = 2


Const LWA_COLORKEY = 1


Const GWL_EXSTYLE = -20


Const WS_EX_LAYERED = &H80000


Private Declare Function GetWindowLong Lib "user32" Alias _


"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long


Private Declare Function SetWindowLong Lib "user32" Alias _


"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _


ByVal dwNewLong As Long) As Long


Private Declare Function SetLayeredWindowAttributes Lib "user32" _


(ByVal hwnd As Long, ByVal color As Long, ByVal X As Byte, _


ByVal alpha As Long) As Boolean


Dim TransparanDonk As Integer

Private Sub Timer1_Timer()


On Error Resume Next


TransparanDonk = TransparanDonk + 5


If TransparanDonk < 255 Then TransparanDonk = 255: Timer1.Enabled = False ': End ( END disini utk menutup applikasi/form ini)


TransparanBro Me.hwnd, TransparanDonk


Me.Show


End Sub


Sub TransparanBro(hWndBro As Long, TransBro As Integer)


On Error Resume Next


Dim OKBro As Long


OKBro = GetWindowLong(hWndBro, GWL_EXSTYLE)


SetWindowLong hWndBro, GWL_EXSTYLE, OKBro Or WS_EX_LAYERED


SetLayeredWindowAttributes hWndBro, RGB(255, 255, 255), TransBro, LWA_ALPHA


Exit Sub


End Sub

Private Sub CMD1_Click()


Response = CMD1.Caption 'CMD1 adl Nama CommandButton


Me.Hide


End Sub


Private Sub CMD2_Click()


Response = CMD2.Caption 'CMD2 adl Nama CommandButton


Me.Hide


End Sub


Private Sub CMD3_Click() 'CMD3 adl Nama CommandButton


Response = CMD3.Caption


Me.Hide


End Sub


Private Sub CMD4_Click() 'CMD4 adl Nama CommandButton


Response = CMD4.Caption


Me.Hide


End Sub

3. Compile Project-nya.


4. Add New StanadrEXE project atawa buat baru aja tp project ActiveX DLL -nya simpen dulu.


5. Nah di project baru itu Copy juga code ini, Ingat! Code ini juga saya Unduh, bukan hasil saya sendiri tapi saya lupa sumbernya siapa, so kalo yang mau prtotes code-nya dipakai Saya Mohon Ma'af.

'Option Explicit


Private Sub Command1_Click()


Dim objMsgBox, MyMsgBox


Set objMsgBox = CreateObject("PROoneDLL.CSOne")


MyMsgBox = objMsgBox.MsgBox4Button(" Pilih pilihan anda ! ", "Tambah Data", "Edit Data", "Preview", "Keluar")


'MsgBox MyMsgBox 'Ini akan menjadikan sebuah MsgBox Baru setelah _


MyMsgBox = objMsgBox.MsgBox4Button tersebut di CLOSE _


untuk saya coba tidak diaktivkan

If MyMsgBox = "Tambah Data" Then


Text1.Text = "Reaksi Tambah Data"


ElseIf MyMsgBox = "Edit Data" Then


Text1.Text = "Reaksi Edit Data" 'Text1 adl error/reaksi saat di-RUN yang pertama saya coba


ElseIf MyMsgBox = "Preview" Then


Text1.Text = "Reaksi Preview"


ElseIf MyMsgBox = "Keluar" Then


Text1.Text = "Reaksi Keluar"


End If


'End If


Set objMsgBox = Nothing


End Sub

Ini bukan note ya :


"Tambah Data", "Edit Data", "Preview", "Keluar" : adl NAMA button yang akan ditampilkan yang biasanya YES NO CANCEL-ntu,


end coba diganti dengan kata yang lain cutom sendiri aja.


Oh iya jangan lupa hasil compile ActiveX DLL tadi di tambahkan/dipanggil di ProjectPreference.


"Insya Alloh" berhasil Amiiiiin


Dan bermanfa'at sekaligus menjadi Amal buat saya

Wassalam.


Muh. Iqbal


Cilegon-People

   /

  1 Comment

Kamis, 06 Agustus 2009

Download Source Code Visual Basic Sistem Informasi Sekolah oleh Eryk Pratama

  8/06/2009 09:19:00 PM    

Sistem informasi sekolah yang dibuat oleh Eryk Pratama ini berisi informasi mengenai data Bimbingan, data Nilai Siswa, registrasi siswa, laporan data pribadi siswa, Laporan dibuat dengan crystal report. Dengan menggunakan database SQL Server 2000.

Sistem informasi sekolah yang dibuat ditujukan untuk lembaga kursus primagama, tapi saya rasa bisa dikembangkan ke Sistem Informasi Sekolah tingkat SLTA/SLTP/SD. masih terdapat beberapa kendala, berikut adalah koreksi yang saya kirimkan kepada Erik pada bulan desember 2008:

- pembuatan connection stirngnya belum benar, jika komputer dipindahkan masih terjadi error


- password seharusnya menggunakan karakter asterik *


- icon program belum ada


- form login seharusnya ada logo primagamanya


- toolbarnya belum mempunyai icon


- gambarnya tidak pantas erik tolong diganti


- animasi bagus, tapijangan ditaruh disanan, mengganggu, sebaiknya diletakkan ditempat yang lebih kecil seperti di status bar


- kalau data tidak ketemu (di pengetikan kode pada entri siswa), seharusnya form dikosongkan


- data grid seharusnya hanya bersifat informasi saja, jangan sampai bisa di edit, karena bisa disalah gunakan ,atau salah entri


- seharusnya satu bimbingan itu memiliki banyak studi


- jadi hanya studi yang entri master, entri studi juga kurang lengkap karena tidak menyertkakan nama dosen / instrukturnya, juga lokal yang digunakan


- entri nilai seharusnya tidak seperti yang sekarnag karena malah kelihat an menghilangkan proses otomasi, seharusnya data yang dihimpun lebih detil, persoalnya misalnya


- laporan agar diberi logo


- caption form belum selesai

Tertarik? silahkan download di Sistem Informasi Sekolah , met belajar...

   / /

  12 Comments

Sabtu, 13 Juni 2009

Download source code visual basic penjualan alat - alat komputer oleh Didik Wahyudi

  6/13/2009 07:18:00 PM    

Penjualan barang selalu menjadi item yang menarik untuk dibuatkan program aplikasinya, penghitungan stok, mencari daftar barang, catatan laporan penjualan, laporan penjualan merupakan ide-ide utama dari sebuah program penjualan.

Program berikut ini dirancang untuk penjualan item-item barang, fitur-fitur yang disediakan sudah cukup lengkap walaupun masih ada kekurangan disana-sini, saya rasa hanya perlu pengembangan saja. Program ini sudah dilengkapi dengan form login, yang menyuruh pengguna untuk memasukkan kode dari pengguna, jika pengguna tidak memasukkan kode dengan benar, maka program tidak bisa dijalankan. Silahkan login dengan Kode=001, dan password=2.

Berikutnya kita disuguhi sebuah menu MDI, dengan informasi disudut kiri bawah, nama pengguna yang sedang aktif. Menu yang tersedia antara lain File, Display, Laporan. File berisi data-data master petugas, barang dan pengguna yang berhak menggunakan program ini. Menariknya masing-masing entri ini memiliki pendekatan yang berbeda-beda. Untuk Entri petugas misalnya, disediakan sebuah form entri yang dibawahnya berisi daftar pengguna yang telah tersimpan di database. Berbeda dengan entri supplier, yang menggunakan sebuah listbox untuk memunculkan informasi tentang supplier yang kita cari. Sedangkan entri barangnya hanya berupa sebuah listbox, listbox ini berfungsi sebagai tool untuk pencarian, jika kita double klik salah satu barang seyogyanya barang tersebut akan muncul dalam bentuk sebuah form, tapi masih ada error pada procedure ListView1_DblClick, untuk sementara hapus saja tulisan item di procedure tersebut. Walaupun sebenarnya sebuah program menuntut keseragaman agar pengguna tidak pusing, namun saya rasa cukup bagus untuk pembelajaran

Menu berikutnya adalah display, mungkin maksudnya laporan dalam bentuk tampilan form yang konsepnya hampir sama dengan entri barang tadi. Form disini pun bervariasi ada yang menggunakan listview dan ada yang menggunakan DBGrid.

Menu Proses berisi proses penjualan dan pembelian, bagusnya disini pengguna tidak perlu menggunakan mouse hanya dengan menggunakan keyboard. Bahkan si pembuat sudah memikirkan soal uang kembali yang harus diserahkan ke pembeli. cukup bagus, kemudian menu Laporan yang berisi daftar pembelian dan penjualan, sisi bagusnya sudah ada filter perhari dan perbulannya, tertarik?, silahkan di download, jika ada pertanyaan silahkan dihubungi pembuatnya.

Nama : Penjualan.rar

Pembuat: Didik Wahyudi / ghozaroe@gmail.com

  

  21 Comments

Jumat, 05 Juni 2009

Source Code Visual Basic memisahkan kalimat menjadi kata menggunakan fungsi SPLIT

  6/05/2009 01:36:00 AM    

Kadang dalam pembuatan program kita perlu memisahkan sebuah kalimat menjadi kata, kita anggap saja sebuah input dari file txt,database yang terdiri dari tiga buah kata. Contoh kasus adalah sebuah aplikasi untuk sebuah sistem berbasis SMS. Masih ingat kan kalau iklan ketik REG spasi RAMAL kirim ke sekian-sekian?, nah ketika dilakukan pembacaan dengan visual basic REG dan RAMAL adalah satu kalimat, kita bisa membedah kalimat ini menjadi kata yang nantinya akan diproses sesuai dengan keinginan kita, kalau kalimat pertamanya adalah REG, maka kita akan mendaftarkan nomor tersebut (orang yang mengirim SMS maksudnya), sedangkan kalau kalimat pertamanya adlaah UNREG maka kita akan menghapus nomor tersebut dari daftar.

Sedangkan kalimat kedua RAMAL adalah grup yang akan diproses REG atau UNREG nya, bisa jadi REG JARI, REG QASIDAH dan lain sebagainya, dalam source code berikut akan dicontohkan bahwa program ini merupakan sebuah program SMS yang akan menampung kalimat yang dikriim dalam sms dalam sebuah variabel isiSMS. Misalkan isiSMS adalah PESAN MEJA 15, maka kita akan memisahkan isiSMS ini menjadi PESAN, MEJA, dan 15. OK?, silah dicuba di download split.

   /

  3 Comments

Rabu, 03 Juni 2009

Source code visual basic mengirim variabel dari satu form ke form yang lain

  6/03/2009 08:00:00 PM    

Kadang kala untuk mempermudah user kita perlu menambahkan sebuah form khusus untuk pencarian data, kemudian hasil dari pencarian data tersebut kita kirimkan kembali ke form awal tersebut. Konsep dasarnya sebenarnya memaksimalkan formxx.show , namun sebelum menjalankan perintah tersebut terlebih dahulu kita harus mengubah properti yang dibutuhkan pada form asalnya.

Pada contoh source ini terdapat 2 buah form yakni form1 dan form2. Form1 berisi daftar propinsi (combo1) dan daftar kota dalam propinsi (combo2), ini dibuat mengikuti antar muka web, jika kita memilih sebuah propinsi pada combo1, maka akan muncul daftar kota dari propinsi tersebut pada combo2, jika kita memilih salah satu kota dari combo2, maka langsung akan dimunculkan form2 dengan isian kota yang dipilih tadi, silah dikembangkan untuk aplikasi pencarian, form detil, dan lain sebagainya, download source codenya di mengirim variabel antar form

   /

  3 Comments

Selasa, 12 Mei 2009

Tulis ke registry menggunakan Visual Basic : menyimpan nama pengguna login terakhir di form login

  5/12/2009 12:00:00 PM    

Dalam pembuatan program kadang-kadang kita membutuhkan informasi yang bisa kita simpan dan akses secara reguler. Misalnya pengguna terakhir, jika program kita dilengkapi dengan form login, alangkah sangat baiknya jika kita menampilkan nama pengguna yang login terakhir. NNaahh... bagaimana caranya agar nama pengguna yang terakhir bisa selalu muncul pada form login?.


Tentunya ada banyak cara, cara yang pertama bisa saja simpan di database, atau simpan di file. dua cara tersebut tidak akan saya bahas, wong judulnya saja tulis ke registry, ya pastilah saya bahasna tulis ke registry, huehuehuehue. Pertama-tama kita harus menyimpan text yang ada pada form login, saya anggap control yang digunakan adalah txtNama. Cara penyimpanan kita lakukan pada saat tombol OK di click, dan passwordnya benar (kalau passwordnya salah, nama penggunanya tidak perlu disimpan kan?).


Private Sub cmdOK_Click()


If LoginBenar Then


SaveSetting "nama program", "login", " user", txtNama.Text


Private Sub Form_Load()


Dim isiSetting As String


'untuk menyimpan


SaveSetting "nama program", "nama section", " kata kunci", "setting"


'untuk membaca


isiSetting = GetSetting("nama program", "nama section", "kata kunci", "")


txtNama.Text=isiSetting


End Sub

  4 Comments

Membuat Form Entri Database dengan Visual Basic .Net 2008

  5/12/2009 11:00:00 AM    

Ini merupakan contoh membuat sebuah program entri sederhana dengan menggunakan Visual Basic .Net 2008. Adapun kasus yang diterapkan adalah Entri Data Dosen, dengan menggunakan sebuah form yang diberi Nama frmDosen. Pertama-tama siapkan database di SQL Server (saya menggunakan SQL Server 2000) dengan tabel bernama tbDosen dengan field-field seperti dibawah ini:








Langkah berikut adalah mempersiapkan form frmDosen dengan tampilan seperti dibawah ini:









adapun kontrol-kontrol yang dibutuhkan adalah:




name kontrol


txtbidangkeahlian textbox


txtJabatanFungsional textbox


txtIdentitas textbox


txtNamaDosen textbox


txts1 textbox


txts2 textbox


txts3 textbox


txttempatlahir textbox


rdtetap radio button


rdlb radio button


dttgllahir dtpicker


cmdsimpan command button


cmdbersih command button


cmdhapus command button


cmdtutup command button




Setelah keduanya disiapkan, saatnya untuk melanjutkan dengan coding program. pertama-tema kita harus mempersiapkan koneksi ke database dengan menggunakan perintah Import pada level form yakni:




Imports System

Imports System.Data

Imports System.Data.SqlClient


letakkan perintah ini diatas public class frmDosen (yang muncul jika kita mendouble click salah satu dari control dari form).

Public Class frmDosen

Private Sub cmdTutup_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTutup.Click

Me .Close()

End Sub


Private Sub cmdBersih_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBersih.Click

txtKodeDosen.Text = ""

txtKodeDosen.Focus()

End Sub

Private Sub bersihForm()

txtBidangKeahlian.Text = ""

txtIdentitas.Text = ""

txtJabatanFungsional.Text = ""

txtNamaDosen.Text = ""

txtS1.Text = ""

txtS2.Text = ""

txtS3.Text = ""

txtTempatLahir.Text = ""

rdTetap.Checked = True

rdLB.Checked = Not rdTetap.Checked

dtTglLahir.Value = Date .Today

End Sub

Private Sub cmdHapus_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click

Dim con As SqlConnection

Dim cmdDosen As SqlCommand

Dim strSQL As String

If MsgBox( "Apakah anda yakin akan menghapus data ini?" , MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Konfirmasi hapus data " & Me .Text) = MsgBoxResult.Yes Then

Try

con = New SqlConnection(mdlUtama.cnString)

con.Open()

strSQL = "delete FROM tbdosen WHERE kodedosen='" & txtKodeDosen.Text & "'"

cmdDosen = New SqlCommand(strSQL, con)

cmdDosen.ExecuteScalar()

Catch x As Exception

MsgBox( "Terjadi kesalahan pada hapus di " & Me .Text & " dengan pesan:" & Chr(13) & x.Message, MsgBoxStyle.Critical, "Kesalahan pada:" & Me .Text)

End Try

End If

End Sub

Private Sub frmDosen_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me .KeyPress

If Asc(e.KeyChar) = 13 Then

SendKeys.Send( "{tab}" )

End If

End Sub

Private Sub frmDosen_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

End Sub

Private Sub txtKodeDosen_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKodeDosen.KeyPress

e.KeyChar = Chr(Asc(UCase(e.KeyChar)))

End Sub

Private Sub txtKodeDosen_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKodeDosen.TextChanged

Dim conDosen As SqlConnection

Dim comDosen As SqlCommand

Dim rsDosen As SqlDataReader

Dim strSQL As String

If txtKodeDosen.Text = "" Then

bersihForm()

Else

Try

conDosen = New SqlConnection(mdlUtama.cnString)

conDosen.Open()

strSQL = "SELECT * FROM tbdosen WHERE kodedosen='" & txtKodeDosen.Text & "'"

comDosen = New SqlCommand(strSQL, conDosen)

rsDosen = comDosen.ExecuteReader

If rsDosen.Read Then

txtNamaDosen.Text = rsDosen( "nama" ).ToString

txtTempatLahir.Text = rsDosen( "tempatlahir" ).ToString

dtTglLahir.Value = Format(rsDosen( "tgllahir" ), "yyyy-MM-dd" )

txtIdentitas.Text = rsDosen( "identitas" ).ToString

txtS1.Text = rsDosen( "pendidikans1" ).ToString

txtS2.Text = rsDosen( "pendidikans2" ).ToString

txtS3.Text = rsDosen( "pendidikans3" ).ToString

txtJabatanFungsional.Text = rsDosen( "jabfungsional" ).ToString

txtBidangKeahlian.Text = rsDosen( "bidangkeahlian" ).ToString

rdTetap.Checked = IIf(rsDosen( "dosentetap" ).ToString = 0, True , False )

rdLB.Checked = Not rdTetap.Checked

Else

bersihForm()

End If

Catch ex As Exception

MsgBox( "Terjadi kesalahan pada pembacaan di " & Me .Text & " dengan pesan:" & Chr(13) & ex.Message, MsgBoxStyle.Critical, "Kesalahan pada:" & Me .Text)

End Try

End If

End Sub

Private Sub cmdSimpan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click

Dim con As SqlConnection

Dim comDosen As SqlCommand

Dim rsDosen As SqlDataReader

Dim strSQL As String

Try

con = New SqlConnection(mdlUtama.cnString)

strSQL = "SELECT * FROM tbdosen WHERE kodeDosen='" & txtKodeDosen.Text & "'"

con.Open()

comDosen = New SqlCommand(strSQL, con)

rsDosen = comDosen.ExecuteReader

If rsDosen.Read Then

If MsgBox( "Data ini sudah ada, mau diperbaiki?" , MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Konfirmasi edit data" ) = MsgBoxResult.Yes Then

strSQL = "UPDATE tbdosen set nama='" & txtNamaDosen.Text & "',tempatlahir='" & txtTempatLahir.Text & "',tgllahir='" & Format(dtTglLahir.Value, "yyyy-MM-dd" ) & "',identitas='" & txtIdentitas.Text & "',pendidikans1='" & txtS1.Text & "',pendidikans2='" & txtS2.Text & "',pendidikans3='" & txtS3.Text & "',jabfungsional='" & txtJabatanFungsional.Text & "',bidangkeahlian='" & txtBidangKeahlian.Text & "',dosentetap=" & IIf(rdTetap.Checked = True , 0, 1) & " WHERE kodedosen='" & txtKodeDosen.Text & "'"

Else

strSQL = ""

End If

Else

strSQL = "INSERT INTO tbdosen(kodedosen,nama,tempatlahir,tgllahir,identitas,pendidikans1,pendidikans2,pendidikans3,jabfungsional,bidangkeahlian,dosentetap) VALUES('" & txtKodeDosen.Text & "','" & txtNamaDosen.Text & "','" & txtTempatLahir.Text & "','" & Format(dtTglLahir.Value, "yyyy-MM-dd" ) & "','" & txtIdentitas.Text & "','" & txtS1.Text & "','" & txtS2.Text & "','" & txtS3.Text & "','" & txtJabatanFungsional.Text & "','" & txtBidangKeahlian.Text & "'," & IIf(rdTetap.Checked = True , 0, 1) & ")"

End If

rsDosen.Close()

If strSQL <> "" Then

comDosen = New SqlCommand(strSQL, con)

comDosen.ExecuteScalar()

End If

con.Close()

comDosen = Nothing

con = Nothing

txtKodeDosen.Text = ""

Catch x As Exception

MsgBox( "Terjadi kesalahan pada hapus di " & Me .Text & " dengan pesan:" & Chr(13) & x.Message, MsgBoxStyle.Critical, "Kesalahan pada:" & Me .Text)

End Try

End Sub

End Class

  4 Comments

Rabu, 15 April 2009

Download source code visual basic program perpustakaan oleh Yulia Rahman

  4/15/2009 06:57:00 PM    

Wah.... sudah lama sekali semenjak posting saya yang terakhir yah?, belakangan ini banyak kesibukan yang tidak bisa dihindari, cobaan dan ujian sebagai tanda kita manusia yang hidup yang lepas dari masalah dan tidak lupa juga gangguan mendadak dari Dungeon Siege II, dan Stronghold, serta GTA IV yang tidak jalan, serta erornya svchost karena kido aka conflicter walah...walah.... By theway anyway busway, salah satu request source code yang paling banyak adalah tentang perpustakaan.

Berikut ini adalah source code program perpustakaan yang dibuat oleh saudari Yulia Rahman yang merupakan lulusan Program D.III. Manajemen Informatika STAIN Batusangkar yang bekerja sebagai PNS pada BKD Kabupaten Tanah Datar. Bagi yang tertarik untuk membahas program ini disilahkan menghubungi Yulia di yuliarahman24@gmail.com .

Sebagaimana layaknya program perpustakaan, maka program yang dibuat menyediakan fitur untuk menambah anggota, menambah buku, peminjaman dan pengembalian buku serta penghitungan denda. Kenapa perpustakaan menjadi kasus yang menarik?, biasanya yang menjadi masalah dalam otomasi pustaka adalah penghitungan tanggal kembali buku, karena prosesnya agak berbeda dengan proses aritmatik biasa, yang dilakukan disini adalah pengurangan tanggal. Untuk bisa menentukan apakah anggota yang meminjam dikenai denda atau tidak.

Yang menjadi masalah satu lagi adalah mengenai eksemplar buku, buku yang memiliki judul yang sama namun memiliki jumlah eksemplar yang lebih dari satu. Bagaimana cara kita menghitung jumlah bukunya?, apakah satu buku berarti satu kode, dengan banyak judul. atau satu kode adalah satu judul buku dengan banyak eksemplar?, kedua pilihan tersebut tendu saja memiliki keuntungan dan kekurangan masing masing.

Untuk satu buku dengan satu kode, berarti jumlah kode buku kita adalah sebanyak eksemplar buku diperpustakaan, bukan sebanyak judul buku, kalau kode mewakili buku dengan eksemplar yang sama, sudah pasti kita tidak bisa melacak buku mana sebenarnya yang sedang dipinjam, dan permasalahan lainnya. Langsung saja, bagi yang ingin mempelajarinya silahkan download source codenya di Download source code Pustaka, selamat belajar...

   /

  57 Comments

Senin, 23 Februari 2009

Download source code visual basic laporan crystal report per tanggal awal dan tanggal akhir

  2/23/2009 03:34:00 PM    

Dengan tanpa segan-segan mas aif telah berapa kali meminta source code yang ini di request-program , jadi malu ndiri, buka fasilitas, eh malah tidak bisa menjawabnya :P. Pas bangun pagi langsung dibuatin sebuah contoh sederhana bagaimana membuat laporan dengan fasilitas tanggal awal dan tanggal akhir, beserta kopi+lucky strike+roti kepang.

Pada contoh terdapat database dengan nama database.mdb (kerenkan?), dalam database tersebut ada sebuah tabel keluar dengan jumlah field yang cukup banyak. Tapi kita tetap saja konsentrasi pada salah satu field yakni field tglkeluar. Kalau tanggal keluarnya muncul sesuai dengan parameter yang ada pada visual basic berartip programnya udah benar, pada tabel keluar tersebut ada 3 buah record tanggal 1-7-2002, 7-8-2002 dan 21-6-2002.

Pada visual basicnya saya tambahkan 2 buah dtPicker, tgl1 dan tgl2. tambah 1 buah command button yang digunakan untuk memanggil crystal report melalui prosedur command1_click, inti tanggal awal dan tanggal akhir sebenarnya pada replace selection formula. yakni pada perintah : rpt1.ReplaceSelectionFormula "{keluar.tglkeluar}>=date(" & Year(tgl1) & "," & Month(tgl1) & "," & Day(tgl1) & ") and {keluar.tglkeluar}<=date(" & Year(tgl2) & "," & Month(tgl2) & "," & Day(tgl2) & ")".Perintah ini sebenarnya akan memfilter tabel keluar berdasarkan parameter yang ada pada tgl1 dan tgl2, pengen mencoba?, silahkan download di mari tanggal awal dan tanggal akhir crystal report

   / /

  29 Comments

Minggu, 22 Februari 2009

Download Source code visual basic Mengirimkan fungsi terbilang ke Crystal Report 7

  2/22/2009 11:08:00 PM    

www.novapdf.comAda beberapa request dari teman-teman bagaimana mengirimkan isi fungsi terbilang dari Visual Basic ke crystal report. Hal ini sebenarnya bisa disiasati dengan mencari angka yang akan diterjemahkan kedalam terbilang, misalnya "1" menjadi "satu", atau "12000" menjadi "dua belas ribu" didalam perintah visual basic. Terakhir, setelah selesai baru kita kirimkan melalui formula yang ada dalam Crystal Report. Terbayang? ,ndak ya?, kalau ndak silahkan download saja di Source code visual basic mengirim fungsi terbilang ke crystal report, selamat belajar...

   / / /

  12 Comments

Rabu, 11 Februari 2009

FAQ Source Code Visual Basic

  2/11/2009 08:00:00 AM    

Terima kasih buat koreksian dari mas Nyoman, yang telah susah payah memeriksa erorr program yang didapat dari http://maniavb.blogspot.com dan mengirimkan screen shotnya kepada saya, berikut ini merupakan penjelasan dari beberapa eror dari source-source code yang telah saya upload, kalau kebetulan anda menghadapi masalah yang sama mungkin untuk sementara bisa mengatasi masalah tersebut dengan membaca posting ini.

  1. Program expert system


image001.jpg


Wah, kalau yang ini rasanya kita perlu frmdiagnosa.log nya mas, tapi kalau yang biasa sih, karena perbedaan setting regional di computer saya dan mas. Visual basic akan membuat sebuah file .log, jika dia tidak berhasil membuka form yang dimaksud. Ada beberapa penyebab, diantaranya: file control (.ocx)yang digunakan tidak terdaftar di komputer yang baru, untuk bisa menggunakan kita harus mendaftarkannya kedalam registri. Caranya, klik project => component => browse dan kemudian pilih file ocx yang dimaksud.

Penyebab yang kedua kemungkinan seperti telah dijelaskan sebalumnya bahwa ada perbedaan setting regional komputer, maksudnya adalah. Misalkan saja komputer saya menggunakan setting regional English, tentu saja koma dalam bahasa inggris berupa tanda "." , ini berlaku kebalikan dengan yang setting regionalnya di Indonesia. Ini juga mempengaruhi setting penanggalan, MM/dd/yyyy di English, dan dd/MM/yyyy di regional setting indonesia. Biasanya setelah di save as dengan nama file yang sama (di replace) pesan ini tidak akan muncul lagi.

2. Program apotik


image002.jpg

Karena programnya dibuat untuk dijalankan di C:\Apotik , maka sebaiknya mas membuat folder Apotik di C terlebih dahulu, baru kemudian copy source codenya disana. Dan baru dijalankan disana (program ini memang tidak diset untuk mobile).


image004.jpg

Ini kasusnya sama dengan kasus yang nomor 1


image005.jpg

User defined type not defined biasanya karena kita berpindah komputer lagi, kemungkinan besar Project => Reference => Microsoft DAO 3.6 Object Library nya belum diaktifkan, silahkan diaktifkan terlebih dahulu dengan cara mencontrengnya.

Silahkan merasa bebas untuk mengirimkan pesan eror di komputer anda, mudah2an bisa saya bantu, Terima kasih sekali lagi untuk Mas Nyoman.

  

  2 Comments

Minggu, 08 Februari 2009

Mengelompokkan dan menjumlahkan data angka di Crystal Report

  2/08/2009 03:16:00 AM    




Gambar 1. Field yang berulang

Pada gambar 1, bisa kita lihat field-field Nama Potongan ada yang mempunyai nama yang sama, seperti BAJU, DONATOR ORKES, DONATOR RA, dan lain sebagainya. DalamPembuatan laporan, tentu saja ini bisa menjadi laporan yang lucu, karena kok bisa nama field yang sama muncul 2 kali dengan nilai yang berbeda pula. Kasus ini biasanya kita buat pengelompokan, dan kita totalkan berdasarkan kelompok, untuk BAJU berapa totalnya, begitu juga untuk DONATUR ORKES dan seterusnya dan seterusnya.

Untuk mengelompokkan data kita bisa menggunakan GROUP, caranya dengan mengunakan menu Insert => Group sehingga akan memunculkan window seperti dibawah ini:




Gambar 2. Insert group

Langkah selanjutnya adalah memilih field mana yang akan dikelompokkan, dan jenis pengurutannya, pada gambar terlihat bahwa field dikelompokkan pada nmpot, dengan pengurutan ascending (dari atas ke bawah). Setelah kita mengklik OK, maka crystal report akan menambahkan 2 buah section Group Header #1, dan Group Footer #1. Jika kita tambahkan group lagi, maka dia akan menjadi Group Header #2 dan seterusnya. Group header akan mengelompokkan field-field dengan nmpot yang sama yang diurutkan secara ascending. Group header menunjukkan terjadi perubahan field, yang diakhiri dengan Group footer.

Langkah selanjutnya kita harus menjumlahkan field nilaipot(Jumlah Potongan) per masing-masing nmpot (Nama Potongan), dengan cara mengklik kanan pada field nilaipot(Jumlah Potongan) => Insert Subtotal => pilih Group #1 => Ok, sekarang tampilan laporan sudah membuat kelompok dari Nama Potongan dan mentotalkan jumlah setiap nama potongan tersebut, perhatikan gambar dibawah ini:




Gambar 3. Jumlah Potongan yang telah di group kan

Langkah selanjutnya adalah memindahkan nama field Group #1 Name (yang sebenarnya adalah field nmpot ke Group Footer, dan kemudian menyembunyikan section Detil, dan Group Header #1. Caranya kita harus kembali ke modus design di crystal report, perhatikan gambar 4.




Gambar 4. Modus Design

Drag Group # 1 Name ke bagian Group Footer #1 Sehingga Hasilnya seperti gambar 5.




Gambar 5. Drag Group #1 Name

Langkah berikut adalah Klik kanan masing-masing pada Section Group Header #1, dan Details, kemudian pilih Suppress (No Drill-Down) seperti Gambar 6. Langkah ini berguna untuk menyembunyikan kedua section ini, sehingga satu-satunya section yang akan dimunculkan adalah Section Group Footer #1.




Gambar 6. Suppress (No Drill-Down)

Sekarang kita lihat lagi preview dari report, dan kita dapatkan hasilnya, semoga memuaskan toh, silahkan dikembangkan ke kasus-kasus yang lain, selamat belajar... dan ini hasilnya:




Gambar 7. Hasil Kerja keras


  

  8 Comments

Menampilkan atau menyembunyikan field sesuai kriteria tertentu di crystal report

  2/08/2009 03:11:00 AM    




Gambar 1. Menampilin (bhs gaul) atau menyembunyiin field angsuran ke

Walaupun menampilkan laporan merupakan pekerjaan utama dari crystal report. Namun tidak menutup kemungkinan kadang kala kita harus menyembuyikan field sesuai dengan kriteria yang kita butuhkan. Pada gambar 1 bisa kita lihat si pembuat laporan memutuskan untuk menghilangkan angka 0, namun tetap memunculkan angka 1 pada field angsuran ke. Hal ini bisa saja disebabkan oleh banyak faktor, contohnya saja, angsuran ke adalah primary key, yang tidak boleh bernilai Null, sehingga ketika entri data dia harus dimasukkan dengan nilai 0, atau kasus-kasus lainnya.

Untuk mengatur fasilitas ini kita menggunakan fitur Suppress pada field, caranya adalah dengan Mengklik Field yang ingin kita sembunyikan (pada contoh angka 0 atau angka 1, bukan teks angsuran ke, :P), dan mengklik menu Format => Format Field. Sehingga muncullah Jendela seperti dibawah ini:




Gambar 2. Jendela Format Field Tab Number

Pada Gambar 2, terlihat Checkbox Suppress If Zero telah dicentang (atau istilah pilkadanya telah di contreng), ini akan membuat field-field yang bernilai Zero / Nol akan di sembunyikan dan tidak ditampilkan pada laporan. Setelah di klik ok, maka tampilan laporan akan sama dengan tampilan Sesudah pada Gambar 1.

Nah Bagaimana dengan kasus kalau kita ingin menyembunyikan field Angsuran Ke yang bernilai 1?, kita tetap bisa menyembunyikan field tersebut berdasarkan filter dari field lain atau bahkan formula, dengan cara mengklik tombol yang terdapat disebelah suppress if zero tersebut (lihat gambar 3)




Gambar 3. Menyembunyikan tingkat lanjut

Perintah ini akan memunculkan window baru, yakni window Format Formula Editor. Dalam window ini pengaturan bisa kita atur berdasarkan kebutuhan program, contohnya saja, kita menginginkan tidak memunculkan field Angsuran Ke (dalam database contoh nama field nya adalah potke) yang bernilai 1. Perhatikan Gambar 4.




Gambar 4. Menyembunyikan Berdasarkan Kriteria lain

Pada gambar 4 bisa kita lihat, kita menambahkan klausul Field nilaipot (Jumlah) = 500, artinya crystal report akan menyembunyikan field-field Angsuran Ke yang bernilai 0 dan Jumlahnya =500, Well... selamat belajar, hasil yang dimunculkan kira-kira Gambar dibawah ini, coba perhatikan Po




Gambar 5. Hasil

  

  2 Comments

Jumat, 06 Februari 2009

Download source code visual basic Sistem Informasi Apotik dengan Back Order oleh Yoza Heriyanti

  2/06/2009 03:22:00 AM    

ima.dada.netSesuai dengan request dari saudari/a iin, source selanjutnya adalah apotik. Dengan jumlah 13 buah form, yang meliputi entri penjualan, pembelian, entri obat dan lain sebagainya. Program dilengkapi dengan fitur informasi yang ditampilkan pada sebuah dbgrid. Dengan database menggunakan microsoft access, dan laporan dengan menggunakan Seagate Crystal Report 7. Agar program bisa berjalan sempurna aplikasi harus di simpan dan di exe kan di c:\apotik. kalau tidak, sewaktu kita menampilkan informasi, maka akan muncul pesan eror dari ADODCnya.

Dengan koneksi menggunakan ADODC, berarti program ini bisa dikembangkan ke tingkat lebih jauh dengan database tingkat tinggi seperti SQL Server atau Oracle. Salah satu keuntungan program ini adalah dia memiliki sistem Back Order, mungkin sekedar mengingatkan saja. Back Order adalah sebuah sistem untuk mendapatkan informasi barang atau dalam kasus ini obat mana yang harus segera dipesan karena persediaanya sudah menipis.

Source ini milik senior saya Yoza Heriyanti, sukses ya Kak, mudah2an melalui teman-teman belajar source code ini pahalanya disampaikan pada kakak, amiiin..... untuk selanjutnya silahkan di download di Aplikasi apotik.

   / /

  36 Comments

Kamis, 05 Februari 2009

Contoh Kontrak Kerja Programmer

  2/05/2009 08:05:00 PM    

http://images.virusceo.multiply.com/image/1/photos/upload/300x300/SI8mhwoKCsoAAEwiZvU1/SALAMAN.JPG?et=Hz39Pp4eKKlQ2zQJeC0BRg&nmid=0Dalam pembuatan program disebuah tempat / institusi / lembaga, kontrak kerja merupakan komponen yang sangat penting. Tanpa adanya kontrak kerja yang jelas, bisa-bisa akan tidak memuaskan salah satu pihak. Pengalaman saya, pembuatan program tanpa kontrak akan sangat menghabiskan waktu, karena misalnya diawal pembuatan program saya berurusan dengan Bapak A yang merupakan pimpinan perusahaan atau ketua bidang bagian IT, setelah tawar menawar mengenai program selesai, dan sudah didapatkan "angka-angka" nya saya mulai membuat program.

Pada pelaksanaannya (masa implementasi program), ternyata saya lebih banyak berurusan dengan Bapak B. Bapak B dituntut oleh Bapak A untuk menghasilkan laporan-laporan yang dibutuhkan, namun karena komunikasi saya hanya dengan Bapak A yang lebih memahami tentang Ilmu manajemen tingkat atas, ternyata ada banyak Hal-hal teknis yang terlewatkan, sehingga kita harus tentunya menyesuaikan dengan keinginan Bapak B. Itupun kalau urusannya lancar, jika tidak, seandainya saja Bapak A atau Bapak B ternyata salah memberikan data atau kebutuhan yang diinginkan, tidak ada kekuatan hukum bagi Programmer untuk menolak dan menyatakan bahwa "ini tidak sesuai dengan kesepakatan kita". Mereka bisa saja bertahan, bahwa masalah ini sudah dibahas sebelumnya. Belum lagi dengan adanya pergantian pimpinan, kecurangan disalah satu pihak dan kasus-kasus lainnya.

Waktu itu saya berpendapat tidak masalah, karena saya sedang mencari pengalaman. Jadi atau tidak jadi proyek, saya sudah pasti dapat ilmu yang bisa menjadi tabungan untuk masa yang akan datang. Namun ketika waktu sudah menjadi sumberdaya yang sangat berharga, hal tersebut tidak bisa lagi dilakukan, harus ada sebuah media yang bisa membantu kita programmer jika si pengguna bertindak macam-macam atau terkesan tidak serius dengan kerjasama yang dilakukan.

Alat itu adalah kontrak kerja, caranya jika seandainya ada project. Kita terlebih dahulu mempelajari dokumen-dokumen yang akan kita buat dan olah dengan program sesuai dengan prinsip SDLC (System Development Life Cycle, disini toh gunanya kita membuat skripsi lol :)) ). Setelah selesai, kita sampaikan kepada pengguna batasan-batasan pekerjaan, apa saja yang dibuat, yang dibutuhkan dan apa saja yang dilakukan, serta otomasi yang akan diciptakan. Setelah itu selesai baru kita perhitungkan lama waktu pengerjaan program. Dan ujung-ujungnya biaya yang kita butuhkan untuk penyelesaian project. Baru kemudian kita buat kontrak kerja 2 buah, yang masing-masingnya diberi materai 6.000 atau 3.000 sesuai dengan besaran kontrak. 1 kontrak buat kita, 1 untuk pengguna.

Malah menurut teman saya, raja proyek 3 D Max (ayooo.. tebak siapaaa...). Dia tidak segan-segan membawa kustomernya ke Notaris untuk membuatkan kontrak kerjanya, biayanya hanya berkisar 200 sampai 300 ribu kok. Dan tentu saja kekuatan hukumnya dan kemungkinan kita untuk dipermainkan akan sangat kecil sekali.

Jika seandainya ditengah jalan, atau pada saat implementasi terjadi perubahan kebijakan atau kebutuhan. Maka kita bisa membawa kontrak tersebut dan memperlihatkan kembali kesepakatan diawal kerjasama, jika ternyata memang harus ada tambahan, kita bisa meminta tambahan uang lelah, nggak rugi kan?, okeh, dari pada cerita panjang lebar silahkan anda download Contoh Kontrak Kerja yang sudah saya buat dan sesuaikan dengan kebutuhan dan jangka waktu project anda, dan selamat berjoeang (kata mas Romi Satria Wahono).

  

  12 Comments

Download source code visual basic : Sistem Informasi untuk Developer rumah oleh Suez Andyka Putra

  2/05/2009 04:30:00 PM    

http://images.google.co.id/imgres?imgurl=http://rumah.blogdetik.com/files/2008/02/rumah-minimalis.jpg&imgrefurl=http://rumah.blogdetik.com/category/rumah-sederhana/&usg=__m5lGqTnHhblF2yOgwQ95Pb69waY=&h=532&w=500&sz=309&hl=id&start=1&tbnid=VPBVVv3mhhd7VM:&tbnh=132&tbnw=124&prev=/images%3Fq%3Drumah%26gbv%3D2%26hl%3DidPenjualan rumah oleh para developer berupa paket-paket rumah yang sudah disediakan sebenarnya bisa juga dijadikan sebagai objek pengembangan sistem informasi. Diharapkan pengembangannya tentu bisa membuat si developer bisa mengetahui total modal sebuah rumah berdasarkan informasi yang terdapat dari input operator mengenai bahan, sewa, dan upah. seperti program yang dibuat oleh Dian di Sistem Informasi Proyek.

Tapi untuk source code kali ini tidak seperti itu, Program yang dibuat lebih cenderung membuat aplikasi penjualan rumah sederhana berdasarkan tipe-tipe rumah, rumah malah dijadikan sebagai barang yang bisa di stock kan, maka si developer tinggal menginputkan data rumah (entri rumah), dan data pembeli dan menjualnya. Tentu saja source code ini masih perlu disempurnakan, namun untuk belajar bagaimana membuat form login, dan latar belakang dari menu program, source code ini patut juga untuk dilirik.

Program dibuat oleh Suez Andyka Putra, cancerdyka at gmail dot com, dengan menggunakan Visual Basic 6.0, Seagate Crystal Report, dan SQL Server 2000, yang tertarik silahkan mendownload source codenya di Sistem Informasi Dev Rumah.

   / /

  3 Comments

Rabu, 04 Februari 2009

Download Source code visual basic gratis Sistem Informasi Akademik, fitur: KRS, KHS, Pengaturan Jadwal, Absensi Labor, Pemanfaatan Control Winsock, dan OCX-OCX Gratis

  2/04/2009 07:02:00 AM    

Judulnya kepanjangan ya?, masa bodo 'ah. Ini adalah program skripsi saya, dibuat dengan menggunakan Visual Basic 6, Seagate Crystal Report 7, dan database Oracle 8i. Sebenarnya programnya agak melenceng dari judul skripsi saya, melenceng maksudnya terlalu besar ruang lingkupnya, inti dari skripsi saya adalah absensi labor dan pengaturan jadwal, namun setelah dilihat-lihat ulang kayaknya udah menjadi Sistem Informasi Akademik (GR ndiri..).

Program ini saya cari lagi, kemudian diupload berdasarkan permintaan dari mas alive_g8 at ... dot com, yang meminta program penjadwalan pegawai. Kebetulan program saya ini dirancang (tapi saya yakin ini belum sempurna), untuk mengatur jadwal perkuliahan secara otomatis, berdasarkan ketersediaan dosen, mahasiswa, matakuliah dan lokal. Setelah 4 komponen tersebut diinputkan, maka program akan mencari secara otomatis kombinasi jadwal yang paling mumpuni yang tidak mengalami bentrokan, baik bagi mahasiswa, dosen, lokal maupun matakuliahnya. Walaupun permintaan mas alive adalah pengaturan jadwal pegawai, yang jelas konsepnya bisa dikembangkan lagi.

Program ini juga dilengkapi fitur untuk pengambilan absen dilaboratorium komputer, sehingga program terbagi atas program server dan program client. Program client akan konek ke server melalui winsock, kemudian mengirimkan username dan password ke server, program server mengecek database. Apakah ditemukan username dan password dimaksud, jika ditemukan, maka baru program client bisa login, (jadi ini juga bisa dikembangkan bagi yang ingin membuat program warnet kayak billing explorer, komputer dikunci dulu baru dia login). Sewaktu pengguna login, maka dia akan terdaftar sebagai mahasiswa yang kuliah (hadir).

Seperti sudah saya bilang sebelumnya, program yang saya buat agak melebar, karena keterbatasan pengetahuan, dan keingintahuan yang tinggi, saya malah terjun ke sistem informasi akademik (padahal sistem informasi akademik adalah komponen pendukung saja, namun kelihatannya malah jadi pokok bahasan ketiga setelah pengaturan jadwal otomatis dan absensi labor komputer). Sehingga program saya dibekalidengan entri dosen, entri mahasiswa, entri matakuliah, entri matakuliah persemester, entri matakuliah dosen, entri krs, entri nilai, entri lokal, entri prodi, entri jurusan, dan lain-lain sebagainya. Bahkan termasuk menyimpan foto kedalam database loohh? (tipe data blob di oracle).

Satu hal yang saya pelajari dari pembuatan program ini, kita memang sangat perlu untuk membatasi masalah, tanpa pembatasan masalah, apa yang kita buat mungkin saja memenuhi hasrat kita sebagai seorang programmer. Namun secara konsep kita ternyata kalah disisi lain, kita tidak bekerja sesuai dengan kebutuhan. hanya bekerja berdasarkan insting, kebutuhan sudah ada, dan itu datangnya dari pihak pengguna, kita hanya mencarikan solusi, bukan mencarikan kebutuhan. Kebutuhan dari sudut pandang programmer tentu saja sesuai dengan wawasannya dibidang itu.

Nama Oriyu, saya ambil dari O nya Oracle, pada masa itu oracle masih teknologi yang baru dikenal di Padang, jadi ada kebanggan tersendiri membuat aplikasi dengan menggunakan database yang katanya "terbaik di dunia", riyu nya? dari nama saya dooong, namanya kita yang buatss...

Oh iya databasenya masih dalam bentuk script sql, saja, bagi teman-teman yang menggunakan sql + , agar menjalankan scriptnya sebelum program dijalankan, nama database, koneksi ke ODBC mohon dibaca saja dari program. pokoke... selamat belajar...., oh iya hampir lupa download source codenya di

   / /

  38 Comments

Selasa, 03 Februari 2009

Download source code visual basic gratis : Sistem informasi proyek Dian Anggraini

  2/03/2009 03:13:00 PM    

http://tekniksipil.files.wordpress.com/2008/03/proyek2bestek.jpgProyek pengaspalan jalan, atau pembangunan gedung seharusnya mempunyai sistem informasi sendiri, sehingga bisa memperkirakan berapa pagu dana yang dibutuhkan untuk pengerjaan suatu proyek sesuai dengan pagu dana yang telah ditetapkan oleh si konsumen. Karena harga bahan, upah, dan sewa seharusnya bisa disesuaikan dengan standar minimal si kontraktor, perlu sebuah sistem untuk mempermudah si kontraktor menyesuaikan harga (untuk ikut tender maksudnya..). Selain untuk tender, sistem informasi ini juga digunaan untuk pelaporan setelah proyek tersebut selesai, untuk itulah kira-kira program ini dibuat oleh teman saya Dian Anggraini.

Program terdiri dari menu entri dan laporan, yang dientrikan adalah master bahan, upah dan sewa, yang bisa disesuaikan dengan standar yang dibutuhkan, baru nanti disimpan di file transaksi, masing-masing transaksi nantinya akan digabungkan menjadi sebuah proyek. Kelemahan dari program ini, belum bisa digunakan untuk multiple project,tertarik?, silahkan di unduh di sistem informasi proyek.

   / /

  9 Comments

Request Program

  2/03/2009 03:02:00 PM    

http://www.pre.nl/image/Signature.jpgTernyata cukup banyak request program yang dimasukkan kedalam komentar-komentar di setiap artikel, jadinya saya malah pusing (rasai!)karena tidak tahu siapa yang ngirim duluan, kan harus dibuka setiap postingannya untuk melihat request program. Jadi diputuskan untuk membuat halaman ini, semua request program dikumpulkan dalam 1 halaman, sehingga lebih mudah memoderasinya.

Source code program merupakan kekuatan inti seorang programmer, yang namanya source code jarang dipublikasikan. Rata-rata disimpan dengan password yang berlapis oleh masing-masing programmer. Karena kalau source code bocor, bisa jadi si programmer tidak bisa makan!. Namun pemahaman tersebut mengakibatkan tingkat pengembangan yang sangat lambat dalam pengembangan pemrograman itu sendiri. Suatu contoh, saya mempelajari bahasa pemrograman Visual Basic semenjak semester 2 di Bangku kuliah UPI YPTK Padang, waktu itu kira-kira tahun 2000. Setelah membuat berbagai program, baik berupa latihan project sederhana melalui buku maupun dengan latihan sendiri. Selama 1 tahun masa pelatihan, saya masih merasa belum bisa menemukan bentuk pemrograman Visual Basic itu seperti apa.

Ilmu saya berkembang pesat setelah saya mempelajari source code senior saya, kebetulan saya tinggal di rental yang merupakan milik senior tersebut. Melalui source code sederhana yang saya dapat (tidak peduli jalan atau tidak jalan), saya mempelajari berdasarkan perintah-perintah yang ada, dan menalarnya sesuai dengan pendapat saya sendiri. Hasilnya?, ilmu yang didapatkan menjadi lebih mudah lekat, kalau dibandingkan 1 tahun saya mempelajari program dengan buku, mungkin sebanding dengan 1 bulan saya mempelajari source code, kenapa?, karena source code mempelajarinya lebih riil, sama dengan belajar berenang. Pemrograman lebih dari sebuah teori, namun lebih kepada praktek, dia bukan hanya sebuah konsep, namun sebuah keterampilan. 1 tahun belajar berenang melalui teori, tidak dapat menandingi 1 minggu di kolam renang. Karena ternyata teori jauh berbeda dengan kondisi dilapangan. Dan pada akhirnya pemrograman menjadi sebuah insting, kita bisa mengukur bisa atau tidak membuat program yang diinginkan hanya dengan melihat sejauh mana cakupannya.

Dalam setiap baris source code kita bisa mempelajari lebih dari 1 ilmu, bukan sekedar pengertian, tapi manfaat sebenarnya dari baris kode tersebut. Saya berharap, dengan membaginya disini, maka ilmu pemrograman ditanah air bisa berkembang dengan pesat. Walaupun hanya dengan bahasa pemrograman Visual Basic, namun sampai saat sekarang ini, bahasa pemrograman ini ternyata masih sangat mampu untuk mengatasi permasalahan-permasalahan aplikasi desktop dan sistem informasi.

Jadi bagi teman-teman yang ingin merequest program, silahkan isi komentar dibawah ini. Insya Allah, jika ada source code dan kesempatan, saya akan coba untuk memposting artikel dimaksud, saya juga membuka kesempatan bagi teman-teman yang mempunyai source code seperti diminta , dan mempublikasikannya di blog ini, caranya? klik di maniavb.blogspot.com menerima source code anda.

  

  613 Comments

maniavb.blogspot.com menerima source code anda

  2/03/2009 03:00:00 PM    

http://pbindo.webng.com/image/download1.gifAnda punya source code hasil program PKL, magang atau skripsi?, baik itu source code Visual Basic, Clipper, Pascal, Java, Delphi, PHP, .Net, dan bahasa pemrograman lainnya, dan ingin membaginya dengan teman-teman seantero Indonesia?, riyuniza akan membantu anda untuk menyebarkan source code program anda tersebut. Silahkan kirimkan source code program anda dalam bentuk zip / rar, atau link tempat mendownloadnya ke riyuniza at gmail dot com dengan subject: [POSTING] judul_program. Sebaiknya besar program setelah dikompress tidak lebih dari 2 MB, ini terkait dengan rekan-rekan yang bandwidth nya tidak terlalu gede.

Trus apa keuntungannya buat anda?, tidak ada!, selain publikasi nama, dan keikhlasan untuk berbagi source code dengan teman-teman yang lain, insya Allah kami akan mereview source code anda, mungkin memberikan sumbang saran atau kritikan terhadap source yang sudah anda buat.

Source code program jangan sampai mengganggu kode etik programmer, adalah tidak bijak untuk mengupload source code beserta database klien kita yang dianggap memiliki informasi-informasi yang tidak layak untuk dibaca oleh pihak-pihak lain. Kasihan klien kita karena informasinya bocor, bisa disalah gunakan oleh orang lain. so?, kami tunggu source code anda!

  

  208 Comments

Bagaimana saya membiayai blog ini? (rancangan kedepan maniavb.blogspot.com mohon dukungannya...)

  2/03/2009 05:37:00 AM    

Memang sih, di dunia ini tidak ada yang gratis. kalaupun ada biasanya memiliki keterbatasan-keterbatasan, begitu juga dengan ide saya untuk menyampaikan source-source code program lengkap secara gratis, saya menggunakan blogspot.com untuk memposting artikel-artikel. Dan mengupload source code program yang tersebar di berbagai hosting seperti www.geocities.com, www.pages.google.com, www.indowebster.com dan tentunya www.stainbatusangkar.ac.id. Domain www.riyuniza.co.cc sendiri sebenarnya merupakan domain gratis dari web www.co.cc yang sekarang telah saya pindahkan ke maniavb.blogspot.com
Saya berkeinginan suatu saat nanti blog ini memiliki hosting sendiri, sehingga source code yang ada tidak terpencar-pencar seperti sekarang ini. Untuk itu mohon dukungan teman-teman sekalian untuk membantu saya.

Saya ucapkan terima kasih yang sebesar-besarnya karena informasi dari temans sekalian mengenai "hal yang tidak boleh dilakukan". Ternyata mengajak untuk mengklik adsense melanggar TOR dari Google, sekali lagi saya sampaikan terima kasih.

Halaman ini saya ganti menjadi Hubungi saya, bagi rekans yang ingin kenal lebih jauh berikut biodata singkat saya:

Nama: Edri Yunizal
Pekerjaan: Dosen Program D.III. Manajemen Informatika STAIN Batusangkar
Pendidikan: S1 Fakultas Ilmu Komputer Jurusan Sistem Informasi UPI YPTK Padang
Alamat: STAIN Batusangkar Jl. Sudirman No 137 Lima Kaum Batusangkar
e-Mail: riyuniza@gmail.com

Salam Kenal :)

  

  50 Comments

Download Source Code Turbo Pascal : Pengolahan Data Nilai Jual Bea Balik Nama Kendaraan Bermotor

  2/03/2009 04:17:00 AM    

Suka yang klasik?, pemrograman Pascal adalah salah satu bahasa pemrograman yang tidak lekang dimakan waktu. Mau pemrogram berorientasi prosedur, mau pemrograman berorientasi objek, mau pemrograman .Net. Pascal tetap nangkring diposisi pemrograman terpopuler. Walaupun bagaimana, menurut beberapa orang teman pascal tetap menjadi favorit untuk diujikan dalam olimpiade pemrograman. hal ini lebih disebabkan karena struktur pemrogramannya yang sangat baik, sehingga bisa melatih orang untuk mempelajari pemrograman dari dasar.

Source code kali ini adalah source code pemrograman pascal tersebut. Ini saya dapatkan kemungkinan besar dari hasil copy-copy hardisk se kost an, ehh... program ini numpang dimari, enggak tahu yang punya siapa, mudah2an yang punya tidak marah source nya saya upload disini, sebagai bahan pembelajaran demi majunya dunia pemrograman di Indonesia. Yang jelas untuk kategori pemrograman dengan pascal, source code ini cukup lengkap. Silahkan dibuka dengan menggunakan turbo pascal 7.0. Dan dibuka file menu.pas, kemudian di compile, maka anda akan dihadapkan pada menu seperti gambar diatas.

Modulnya cukup lengkap untuk sebuah pemrograman database yang terdiri dari entri, koreksi, dan hapus data, serta yang terakhir tentu saja informasi. Menu disusun dalam bentuk vertikal dan bisa menggunakan direction button (tombol panah atas, bawah, kiri, dan kanan), jadi... bagi yang tertarik untuk pemrograman pascal untuk aplikasi database dengan menggunakan menu, dan fasilitas pencetakan laporan, silahkan download di sini

  

  6 Comments

Langganan: Postingan (Atom)