Just another WordPress.com site

Archive for the ‘Visual Basic’ Category

Validasi Textboxt Sederhana Pada VB

Dalam membuat aplikasi diperlukan adanya validasi agar aplikasi lebih baik. Contohnya membuat inputan Textboxt hanya bisa di inputkan angka saja atau membuat inputan Textboxt terisi huruf kapital semua. Hal ini dilakukan untuk mengurangi kesalahan pada saat pengiinputan.

1. Inputan Angka

Buatlah Form seperti dibawah

masukan kode ini pada textboxt dan event KeyPress

2. Untuk Inputan Hanya Huruf Besar Saja

Buat lah form seperti diatas, Masukan kode dibawah in

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Jalankan program ( Tekan F5 ). Lihat hasilnya

Sekian tulisan kali ini semoga bermanfaat.

 

Iklan

Konek Database Access VB

Bagaimana cara menghubungkan database access ke Visual Basic, itulah pertanyaan dibenak saya ketika baru pertama kali belajar Visual Basic. Bagi teman-teman yang baru belajar VB dibawah ini adalah cara menghubungkan/mengkoneksikan Database Access ke VB.

Pertama yang harus disiapkan adalah Database yang akan kita gunakan. Lalu buka buat project baru pada Visual Basic Jika sudah ikuti langkah sebagai berikut.

1  Klik menu project > Add Modul

2. Klik Open

3. Lalu ketik koding berikut ini, kemudian Simpan  Module tersebut.

Public Conn As New ADODB.Connection
Public Rs As ADODB.REcordset

Public sub BukaDb ( )

Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source”   &
App.Path & “\Databasekamu.mdb”
end sub

Pada koding diatas, pembacaan database menggunkaan Path String tujuannya adalah jika folder tempat database berada di-copy atau diindahkan kemposisi lain, maka database tersebut tetap dapat dibaca.

koding selanjutnya

Private Sub Form_Load ( )

Call BukaDb

End Sub

Selesai…

Ket : Buka menu Project lalu pilih References beri check list pada Microsoft ActiveX Data Object 2.7 Library

Sekian Semoga Bermanfaat…………!!!

Membuat Auto Number Di VB 6

Program ini akan memberi kemudahan pada kita saat mengentry kode atau nomer atau string lainnya ketika akan ditambahkan.Karena Kode/Nomor akan muncul denagn urut secara otomatis.

Contoh, struktur pada kode barang adalah SN-001 , SN-002, SN-003 dan seterusnya.Dengan program ini tidak akan direpotkan dengan memperkirakan kode selanjutnya dan yang lebih penting mengurangi tingkat kesalahan.

yang pertama yang harus dilakukan adalah membuat database program dahulu terserah mau menggunakan access atau yang lainnya juga boleh.Penulis disini menggunkan database access, karena kita hanya akan membuat AutoNumber saja maka  rancanglah form terserah anda yang penting ada textboxtnya untuk menampung AuoNumber.Penulis disini hanya menggunakan 1 button dan 1 textboxt saja.

Baiklah jika sudah salin koding dibawah ini.

Private Sub AutoNumber ()

Call BukaDb

RsBarang.Open (“select * from Barang where KdBarang In (Select Max(KdBarang) From Barang) Order By KdBarang Desc”), Conn
RsBarang.Requery
Dim Urutan as String * 6
Dim Hitung as Long
With RsBarang
If .EOF Then
Urutan = “SN-” + “001”
TextBoxt1.Text= Urutan
Else
Hitung = Right (!KdBarang, 3) + 1
Urutan = “SN-” + Right  (“000” & Hitung, 3)
End If
TextBoxt1.Text= Urutan
End With

End Sub

Pada Command Input masukan koding dibaah ini

Call AutoNumber

Selesai…

Jika anda malas menyalinya silahkan download sourecode disini.

Aplikasi VB Buat Windows Bag.2

Nah.. kita akan melanjutkan tulisan yang sebelumnya, masih bermain-main dengan taskbar namun kali ini kita akan menyembunyikan taskbar.Dengan menggunakan Aplikasi kecil yang akan kita buat kita dapat menghilangkan dan melenyapkan taskbar. Karena taskbar dalam kondisi tidak aktif atau disembunyikan, maka komputer akan sulit digunakan. Ideal jika ingin memproteksi komputer tanpa harus mematikannya.

Nah design tampilannya seperti dibawah !!

 

klik kanan pada form1 lalu view code, ketikan code dibawah ini.!

Private Declare Function SetWindowPos Lib “user32” _
(ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib “user32” _
Alias “FindWindowA” (ByVal IPClassname As String, ByVal lpWindowName As String) As Long

Private Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Dim TaskBarhWnd As Long
Dim P As POINTAPI

Private Type POINTAPI
X As Long
Y As Long
End Type

Download sourcecode selangkapnya..

Aplikasi VB Buat Windows Bag.1

Pada artikel kali ini kita akan membahas bagaimana mengoptimalkan Windows Xp kita dengan aplikasi buatan sendiri.Tepatnya dengan menggunakan visual basic, dengan memanfaatkan atau memanggil fungsi-fungsi bawaan Windows.

Tahukah anda bahwa taskbar dan jendela aplikasi Windows XP bisa ditransparantkan? Tidak perlu membeli software seperti Windows Blinds atau lainnya untuk mentransparantkan taskbar dan jendela aplikasi pd Windows XP.

Baiklah langsung ja kita buat Apikasinya..

buatlah form1 seperti gambar dibawah ini.

 

Jika sudah masuk pada kode.view code pada form1 lalu masukan script dibawah ini.

Private Declare Function SetLayeredWindowAttributes Lib “user32.dll” _
(ByVal hwnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long

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 findwindow Lib _
“user32” _
Alias “FindWindowA” _
(ByVal lpClassname As String, _
ByVal lpWindowname As String) As Long

Private taskbarhwnd, starthwnd, stratshwnd As Long
Dim result
Dim x As Integer
Dim t As Boolean

Download sourcecode Selengkapnya

Menghitung Jumlah Record Pada Visual Basic dan SQL 2000

Design merupakan hal penting yang tidak boleh terlupakan oleh seorang programer, karena design memiliki daya tarik tersendiri untuk para user yang menggunakan program tersebut. Semakin baik desing interface yang di tampilkan semakin nyaman digunakan. Tetapi jangan lupa untuk menampilkan data yang bener-benar akurat dan sesuai degan kebutuhan yang di perlukan.

Kali ini kita tidak membahas secara detail mengenai design program melainkan data yang akan kita tampilkan di dalam design program yang akan kita bahas.

Persiapan yang dibutuhkan :

*    SQL Server 2000
*    Microsoft Visual Basic 6

SQL server sebagai Databasenya dan Visual Basic sebagai editornya.

Jika kedua file diatas sudah terinstal desiglah program seperti dibawah

Jika anda malas mencobanya silahkan download Source Code Disini.

Jangan lupa memberikan komentar pada blog kami jika anda sudah mengunduhnya.!!!

%d blogger menyukai ini: