Penggunaan Variabel dan Data Visual Basic

Variable adalah suatu tempat di memory komputer yang mempunyai nama
dan digunakan sebagai tempat penyimpanan sementara suatu nilai.dalam penamaan suatu variabel perlu diperhatikan syarat-syarat yang sudah ditentukan oleh Visual BasicData adalah sekumpulan informasi yang disimpan kedalam memory dan kemudian diproses oleh komputer.Dalam pemrograman Visual Basic dikenal dengan Declarasi type data,biasanya data tersebut bersifat sementara.Tipe data dalam Visual Basic umumnya dibagi dua,yaitu :

Charakter dan Numerik.Walaw pada perkembangan selanjutnya dikembangkan
menjadi beberapa tipe.Contoh type data seperti Integer,Long,Singgle,Currency..

Download Selengkapnya File | Word | PDF | Project

Mengambil Extensi Suatu File dengan Visual Basic

Persiapan :
Siapkan Kontrol-kontrol berikut ini :

Object	Name	Property	Value
Textbox	Text1	Text	(kosong)
Textbox	Text2	Text	(kosong)
Textbox	Text3	Text	(kosong)
Commanbutton	Command1	Caption	Cari File
CommonDialog	Commondialog1	-	-
Untuk menambahkan kontrol Commondialog terlebih dahulu dengan klik menu Project-Component-dan pada kotak dialog Components beri centang pada Microsoft Common Dialog Control 6.0 dan tekan Ok. Cara lain yaitu dengan menekan Ctl+T pada keyboard

Copykan kode berikut kedalam Form yang bersangkutan

Private Sub Command1_Click()<br /> CommonDialog1.ShowOpen<br /> Text1.Text = CommonDialog1.FileTitle<br /> End Sub<br /> <br /> Private Sub Text1_Change()<br /> Dim ext As String<br /> extx = Right(CommonDialog1.FileName, 3)<br /> Select Case extx<br /> Case "EXE"<br /> Text2.Text = "Application"<br /> Case "txt"<br /> Text2.Text = "Text file"<br /> Case "vbp"<br /> Text2.Text = "Vusual basic project"<br /> Case "frm"<br /> Text2.Text = "Visual basic form file"<br /> Case Else<br /> Text2.Text = extx + " File"<br /> End Select<br /> Text3.Text = CommonDialog1.FileTitle<br /> End Sub<br />

Jalankan dengan menekan tombol Start atau tekan F5 pada Keyboard Klik disini untuk Download Project
.:: Good Luck !! ::.

Menampilkan Field Database Dengan Listview Pada VB

Untuk Lebih lanjut maka Download Project ini :
Persiapan :

Object	Name	Property	Value
Form	Form1	Text	-
ListView1	lvwDosen	View	3-lvwReport
Tambahkan Component Microsoft windows common control 5.0 (SP2)
Tambahkan referensi Microsoft DAO 3.51 Object Library

Untuk Menambahkan Component Microsoft Windows Common Control 5.0 (SP2)

tekan Cotrol+T dan beri centang pada nama Component tersebut

Untuk Menambahkan Referensi Tambahkan referensi Microsoft DAO 3.51 Object Library

klick menu Project dan Pilih Referense dan beri centang pada Referensi tersebut

Copykan kode Ini kedalam Form :

Option Explicit<br /> Dim DB As DAO.Database<br /> Dim WorkJet As DAO.Workspace<br /> Dim RS As DAO.Recordset<br /> Private Sub InitDataBase()<br /> Set WorkJet = CreateWorkspace("", "admin", "", dbUseJet)<br /> Set DB = WorkJet.OpenDatabase(App.Path & "\DataMhs.mdb")<br /> Set RS = DB.OpenRecordset("dosen")<br /> End Sub<br /> Private Sub InitLvwDosen()<br /> On Error Resume Next<br /> Dim lvw As ListView<br /> Dim RS As DAO.Recordset<br /> Dim li As ListItem<br /> Set lvw = LvwDosen<br /> AddColumn lvw, "Kode Dosen", 900<br /> AddColumn lvw, "Nama Dosen", 1500<br /> AddColumn lvw, "Alamat", 1800<br /> AddColumn lvw, "Jabatan", 2000<br /> Set RS = DB.OpenRecordset("Dosen", dbOpenDynaset)<br /> If Not (RS.BOF And RS.EOF) Then RS.MoveFirst<br /> While Not RS.EOF<br /> Set li = lvw.ListItems.Add<br /> li.Text = RS!kode<br /> li.SubItems(1) = RS!nama<br /> li.SubItems(2) = RS.Fields("alamat")<br /> li.SubItems(3) = RS.Fields("jabatan")<br /> RS.MoveNext<br /> Wend<br /> Set RS = Nothing<br /> End Sub<br /> Private Sub Form_Load()<br /> InitDataBase<br /> InitLvwDosen<br /> End Sub<br />

