Materi Pembelajaran Visual Basic .NET

Mo berbagi materi pembelajaran tentang Visual Basic .NET neh. Bahan pembelajaran ini dirancang semaksimal mungkin untuk mengakomodasi berbagai kalangan dari yang ingin belajar VB.NET sebagai pemula, belajar VB.NET dari VB6, atau bahkan menjadi master dari VB.NET.

[BEGINNER] Apakah Anda baru pertama kali belajar programming dan ingin menguasai VB.NET?

Paket training VB.NET disajikan dalam Bahasa Indonesia dan terdiri dari slide presentasi, hands on lab, video tutorial, sample codes, dan assessment adalah yang paling cocok. Dalam kurikulum ini disajikan pula pengetahuan tentang pemrograman berorientasi objek. Rekan juga bisa mendapatkan online sertifikat yang menyatakan bahwa telah selesai mengikuti program ini yang dapat digunakan sebagai pelengkap resume.

[INTERMEDIATE] Apakah Anda telah menguasai programming dan ingin juga menguasai VB.NET?

Buku “The Power of Visual Basic 9” adalah sumber daya yang paling cocok. Buku yang dibuat oleh Hafiz Arraja memanfaatkan Visual Studio 2008 Express Edition sebagai kakas pemrograman. Dalam buku yang di paparkan dalam bentuk Hands On Labs ini, Hafiz berusaha untuk merangkum teknologi Windows Presentation Foundation. Buku ini juga dilengkapi oleh sample code yang bisa diunduh disini.

[ADVANCE] Apakah Anda telah menguasai Visual Basic 6 dan ingin juga menguasai VB.NET? New

Buku “Migrasi Visual Basic 6 ke Visual Basic .NET” adalah yang paling cocok. Buku setebal 225 halaman ini membahas tentang hal-hal apa saja yang harus diperhatikan bagi pengguna Visual Basic 6 yang akan beralih ke Visual Basic .NET. Silahkan unduh disini.

[ADVANCE] Apakah Anda ingin menjadi master di VB.NET?

Junindar menyajikan 18 Step Menjadi Programmer VB.NET Handal yang dilengkapi dengan sample codes. Semua dapat diunduh secara cuma-cuma disini.

Posted in: Visual Basic

Materi Praktek Visual Basic

Latihan Soal :
VISUAL BASIC1
VISUAL BASIC2
Latihan VB
Latihan VB(1)
Latihan VB(2)
Latihan VB(3)
Latihan Kuis
Latihan Database(1)
Latihan VB Hotel

Rangkaian Latihan VB terstruktur :
Database Elektronik
Latihan VB-Database Terstruktur1
Listing Form Barang
Listing Form User
Listing Form Transaksi
Listing Form Transaksi Lanjutan
Latihan KUIS

Posted in: Visual Basic

Microsoft Visual Basic .NET

Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.

Versi

Terdapat tiga buah versi Visual Basic yang dirilis hingga bulan Agustus 2007, yakni:
Visual Basic .NET 2002 (VB 7.0)

Versi pertama dari Visual Basic .NET adalah Visual Basic .NET 2002 yang dirilis pertama kali pada bulan Februari 2002. Visual Basic .NET 2002 merupakan sebuah bahasa pemrograman visual yang berbasis bahasa BASIC (sama seperti halnya Visual Basic 6.0, tetapi lebih disempurnakan dan lebih berorientasi objek), dan didesain untuk berjalan di atas Microsoft .NET Framework versi 1.0.

Versi 7.0 ini dirilis bersamaan dengan Visual C# dan ASP.NET. Bahasa C#, yang dianggap sebagai jawaban terhadap Java, mendapatkan perhatian yang lebih banyak dibandingkan dengan VB.NET yang kurang begitu banyak diulas. Hasilnya, sedikit orang di luar komunitas Visual Basic yang memperhatikan VB.NET. Versi pertama ini kurang mendapat sambutan yang bagus dari para programmer, dan pada saat itu, program berbasis Visual Basic 6.0 sedang marak-maraknya dibuat. Para programmer yang mencoba Visual Basic .NET untuk pertama kali akan merasakan bahwa Visual Basic .NET sangatlah berbeda dibandingkan dengan Visual Basic sebelumnya. Contoh yang paling mudah adalah runtime engine yang lebih besar 10 kali lipat dibandingkan Visual Basic 6.0, dan juga meningkatkan beban di memori.
Visual Basic .NET 2003 (VB 7.1)

Selanjutnya, pada bulan Maret 2003, Microsoft pun merilis lagi versi yang lebih baru dari Visual Basic .NET, Visual Basic .NET 2003. Versi ini berisi beberapa perbaikan dibandingkan dengan versi sebelumnya, dan aplikasi yang dibuatnya dapat berjalan di atas .NET Framework versi 1.1. Fitur yang ditambahkan adalah dukungan terhadap .NET Compact Framework dan mesin wizard upgrade VB6 ke VB.NET yang telah ditingkatkan. Peningkatan yang lainnya adalah peningkatan pada performa dan keandalan dari Integrated Development Environment (IDE) Visual Basic itu sendiri, dan juga runtime engine.

Visual Basic .NET 2003 tersedia dalam beberapa jenis cita rasa: Professional, Enterprise Architect dan Academic Edition. Khusus untuk Visual Basic .NET 2003 Academic Edition, versi tersebut didistribusikan secara gratis untuk beberapa sekolah di dalam setiap negara; versi Professional dan Enterprise Architect merupakan produk komersial.
Visual Basic 2005 (VB 8.0)

Setelah itu, Microsoft pun berkonsentrasi dalam mengembangkan Microsoft .NET Framework 2.0, dan tentunya alat bantu untuk membangun program di atasnya. Hingga pada tahun 2005, mereka pun merilis versi terbaru dari Visual Basic .NET, yang kali ini disebut dengan Visual Basic 2005 (dengan membuang kata ".NET"), bersama-sama dengan beberapa aplikasi pengembangan lainnya.

Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah:

