Arrays di VB.NET

Arrays apa itu ? Arrays berguna untuk memudahkan mendeklarasikan variable,mempersingkat coding

Contoh sederhanannya :

Dim a As String
Dim b As String
Dim c As String
Dim d As String
dst..

Dari sini penggunaan arrays lebih efesien

Dim alfabet() as String
alfabet(0) = "a"
alfabet(1) = "b"
alfabet(2) = "c"
alfabet(3) = "d"
alfabet(4) = "e"
dst...

syarat penggunaan harus sama kalau string ya datanya harus string juga.

lebih mudah bukan ?

Ok langsung aja buka VB.NET

Tambahkan 1 buah Button dan 1 button buah Combobox.

Masukan Coding berikut :

Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim makanan(3) As String makanan(0) = "Nasi Goreng" makanan(1) = "Ayam Goreng" makanan(2) = "Pangsit" makanan(3) = "Tempe Penyet" For Each element As String In makanan ComboBox1.Items.Add(element) Next ComboBox1.Text = "Menu Makan" End Sub End Class


Demikian tutorial singkat saya,
Happy VB.NET

Read More

Membuat dan menggunakan Data Environment

Data Environment merupakan fasilitas yang disediakan Microsoft Visual Basic 6.0 yang digunakan media penghubung program yang di buat dengan database, biasanya dalam program digunakan untuk membuat laporan. Pertama- tama kita membuat Data Environment yang masih kosong dengan cara klik kanan project explorer, klik add dan kemudian pilih Data Environment. Jika kebingungan lihat gambar dibawah ini.

Berikut Tampilan Data Environment yang belum di apa-apakan.

Untuk mengisi Data Environment agar dapat digunakan pertama-tama klik kanan Connection1, klik properties , pilih jenis database yang digunakan ( note: pilih microsoft jet 4.0 ole provider jika database yang di gunakan adalah Microsoft acces 2007), klik next untuk mengatur letak database disimpan , setelah itu klik test conection. Jika berhasil , maka program telah terkoneksi dengan database. Langkah pertama selesei, selanjutnya karena yang terkoneksi hanya databasenya belum isinya yaitu tabel, query dan kawan- kawan-nya maka kita lanjut ke langkah yang kedua.

Klik kanan lagy connection1, klik add command. maka akan muncul command1. Sama halnya connection1,  klik kanan command1 > klik properties > pilih object database maka akan muncul object datbase seperti table untuk tabel, view untuk query, dll > terus pilih nama object ( disini jika pada object database memilih table, maka pada name object akan muncul nama-nama yang pada databese berbentuk table).  Pada Properies ini pada tab genaral terdapat 2 pilihan pemilihan koneksi secara manual dan otomatis. Untuk cara otomatis telah dijelaskan diatas. Untuk cara yang manual membutuhkan penjelasan SQL. Cari saja sendiri ya apa itu SQL dan cara penggunaan SQL di Google.

Sekian dulu, semoga bermanfaat tutorial Data Environment pada microsoft visual basic 6.0.

Read More

Menghubungkan data report VB6 dengan query database

Menghubungkan data report VB6 dengan query atau tabel di database - sebelumnya buat dulu data environment, untuk caranya baca artikel Cara Membuat dan Menggunakan Data Environment.

Berikut Gambar Form Data Environment dan Form Data Report

Disini saya menggunakan nama QueryBuku pada data environment, klik nama tersebut dan drag ke data report maka secara otomatis field -field yang ada di QueryBuku akan muncul pada Data Report dalam bentuk Label.
Cara ini belum selesei ada satu hal lagi agar Laporan Data Report bisa dijalankan. Rubah sumber data pada properti data report sesuai dengan Data environment yang tadi digunakan .

selamat mencoba :D, menurut anda bagaimana peletakan label, gambar pada data repot diatas bagus jika benar . apa anda menginginkan penataan seperti itu ? anda bisa baca artikel berikut > Cara membuat Laporan Data Report pada Visual Basic Dengan Mudah

Note : Jika Gambar Kurang Jelas, Klik Kanan Gambar terus klik view images.

Read More

Cara membuat Laporan Data Report pada Visual Basic Dengan Mudah

