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

Penggunaan Operator Visual Basic

Operator dalam pemrograman Visual Basic adalah biasanya diartikan sebagai simbol
yang digunakan untuk melakukan suatu operasi terhadap nilai data.Simbol operator biasanya berupa
karakter ataupun kata khusus.Terdapat tiga jenis operator dalam Visual Basic yaitu :

operator Operasi(Aritmatika) : yaitu operator yang digunakan untuk melakukan
operasi matematis terhadap nilai data

Operator Perbanding : yaitu
digunakan untuk operasi yang membandingkan nilai data.

Operator Logika : yaitu operator
untuk operasi yang membandingkan suatu perbandingan

Download Selengkapnya File | Word | PDF
| Project

Mengambil Extensi Suatu File dengan Visual Basic

Klik disini untuk Download Project
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

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