* Edit and Continue
Fitur ini sebelumnya terdapat di dalam Visual Basic, akan tetapi dihapus di dalam Visual Basic .NET. Dengan keberadaan fitur ini, para programmer dapat memodifikasi kode pada saat program dieksekusi dan melanjutkan proses eksekusi dengan kode yang telah dimodifikasi tersebut.
* Evaluasi ekspresi pada saat waktu desain
* Munculnya Pseudo-Namespace "My", yang menyediakan:
o Akses yang mudah terhadap beberapa area tertentu dari dalam .NET Framework yang tanpanya membutuhkan kode yang sangat signifikan.
o Kelas-kelas yang dibuat secara dinamis (khususnya My.Forms).
* Peningkatan yang dilakukan terhadap konverter kode sumber dari Visual Basic ke Visual Basic .NET.
* Penggunaan kata kunci (keyword) Using, yang menyederhanakan penggunaan objek-objek yang membutuhkan pola Dispose untuk membebaskan sumber daya yang sudah tidak terpakai.
* Just My Code, yang menyembunyikan kode reusable yang ditulis oleh alat bantu Integrated Development Environment (IDE) Visual Studio .NET.
* Pengikatan sumber data (Data Source binding), yang mampu mempermudah pengembangan aplikasi basis data berbasis klien/server.

Fungsi-fungsi yang tersebut di atas (khususnya My) ditujukan untuk memfokuskan Visual Basic .NET sebagai sebuah platform pengembangan aplikasi secara cepat dan "menjauhkannya" dari bahasa C#.

Bahasa Visual Basic 2005 memperkenalkan fitur-fitur baru, yakni:

* Bawaan .NET Framework 2.0:
o Generics
o Partial class, sebuah metode yang dapat digunakan untuk mendefinisikan beberapa bagian dari sebuah kelas di dalam sebuah berkas, lalu menambahkan definisinya di lain waktu; sangat berguna khususnya ketika mengintegrasikan kode pengguna dengan kode yang dibuat secara otomatis.
o Nullable Type
* Komentar XML yang dapat diproses dengan menggunakan beberapa alat bantu seperti NDoc untuk membuat dokumentasi secara otomatis.
* Operator overloading
* Dukungan terhadap tipe data bilangan bulat tak bertanda (unsigned integer) yang umumnya digunakan di dalam bahasa lainnya.

Visual Basic 9.0 (Visual Basic 2008)

Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.

Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:

* Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis If (boolean, nilai, nilai). Ini dimaksudkan untuk mengganti fungsi IIF.
* Dukungan anonymous types
* Dukungan terhadap Language Integrated Query (LINQ)
* Dukungan terhadap ekspresi Lambda
* Dukungan terhadap literal XML
* Dukungan terhadap inferensi tipe data.
* dukungan terhadap 'LINQ'

Hubungan dengan Visual Basic klasik

Apakah Visual Basic .NET dianggap sebagai sebuah versi Visual Basic atau benar-benar bahasa yang berbeda merupakan sebuah topik perdebatan yang hangat. Hal ini dikarenakan sintaksis bahasa Visual Basic .NET tidak mengalami perubahan yang sangat drastis, dan hanya menambahkan beberapa dukungan fitur baru seperti penanganan eksepsi secara terstruktur dan ekspresi yang bisa di-short-circuit-kan. Dua perubahan tipe data pun terjadi saat berpindah ke Visual Basic .NET. Dibandingkan dengan Visual Basic 6.0, tipe data Integer yang dimiliki oleh Visual Basic .NET memiliki panjang dua kali lebih panjang, dari 16 bit menjadi 32 bit. Selain itu, tipe data Long juga sama-sama berubah menjadi dua kali lipat lebih panjang, dari 32 bit menjadi 64 bit. Bilangan bulat 16-bit dalam Visual Basic .NET dinamakan dengan Short. Lagi pula, desainer GUI Windows Forms yang terdapat di dalam Visual Studio .NET atau Visual Basic .NET memiliki gaya yang sangat mirip dengan editor form Visual Basic klasik.

Jika sintaksis tidak banyak yang berubah, lain halnya dengan semantik, yang berubah secara signifikan. Visual Basic .NET merupakan sebuah bahasa pemrograman yang mendukung fitur "Bahasa Pemrograman Berorientasi Objek" secara penuh, karena memang didukung oleh arsitektur Microsoft .NET Framework, yang mengandung kombinasi dari Common Language Runtime dan Base Class Library. Visual Basic klasik, hanya merupakan sebuah bahasa pemrogaman berbasis objek, yang berjalan di atas arsitektur Component Object Model (COM).

Perubahan ini telah mengubah banyak asumsi tentang hal yang benar yang harus dilakukan dengan mempertimbangkan performa dan kemudahan untuk dipelihara. Beberapa fungsi dan pustaka perangkat lunak, yang ada di dalam Visual Basic klasik, kini tidak terdapat di dalam Visual Basic .NET; mungkin masih banyak yang masih terdapat di dalam Visual Basic .NET, tapi tidak seefisien apa yang ditawarkan oleh .NET Framework. Bahkan jika program Visual Basic klasik bisa dikompilasi dengan benar, sebagian besar program Visual Basic klasik harus melalui beberapa proses refactoring untuk mengadopsi fitur bahasa baru secara keseluruhan. Dokumentasi untuk ini pun tersedia di situs Microsoft[1].

Contoh Pemrograman

Contoh program sederhana dalam bahasa Visual Basic .NET yang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harga m_price per item ditambah 5% pajak penjualan: [2].

Dim m_item, m_price, tax, total As double
m_item = double.Parse(textBox1.Text)
m_price = double.Parse(textBox2.Text)
tax = 0.05
total = m_item * m_price * (1 + tax)
label5.Text = total.ToString()
MessageBox.Show("Well Done.")

Berikut ini adalah contoh lain dari program Visual Basic yang menggunakan objek CheckBox dan ComboBox untuk menghitung jumlah kredit mata kuliah yang diambil oleh seorang mahasiswa (masing-masing mata kuliah = 3 kredit):