Cara membuat Laporan Data Report pada Visual Basic Dengan Mudah – membuat data report pada visual basic bisa dilakukan dengan mudah jika mengetahui betul- betul tool data report pada visual basic. Pertama , membuat data report yang masih blank klik kanan pada area window project.

 Form Data Report akan ditampilkan seperti gambar di bawah ini,

Agar lebih mudah dalam hal penataan maka ikuti tips berikut, klik kanan pada area Form Data Report. Hilangkan Centang show grid, show ruler, snap to grid

Berikut tampilan data report yang mudah digunakan untuk membuat laporan khususnya dalam hal penataan.

Baca Lanjutannya >> Menghubungkan data report VB6 dengan query atau tabel di database

Read More

Membuat KeyLogger dengan VB

Apa itu KeyLogger, mungkin semua orang pasti sudah tau, sebuah Aplikasi yang bertugas untuk merekam aktifitas Keyboard Computer lalu menyimpan nya lebih kurang begitulah definisi nya (heheheheh). Pada Posting kali ini saya coba Share Cara Membuat KeyLogger dengan VB (Visual Basic).

Syarat :
- Mengerti dan faham apa itu VB (Visual Basic)
- Photo Copy KTP 2 Lbr

Berikut ini adalah cara membuat KeyLogger yang sangat sederhana dengan VB, bagi yang tertarik silahkan klik gambar dibawah untuk dowload app nya, semoga bermamfaat.

Read More

Membuat Exit Layout pada Form VB

Contoh Exit Layout Form dengan Visual Basic .. Codding by eRGe

Layout nya seperti video dibawah ini

Bagi yang tertarik dengan animasi silahkan Copas coding dibawah ini, Persiapan Buat sebuah Project Baru Standart EXE tambahkan 1 buah Control CommandButton

Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub

Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long

For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight

If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub

Mudah - mudahan ada mamfaatnya, akan Update Aplikasi Gudang yang sekarang masih dalam uji coba dan akan di post di blog ini kalau sudah finishing.

Read More

Membuat Form Transparan

Tips kali ini adalah bagaimana Membuat Form Transparant dengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini

Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :

• Buat Project Baru Standart Exe

Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna merah dengan angka yang lain (maximal value 255). Mudah - mudahan ada mamfaatnya selamat mencoba ... salam

Read More

How to create a manifest file with code

In this article I do not discuss again what is manifest file functions because of my previous article already exists precisely here, so now the discussion is how to incorporate into a Visual Basic project, so the Manifest file is created automatically if removed.
for those of you who are interested in this tip, please follow the way of making the code below

Step 1

• create a new standard exe project

• add module

Step 2
Place the following code in the module project

Option Explicit
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Sub InitialiseXPControls()
Dim intFreeFile As Integer
Dim lngReturn As Long
Dim strEXEFile As String
Dim strManifestFile As String

strEXEFile = App.Path & "\" & App.EXEName & ".exe"
strManifestFile = strEXEFile & ".manifest"

If Dir(strEXEFile) <> "" And Dir(strManifestFile) = "" Then
intFreeFile = FreeFile()

Open strManifestFile For Output As #intFreeFile
Print #intFreeFile, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #intFreeFile, "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">"
Print #intFreeFile, "<assemblyIdentity"
Print #intFreeFile, " version = ""1.0.0.0"""
Print #intFreeFile, " processorArchitecture = ""X86"""
Print #intFreeFile, " name = ""Microsoft.Winweb.VB_Application"""
Print #intFreeFile, " type=""win32"""
Print #intFreeFile, "/>"
Print #intFreeFile, "<description>GSoftware</description>"
Print #intFreeFile, "<dependency>"
Print #intFreeFile, " <dependentAssembly>"
Print #intFreeFile, " <assemblyIdentity"
Print #intFreeFile, " type=""win32"""
Print #intFreeFile, " name = ""Microsoft.Windows.Common-Controls"""
Print #intFreeFile, " version = ""6.0.0.0"""
Print #intFreeFile, " processorArchitecture = ""X86"""
Print #intFreeFile, " publicKeyToken = ""6595b64144ccf1df"""
Print #intFreeFile, " language = ""*"""
Print #intFreeFile, " />"
Print #intFreeFile, " </dependentAssembly>"
Print #intFreeFile, "</dependency>"
Print #intFreeFile, "</assembly>"
Close #intFreeFile

