State dengan VB

Membuat State dengan VB

Tutorial VB saya kali ini membahas bagaimana caranya membuat daftar wilayah dengan VB menggunakan combobox. Wilayah disini dimaksudkan bukan berdasarkan tentang daerah sekitar kita, melainkan berupa wilayah bagian negara. Seberapa penting sih membuat form visual basic ini?. Seperti halnya kita ingin membuat sebuah program aplikasi tentang penjualan dengan geo target negara, sudah selayaknya menyediakan negara asal si pemesan berasal. Code ini penting sekali buat menunjang kompleksitas dari struktur program kita.

Dari mana Data wilayah tersebut didapatkan?
Contoh yang saya ambil menggunakan Operating System Windows.
Pernah instal ulang windows?jangan tanyakan versi dan sp-nya ke saya, karena windows modern saat ini sama saja tujuannya.
Pernah lihat ada pilihan kita harus menset jam didalam komputer kita beserta negara kita berasal?. Kalau belum pernah menginstall ulang komputer, saya saranin coba dahulu saja, biar kedepannya kamu menjadi familiar dengan kata-kata barusan.
lanjut....
Data tersebut didapatkan asli murni dari OS yang kita install barusan. Intinya...Kita akan belajar bagaimana mendapatkan informasi dari dalam Windows dan menampilkannya di program utama kita.


Desain State dengan VB
Isi Visual Basic:
- form1.frm
- Module1

Syarat komponen yang dibutuhkan:
- Combo box
- Image (buat banner www.tutorial-vb.com)

Syarat komponen tambahan:

- Tidak ada


Membuat State dengan VB

- Kenapa hanya ada combo box saja didalam form? kan disini saya hanya akan mengajarkan kepada kamu, sebagian desain menggunakan komponen tersebut. Untuk pengembangannya, kamu bisa melakukannya sendiri.


- Isikan Code ini pada form_load. Terdapat penjelasan juga.


'Kenapa ditaruh di form_load?kenapa tidak ditaruh pada combo1 saja?
'karena diprogram ini kita akan belajar seni melompat pada variabel. Melompat maksudnya Looping

Private Sub Form_Load()

MsgBox "Kunjungi saya di www.tutorial-vb.com", vbOKOnly, " ^,..,^"


Dim intStateFileNbr As Integer
Dim strBS As String
Dim strStateAbbrev As String
Dim strStateName As String

strBS = IIf(Right$(App.Path, 1) = "\", "", "\")
intStateFileNbr = FreeFile
'Kode dibawah ini adalah untuk mencari file yang berupa STATES.DAT
'Karena keberhasilan program utama kita ini terletak pada file bawaan windows tersebut
Open (App.Path & strBS & "STATES.DAT") For Input As #intStateFileNbr
'Setelah didapatkan file tersebut, maka program kita akan melakukan pemanggilan menggunakan bahasa visual basic
'Yang berupa singkatan nama wilayah, dan nama wilayahnya
Do Until EOF(intStateFileNbr)
Input #intStateFileNbr, strStateAbbrev, strStateName
'Dibawah ini contohnya adalah AK-ALASKA

'memberikan kesan ada pembatas pada variabel file tersebut berupa garis minus (-)
Combo1.AddItem strStateAbbrev & " - " & strStateName
Loop

Close #intStateFileNbr

Combo1.ListIndex = 0

SetDropDownWidth Combo1

End Sub


- Isikan Code ini pada module1. terdapat penjelasan juga.

'Karena kita akan melakukan pemanggilan dalam komputer kita, maka file yang diperlukan adalah user32
'Yang diterbitkan dengan sendmessageA
'Kenapa harus menggunakan Const? karena bilangan didalam PC harus menggunakan nilai konstanta

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SETDROPPEDWIDTH As Long = &H160
'ini adalah pemanggilan sub pada type file diatas
'-----------------------------------------------------------------------------

Public Sub SetDropDownWidth(mCombo As ComboBox)
'-----------------------------------------------------------------------------

Dim RetVal As Long
Dim PixelWidth As Long
Dim MaxWidth As Long
Dim LoopCounter As Long
Dim lWidth As Long

For LoopCounter = 0 To mCombo.ListCount - 1
lWidth = mCombo.Parent.TextWidth(mCombo.List(LoopCounter))
If lWidth > MaxWidth Then
MaxWidth = lWidth
End If
'Ini sebagian rumus yang akan kamu masukan didalam module agar program tersebut stabil

Next LoopCounter
MaxWidth = MaxWidth + (23 * Screen.TwipsPerPixelX)
If MaxWidth > (mCombo.Width * 2) Then
MaxWidth = (mCombo.Width * 2)
ElseIf MaxWidth < mCombo.Width Then
MaxWidth = mCombo.Width
End If

PixelWidth = (MaxWidth \ Screen.TwipsPerPixelX)
RetVal = SendMessage(mCombo.hwnd, CB_SETDROPPEDWIDTH, PixelWidth, 0)

End Sub




Untuk penjelasan tentang program Membuat State dengan VB, saya rasa cukup.
Kamu ingin mencoba program tersebut?
Kamu ingin copas kode tersebut di vb?

saya sudah menyediakan wadah buat kamu. Kamu bisa melakukan copas kode tersebut langsung dari web secara utuh tanpa terputus-putus seperti di atas & mendownload program itu secara utuh agar bisa digunakan di PC mode offline.
kamu bisa melihat kode dan mendapatkan sample membuat state dengan vb dengan mengklik Source Code Membuat State dengan VB
 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di http://genostix.blogspot.com