Dim total As Integer
total = 0 ' awal dari jumlah kredit total
If (CheckBox1.Checked = True) Then 'boleh memilih semua checkbox
total += 3
End If
If (CheckBox2.Checked = True) Then
total = total + 3
End If
If (CheckBox3.Checked = True) Then
total = total + 3
End If
If (ComboBox1.SelectedIndex = 0) Then 'hanya bisa memilih satu
total = total + 3
ElseIf (ComboBox1.SelectedIndex = 1) Then
total = total + 3
ElseIf (ComboBox1.SelectedIndex = 2) Then
total = total + 3
End If
Label3.Text = CStr(total) ' hasil kredit total yang diambil

Posted in: Visual Basic

Program Database KTP dengan VB

source code program database ktp dengan vb access dan srystal report. program ini menggunakan crytal report untuk sebagai "pelaporan" atau database page viewnya. database yang kami gunakan adalah access untuk membuat program database ktp dengan vb ini. disini kami sudah menyiapkan source code yang bisa dipelajari code-codenya dan ada juga file exenya langsung. source code program database ktp ini kami "bungkus" dalm format zip. extraxlah dan untuk menjalan secara sempurna,
pastikan anda sudah mempunyai kompnen Crystl32.ocx sebagai pemanggil "laporannya" tadi.

contoh program nya...



select data






Laporan



Preview databasenya



selengkapnya download di bawah ini...

download source code program database KTP dengan vb

download file exe program KTP with vb 6

Posted in: Visual Basic

Program VB Aplikasi Koperasi Sederhana

------------------------------------------------------------------------------------------------
Aplication : Koperasi
Design : Amir Mahmud
Reguest : Riki
-----------------------------------------------------------------------------------------------

Aplikasi Koperasi Sederhana ini adalah salah satu contoh Progam yang digunakan untuk mengolah data Anggota, Simpanan, Pinjaman dan pembayaran. Aplikasi ini masih sederhana dan perlu di kembangkan. bagi yang berminat download di SINI

Posted in: Visual Basic

Program VB Aplikasi Persediaan Obat di Apotek

Ini adalah salah satu program yang mengolah data persediaan obat untuk apotik, nam apotik yang ada pada program ini adlah hanya hasil riset saya saja utuk tugas MK Perancangan Sitem Informasi. program dibuat tahun 2006 menggunkan database MySQL Server. Program pertama yang pernah gw buat menggunakan database MySQL. 

jika tertarik silahkan download di sini

NB: jika ada pertanyaan, langsung di komentar aja ya..ikuti petunjuk penggunaan aplikasi ini..

Posted in: Visual Basic

Contoh-contoh Program Aplikasi Visual Basic

Silahkan download Contoh-contoh Project Visual Basic dibawah ini untuk menambah pengetahuan dan ilmu kamu tentang Programming. Plus Ebook.. semoga bermanfaat…

* Kalau ada request mau minta contoh program apa yang diinginkan, silahkan saja isi permintaan kamu di box comment ya…

** Apabila ada yang kurang jelas juga silahkan ditanyakan..

VB Programming

| Access To MySQL (Convert Database Access ke MySQL) | Download

| Game Tetris (Membuat game Tetris dengan VB) | Download | Screenshot

| Accounting System (Contoh belajar membuat program Accounting) | Download| Screenshot

| Screen Saver (Contoh belajar membuat Screen saver dengan VB) | Download |Screenshoot

| DirectX_Sample (Contoh belajar membuat Animasi sederhana dengan DirectX) | Download

| Animasi Partikel (Contoh membuat Animasi, partikel yg bergerak kesana-kemari) | Download

| Smart_POS (Contoh Program Point Of Sales -Kasir-Penjualan- *lengkap*) |Download 
| Animation Form (Sample bagaimana membuat Animasi untuk membuka/tutup Form) | Download

| HRMS (Sample Program Payroll/Salary & HR Management) | Download

| MagixChat (Sample Program Chating sederhana dengan Winsock) | Download

| Wallpaper Changer (Merubah wallpaper windows otomatis & contoh coding icon di system tray) | Download

| CPU Monitor (memonitor aktifitas CPU -seperti di Task Manager-) | Download

| SimpanGambarKeField (Menyimpan gambar langsung kedalam database) |Download

| Format-Excel (Formating Excel from VB) | Download

| Treeview (TreeView Outlook Style) | Download

Posted in: Visual Basic

Cara membuat Anti virus dg Visual Basic