Shell strEXEFile, vbNormalFocus
End
End If

lngReturn = InitCommonControls()
End Sub

Step 3
Please call InitialiseXPControls in sub main or startup form your project

Now your application will follow the theme of your windows that apply, good luck. If you have any problems please contact me or can you confirm by email, may be useful for you.

Read More

Contoh Encrypt dan Decrypt Teks dengan Visual Basic

Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengiriman data dan lain-lain. Disini saya memberikan contoh dasar bagaimana pembuatan Encrypt dan Descript teks tersebut dengan Visual Basic

Sintax :
1. EncryptText(strText As String, ByVal strPwd As String) As String
2. DecryptText(strText As String, ByVal strPwd As String)

contoh :
EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨
DecryptText("ž¶ªgŒ»£¨","gila") = Uji Coba

Bagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini

Persiapan yang harus dilakukan

• Buat Project Baru Standart Exe
• 3 Buah TextBox (Text1,Text2, Text3)
• 2 Buah CommandButton (Command1, Command2)
• 2 Buah Label
  
• 1 buat Moudule
  
• Design form seperti Gambar dibawah ini

Contoh Design Project Form Engcrypt - Descrypt


Tempat Coding dibawah ini pada Module

Option Explicit

#Const CASE_SENSITIVE_PASSWORD = False

'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Decrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Ketik Coding dibawah ini pada Form Project

Option Explicit

Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub

Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub

Cukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ... salam

Read More

TIPS UNTUK TEXTBOX VB

Hampir tiga minggu blog ekakom ini gak update posting, ini karena ada sedikit kesibukan maklum nyari uang tambahan buat uang bli rokok (wekekekeke) trus lagi ngurus blog yang satunya lagi http://ndakdo.blogspot.com sekalian belajar modiv template.

Untuk postingan kali ini masih seputaran Visual Basic yaitu mengenai Control Textbox, saya coba berbagi sedikit tips mengenai control ini buat VB Beginner karena ada beberapa dari sobat-sobat bertanya melalui email saya, yg pertanyaan nya lebih kurang seperti ini ..
"Mas kalo buat inputan hanya berupa angka dan kalau Huruf Kapital aja dimuat di textbox cara nya bagaimana" , disini saya akan langsung membahas nya.

yang perlu dingat adalah event ini terjadi saat user ato pengguna menekan tombol keyboard atau yang lebih tepat nya pada event Keypress(KeyAscii as integer). nah untuk mengizinkan user hanya menginput berupa angka (number) codding nya seperti dibawah ini

Option Explicit

Const vbKeyDecPt = 46

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Untuk Menampilkan semua huruf Kapital (Huruf besar) pada textbox walaupun tombol Caps lock pada keyboard tidak di pencet codding seperti dibawah ini

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

Event ini tidak akan berjalan kalo codding nya tidak ditempatkan pada event KeyPress(KeyAscii As Integer).

mudah-mudahan ada mamfaatnya bagi sobat-sobat VB Beginner ... dan terimakasih sebelumnya buat temen-temen yang sudah berkenan memberikan komentar nya ... salam

Read More

Membuat Caption Label Bergerak (VB)

Semangat lagi nih Pagerank udah pulih , hehehe .. kemarin sempat diturunin jadi dua sekarang udah normal lagi jadi tiga .. thx mbah Google (wekekeke). Walau beberapa hari ini jarang ol dikarenakan ada sedikit gangguan tapi eRGe masih sempatkan untuk Update Posting Blog Ekakom ini, Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)

Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).

Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam), terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.

Read More

Membuat Efek Vibrate Pada Form (VB)

Masih tentang Tips Visual Basic tentu nya .. kali ini eRGe mencoba berbagi lagi tentang Membuat Efek Vibrate pada Form . sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer tentunya yang masih junior. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah efek getaran jadi sewaktu form di tampilan Form akan bergetar-getar seperti cacing kepanasan (wekekekeke .. kiding sob), untuk effect ini codingnya tidak panjang tidak capek ngetik nya, nah untuk mempersingkat waktu kita langsung to the point aja (wekeke..). bagi yang berminat silakan ikuti langkah-langkah berikut

Persiapan yang di lakukan :
Buat Project baru stardart exe .. lalu ketik coding berikut pada form sobat

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar seperti cacing kepanasan ... (wekekeke ....), selamat mencoba aja yah.

mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi VB Developer Junior semoga dapat menambah referensinya, sebelumnya terimakasih buat sobat-sobat yang sudah sudi mengkomentari artikel ini ... salam.

Read More

Penghitungan VB Ala Ms. Excel

Sudah berapa minggu ini vakum dengan postingan Visual Basic, seperti yang sudah tersurat dan tersirat pada blog ekakom ini, misi utama adalah Mencoba dan Belajar serta Berbagi tentang Visual Basic (hehehehehe kaya' pasukan tempur aja punya misi). Nah kesempatan kali ini eRGe kembali mencoba berbagi lagi tentang VB mengenai masalah Penghitungan VB ala Excel , sudah barang tentu sobat VB Depelopper pernah melihat perkalian seperti ini 20*10+(30-19) yang menghasilkan 211 kalau di Excel, hmm bisa kah perkalian ini di terapkan di Visual Basic .. ?, jawabannya tentu dunk (hehehehe). Bagi yang tertarik dan berminat silakan aja ikuti langkah berikut ini eRGe akan ngasih contoh codingnya

Persiapan yang dilakukan:

• Buat Project Baru Standart exe
• Tambahkan 1 buah TextBox (Text1)
• Tambahkan 1 buah Label (Label1)
• Tambahkan 1 Buah CommandButton (Command1) caption : =

'Ketik Coding dibawah ini pada Form Project

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
Dim excel_app As Object
Dim excel_sheet As Object

Set excel_app = CreateObject("Excel.Application")

excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

excel_sheet.Cells(1, 1) = "=" & Text1.Text

Label1.Caption = excel_sheet.Cells(1, 1)
Label1.Caption = Format$(Label1.Caption, "#,##0")

excel_app.ActiveWorkbook.Close False

excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Setelah semua selesai coba sobat ketik 20*10+(30-19) atau perkalian yang lain pada Text1 .. kemudian tekan enter atau click CommandButton .. pada Label1 akan didapat hasil perkalian tersebut.

Mudah-mudah ada mamfaatnya bagi kita semua khusus nya bagi rekan-rekan VB Developper yang masih junior seperti saya semoga Artikel ini bisa menambah perbendaharaan ilmu nya dan terima kasih sebelum bagi sobat-sobat yang sudah berkenan memberikan Argumen nya ... salam.

Read More

Membuat Auto Complete pada Combo Box (VB)

Pada postingan kali ini saya akan membahas kembali mengenai Visual Basic yaitu Membuat Auto Complete pada Combo Box, maksud Auto Complete disini adalah Melengkapi Teks secara Otomatis pada saat sedang melakukan pengetikan ke data yang mendekati atau yang dinginkan, dengan catatan apabila data tersebut ada pada list data Combo Box tersebut.

Tip ini sangat berguna apabila menggunakan combobox yang di dalamnya terdiri atas ratusan bahkan ribuan data. User (pengguna/pemakai program) akan kesulitan jika harus memilih satu per satu menggunakan scroll combobox ke bawah hingga data yang diinginkan ketemu. Dengan adanya tip ini, user cukup hanya mengetikkan beberapa karakter awal, dan program akan otomatis melengkapinya, sehingga tidak perlu mengetik sampai akhir. Nah bagi yang berkenan untuk Tip ini silahkan ikuti langkah-lah berikut

• Buatlah Project Baru Standart Exe
• Tambahkan 1 buah ComboBox Style : Dropdown Combo
• Tambahkan 1 buah Module

'Ketik Coding berikut pada Module

Option Explicit

Const CB_FINDSTRING = &H14C

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Enum EnumKarakter
Asli = 0
Ubah = 1
End Enum

Public Function AutoComplete( _
cbCombo As ComboBox, _
sKeyAscii As Integer, _
Optional bUpperCase As Boolean = True, _
Optional cCharacter As EnumKarakter = Asli) _
As Integer
Dim lngFind As Long, intPos As Integer
Dim intLength As Integer, tStr As String
With cbCombo
If sKeyAscii = 8 Then
If .SelStart = 0 Then Exit Function
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
intPos = .SelStart
tStr = .Text
If bUpperCase = True Then
.SelText = UCase(Chr(sKeyAscii))
Else
.SelText = (Chr(sKeyAscii))
End If
End If

lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, _
ByVal .Text)
If lngFind = -1 Then
Exit Function
Else
intPos = .SelStart
intLength = Len(.List(lngFind)) - Len(.Text)
If cCharacter = Ubah Then
.SelText = .SelText & Right(.List(lngFind), _
intLength)
Else
.Text = .List(lngFind)
End If
.SelStart = intPos
.SelLength = intLength
End If
End With
End Function

