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

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    DIBACA ORG

---

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:

• Otobora di Indowebster
• Otobora di Ziddu

Read More

Download source code Visual Basic Sistem Informasi Akademik Sederhana

Download source code Visual Basic Sistem Informasi Akademik Sederhana

  8/09/2009 08:17:00 PM    DIBACA ORG

---

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

Read More

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

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

  8/09/2009 07:29:00 PM    DIBACA ORG

---

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

Read More

Tutorial (pdf) Step by step Installasi dan Membuat laporan dengan Crystal Report 7.0

Tutorial (pdf) Step by step Installasi dan Membuat laporan dengan Crystal Report 7.0

  8/09/2009 09:02:00 AM    DIBACA ORG

---

Berikut ini adalah tutorial crystal report yang saya buat sudah cukup lama yang pertama adalah pdf tentang Installasi Crystal Report, sedang yang kedua adalah Cara membuat report sederhana dengan Visual Basic dan Crystal Report. Silahkan di download...

Read More

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

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    DIBACA ORG

---

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...

Read More

Membuat Custom Message Box dengan Visual Basic oleh Muhammad Iqbal

Membuat Custom Message Box dengan Visual Basic oleh Muhammad Iqbal

  8/07/2009 12:21:00 AM    DIBACA ORG

---

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

Read More

Download Source Code Visual Basic Sistem Informasi Sekolah oleh Eryk Pratama

Download Source Code Visual Basic Sistem Informasi Sekolah oleh Eryk Pratama

  8/06/2009 09:19:00 PM    DIBACA ORG

---

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...

Read More