cara ini sangat sederhana dan dibuat untuk menangapi tutorial sebelumnya yang tidak lengkap apabila hanya membuat virus saja oke langsung aja deh tanpa basa-basi lagi Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :
1. Software Visual Basic 6.0
2. Sedikit pemahaman akan pemograman Visual Basic 6.0
3. Sampel file bersih atau virus (- opsional)
* First
Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah class module dan Form dengan menambahkan sebuah objek Textbox, CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan dengan memilih Project -> COmponent atau Ctrl-T dan memilih Microsoft Common Dialog Control 6.0). Ketikkan kode berikut pada class module (kita beri nama class module tsb clsCrc) :
================= START HERE ====================
Private crcTable(0 To 255) As Long ‘crc32
Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long
‘bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file
Dim lCurPos As Long ‘Current position untuk iterasi proses array bArrayIn
Dim lTemp As Long ‘variabel temp hasil perhitungan
If lLen = 0 Then Exit Function ‘keluar fungsi apabila ukuran file = 0
lTemp = lcrc Xor &HFFFFFFFF
For lCurPos = 0 To lLen
lTemp = (((lTemp And &HFFFFFF00) &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
Next lCurPos
CRC32 = lTemp Xor &HFFFFFFFF
End Function
Private Function BuildTable() As Boolean
Dim i As Long, x As Long, crc As Long
Const Limit = &HEDB88320
For i = 0 To 255
crc = i
For x = 0 To 7
If crc And 1 Then
crc = (((crc And &HFFFFFFFE) 2) And &H7FFFFFFF) Xor Limit
Else
crc = ((crc And &HFFFFFFFE) 2) And &H7FFFFFFF
End If
Next x
crcTable(i) = crc
Next i
End Function
Private Sub Class_Initialize()
BuildTable
End Sub
================= END HERE ====================
Lalu ketikkan kode berikut dalam event Command1_Click :
================= START HERE ====================
Dim namaFileBuka As String, HasilCrc As String
Dim CCrc As New clsCrc ‘bikin objek baru dari class ClsCrc
Dim calCrc As Long
Dim tmp() As Byte ‘array buat file yang dibaca
Private Sub Command1_Click()
CommonDialog1.CancelError = True ‘error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = “Baca File” ‘Caption commondialog
On Error GoTo erorhandle ‘label error handle
CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 ‘buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1)) As Byte ‘deklarasi ulang untuk array
Get #1, , tmp()
Close #1
calCrc = UBound(tmp) ‘mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) ‘hitung CRC
HasilCrc = Hex(calCrc) ‘diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
Text1.Text = HasilCrc ‘tampilkan hasilnya
Exit Sub
erorhandle:
If Err.Number 32755 Then MsgBox Err.Description ‘error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file
================= END HERE ====================
Coba anda jalankan program diatas dengan memencet tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka program akan menampilkan CRC32nya.
* Second
Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file suspect virus dengan antara membandingkan hasil CRC32nya dan database CRC kita sendiri. Algoritmanya adalah :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
- Buka file database
- Ambil isi file baris demi baris
- Samakan Checksum hasil perhitungan dengan checksum dari file
Format file database dapat kita tentukan sendiri, misal :
- FluBurung.A=ABCDEFGH
- Diary.A=12345678
Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika kita mempunyai format file seperti diatas, maka kita perlu membaca file secara sekuensial per baris serta memisahkan antara nama virus dan Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter ‘=’.
Buat 1 module baru (- diberi nama module1) lalu isi dengan kode :
================= START HERE ====================
Public namaVirus As String, CrcVirus As String ‘deklarasi variabel global untuk nama dan CRC virus
Public pathExe as String ‘deklarasi variabel penyimpan lokasi file EXE AV kita
Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean
Dim lineStr As String, tmp() As String ‘variabel penampung untuk isi file
Open namaFileDB For Input As #1 ‘buka file dengan mode input
Do
Line Input #1, lineStr
tmp = Split(lineStr, “=”) ‘pisahkan isi file bedasarkan pemisah karakter ‘=’
namaVirus = tmp(0) ‘masukkan namavirus ke variabel dari array
CrcVirus = tmp(1) ‘masukkan Crcvirus ke variabel dari array
If CrcVirus = Crc Then ‘bila CRC perhitungan cocok/match dengan database
cariDatabase = True ‘kembalikan nilai TRUE
Exit Do ‘keluar dari perulangan
End If
Loop Until EOF(1)
Close #1
End Function
================= END HERE ====================
Lalu tambahkan 1 objek baru kedalam Form, yaitu Command button2. lalu ketikkan listing kode berikut kedalam event Command2_Click :
================= START HERE ====================
If Len(App.Path) <= 3 Then ‘bila direktori kita adalah root direktori
pathEXE = App.Path
Else
pathEXE = App.Path & “”
End If
CommonDialog1.CancelError = True ‘error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = “Baca File” ‘Caption commondialog
On Error GoTo erorhandle ‘label error handle
CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 ‘buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1)) As Byte ‘deklarasi ulang untuk array
Get #1, , tmp()
Close #1
calCrc = UBound(tmp) ‘mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) ‘hitung CRC
HasilCrc = Hex(calCrc) ‘diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
If cariDatabase(HasilCrc, pathEXE & “DB.txt”) Then ‘bila fungsi bernilai TRUE
MsgBox “Virus ditemukan : ” & namaVirus ‘tampilkan message Box
End If
Exit Sub
erorhandle:
If Err.Number 32755 Then MsgBox Err.Description ‘error number 32755 adalah bila user mengklik tombol cancel pada saat memilih file

Posted in: Visual Basic

Menghitung lama waktu komputer dijalankan

Pernahkah kalian mencoba menghitung lama komputer dihidupkan?? dari mulai komputer dinyalakan.Nah kali ini penulis akan mencoba membuat program penghitung waktu dengan menggunakan fungsi API.
Yang perlu disiapkan yaitu 1 form, 1 module,1 komponen timer kemudian atur desainnya seperti contoh preview dibawah ini

berikut ini untuk source codenya
'untuk form 1
Private Sub Form_Load()
nTime = GetTickCount()
End Sub

Private Sub Timer1_Timer()
Dim Time As Long
Dim detik As Long
Dim menit As Long
Dim jam As Long

' untuk me-refesh timer ini gunakan
' setting interval dalam properti timer
' dengan nilai 1000 (1 detik)

Time = GetTickCount()
detik = Round(Time / 1000)
menit = Round(detik / 60)
jam = Round(menit / 60)


List1.Clear
' List1.AddItem ("Total waktu berjalan = " & vbTab & Time & " millisecond")
List1.AddItem ("")
List1.AddItem (jam & " Jam, atau " & _
menit & " Menit, atau " & _
detik & " Detik")
List1.AddItem ""
List1.AddItem "Waktu dari mulai program ini dijalankan: " & Round((Time - nTime) / 1000) & " Detik"

End Sub


' script untuk module

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public nTime As Long

Selesai sudah script kodeya skrg tinggal di compile dan pasti jalan programnya, kalo ada error mungkin bisa liat program masternya...

Posted in: Visual Basic

Billing Wartel

Nah kali ini penulis membuat contoh program billing wartel yang berfungsi menghitung jumlah uang yang harus dikeluarkan berdasarkan waktu yang digunakan untuk telpon. Untuk Penggunaan timer dengan biaya pemakaian bisa kalian atur dengan ide kalian sendiri.
Berikut bentuk form yang sudah dibuat