' Ketik Coding diberikut pada Form

Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo1, KeyAscii, False, Asli)
End Sub

Private Sub Form_Load()
Call AddData
End Sub

Private Sub AddData()
With Combo1
.Clear
.AddItem "Ana Lestari"
.AddItem "Budi Setiawan"
.AddItem "Eka Syahputra"
.AddItem "Wahyu Perdana"
.AddItem "Blog walking"
.AddItem "Terserah"
End With
End Sub

Kemudian Run (jalankan) Program atau tekan F5, lalu pada combobox coba ketik huruf a , maka secara Otomatis teks pada combobox akan menjadi Ana Lestari. Semoga Tip ini ada mamfaat nya bagi kita semua, dan jangan lupa nitip komennya ya, terimakasih sebelumnya ... salam

Read More

Menampilkan Angka Terbilang dengan Visual Basic

Senang rasanya bisa berbagi lagi buat temen-temen karena udah lama gak posting, kali ini tentang cara Menampilkan Angka Terbilang dengan Visual Basic. Maksud angka terbilang disini adalah penulisan angka-angka dengan huruf misalnya Rp. 1.500 jadi (Seribu Lima Ratus Rupiah) tapi tip kali ini hanya untuk penulisan bilangan genap saja dan belum bisa digunakan untuk bilangan decimal atu bilangan berkoma, untuk menghemat waktu dan jangan capek ngetiknya (udah pasti neh) lanjut aja kita dengan cara pembuatan coding nya, nah bagi yang berkenan silakan ikuti langkah-langkah berikut

Persiapan yang dilakukan

• Buat Project Baru Standart Exe

• Tambahkan 1 buah TextBox dan 1 Label

• Tambahkan 1 buah Module

’Ketik Coding dibawah ini pada module

Option Explicit

Public Const vbKeyDecPt = 46
Public Function ConvertirEnText(ValNum As Double) As String

Static Unites(0 To 9) As String
Static Dixaines(0 To 9) As String
Static LesDixaines(0 To 9) As String
Static Milliers(0 To 4) As String

Dim i As Integer
Dim nPosition As Integer
Dim ValNb As Integer
Dim LesZeros As Integer
Dim strResultat As String
Dim strTemp As String
Dim tmpBuff As String

Unites(0) = "nol"
Unites(1) = "satu"
Unites(2) = "dua"
Unites(3) = "tiga"
Unites(4) = "empat"
Unites(5) = "lima"
Unites(6) = "enam"
Unites(7) = "tujuh"
Unites(8) = "delapan"
Unites(9) = "sembilan"

Dixaines(0) = "sepuluh"
Dixaines(1) = "sebelas"
Dixaines(2) = "dua belas"
Dixaines(3) = "tiga belas"
Dixaines(4) = "empat belas"
Dixaines(5) = "lima belas"
Dixaines(6) = "enam belas"
Dixaines(7) = "tujuh belas"
Dixaines(8) = "delapan belas"
Dixaines(9) = "sembilan belas"

LesDixaines(0) = ""
LesDixaines(1) = "sepuluh"
LesDixaines(2) = "dua puluh"
LesDixaines(3) = "tiga puluh"
LesDixaines(4) = "empat puluh"
LesDixaines(5) = "lima puluh"
LesDixaines(6) = "enam puluh"
LesDixaines(7) = "tujuh puluh"
LesDixaines(8) = "delapan puluh"
LesDixaines(9) = "sembilan puluh"

Milliers(0) = ""
Milliers(1) = "ribu"
Milliers(2) = "juta"
Milliers(3) = "milyard"
Milliers(4) = "triliyun"

On Error GoTo NbVersTexteError

strTemp = CStr(Int(ValNum)) 'Untuk Konversi Angka yang di format ke default