Copykan Kode Ini kedalam Modul:
Public Sub AddColumn(lvw As ListView, Caption As String, width As Single)<br /> Dim Ch As ColumnHeader<br /> Set Ch = lvw.ColumnHeaders.Add()<br /> Ch.Text = Caption<br /> Ch.width = width<br /> End Sub<br />

Jalankan dengan Menekan F5 pada Keyboard

Good Luck

Melengkapi Isi Combobox di Visual Basic

Agar Lebih Mudah Download saja di sini :

Download Project


Persiapan :

Object	Name	Property	Value
Form	Form1	Text	-
Combo1	Combo1	Text	-
Combo2	Combo2	Text	-
Combo3	Combo3	Text	-
Combo4	Combo4	Text	-
Combo5	Combo5	Text	-

Copykan kode Ini kedalam Form

Option Explicit<br /> Const CB_FINDSTRING = &H14C<br /> 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<br /> Public Enum EnumKarakter<br /> Asli = 0<br /> Ubah = 1<br /> End Enum<br /> Dim Karakter As EnumKarakter<br /> Private Sub isisemuacombobox()<br /> Dim ctrl As Control<br /> For Each ctrl In Form1.Controls<br /> If TypeOf ctrl Is ComboBox Then<br /> With ctrl<br /> .AddItem "Amrullah"<br /> .AddItem "Iswadi"<br /> .AddItem "Cut Maria Aini"<br /> .AddItem "Zoel Fathi fauzan"<br /> .AddItem "M.Nasir"<br /> .AddItem "Azhari"<br /> .AddItem "Cut Siti Meutia"<br /> .Text = .List(0)<br /> End With<br /> End If<br /> Next<br /> <br /> End Sub<br /> Private Sub Combo1_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo1, KeyAscii, True, Asli)<br /> End Sub<br /> <br /> Private Sub Combo2_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo2, KeyAscii, False, Ubah)<br /> <br /> End Sub<br /> <br /> Private Sub Combo3_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo3, KeyAscii, True, Ubah)<br /> End Sub<br /> <br /> Private Sub Combo4_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo4, KeyAscii, False, Asli)<br /> <br /> End Sub<br /> <br /> Private Sub Combo5_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo5, KeyAscii)<br /> End Sub<br /> <br /> Private Sub Form_Load()<br /> isisemuacombobox<br /> End Sub<br /> Public Function AutoComplete(cbCombo As ComboBox, sKeyAscii As Integer, Optional bUpperCase As Boolean = True, Optional cCharacter As EnumKarakter = Asli) As Integer<br /> Dim lngFind As Long, intPos As Integer<br /> Dim intLength As Integer, tStr As String<br /> With cbCombo<br /> If sKeyAscii = 8 Then<br /> If .SelStart = 0 Then Exit Function<br /> .SelStart = .SelStart - 1<br /> .SelLength = 32000<br /> .SelText = ""<br /> Else<br /> intPos = .SelStart<br /> tStr = .Text<br /> If bUpperCase = True Then<br /> .SelText = UCase(Chr(sKeyAscii))<br /> Else 'bUpperCase = KecilSemua Then<br /> .SelText = (Chr(sKeyAscii))<br /> End If<br /> lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)<br /> If lngFind = -1 Then<br /> .Text = tStr<br /> .SelStart = intPos<br /> .SelLength = (Len(.Text) - intPos)<br /> AutoComplete = 0<br /> Exit Function<br /> Else<br /> intPos = .SelStart<br /> intLength = Len(.List(lngFind)) - Len(.Text)<br /> If cCharacter = Ubah Then<br /> .SelText = .SelText & Right(.List(lngFind), intLength)<br /> .Text = .List(lngFind)<br /> End If<br /> .SelStart = intPos<br /> .SelLength = intLength<br /> End If<br /> End If<br /> End With<br /> End Function<br />

Jalankan dengan Menekan F5 pada Keyboard
Good Luck

Topik lain