Dan berikut scriptnya

Dim awal As Date
Dim akhir As Date

Private Sub Cmul_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Cmul.Enabled = False
Csel.Enabled = True
Csel.SetFocus
End Sub

Private Sub Csel_Click()
Timer1.Enabled = False
Cmul.Enabled = True
Csel.Enabled = False
Cmul.SetFocus
End Sub

Private Sub Form_Activate()
Cmul.SetFocus
End Sub

Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text1.Text = total
Text2.Text = Format(bayar, "Rp #,#")
End Sub

Posted in: Visual Basic

Koneksi Database pada Microsoft Visual Basic 6

Dalam Sistem Informasi, kita mengenal Database. Dalam implementasinya dalam bentuk program, Database haruslah terkoneksi dengan aplikasi yang kita buat. Database dan aplikasi yang digunakan beragam.
Misalnya yang banyak digunakan:
Sistem Informasi berbasis Web (PHP + MYSQL)
Berbasis Desktop (Delphi + SQL Server , Visual Basic + Ms. Access, dll).
Pada tutorial kali ini, saya akan membahas tentang Visual Basic yang dikoneksi dengan Ms. Access.
Untuk dasar, kita buat Sistem informasi kecil-kecilan saja.

1.Untuk langkah pertama, desain sebuah form sederhana seperti pada tampilan di bawah ini.

Dimana ketentuan komponen-komponennya pada Properties sebagai berikut:

Label1   : name = t_nama
                 : caption = NAMA

Label2  : name = t_jamkerja
                 : caption = JAM KERJA

Label3  : name = t_gaji
                 : caption = GAJI /JAM

Label4      : name = t_totgaji
                 : caption = TOTAL GAJI
                 : enable = false

Command1 : name = c_simpan
                   : caption = SIMPAN

Command2 : name = c_hapus
                   : caption = HAPUS 

2.Setelah selesai mendesainnya, kita perlu penambahan komponen untuk menyimpan data dan tabel tampil database kita. Caranya, klik Menu Project => Components atau bisa dengan menekan Ctrl + T. Kemudian centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB), seperti yang terlihat di bawah ini.

3.Klik OK, Kemudian pada Toolbar komponen, terdapat komponen baru, yang kita gunakan adalah DataGrid dan Adodc

4.Letakkan komponen tersebut di form Anda. Seperti gambar di bawah ini.

5.Setelah kita selesai membuat GUI-nya, langkah berikutnya membuat Database. Disini saya menggunakan Ms. Access.
Buka Ms. Access dan buat Database baru.
Beri nama Databasenya , dengan nama gaji.

6.Buat Tabel baru pada gaji dengan meng-klick Create table in Design view. Seperti di bawah ini.

7.Isikan Field Table dan tipe datanya sebagai berikut, dimana NAMA sebagai Primmary Key-nya. Kemudian simpan dengan nama T_Gaji.

8.Kita kembali ke lembar kerja kita di Visual Basic, Untuk mengkoneksi database yang kita buat tadi. Dalam mengkoneksinya, kita memerlukan Data Environment. Untuk menambahkannya, klik Menu Project => Add Data Environment

9.Setelah di klik, maka akan muncul jendela DataEnvironment1. Pada Connection, Klik Kanan pilih Properties.

10.Maka akan muncul jendela baru Data Link Properties. Pada Tab Provider, pilih Microsoft Jet 4.0 OLE DB Provider. Kemudian pilih Next >&gt;

11.Setelah Next, pada Tab Connection, perhatikan Select or enter a database name : . Kita diminta untuk memasukkan database yang telah kita buat tadi, yakni gaji.

12.Untuk mengetes koneksinya, Klik Test Connection. Apabila sudah benar, maka akan muncul pesan alert berikut.

13.Klik OK, kemudian pada form, Ubah Properties komponen Adodc dan DataGrid tadi pada jendela Properties seperti berikut.
Adodc1 ->Visible = false
DataGrid1 ->DataSourse = DataEnvironment1

14.Tahap selanjutnya adalah untuk penulisan kode scriptnya. Pada general, kita tuliskan script berikut.

Untuk script Tombol SIMPAN, ketikkan script berikut.

Pada Tombol HAPUS, ketikkan script brikut.

Dan Script terakhir untuk form-nya ketika di-load (klik 2x pada form GUI).
Private Sub Form_Load()
Set gajiku = Nothing
        letak = App.Path & "\gaji.mdb"


        With gajiku
            gajiku.ActiveConnection = "Provider=microsoft.jet.OLEDB.4.0;Data source=" & letak & ";Persist security info=false"
            gajiku.CursorLocation = adUseClient
            gajiku.LockType = adLockOptimistic
            gajiku.Source = "select*from t_gaji"
            gajiku.Open
          
            Set DataGrid1.DataSource = gajiku
            DataGrid1.Refresh
        End With
End Sub

Jalankan Program.

SELAMAT MENCOBA

Posted in: Visual Basic

Visual basic + sql server + active report

Ketika kita membangun sebuah aplikasi database, kita tentunya menginginkan perpaduan yang ideal antara bahasa pemrograman, database dan reporting tool. Menurut saya… untuk membangun aplikasi khususnya yang berbasis desktop, komposisi yang paling ideal adalah visual basic 6 + sql server + active report.

Dengan perpaduan tersebut, kita dapat membangun berbagai aplikasi client-server beserta reportingnya tanpa membutuhkan banyak komponen tambahan.
Untuk reporting, sebenarnya paling powerfull adalah menggunakan crystal report. Tetapi, terlalu banyak komponen yang diperlukan saat kita akan mengkompilasi dan membuat installer dari aplikasi kita. Mungkin bagi yang sudah mahir, tidak ada kesulitan dalam hal tersebut. Namun bagi pemula seperti saya tentunya akan kebingungan memilih komponen mana saja yang harus disertakan.
Ok… Langsung aja yach… dalam bagian ini saya akan mencoba berbagi dan menunjukkan pengalaman saya untuk membuat hubungan antara ketiganya.