For i = Len(strTemp) To 1 Step -1
ValNb = Val(Mid$(strTemp, i, 1))
nPosition = (Len(strTemp) - i) + 1
Select Case (nPosition Mod 3)
Case 1
LesZeros = False
If i = 1 Then
If ValNb > 1 Then
tmpBuff = Unites(ValNb) & " "
Else
tmpBuff = ""
End If
ElseIf Mid$(strTemp, i - 1, 1) = "1" Then
tmpBuff = Dixaines(ValNb) & " "
i = i - 1
ElseIf ValNb > 0 Then
tmpBuff = Unites(ValNb) & " "
Else
LesZeros = True
If i > 1 Then
If Mid$(strTemp, i - 1, 1) <> "0" Then
LesZeros = False
End If
End If
If i > 2 Then
If Mid$(strTemp, i - 2, 1) <> "0" Then
LesZeros = False
End If
End If
tmpBuff = ""
End If
If LesZeros = False And nPosition > 1 Then
tmpBuff = tmpBuff & Milliers(nPosition / 3) & " "
End If
strResultat = tmpBuff & strResultat
Case 2
If ValNb > 0 Then
strResultat = LesDixaines(ValNb) & " " & _
strResultat
End If
Case 0
If ValNb > 0 Then
If ValNb > 1 Then
strResultat = Unites(ValNb) & " ratus " & _
strResultat
Else
strResultat = "seratus " & strResultat
End If
End If
End Select
Next i
If Len(strResultat) > 0 Then
strResultat = UCase$(Left$(strResultat, 1)) & _
Mid$(strResultat, 2)
End If

EndNbVersTexte:
ConvertirEnText = strResultat & " rupiah"
Exit Function

NbVersTexteError:
strResultat = "Une Erreur !"
Resume EndNbVersTexte
End Function

Public Function AngkaTerbilang(Counter As Double) As String
On Error Resume Next
Dim A As Single
AngkaTerbilang = ConvertirEnText(Counter)
A = Len(ConvertirEnText(Counter))
If Mid(ConvertirEnText(Counter), 1, 4) = "Ribu" Then
AngkaTerbilang = "Se" + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 4) = "Juta" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "Milyard" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
End Function

’Ketik Coding dibawah ini pada Form

Option Explicit

Private Sub Text1_Change()
If Text1 <> "" Then
Text1.Text = Format(Text1, "#,##0")
Text1.SelStart = Len(Text1)
Label1.Caption = AngkaTerbilang(Text1)
Label1.Caption = StrConv(Label1, vbProperCase)
Else
Label1.Caption = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Nah coba jalankan program atau tekan F5 dan isi beberapa angka pada Text1 akan secara otomatis angka terbilangnya akan ditampilkan pada Label1.

Mudah-mudahan ada mampaat nya bagi kita semua, dan jangan lupa beri komentar nya yah … sebelumnya saya ucapkan terima kasih ... wassalam

Read More

Contoh Pembuatan Program Trial Version (VB)

Program Versi Trial merupakan suatu Program atau Aplikasi yang sengaja dibuat menggunakan batas waktu tertentu sesuai keingingan si Software Maker, jadi apabila lewat batas waktu yg sudah ditentukan program tidak dapat digunakan lagi. Apabila pengguna sudah terlanjur menyukai program tersebut dan ingin menggunakan nya lagi, mau tidak mau pengguna harus memenuhi persyaratan yg diajukan oleh si software maker. Kebanyakan Program yg seperti ini digunakan sebagai sarana untuk mempromosikan suatu progam atau aplikasi.

Nah pada postingan kali ini saya coba membahas tentang contoh pembuatan program tersebut, bagi yang berkenan silakan ikuti langkah – langkah berikut :

- Buat Project Baru (Standart Exe)
- Tambah dua buah Label pada Form

Ketik code berikut pada Form

Option Explicit

Dim x
Dim y
Dim jumlah
Dim sisa

Private Sub Form_Load()
MsgBox "Program ini hanya dapat di gunakan 5 kali", 48, "Info"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Label1.Caption = "Program sudah dijalankan " & jumlah & " Kali"
sisa = 5 - jumlah
Label2.Caption = "Sisa pemakaian " & sisa & " Kali"