1. Buat satu database di SQL Server 2000 dan jangan lupa untuk membuat sedikitnya satu table. Sebagai contoh database sekolah dan table siswa.


2. Bagaimana? Sudah kan? Selanjutnya kita akan beralih ke VB 6 dan hal pertama yang harus dibuat adalah modul koneksi dengan database.
3. Buka Project baru VB6 dan tambahkan satu modul ke dalamnya kemudian ketikkan kode berikut :

Public koneksi as adodb.connection
Public sub konekdb()
Set koneksi=new ADODB.connection
With koneksi
.CommandTimeout = 300
.CursorLocation = adUseClient
.ConnectionString = strCon
.Open "Provider=SQLOLEDB.1;" & _
"Data Source=(local);" & _
"Initial Catalog=sekolah;" & _
"User ID=sa;" & _
"Password=passwordsauser;" & _
"Persist Security Info=True;" & _
"OLE DB Services = -2;"
End With
If err.Number Then
MsgBox "Gagal menghubungi komputer Inven!" & vbNewLine & err.Description, vbOKOnly + vbCritical
Exit sub
End If
End sub

O ya.. tambahkan juga reference Microsoft ActiveX Data Objects 2.x Library
4. Tambahkan modul satu lagi untuk menampung kode state form dan kodenya :

Public Enum FormState
adStateAddMode = 0
adStateEditMode = 1
adStatePopupMode = 2
End Enum

5. Kalau sudah kita buka form1 dan letakkan beberapa komponen diantaranya
-1 listview
-5 textbox
-6 command button
-1 masked box
dengan default name nya aja dan atur posisinya seperti ini

6. Create satu active report dengan klik kanan pada project1 pilih add--> Data Dynamics ActiveReports2.0 kemudian tambahkan komponen sebagai berikut :


Dan beberapa label seperti pada gambar ini :

7. Kemudian pada form1 ketikkan kode berikut :

Dim WithEvents rs As ADODB.Recordset
Public state As FormState
Private Sub Command1_Click()
kosongfield
releasefield
Text1.SetFocus
SetButtons False
Me.state = adStateAddMode
End Sub

Private Sub Command2_Click()
releasefield
SetButtons False
Me.state = adStateEditMode
End Sub

Private Sub Command3_Click()
Dim strsqldel As String
On Error Resume Next
strsqldel = "delete from tblsiswa where nis='" & ListView1.SelectedItem.Text & "'"
If ListView1.SelectedItem.Text = "" Then
MsgBox "Tidak ada rekord yang akan dihapus", vbInformation, "Informasi"
Else
X = MsgBox("Apakah anda yakin ingin menghapus data secara permanen? ", vbExclamation + vbYesNo, "konfirmasi")
If X = vbYes Then
koneksi.Execute strsqldel
rs.Requery
Call Form_Load
Else
End If
End If
End Sub

Private Sub Command4_Click()
On Error Resume Next
If Me.state = adStateAddMode Then
strkueri = "insert into tblsiswa values('" & Text1.Text & "', " & _
" '" & Text2.Text & "'," & _
" '" & Text3.Text & "'," & _
" '" & Me.MaskEdBox1.Text & "'," & _
" '" & Text5.Text & "')"
pesan = "Data berhasil ditambahkan"
ElseIf Me.state = adStateEditMode Then
strkueri = "update tblsiswa set nis='" & Text1.Text & "'," & _
" nama= '" & Text2.Text & "', " & _
" tempat_lahir='" & Text3.Text & "'," & _
" tanggal_lahir= '" & MaskEdBox1.Text & "'," & _
" agama= '" & Text5.Text & "'where nis='" & ListView1.SelectedItem.Text & "'"
pesan = "Data berhasil diedit"
End If
koneksi.Execute strkueri
MsgBox "" & pesan, vbInformation, "Informasi"
'refreshrekord
SetButtons True
Call Form_Load
End Sub

Private Sub Command5_Click()
Call Form_Load
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
With ActiveReport1.DataControl1
.CursorLocation = koneksi.CursorLocation
.CursorType = ddADOOpenDynamic
.ConnectionString = koneksi.ConnectionString
.Source = "select * from tblsiswa"
End With
ActiveReport1.Show
End Sub

Private Sub Form_Load()
On Error Resume Next
konekdb
Set rs = New ADODB.Recordset
rs.Open "select * from tblsiswa", koneksi
ListView1.ListItems.Clear
If rs.RecordCount <> 0 Then
filltext
isilist
kuncifield
SetButtons True
Else
End If
End Sub
Sub filltext()
Text1.Text = rs!nis
Text2.Text = rs!nama
Text3.Text = rs!tempat_lahir
MaskEdBox1.Mask = ""
Me.MaskEdBox1.Text = rs!tanggal_lahir
Text5.Text = rs!agama
Dim ListVwItem As MSComctlLib.ListItem
Dim Value As String
Dim Value2 As String
Value = rs!nis
For Each ListVwItem In ListView1.ListItems
If Trim(ListVwItem.Text) = Trim(Value) Then 'find complete words
ListVwItem.Selected = True
ListVwItem.EnsureVisible
Exit For
End If
Next
End Sub
Sub isilist()
On Error Resume Next
With rs
For i = 0 To rs.Fields.Count
ListView1.ColumnHeaders.Add i + 1, , rs.Fields(i).Name
Next i
.MoveFirst
Do While Not .EOF
Set LI = ListView1.ListItems.Add(, , Trim(!nis))
LI.SubItems(1) = Trim(!nama)
LI.SubItems(2) = Trim(!tempat_lahir)
LI.SubItems(3) = Trim(!tanggal_lahir)
LI.SubItems(4) = Trim(!agama)
.MoveNext
Loop

End With
End Sub
Sub kosongfield()
On Error Resume Next
Dim txt As Control
'clear the text boxes
For Each txt In Me
If TypeOf txt Is TextBox Then txt.Text = ""
Next
Me.MaskEdBox1.Text = ""
MaskEdBox1.Mask = "##/##/####"
End Sub
Sub kuncifield()
On Error Resume Next
Dim txt As Control
'Locked the text boxes
For Each txt In Me
If TypeOf txt Is TextBox Then txt.Locked = True
Next
Me.MaskEdBox1.Enabled = False
End Sub
Sub releasefield()
On Error Resume Next
Dim txt As Control
'UnLocked the text boxes
For Each txt In Me
If TypeOf txt Is TextBox Then txt.Locked = False
Next
Me.MaskEdBox1.Enabled = True
End Sub
Sub SetButtons(bVal As Boolean)
Command1.Visible = bVal
Command2.Visible = bVal
Command4.Visible = Not bVal
Command5.Visible = Not bVal
Command3.Visible = bVal
Command6.Visible = bVal
Command7.Visible = bVal
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim Item2 As ListItem
Set Item2 = ListView1.ListItems.Item(ListView1.SelectedItem.Index)
rs.MoveFirst
'Text1 = UCase(Trim(Text1))
'msgbox""&
rs.Find (" nis = '" & Me.ListView1.SelectedItem & "'")
If rs.AbsolutePosition > 0 Then
filltext
ElseIf rs.AbsolutePosition <>

8. Yang terakhir ketik kode berikut pada active report

Private Sub PageFooter_BeforePrint()
Me.lblpage.Caption = Me.pageNumber
End Sub

Private Sub ReportHeader_BeforePrint()
lbldate.Caption = "Di cetak tanggal : " & Format(Date, "dd/mm/yyyy")
End Sub

Posted in: Visual Basic

Menjalankan Visual Basic di LINUX

Bagaimana untuk menjalankan program visual basic di linux?? untuk memulainya kalian harus menginstall Wine di sypnatic setelah terinstall baru kemudian masuk ke setting wine dengan masuk ke wine configuration kemudian ikuti langkah berikut 1. Salin riched20.dll, riched32.dll, urlmon.dll, oleaut32.dll, dan hhctrl.ocx dari direktori system32 di windows xp kemudian paste di direktori wine system32 yang ada di linux tersebut.
2. Dalam dialog konfigurasi wine, di bawah tab libraries, setting files yang ada di menu native dengan meng-Add file berikut :
hhctrl.ocx
oleaut32
riched20
riched32
urlmon
Dan ini untuk menetapkan builtin:
ole32
rpcrt4
3. Setting Windows emulation menjadi Windows ME
4. Run the installer normally, ignoring the OLE and Java error messages. Jalankan installer seperti biasa, abaikan OLE Java dan pesan kesalahan. Jika diinginkan, MSDN libraries juga dapat diinstal. Setelah instalasi, setting windows emulation kembali dari windows ME ke Windows XP.
5. Buka terminal dan browse ke direktori wine system32 ) kemudian Jalankan perintah berikut dalam consol linux : wine regsvr32 comcat.dll (ini akan memperbaiki VB6 OLE subsistem)
6. Setelah komponen sudah dimasukkan dan MSDN libraries telah terinstal. Proses Instalasi bisa dilaksanakan dengan masuk ke console kemudian ketik wine setup.exe dimana program visual basic berada.
Selamat mencoba semoga berhasil...

Posted in: Visual Basic

Memasukan Flash pada VB

Kali ini kita akan membahas bagaimana cara memasukan animasi flash kedalam Visual Basic. Animasi flash adalah gambar animasi bergerak yang mempunyai ekstensi *.swf dan biasanya dijalankan dengan menggunakan flash player. Banyak orang bingung, pada saat memasukan animasi flash ke dalam program vb. Sebenarna ada beberapa alternatif yaitu dengan memasukan komponen browser pada vb untuk memaink animasi flash. Namun kita akan mencoba memasukan langsung komponent flash kedalam program vb kita. Langkah
1. Buat project baru pada Visual Basic 6.0 kemudian pilih Standard.exe
2. Tambahkan komponen ShockwaveFlash , pilih menu project -> components, maka akan muncul
kotak dialog sebagai berikut :

Beri centang pada komponen ShockwaveFlash kemudian klik tombol Apply kemudian OK.  Selain itu tambahkan juga CommonDialog dengan memberi tanda centang pada Microsoft Common Dialog Control 6.0
3. Jika Component tidak ada, anda dapat menginstal FalshPlayer terlebih dahulu dan mencari file Flash9b.ocx
4. Kemudian tambahkan ke Form, 1 buah object ShockwaveFlah, 4 buah CommandButton, dan 1 buah CommonDialog
sehingga tampilannya menjadi seperti ini :

5. Selanjutnya Copy Paste Source Code Berikut ini :

Private Sub Command1_Click()

Me.CommonDialog1.Filter = "Flash File (*.swf) | *.swf"

Me.CommonDialog1.ShowOpen

End Sub

Private Sub Command2_Click()

Me.ShockwaveFlash1.Movie = Me.CommonDialog1.FileName

Me.ShockwaveFlash1.Play

End Sub
Private Sub Command3_Click()

Me.ShockwaveFlash1.StopPlay

End Sub
Private Sub Command4_Click()

End

End Sub

6. Coba test program yang telah anda buat.
Sekian tutorial kali ini. Semoga bermanfaat bagi para pembaca, terimakasih.

Posted in: Visual Basic

Koneksi Database pada Microsoft Visual Basic 6

Dalam Sistem Informasi, kita mengenal Database. Dalam implementasinya dalam bentuk program, Database haruslah terkoneksi dengan aplikasi yang kita buat. Database dan aplikasi yang digunakan beragam.
Misalnya yang banyak digunakan:
Sistem Informasi berbasis Web (PHP + MYSQL)
Berbasis Desktop (Delphi + SQL Server , Visual Basic + Ms. Access, dll).
Pada tutorial kali ini, saya akan membahas tentang Visual Basic yang dikoneksi dengan Ms. Access.
Untuk dasar, kita buat Sistem informasi kecil-kecilan saja.