If jumlah > 5 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + _
"untuk menggunakan program ini lagi" + vbCrLf + _
"Anda harus menghubungi saya ....", 4, "Info"
Unload Me
End If

End Sub

Mudah – mudahan ada mampaat nya bagi kita semua … dan terimakasih bagi yang mau ngasih komen pada postingan ini …. Salam

Read More

Contoh Aplikasi Database Bag. II (VB6)

Pada kesempatan kali saya mencoba untuk berbagi lagi khusus bagi VB developer yg masih junior seperti saya tentang Pemrogram Database yg memakai Acces 2003 bagian 2, disini saya juga tidak menulis coding-coding nya karena lumayan panjang bisa pingsan jari saya kalaw ngetik nya hehehe … tapi temen-temen bisa mendownload nya. Aplikasi ini tentang Daftar Urut Kepangkatan (DUK) PNS yaitu cara menyortir Kepangkatan PNS yg merupakan Aplikasi saya yg ke dua untuk program database. Hal-hal yang dibahas dalam aplikasi antara lain :

1. Sortiran Data
2. Contoh sederhana tentang membuat program serial number (Trial Version)
3. Input Data
4. Edit Data
5. Hapus data
6. Output data (Mencetak Data) dengan Crystall Report
7. Backup Database
8. Compact Database
9. Mencopy dan menghapus file

Screen shot seperti gambar di bawah ini

Aplikasi ini belum final 100 % , dan agar program ini bisa berjalan dengan baik .. pastikan Settingan Format Tanggal pada komputer anda dd/mm/yyyy. Bagi yg ingin memodifikasi program ini saya persilahkan.

Yang berminat bisa mendownload nya disini … untuk password aplikasi ini 1234 Semoga ada mampaat nya bagi kita semua …. Terimakasih …salam

Read More

Contoh Aplikasi Database (VB6)

Masih seputaran postingan VB, kali ini saya akan berbagi sedikit tentang membuat program database yang memakai Ms. Acces 2003. Tapi disini saya tidak menuliskan coding-coding nya karena terlalu panjang sob, capek ngetiknya. Jadi sob bisa download langsung disini, Aplikasi ini tentang pencarian data pelanggan, input, edit, menghapus data dan mengexsport database ke excel file serta dilengkapi file setup nya kalau yang mau menginstall, Aplikasi ini merupakan Aplikasi saya yang pertama untuk pemrograman Database jadi coding nya masih belum begitu rapi hehehe. Bagi yang masih VB Beginner mohon konfirmasi dulu setelah mendownload karena aplikasi ini mempunyai Password. Screen shoot seperti gambar dibawah ini

mudah-mudahan ada mamfaat nya bagi kita semua, bagi yang nyedot jangan lupa ya titip komentar nya .. makasih

User Name : telkom
Password : telkom

Read More

Control ActiveX VB Part2

Dalam membuat sebuah Aplikasi (Program) Tampilan atau design program sangat lah menunjang bagi puas nya user (pengguna program) dan Software maker itu sendiri (ciaaah), disini saya mencoba membagikan sedikit ilmu yang saya dapat untuk menunjang design tampilan tersebut yang merupakan Control ActiveX (komponen tambahan), Button adalah salah satu nya. Kalau anda tertarik bisa anda dapatkan disini dan jangan lupa baca dulu Readme nya ada panduan sedikit disana, gimana style button nya .. liat aja dibawah.

gimana ....... cool-cool kan (yaa iyaa lah gak pake' iyang donk). Kalau nyedot jangan lupa koment nya bro, mudah2an anda mamfaat nya bagi anda ... thanx (eRGe)

Read More

Mencari Selisih Tanggal (VB6)

Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut

persiapan yang dilakukan :

• Buatlah Project Baru (Standard exe)
• Tambahkan :
• 3 Label
• Label1 (Caption : Mencari Selisih Tanggal)
• Label2 (Caption : Lahir :)
• Label3 (Caption : Umur Anda)
• 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
  
• 3 Buah ComboBox ----> Style : 2 - Dropdown List
• 1 Buah Command Button

yang kurang lebih penampakannya seperti gambar dibawah ini

kemudian ketik Coding dibawah ini pada Form

Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function

Mudah2an ada manfaat nya bagi rekan2 VB Beginner dan selamat mencoba jangan lupa nitip comment nya .. makasih salam ..

Read More