1.Untuk langkah pertama, desain sebuah form sederhana seperti pada tampilan di bawah ini.

Dimana ketentuan komponen-komponennya pada Properties sebagai berikut:

Label1   : name = t_nama
                 : caption = NAMA

Label2  : name = t_jamkerja
                 : caption = JAM KERJA

Label3  : name = t_gaji
                 : caption = GAJI /JAM

Label4      : name = t_totgaji
                 : caption = TOTAL GAJI
                 : enable = false

Command1 : name = c_simpan
                   : caption = SIMPAN

Command2 : name = c_hapus
                   : caption = HAPUS 

2.Setelah selesai mendesainnya, kita perlu penambahan komponen untuk menyimpan data dan tabel tampil database kita. Caranya, klik Menu Project => Components atau bisa dengan menekan Ctrl + T. Kemudian centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB), seperti yang terlihat di bawah ini.

3.Klik OK, Kemudian pada Toolbar komponen, terdapat komponen baru, yang kita gunakan adalah DataGrid dan Adodc

4.Letakkan komponen tersebut di form Anda. Seperti gambar di bawah ini.

5.Setelah kita selesai membuat GUI-nya, langkah berikutnya membuat Database. Disini saya menggunakan Ms. Access.
Buka Ms. Access dan buat Database baru.
Beri nama Databasenya , dengan nama gaji.

6.Buat Tabel baru pada gaji dengan meng-klick Create table in Design view. Seperti di bawah ini.

7.Isikan Field Table dan tipe datanya sebagai berikut, dimana NAMA sebagai Primmary Key-nya. Kemudian simpan dengan nama T_Gaji.

8.Kita kembali ke lembar kerja kita di Visual Basic, Untuk mengkoneksi database yang kita buat tadi. Dalam mengkoneksinya, kita memerlukan Data Environment. Untuk menambahkannya, klik Menu Project => Add Data Environment

9.Setelah di klik, maka akan muncul jendela DataEnvironment1. Pada Connection, Klik Kanan pilih Properties.

10.Maka akan muncul jendela baru Data Link Properties. Pada Tab Provider, pilih Microsoft Jet 4.0 OLE DB Provider. Kemudian pilih Next >&gt;

11.Setelah Next, pada Tab Connection, perhatikan Select or enter a database name : . Kita diminta untuk memasukkan database yang telah kita buat tadi, yakni gaji.

12.Untuk mengetes koneksinya, Klik Test Connection. Apabila sudah benar, maka akan muncul pesan alert berikut.

13.Klik OK, kemudian pada form, Ubah Properties komponen Adodc dan DataGrid tadi pada jendela Properties seperti berikut.
Adodc1 ->Visible = false
DataGrid1 ->DataSourse = DataEnvironment1

14.Tahap selanjutnya adalah untuk penulisan kode scriptnya. Pada general, kita tuliskan script berikut.

Untuk script Tombol SIMPAN, ketikkan script berikut.

Pada Tombol HAPUS, ketikkan script brikut.

Dan Script terakhir untuk form-nya ketika di-load (klik 2x pada form GUI).
Private Sub Form_Load()
Set gajiku = Nothing
        letak = App.Path & "\gaji.mdb"


        With gajiku
            gajiku.ActiveConnection = "Provider=microsoft.jet.OLEDB.4.0;Data source=" & letak & ";Persist security info=false"
            gajiku.CursorLocation = adUseClient
            gajiku.LockType = adLockOptimistic
            gajiku.Source = "select*from t_gaji"
            gajiku.Open
          
            Set DataGrid1.DataSource = gajiku
            DataGrid1.Refresh
        End With
End Sub

Jalankan Program.

SELAMAT MENCOBA

Posted in: Visual Basic

Aplikasi Pembukuan Dengan Visual Basic dan Microsoft Access

Free aplikasi portable untuk windows, aplikasi pembukan sederhana… dengan Visual Basic dan database Ms. Access

Aplikasi pembukuan tanpa crystal report ini bisa digunakan untuk mencatat data transaksi harian (input dan output) pada form yang telah disediakan. Walau aplikasi accounting dengan visual basic ini tidak sekeren aplikasi accounting sejenis yang sudah ada, setidaknya masih bisa digunakan untuk pembukuan sederhana dan sesuai keperluan.
Screenshot, lihat DI SINI.

Bagaimana cara menggunakan aplikasi ini…, mendingan download saja aplikasinya dan langsung praktekan…!!! PASTI BISA…!!!

Download gratis aplikasi portable, aplikasi pembukan sederhana dengan visual basic, DI SINI

Jika ada yang donwload…, sebelum digunakan, extract dulu ke dalam 1 folder! Setelah itu baru jalankan file .exe –nya (untuk pertama kalinya, akan muncul 1 folder tambahan yang di dalamnya ada database ms. access)

Read more: http://my-diaryzone.blogspot.com/2011/01/aplikasi-pembukuan-dengan-visual-basic.html#ixzz1F8PoKK7h

Posted in: Visual Basic

Game Sederhana “TEST MEMORY” dari Visual Basic 6.0

Game ini terinspirasi dari salah satu game yang dibuat dengan bahasa pemrograman Python, jadi pas agak nganggur ya iseng-iseng aja aku buat game yang serupa tapi menggunakan bahasa pemrograman Visual Basic 6.0
Gamenya cukup sederhana, cara memainkannya klik tombol play, kemudian komputer akan mensimulasikan tombol mana aja yang di klik, nah tugas anda adalah mengingat dan menirukan tombol mana aja yang di klik dan urut-urutannya. Jika benar maka komputer akan menambah jumlah tombol yang di klik.
Ayo kita test sampai sejauh mana kemampuan kita mengingat
…!!!
DOWNLOAD Program Beserta SOURCE nya di SINI

Posted in: Visual Basic

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Posted in: Visual Basic