Program Tambahan Visual Basic Bagian 6

Program Tambahan Visual Basic Bagian 6 : Backup Database

Saat ini kita belajar bagaimana cara membuat program untuk membackup atau menyalin database.

1. Buat sebuah form baru.
2. Masukanlah objek objek berikut ini ke dalam form tersebut :

NAME	CAPTION	TOOL
Frame1	File Sumber	Frame
Frame2	Direktori Tujuan	Frame
Drive1	-	DriveListBox
Drive2	-	DriveListBox
Dir1	-	DirListBox
Dir2	-	DirListBox
File1	-	FileListBox
Label1	Direktori Asal	Label
Label2	Direktori Tujuan	Label
Text1	-	TextBox
Text2	-	TextBox
CmdCopy	Copy File	CommandButton

3. Listing Program :
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOP As shfileopstruct) As Long
Private Const FO_copy = &H2
Private Const fof_allowundo = &H40
Private Type shfileopstruct
hwnd As Long
wfunc As Long
pfrom As String
pto As String
Fflags As Integer
Faborted As Boolean
hnamemaps As Long
sprogress As String
End Type
Public Sub copy(ByVal asal As String, ByVal tujuan As String)
Dim X As shfileopstruct
With X
.hwnd = 0
.wfunc = FO_copy
.pfrom = asal & vbNullChar & vbNullChar
.pto = tujuan & vbNullChar & vbNullChar
.Fflags = fof_allowundo
End With
SHFileOperation X
End Sub
Private Sub CMDCOPY_Click()
On Error Resume Next
copy Text1.Text, Text2.Text
End Sub
Private Sub Command1_KeyPress(Keyascii As Integer)
If Keyascii = 27 Then Unload Me
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Drive2_Change()
Dir2.Path = Drive2.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Dir2_Change()
Text2.Text = Dir2.Path
End Sub
Private Sub File1_Click()
Text1.Text = File1.Path & "\" & File1.FileName
End Sub


 Hasil syntax yang kita buat

 

Program Tambahan Visual Basic Bagian 5

Program Tambahan Visual Basic Bagian 5 : Loading

Kali ini kita akan belajar cara membuat Loading.

1. Buat sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	LOADING…..	Label
Timer1	-	Timer
ProgressBar1		ProgressBar

3. Keterangan :
- Ubahlah interval dari Timer1 menjadi 100.
- Cara memunculkan ProgressBar pada ToolBox:

• Klik kanan pada ToolBox lalu pilih Components.
• Beri tanda checklist pada MICROSOFT WINDOWS COMMON CONTROL 6.0 (SP6).
• kemudian tekan APPLY atau OK.

4. Listing Program :

Private Sub Form_Activate()
Tengah
End Sub
Private Sub Timer1_Timer()
a = ProgressBar1.Value
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = a + 10
Else
Unload Me
End If
End Sub
Public Sub Tengah()
Me.Left = (Screen.Width – Me.Width) / 2
Me.Top = (Screen.Height – Me.Height) / 2
End Sub

 Hasil syntax yang kita buat

 

Program Tambahan Visual Basic Bagian 4

Program Tambahan Visual Basic Bagian 4 : Objek Warna Warni

Sekarang kita belajar bagaimana cara membuat sebuah objek menjadi berkelap kelip dan berwarna warni.

1. Buatlah sebuah form baru.
2. Masukanlah objek objek berikut ini kedalam form tadi.

NAME	CAPTION	TOOL
Label1	TULISAN INI KELAP KELIP	Label
Text1	-	TextBox
Timer1	-	Timer

3. Keterangan :
Untuk Timer1 Gantilah intervalnya menjadi 200.
 
4. Listing Program :

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Text1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

5. Anda bisa memilih apakah hanya beberapa objek ataukah semuanya yang dijadikan berkelap kelip warna warni.

 Hasil syntax yang kita buat

 

Program Tambahan Visual Basic Bagian 3

Program Tambahan Visual Basic Bagian 3 : Text Berjalan

Kita akan belajar bagaimana membuat sebuah text atau tulisan menjadi berjalan.

1. Buatlah sebuah form baru.
2. Masukanlah objek objek berikut ini kedalam form tersebut :

NAME	CAPTION	TOOL
Timer1	-	Timer
Timer2	-	Timer
Timer3	-	Timer
Label1	Contoh Berjalan Ke Kiri	Label
Label2	Contoh Berjalan Ke Kanan	Label
Label3	Contoh Berjalan Terus	Label

3. Keterangan :
Untuk semua Timer gantilah intervalnya menjadi 100
 
4. Listing Program :
Dim KIRI As Integer
Dim TULISAN1 As String
Dim KANAN As Integer
Dim TULISAN2 As String
Private Sub Form_Load()
TULISAN1 = Label1
TULISAN2 = Label2
End Sub
Private Sub Timer1_Timer()
Label1 = KIRI
TULISAN1 = Right(TULISAN1, Len(TULISAN1) – 1) & Left(TULISAN1, 1)
Label1 = TULISAN1
End Sub
Private Sub Timer2_Timer()
Label2 = KANAN
TULISAN2 = Right(TULISAN2, 1) & Left(TULISAN2, Len(TULISAN2) – 1)
Label2 = TULISAN2
End Sub
Private Sub Timer3_Timer()
If Label3.Left >= Width Then
Label3.Left = -Label3.Width
Else: Label3.Left = Label3.Left + 100
End If
End Sub

  Hasil syntax yang kita buat


 

i

 

 

Program Tambahan Visual Basic Bagian 2

Program Tambahan Visual Basic Bagian 2 : Text Berkedip

Kita akan belajar bagaimana membuat Text menjadi berkedap kedip

1. Buatlah 2 buah form dengan beberapa objek sebagai berikut :

NAME	CAPTION	TOOL
Form1	KEDIP 1	Form
Form2	KEDIP 2	Form
Timer1(Form1)	-	Timer
Timer2(Form2)	-	Timer
Label1	ASSALAMUALAIKUM	Label
Label2	WELCOME	Label
Label3	SELAMAT DATANG	Label

2. Keterangan :
- Label1 diletakan pada FORM1
- Label2 diletakan pada FORM2
- Label3 diletakan pada FORM2
- Timer1 diletakan pada FORM1
- Timer2 diletakan pada FORM2
- Timer1 dan Timer2 intervalnya dirubah menjadi 250
 
3. Listing Programnya adalah :
- Form1 (KEDIP 1)
Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

- Form2 (KEDIP 2)
Private Sub Timer2_Timer()
If Label2.Visible = True Then
Label2.Visible = False
Label3.Visible = True
ElseIf Label2.Visible = False Then
Label2.Visible = True
Label3.Visible = False
End If
End Sub

4. Jalankan kedua form tersebut satu persatu.
(sebenarnya kedua form ini juga bisa digabung menjadi satu form saja, tetapi saya buat seperti ini untuk melihat perbedannya walaupun sedikit).

 
Hasil Syntax yang kita buat

 

Program Tambahan Visual Basic Bagian 1

Program Tambahan Visual Basic Bagian 1 : Animasi Gerakan Form

Kita akan belajar membuat sebuah form mempunyai animasi ketika dibuka atau ditutup.
(Jika kurang mengerti silahkan lihat gambar paling bawah).
1. Buatlah 3 buah form baru disertai dengan objek objek lainnya seperti dibawah ini :

NAME	CAPTION	TOOL
Form1	ANIMASI	Form
Form2	VERTIKAL	Form
Form3	HORIZONTAL	Form
CmdBukaSamping	Buka Samping	CommandButton
CmdBukaAtas	Buka Atas	CommandButton
CmdTutupSamping	Tutup Samping	CommandButton
CmdTutupBawah	Tutup Bawah	CommandButton
Timer1 (FORM2)	-	Timer
Timer2 (FORM3)	-	Timer

 
2. Keterangan :
– CmdBukaSamping dan CmdBukaAtas diletakkan pada Form1
- CmdTutupSamping diletakkan pada FORM2
- CmdTutupBawah diletakkan pada FORM3
- Timer1 diletakan pada FORM2
- Timer2 diletakan pada FORM3
- Timer1 dan Timer2 intervalnya dirubah menjadi 1

3. Listing Programnya adalah :
- Form1 (ANIMASI)
Private Sub CMDBUKASAMPING_Click()
Form2.Show
End Sub
Private Sub CMDBUKAATAS_Click()
Form3.Show
End Sub

- Form2 (HORIZONTAL)
Private Sub CMDTUTUPSAMPING_Click()
Do
Me.Left = Me.Left + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Unload Me
End Sub
Private Sub Form_Load()
Me.Width = 10
End Sub
Private Sub Timer1_Timer()
Me.Width = Me.Width + 100
Tengah
If Me.Width >= 4000 Then
Timer1.Enabled = False
Tengah
End If
End Sub
Public Sub Tengah()
Me.Left = (Screen.Width – Me.Width) / 2
Me.Top = (Screen.Height – Me.Height) / 2
End Sub

- Form3 (VERTIKAL)
Private Sub CMDTUTUPBAWAH_Click()
Do
Me.Top = Me.Top + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height – 500
Unload Me
End Sub
Private Sub Form_Load()
Me.Height = 10
End Sub
Private Sub Timer2_Timer()
Me.Height = Me.Height + 100
Tengah
If Me.Height >= 3000 Then
Timer1.Enabled = False
Tengah
End If
End Sub
Public Sub Tengah()
Me.Left = (Screen.Width – Me.Width) / 2
Me.Top = (Screen.Height – Me.Height) / 2
End Sub
 Hasil Syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 18

Belajar Visual Basic Dasar Bagian 18 : Contoh Program Sederhana

1. Buatlah sebuah Form baru.
2. Database nya masih seperti yang ada di tutorial 1 (DBbarang / Table_Barang).
3. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	TOKO "ABC"	Label
Label2	Pembeli	Label
Label3	Tanggal Beli	Label
Label4	Pilih Barang	Label
Label5	Kode Barang	Label
Label6	Nama Barang	Label
Label7	Harga Barang	Label
Label8	Jumlah Beli	Label
Label9	Total Harga	Label
Label10	Uang Bayar	Label
Label11	Uang Kembali	Label
Tanggal	-	Label
Jam	-	Label
TxtNama	-	TextBox
TxtHarga	-	TextBox
TxtPembeli	-	TextBox
Txtjumlah	-	TextBox
TxtTotal	-	TextBox
TxtBayar	-	TextBox
TxtKembali	-	TextBox
DTpicker1	-	DTpicker
DBcombo1	-	DBcombo
ChkBaju	Baju Rp.25000	CheckBox
ChkCelana	Celana Rp.15000	CheckBox
ChkDasi	Dasi Rp.5000	CheckBox
OptKirim	Dikirim (Biaya 5000)	OptionButton
OptTidak	Tidak dikirim	OptionButton
Timer1	-	Timer
Data1	-	Data
CmdTutup	Tutup	CommandButton

4. Cara pemakaian program ini (lihat gambar) :
- Tanggal dan jam akan muncul otomatis
- Masukan nama pembeli dengan menulisnya secara manual.
- Masukan tanggal pembelian dengan memilih tanggal pada DTpicker1.
- Masukan kode barang yang ingin dibeli pada DBcombo1 maka nama barang dan harga barang akan muncul secara otomatis.
- Masukanlah jumlah barang yang dibeli lalu tekan tombol ENTER pada keyboard anda.
- Beri tanda checklist pada CheckBox yang ada jika anda ingin membeli seragam tambahan.
- Pilihlah cara pengiriman barang apakah barang yang dibeli ingin dikirim atau tidak dengan menggunakan OptionButton.
- Total bayar akan muncul otomatis.
- Masukanlah uang bayar maka uang kembali akan muncul secara otomatis.
- Tekan tombol TUTUP untuk menutup program dan nanti akan muncul pesan "SELAMAT TINGGAL !".
 
5. Listing Program :
Private Sub DBCombo1_Click(Area As Integer)
Data1.Recordset.FindFirst "Kode=’" & DBCombo1.Text & "’"
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
- Ketika DBcombo di klik maka akan terjadi pencarian data yang field Kode database nya sama dengan yang dipilih di DBcombo.
- Setelah itu maka data yang berhubungan dengan kode yang dipilih (nama dan harga) akan ditampilkan pada TextBox TextBox yang ada.
- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi data dari TXTKODE adalah isi dari field Kode yang ada di database.

Private Sub TXTJUMLAH_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTOTAL.Text = Val(TXTJUMLAH.Text) * Val(TXTHARGA.Text)
End If
End Sub
- KeyAscii = 13 (KeyPress) ini digunakan untuk perintah menekan tombol ENTER pada keyboard.
- Disini terjadi perhitungan yaitu TXTJUMLAH dikalikan dengan TXTHARGA yang hasilnya diletakan pada TXTTOTAL.
 
Private Sub CHKBAJU_Click()
If CHKBAJU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 25000
Else
If CHKBAJU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 25000
End If
End If
End Sub
- Maksudnya jika CHKBAJU dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 25000
tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 25000

Private Sub CHKCELANA_Click()
If CHKCELANA.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 15000
Else
If CHKCELANA.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 15000
End If
End If
End Sub
- Maksudnya jika CHKCELANA dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 15000
tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 15000

Private Sub CHKDASI_Click()
If CHKDASI.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 5000
Else
If CHKDASI.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 5000
End If
End If
End Sub
- Maksudnya jika CHKDASI dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 5000
tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 5000

Private Sub OPTKIRIM_Click()
If OPTKIRIM.Value = True Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 5000
End If
End Sub
- Maksudnya jika OPTKIRIM dipilih (True) maka TXTTOTAL = TXTTOTAL ditambah 5000

Private Sub OPTTIDAK_Click()
If OPTTIDAK.Value = True Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 0
End If
End Sub
- Maksudnya jika OPTTIDAK dipilih (True) maka TXTTOTAL = TXTTOTAL ditambah 0
 
Private Sub TXTBAYAR_Change()
TXTKEMBALI.Text = Val(TXTBAYAR.Text) – Val(TXTTOTAL.Text)
End Sub
- Change digunakan agar ketika kita menulis suatu data maka data yang lain akan tertulis pada suatu objek yang telah ditentukan.
disini maksudnya jika kita menulis angka pada TXTBAYAR maka TXTKEMBALI akan tertulis secara otomatis.
- Disini terjadi perhitungan TXTBAYAR dikurangi TXTTOTAL yang hasilnya akan muncul pada TXTKEMBALI.
 
Private Sub CMDTUTUP_Click()
MsgBox "SELAMAT TINGGAL"
Unload Me
End Sub
- Unload Me adalah kode untuk keluar dari form.
- Msgbox maksudnya adalah Kotak Suara (Message Box) yang berisi suatu pesan.
 
Private Sub Timer1_Timer()
TANGGAL.Caption = Date
JAM.Caption = Time
End Sub
- Label TANGGAL caption (tulisannya) akan diisi dengan tanggal hari ini.
- Label JAM caption (tulisannya) akan diisi dengan jam sekarang.

Hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 17

Belajar Visual Basic Dasar Bagian 17 : DBcombo, DTpicker, SStab

1. Buat sebuah form baru.
2. Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).
3. Masukan objek-objek dibawah ini :

NAME	CAPTION	TOOL
DBCombo1	-	DBCombo
DTPicker1	-	DTPicker
SSTab1	-	SSTab
Data1	-	Data
TxtKode	Kode	TextBox
TxtNama	Nama	TextBox
TxtHarga	Harga	TextBox
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label

4. PERHATIAN :
Untuk memunculkan DBcombo, DTpicker, SStab caranya dengan mengklik kanan pada ToolBox lalu pilih COMPONENTS. Pada Tab CONTROLS beri tanda check list pada :
- Untuk DBcombo : Microsoft Data Bound List Control.
- Untuk DTpicker : Microsoft Windows Common Control -2 6.0 (SP 6).
- Untuk SStab : Microsoft Tabbed Dialog Control.

5. Pada properties SStab, gantilah TABS dan TABS PER ROW nya masing masing menjadi 2.
6. Letakan DTpicker pada Tab kedua (TAB 1) sedangkan seluruh objek yang lain diletakkan pada Tab pertama (TAB 0).

7. Listing Program (untuk DBCOMBO1 saja) :
Private Sub DBCombo1_Click(Area As Integer)
Data1.Recordset.FindFirst "Kode=’" & DBCombo1.Text & "’"
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
KETERANGAN :
- Ketika DBcombo di klik maka akan terjadi pencarian data yang field Kode database nya sama dengan yang dipilih di DBcombo.
- Setelah itu maka data yang berhubungan dengan kode yang dipilih akan ditampilkan pada TextBox TextBox yang ada.
- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi data dari TXTKODE adalah isi dari field Kode yang ada di database.

8. Anda bisa berpindah dari Tab yang pertama ke Tab yang kedua hanya dengan meng klik Tab tersebut.
9. Ketika DTpicker di Klik maka akan muncul kalendar dan anda tinggal memilih tanggal yang anda inginkan.

 Hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 16

Belajar Visual Basic Dasar Bagian 16 : Pencarian 3 (dengan Input Box)

Dengan pencarian ini anda harus memasukan kode data yang anda ingin cari dengan menggunakan sebuah Input Box.
1. Buat sebuah form baru.
2. Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).
3. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Data1	-	Data
DBGrid1	-	DBGrid1
CmdCari	Cari	Command Button
TxtKode	-	TextBox
TxtNama	-	TextBox
TxtHarga	-	TextBox
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label

4. PERHATIAN : Pada DATA gantilah RECORDSET TYPE nya menjadi TABLE.
 
4. Listing Program :
Sub TAMPIL()
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
Private Sub CMDCARI_Click()
Dim Kode As String
Kode = InputBox("masukan kode!", "Cari Data")
If Kode = Empty Then Exit Sub
If Kode <> "" Then
Data1.Recordset.Index = "Kode"
Data1.Recordset.Seek "=", Kode
If Not Data1.Recordset.NoMatch Then
Call TAMPIL
Else
MsgBox "Data Tidak ada"
End If
End If
End Sub


KETERANGAN :
- Kode pada tombol CMDCARI menjalankan Procedure TAMPIL.
- Jika Input Box tidak diisi atau kosong maka Input Box akan menghilang.
- Jika Input Box diisi, maka Akan terjadi pencarian data yang ada di database yang field Kode nya sama persis dengan yang ditulis di Input Box.
- Jika data yang dicari ada maka data tersebut akan ditampilkan pada form.
- Jika data yang dicari tidak ditemukan, maka akan muncul pesan "DATA TIDAK ADA".


 Hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 15

Belajar Visual Basic Dasar Bagian 15 : Pencarian 2 (dengan Click atau Command Button)

Dengan pencarian ini anda dapat mencari data dengan cara mengetikan kode data yang dicari secara lengkap kemudian anda harus menekan tombol cari yang ada disitu.
1. Buat sebuah form baru.
2. Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).
3. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Data1	-	Data
DBGrid1	-	DBGrid1
TxtCari	-	TextBox
CmdCari	Cari	Command Button

4. Listing Program :

Private Sub CMDCARI_Click()
Data1.RecordSource = "SELECT*FROM Table_Barang WHERE Kode=’" & TXTCARI.Text & "’"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "DATA TIDAK ADA !"
End If
End Sub
KETERANGAN :
- Akan terjadi pencarian data dari Table_Barang yang ada di database yang field Kode nya sama persis dengan yang ditulis di TXTCARI.
- Jika data tidak ditemukan, maka akan muncul pesan "DATA TIDAK ADA".


  Hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 14

Belajar Visual Basic Dasar Bagian 14: Pencarian 1 (dengan Change)

Dengan pencarian ini anda dapat mencari data hanya dengan mengetikan kode data yang anda cari tanpa harus mengetik seluruh hurufnya dan secara otomatis program akan langsung mencari data tersebut tanpa harus menekan tombol yang lainnya.
1. Buat sebuah form baru.
2. Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).
3. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Data1	-	Data
DBGrid1	-	DBGrid1
TxtCari	-	TextBox
Label1	Masukan Kode Barang	Label

4. Listing Program :

Private Sub TXTCARI_Change()
Data1.RecordSource = "SELECT*FROM Table_Barang WHERE Kode LIKE’*" & TXTCARI.Text & "*’"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "DATA TIDAK ADA !"
End If
End Sub

KETERANGAN :
- Akan terjadi pencarian data dari Table_Barang yang ada di database yang field Kode nya seperti yang ditulis di TXTCARI.
- Jika data tidak ditemukan, maka akan muncul pesan "DATA TIDAK ADA".


 Hasil Syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 13

Belajar Visual Basic Dasar Bagian 13 : Command Button Dengan Procedure

1. Buatlah sebuah form baru.
2. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label
TxtKode	-	TextBox
TxtNama	-	TextBox
TxtHarga	-	TextBox
CmdTambah	Tambah	CommandButton
CmdKosong	Kosong	CommandButton
CmdSimpan	Simpan	CommandButton
CmdUbah	Ubah	CommandButton
CmdHapus	Hapus	CommandButton
CmdKeluar	Keluar	CommandButton
CmdAwal	Awal	CommandButton
CmdBelum	Sebelumnya	CommandButton
CmdLanjut	Selanjutnya	CommandButton
CmdAkhir	Akhir	CommandButton
Data1	-	Data
Dbgrid1	-	DBGrid

3. PERHATIAN : Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).

4. Adapun Listing Program beserta penjelasannya adalah sebagai berikut :

Sub BERSIH()
TXTKODE.Text = ""
TXTNAMA.Text = ""
TXTHARGA.Text = ""
End Sub
KETERANGAN :
- BERSIH adalah sebuah Procedure yang dibuat sendiri (cara membuat procedure baca pada tutorial bagian 12).
- Maksudnya TXTKODE, TXTNAMA, dan TXTHARGA tidak ada isinya (kosong).

Sub TAMPIL()
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
KETERANGAN :
- TAMPIL juga merupakan Procedure.
- Rumus diatas digunakan untuk menampilkan isi data yang ada di database menjadi terlihat di form.
- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi dari TXTKODE yang ada di form adalah isi field Kode yang ada di database.
Private Sub Form_Activate()
TAMPIL
End Sub
KETERANGAN :
- ACTIVATE biasanya menjalankan suatu kode menjadi berjalan pertama kali ketika sebuah program dijalankan.
- Disini kode yang ada hanya TAMPIL berarti di Activate ini akan dijalankan kode-kode yang ada di dalam procedure TAMPIL.
 
Private Sub CMDTAMBAH_Click()
BERSIH
TXTKODE.SetFocus
End Sub
KETERANGAN :
- Disini dijalankan isi dari procedure BERSIH.
- SET FOCUS digunakan untuk meletakkan posisi Cursor (berarti nanti Cursor akan terletak pada TXTKODE).
 
Private Sub CMDKOSONG_Click()
BERSIH
End Sub
KETERANGAN :
- Disini dijalankan isi dari procedure BERSIH.

Private Sub CMDSIMPAN_Click()
Data1.Recordset.AddNew
Data1.Recordset!Kode = TXTKODE.Text
Data1.Recordset!NAMA = TXTNAMA.Text
Data1.Recordset!HARGA = TXTHARGA.Text
Data1.Recordset.Update
Data1.Refresh
TAMPIL
End Sub
KETERANGAN :
- Rumus utama dari tombol simpan adalah ADDNEW lalu isi field-fieldnya kemudian UPDATE.
- Data1.Recordset!Kode = TXTKODE.Text maksudnya isi dari field Kode yang ada di database adalah isi dari TXTKODE yang ada di form.

Private Sub UBAH_Click()
Data1.Recordset.Edit
Data1.Recordset!Kode = TXTKODE.Text
Data1.Recordset!NAMA = TXTNAMA.Text
Data1.Recordset!HARGA = TXTHARGA.Text
Data1.Recordset.Update
Data1.Refresh
End Sub
KETERANGAN :
- Rumus utama dari tombol ubah adalah EDIT lalu isi field-fieldnya kemudian UPDATE.
- Data1.Recordset!Kode = TXTKODE.Text maksudnya isi dari field Kode yang ada di database adalah isi dari TXTKODE yang ada di form.

Private Sub HAPUS_Click()
Data1.Recordset.Delete
Data1.Refresh
TAMPIL
End Sub

KETERANGAN :
- Data akan langsung dihapus dengan rumus DELETE.
- Disini dijalankan isi dari procedure BERSIH.

Private Sub KELUAR_Click()
Unload Me
End Sub
KETERANGAN : UNLOAD ME adalah rumus untuk keluar dari form.

Private Sub CMDAWAL_Click()
Data1.Recordset.MoveFirst
TAMPIL
End Sub

KETERANGAN :
- Program akan menampilkan data yang paling awal.
- Disini dijalankan isi dari procedure TAMPIL.

Private Sub CMDBELUM_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveLast
End If
TAMPIL
End Sub
KETERANGAN :
- Program akan menampilkan data yang sebelumnya.
- Disini dijalankan isi dari procedure TAMPIL.
 
Private Sub CMDLANJUT_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
TAMPIL
End Sub

KETERANGAN :
- Program akan menampilkan data selanjutnya.
- Disini dijalankan isi dari procedure TAMPIL.
 
Private Sub CMDAKHIR_Click()
Data1.Recordset.MoveLast
TAMPIL
End Sub
KETERANGAN :
- Program akan menampilkan data yang paling akhir.
- Disini dijalankan isi dari procedure TAMPIL.

 Hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 12

Belajar Visual Basic Dasar Bagian 12 : Procedure

Procedure digunakan agar kita dapat memakai listing suatu program secara berulang-ulang di dalam satu form tanpa menulisnya kembali. Sehingga kita tidak perlu repot-repot menulis ulang suatu listing program yang sama untuk suatu objek, tetapi cukup dengan memanggil nama Procedure nya saja maka listing program yang berada didalam Procedure tersebut akan dijalankan.
Cara membuat Procedure:
- Masuklah kedalam tampilan CODE atau tempat biasa menulis Listing Program atau kode.
– Pilih menu TOOL, lalu pilih NEW PROCEDURE..
- Lalu tuliskan nama dari Procedure tersebut pada bagian NAME.
– Pilihlah TYPE dan SCOPE dari Procedure tersebut.
- Jika sudah tekan tombol OKE maka Procedure akan muncul pada bagian CODE.
– Isikan listing program pada bagian Procedure tersebut.
- Jika Procedure telah diisi oleh listing program, maka anda tinggal memanggil nama Procedure tersebut jika anda memerlukannya untuk dipakai.
Contoh memakai Procedure :
– Misalkan anda ingin menghapus isi tulisan dari beberapa textbox yang ada di form dengan menggunakan rumus yang nantinya akan dipakai pada 2 objek yang berbeda, misalkan pada tombol TAMBAH dan KOSONG.
– Maka buatlah suatu Procedure (caranya lihat diatas) dengan nama misalkan “BERSIH”.
– Lalu pada listing program Procedure tersebut tuliskan kode-kodenya misalkan :
txtkode.text=""
txtnama.text=""
txtharga.text=""
Dan seterusnya……………….
– Maka pada tombol TAMBAH atau KOSONG, anda hanya tinggal menuliskan listing program seperti ini saja :
BERSIH
- Dengan begitu ketika anda memencet tombol TAMBAH atau KOSONG maka program akan menjalankan kode-kode yang ada pada Procedure BERSIH.

 hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 11

Belajar Visual Basic Dasar Bagian 11 : Command Button dan Program Sederhana

1. Buatlah sebuah form baru.
2. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label
TxtKode	-	TextBox
TxtNama	-	TextBox
TxtHarga	-	TextBox
CmdKosong	Kosong	CommandButton
CmdSimpan	Simpan	CommandButton
CmdHapus	Hapus	CommandButton
CmdGanti	Ganti	CommandButton
CmdUbah	Ubah	CommandButton
CmdKeluar	Keluar	CommandButton
Data1	-	Data
Dbgrid1	-	DBGrid

3. PERHATIAN : Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).

4. Adapun Listing Program beserta penjelasannya adalah sebagai berikut :

Private Sub CMDKOSONG_Click()
TXTKODE.Text = ""
TXTNAMA.Text = ""
TXTHARGA.Text = ""
End Sub
KETERANGAN : maksudnya TXTKODE, TXTNAMA, dan TXTHARGA tidak ada isinya (kosong).
 

Private Sub CMDSIMPAN_Click()
Data1.Recordset.AddNew
Data1.Recordset!Kode = TXTKODE.Text
Data1.Recordset!NAMA = TXTNAMA.Text
Data1.Recordset!HARGA = TXTHARGA.Text
Data1.Recordset.Update
Data1.Refresh
End Sub

KETERANGAN :
- Rumus utama dari tombol simpan adalah ADDNEW lalu isi field-fieldnya kemudian UPDATE.
- Data1.Recordset!Kode = TXTKODE.Text maksudnya isi dari field Kode yang ada di database adalah isi dari TXTKODE yang ada di form.

Private Sub HAPUS_Click()
Data1.Recordset.Delete
Data1.Refresh
End Sub
KETERANGAN : Data akan langsung dihapus dengan rumus DELETE.

Private Sub GANTI_Click()
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
KETERANGAN :
- Rumus diatas digunakan untuk menampilkan isi data yang ada di database menjadi terlihat di form.
- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi dari TXTKODE yang ada di form adalah isi field Kode yang ada di database.
 
Private Sub UBAH_Click()
Data1.Recordset.Edit
Data1.Recordset!Kode = TXTKODE.Text
Data1.Recordset!NAMA = TXTNAMA.Text
Data1.Recordset!HARGA = TXTHARGA.Text
Data1.Recordset.Update
Data1.Refresh
End Sub
KETERANGAN :
- Rumus utama dari tombol ubah adalah EDIT lalu isi field-fieldnya kemudian UPDATE.
- Data1.Recordset!Kode = TXTKODE.Text maksudnya isi dari field Kode yang ada di database adalah isi dari TXTKODE yang ada di form.

Private Sub KELUAR_Click()
Unload Me
End Sub
KETERANGAN : UNLOAD ME adalah rumus untuk keluar dari form.

 hasil syntax yang kita buat

 

Belajar Visual Basic Bagian 10

Belajar Visual Basic Bagian 10 : Menyambungkan Database

- Untuk tutorial menyambungkan database ini kita menggunakan DATA CONTROL.
- Siapkan terlebih dahulu sebuah form dan masukan kedalamnya tool DATA dan DBGRID.
- Untuk DATA biasanya sudah muncul pada bagian ToolBox sedangkan untuk memunculkan DBGRID caranya adalah dengan mengklik kanan pada ToolBox lalu pilih COMPONENTS. Pada Tab CONTROLS beri tanda check list untuk MICROSOFT DATA BOUND GRID CONTROL lalu tekan APPLY / OK.
 
Sedangkan cara menyambungkan form ke database ada 2 cara yaitu :

1. Melalui Properties.
- Pada DATA pilih properties lalu ganti DATABASE NAME dengan nama database anda.
- Lalu ganti RECORD SOURCE menjadi nama table nya.
- Kemudian pada DBGRID pilih properties lalu ganti DATA SOURCE nya menjadi nama DATA yang tadi.

2. Menggunakan Listing Program atau Kode.
- Masukan lah listing program dibawah ini:
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/barang.mdb"
Data1.RecordSource = "select * from Table_Barang "
End Sub
keterangan :
DATABASE NAME adalah nama databasenya.
RECORDSOURCE adalah nama tablenya.

 Hasil syntax yang kita buat

 

Belajar Visual Basic Dasar Bagian 9

Belajar Visual Basic Dasar Bagian 9 : Enable, Visible, dan Show / Hide

1. Buat sebuah Form baru.
2. Masukan objek-objek dibawah ini :

NAME	CAPTION	TOOL
CmdHilang	Hilang	Command Button
CmdMuncul	Muncul	Command Button
CmdNon	Non Aktif	Command Button
CmdAktif	Aktif	Command Button
CmdTerlihat	Terlihat	Command Button
CmdSembunyi	Sembunyi	Command Button
TxtTulisan	Contoh Enable and Visible	Text Box

3. Buat sebuah Form lagi sedangkan isinya terserah anda kemudian namakan misalnya "Form1".
4. Sedangkan Listing Programnya adalah :
Private Sub CMDHILANG_Click()
TXTTULISAN.Visible = False
End Sub
Private Sub CMDMUNCUL_Click()
TXTTULISAN.Visible = True
End Sub

Private Sub CMDNON_Click()
TXTTULISAN.Enabled = False
End Sub

Private Sub CMDAKTIF_Click()
TXTTULISAN.Enabled = True
End Sub

Private Sub CMDTERLIHAT_Click()
Form1.Show
End Sub
Private Sub CMDSEMBUNYI_Click()
Form1.Hide
End Sub

5. Penjelasan Listing Program diatas :
VISIBLE : digunakan untuk menampilkan atau menghilangkan suatu objek.
jika TRUE maka objek tersebut akan terlihat.
jika FALSE maka objek itu akan hilang.
ENABLE : digunakan untuk mengaktifkan atau menonaktifkan suatu objek.
jika TRUE maka objek tersebut akan aktif dan bisa digunakan.
jika FALSE maka objek itu tidak akan aktif dan tidak bisa digunakan.
SHOW : digunakan untuk memanggil dan memunculkan suatu form
HIDE : digunakan untuk menyembunyikan suatu form.

 Gambar hasil syntax yang kita bkin :D:D

 

Belajar Visual Basic Dasar Bagian 8

Belajar Visual Basic Dasar Bagian 8 : Icon, Gambar Warna, dan Font

1. Buat sebuah form baru.
2. Masukan objek-objek dibawah ini :

NAME	CAPTION	TOOL
Label1	Welcome !!!	Label
Label2	Contoh Picture Box	Label
Label3	Contoh Image	Label
CmdOke	OK	CommandButton
Picture1	-	PictureBox
Image1	-	Image

3. Masukan Icon pada tombol OK (CmdOke) dengan cara merubah STYLE nya pada properties menjadi 1-GRAPHICAL kemudian pilih PICTURE pada properties juga dan pilih Icon nya terserah anda.
4. Masukan gambar pada Picture1 dengan cara memilih PICTURE pada properties lalu pilih gambar nya terserah anda.
5. Masukan gambar pada Image1 dengan cara memilih PICTURE pada properties lalu pilih gambar nya terserah anda.
6. Rubah Tulisan WELCOME !!! menjadi lebih besar dan rubah pula bentuk tulisan nya dengan cara memilih FONT pada properties.
7. Rubah warna Background Tulisan WELCOME !!! menjadi berwarna lain dengan cara pilih BACK COLOR pada bagian properties.
8. Rubah warna utama Tulisan WELCOME !!! menjadi berwarna lain dengan cara pilih FORE COLOR pada bagian properties.
9. Rubah warna form anda menjadi berwarna lain dengan cara pilih formnya lalu pilih BACK COLOR pada bagian properties.
10. Rubah style Tulisan Label2 dan Label3 menjadi Transparan dengan cara pilih BACK STYLE pada bagian properties.
11. Ganti Icon Form anda dengan cara pilih formnya lalu pilih ICON pada bagian properties dan masukan Icon nya terserah anda.
12. Jadikan posisi form anda menjadi berada di tengah-tengah layar komputer ketika form dijalankan dengan cara pilih formnya kemudian ganti START UP POSITION menjadi CENTER SCREEN.
13. Anda juga menghilangkan tombol tombol Maximize, Minimize, dan Close yang ada pada bagian atas sebelah kanan form anda dengan cara mengganti CONTROL BOX menjadi FALSE pada properties.
14. Jika hanya ingin menghilangkan tombol Maximize saja, maka ganti MAX BUTTON menjadi FALSE.
15. Jika hanya ingin menghilangkan tombol Minimize saja, maka ganti MIN BUTTON menjadi FALSE.

 Nah nie hasilnya coy :D:D

 

Belajar Visual Basic Dasar Bagian 7

Belajar Visual Basic Dasar Bagian 7 : Check Box beserta Tanggal dan Jam

1. Buat sebuah form baru.
2. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
ChkBuku	Buku	CheckBox
ChkPulpen	Pulpen	CheckBox
ChkGaris	Garis	CheckBox
ChkHapus	Hapus	CheckBox
ChkPensil	Pensil	CheckBox
TxtTotal	-	TextBox
TxtTanggal	-	TextBox
TxtJam	-	TextBox
Label1	Total Harga	Label
Label2	Tanggal	Label
Label3	Jam	Label
Timer1	-	Timer

KETERANGAN : Untuk Timer angka INTERVAL nya diganti menjadi 10. (diatas sepuluh juga boleh).

3. Listing Programnya :
Private Sub CHKBUKU_Click()
If CHKBUKU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 2500
Else
If CHKBUKU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 2500
End If
End If
End Sub
Private Sub CHKGARIS_Click()
If CHKGARIS.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 1000
Else
If CHKGARIS.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 1000
End If
End If
End Sub
Private Sub CHKHAPUS_Click()
If CHKHAPUS.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 500
Else
If CHKHAPUS.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 500
End If
End If
End Sub
Private Sub CHKPENSIL_Click()
If CHKPENSIL.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 1500
Else
If CHKPENSIL.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 1500
End If
End If
End Sub
Private Sub CHKPULPEN_Click()
If CHKPULPEN.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 2000
Else
If CHKPULPEN.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 2000
End If
End If
End Sub

Private Sub Timer1_Timer()
TXTTANGGAL.Text = Date
TXTJAM.Text = Time
End Sub

4. Keterangan Listing Program diatas yaitu :
If CHKBUKU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 2500
Else
If CHKBUKU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 2500
End If
End If
Maksudnya jika CHKBUKU diberi tanda (contreng), maka isi dari TXTTOTAL adalah TXTOTAL tersebut ditambah 2500,
tapi jika CHKBUKU tidak diberi tanda (tidak dicontreng), maka isi dari TXTTOTAL adalah TXTOTAL tersebut dikurangi 2500.
begitu juga dengan CheckBox yang lainnya, penjelasannya seperti diatas.

Tanggal dan Jam
TXTTANGGAL.Text = Date artinya isi dari TXTTANGGAL adalah tanggal hari ini.
TXTJAM.Text = Time artinya isi dari TXTJAM adalah jam sekarang.

5. Cara memakai program ini adalah :
- Untuk tanggal dan jam akan keluar secara otomatis.
- Sedangkan untuk Total Harga, caranya dengan memberi tanda (mencontreng) pada CheckBox yang diinginkan. Boleh mencontreng lebih dari 1 CheckBox.


 Nah nie hasil dari syntax yang kita bkin :D:D

 

Belajar Visual Basic Dasar Bagian 6

Belajar Visual Basic Dasar Bagian 6 : Combo Box, List Box dan Option Button

1. Buatlah sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	Pilih Barang	Label
CboBarang	-	ComboBox
List1	-	ListBox
OptBuku	Buku	OptionButton
OptKertas	Kertas	OptionButton
OptBenang	Benang	OptionButton
TxtHarga	-	TextBox
TxtSatuan	-	TextBox
Label2	Harga	Label
Label3	Satuan	Label

3. Listing Programnya :
Private Sub Form_Load()
CBOBARANG.AddItem "BUKU"
CBOBARANG.AddItem "KERTAS"
CBOBARANG.AddItem "BENANG"
List1.AddItem "BUKU"
List1.AddItem "KERTAS"
List1.AddItem "BENANG"
End Sub

Private Sub CBOBARANG_Click()
If CBOBARANG.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else
If CBOBARANG.Text = "KERTAS" Then
TXTHARGA.Text = 500
TXTSATUAN.Text = "LEMBAR"
Else
If CBOBARANG.Text = "BENANG" Then
TXTHARGA.Text = 1500
TXTSATUAN.Text = "HELAI"
End If
End If
End If
End Sub

Private Sub List1_Click()
If List1.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else
If List1.Text = "KERTAS" Then
TXTHARGA.Text = 500
TXTSATUAN.Text = "LEMBAR"
Else
If List1.Text = "BENANG" Then
TXTHARGA.Text = 1500
TXTSATUAN.Text = "HELAI"
End If
End If
End If
End Sub

Private Sub OPTBUKU_Click()
If OPTBUKU.Value = True Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
End If
End Sub
Private Sub OPTKERTAS_Click()
If OPTKERTAS.Value = True Then
TXTHARGA.Text = 500
TXTSATUAN.Text = "LEMBAR"
End If
End Sub
Private Sub OPTBENANG_Click()
If OPTBENANG.Value = True Then
TXTHARGA.Text = 1500
TXTSATUAN.Text = "HELAI"
End If
End Sub


4. Penjelasan dari Listing Program tersebut :

A. COMBO BOX
CBOBARANG.AddItem "BUKU" digunakan untuk memunculkan tulisan "BUKU" pada ComboBox (CBOBARANG).
If CBOBARANG.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else ………… END IF
Maksudnya jika pada CBOBARANG dipilih tulisan "BUKU", maka isi dari TXTHARGA adalah 3000 dan isi dari TXTSATUAN adalah BUAH.
selain itu …………… dan seterusnya hingga diakhiri dengan END IF.

B. LIST BOX
List1.AddItem "BUKU" digunakan untuk memunculkan tulisan "BUKU" pada ListBox (List1).
If List1.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else ………….. END IF
Maksudnya jika pada LIST1 dipilih tulisan "BUKU", maka isi dari TXTHARGA adalah 3000 dan isi dari TXTSATUAN adalah BUAH.
selain itu …………… dan seterusnya hingga diakhiri dengan END IF.

C. OPTION BUTTON
If OPTBUKU.Value = True Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
End If
Maksudnya jika OPTBUKU dipilih, maka isi dari TXTHARGA adalah 3000 dan isi dari TXTSATUAN adalah BUAH.
begitu juga penjelasan untuk OPTKERTAS dan OPTBENANG hanya berbeda isinya saja.

 Hasil syntax yang td kita bkin coy :D:D

 

Belajar Visual Basic Dasar Bagian 5

Belajar Visual Basic Dasar Bagian 5 : Message Box (kotak Pesan)

1. Buat sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
CMDKELUAR1	KELUAR 1	COMMAND BUTTON
CMDKELUAR2	KELUAR 2	COMMAND BUTTON

3. Listing Programnya adalah :
Private Sub CMDKELUAR1_Click()
Unload Me
MsgBox "SELAMAT TINGGAL", vbOKOnly, "TEKAN OKE SAJA"
End Sub
Private Sub CMDKELUAR2_Click()
X = MsgBox("MAU KELUAR ?", vbQuestion + vbYesNo, "TEKAN OKE ATAU CANCEL")
If X = vbYes Then
Unload Me
End If
End Sub

4. Penjelasan Listing Programnya :
- UNLOAD ME adalah kode untuk keluar dari form yang sedang aktif.
- MSGBOX adalah Message Box atau kotak untuk menampilkan sebuah pesan.
- Kalimat setelah MSGBOX adalah isi dari pesan sedangkan kalimat setelah tombol oke atau oke/cancel adalah keterangan tambahan.
 
- Untuk tombol KELUAR 1 :
MsgBox "SELAMAT TINGGAL", vbOKOnly, "TEKAN OKE SAJA"
vbOKOnly digunakan untuk memunculkan tombol OK saja.

- Untuk tombol KELUAR 2 :
MsgBox "MAU KELUAR ? ", vbQuestion + vbYesNo, "TEKAN OKE ATAU CANCEL "
vbQuestion + vbYesNo digunakan untuk memunculkan pertanyaan sekaligus tombol YES dan NO.
X = MsgBox artinya x adalah kotak pesan.

If X = vbYes Then
Unload Me
End If
arti dari kalimat diatas adalah :
Jika pada x (kotak pesan) dipilih tombol yes, maka akan keluar dari form.
peringatan : setelah IF harus diakhiri dengan END IF.

 Nih hasilnya Syntax yang kita buat td :D:D

 

Belajar Visual Basic Dasar Bagian 4

Belajar Visual Basic Dasar Bagian 4 : Perhitungan Matematika

1. Buatlah sebuah Form baru.
2. Buatlah beberapa objek seperti dibawah ini :

NAME	CAPTION	TOOL
Label1	Angka 1	Label
Label2	Angka 2	Label
Label3	Hasil	Label
Txt1	-	Textbox
Txt2	-	Textbox
TxtHasil	-	Textbox
cmdTambah	TAMBAH	CommandButton
cmdKurang	KURANG	CommandButton
cmdKali	KALI	CommandButton
cmdBagi	BAGI	CommandButton

 
3. Listing Programnya adalah :
Private Sub CMDTAMBAH_Click()
TXTHASIL.Text = Val(TXT1.Text) + Val(TXT2.Text)
End Sub
Private Sub CMDKURANG_Click()
TXTHASIL.Text = Val(TXT1.Text) – Val(TXT2.Text)
End Sub
Private Sub CMDKALI_Click()
TXTHASIL.Text = Val(TXT1.Text) * Val(TXT2.Text)
End Sub
Private Sub CMDBAGI_Click()
TXTHASIL.Text = Val(TXT1.Text) / Val(TXT2.Text)
End Sub

4. Keterangan Listing Programnya :
- VAL disitu digunakan untuk melakukan perhitungan yang fungsi aslinya adalah merubah file yang bertipe STRING (bisa berupa huruf atau angka ) menjadi INTEGER (biasanya angka saja).
- TXTHASIL.Text = Val(TXT1.Text) + Val(TXT2.Text) maksudnya isi dari TXTHASIL adalah isi dari TXT1 ditambah isi dari TXT2.
begitu juga untuk yang pengurangan, pengalian, atau pembagian maksudnya juga seperti itu.

5. Cara memakai programnya :
- Masukan angka pertama terserah anda pada TXT1.
- Masukan angka kedua terserah anda pada TXT2.
- Tekan tombol TAMBAH, KURANG, KALI, atau BAGI untuk melakukan perhitungan TXT1 dan TXT2.
- Hasil dari perhitungan tersebut akan muncul pada TXTHASIL.

 Ciluk braaaaaaaaaaaaaaaa....inilah hasilnya....lihat gambar coy :D

 

 

Belajar Visual Basic Dasar Bagian 3

Belajar Visual Basic Dasar Bagian 3 : Label, Textbox, Command Button

1. Buatlah sebuah Project dan Form baru.
2. Buatlah beberapa objek yang ada pada TOOLBOX dan masukan pada form yang anda buat adapun pengaturan pada PROJECT PROPERTIES nya adalah seperti dibawah ini :

NAME	CAPTION	TOOL
LABEL1	TULISAN 1	LABEL
LABEL2	TULISAN 2	LABEL
LABEL3	TULISAN 3	LABEL
TXTTULISAN1	-	TEXTBOX
TXTTULISAN2	-	TEXTBOX
TXTTULISAN3	-	TEXTBOX
CMDOKE	OKE	COMMAND BUTTON
CMDBATAL	BATAL	COMMAND BUTTON
CMDKELUAR	KELUAR	COMMAND BUTTON

3. Listing Program atau kodenya adalah sebagai berikut :

Private Sub CMDOKE_Click()
TXTTULISAN1.Text = "ASSALAMUALAIKUM"
TXTTULISAN2.Text = "HALO"
TXTTULISAN3.Text = "WELCOME"
End Sub
Private Sub CMDBATAL_Click()
TXTTULISAN1.Text = ""
TXTTULISAN2.Text = ""
TXTTULISAN3.Text = ""
End Sub
Private Sub CMDKELUAR_Click()
Unload Me
End Sub
4. Sedangkan keterangan dari Listing Program tersebut adalah :
- Jika memencet TOMBOL OKE :
TXTTULISAN1.Text = "ASSALAMUALAIKUM" maksudnya isi dari TXTTULISAN1 adalah ASSALAMUALAIKUM
TXTTULISAN2.Text = "HALO" maksudnya isi dari TXTTULISAN2 adalah HALO

TXTTULISAN3.Text = "WELCOME" maksudnya isi dari TXTTULISAN3 adalah WELCOME

anda juga bisa mengganti isi dari tulisan tersebut terserah anda.

- Jika memencet TOMBOL BATAL :
TXTTULISAN1.TEXT="" maksudnya adalah isi dari TXTTULISAN1 adalah kosong (tidak ada).
demikian juga dengan yang 2 dan 3.

- Jika memencet TOMBOL KELUAR :
UNLOAD ME adalah kode untuk keluar dari form atau menghentikannya.

5. Sedangkan cara memakai program ini adalah :
- Tekan tombol OKE untuk melihat isi dari kotak yang kosong.
- Tekan tombol BATAL untuk membatalkan atau mengosongkan kotak yang telah terisi.
- Tekan tombol KELUAR untuk keluar dari form ini.
Inilah hasilnya coy,,,,,look at the picture brad :D:D

 

 

Belajar Visual Basic Dasar Bagian 1

Belajar Visual Basic Dasar Bagian 1 : Membuat Project dan Form

selama Internet masih online kita lanjutin postingan selanjutnya coy....ok langsung sedot aja jiakakak 

A. Membuat Project dan Form.1. Pertama tama kita harus membuat sebuah Project dengan cara dibawah ini :

2. Pilih menu FILE – NEW PROJECT.
3. Pada layar NEW PROJECT pilihlah yang STANDARD EXE lalu tekan OK.
4. Dengan begitu Project telah selesai dibuat dan secara otomatis akan muncul sebuah form baru.
5. Untuk menambahkan form baru caranya adalah :
6. Pilih menu PROJECT – ADD FORM.
7. Pada layar ADD FORM pilihlah tab NEW, lalu pilih yang FORM.
8. Pembuatan form telah selesai dibuat.
B. Bagian bagian penting pada visual basic.
1. MENU berada di bagian paling atas dari layar visual basic. Terdiri dari beberapa bagian seperti FILE, EDIT, VIEW, PROJECT, dan lain lain
2. TOOLBAR biasanya terletak dibawah menu. Berisi beberapa tool standard yang biasa digunakan.
3. TOOLBOX biasanya terletak disebelah kiri layar visual basic yang terdiri dari tool-tool yang digunakan untuk menambahkan objek kedalam form.
– Jika pada bagian TOOLBOX ada tool yang ingin anda pakai tapi tidak terlihat pada toolbox nya, maka tambahkanlah dengan cara klik kanan pada toolbox tersebut lalu pilih COMPONENTS kemudian pilihlah tool yang anda ingin tambahkan.
4. PROJECT EXPLORER biasanya terletak disebelah kanan layar visual basic bagian atas. Yang menguraikan isi dari project yang kita buat.
– Untuk menampilkan suatu form, caranya cukup double click pada form yang diinginkan yang terdapat pada PROJECT EXPLORER tersebut.
5. PROPERTIES WINDOW terletak disebelah kanan layar visual basic bagian bawah. Yang digunakan untuk mengatur objek objek yang ada didalam project atau form yang sedang kita buat.

C. Memakai Project dan Form tersebut.
1. Untuk mengisi kode atau listing program pada form caranya dengan double click pada objek yang diinginkan yang terdapat pada form.
2. Untuk menjalankan form cukup dengan menekan tombol START yang ada pada TOOLBAR. Atau tekan tombol F5 pada keyboard.
3. Untuk menentukan form mana yang ingin dijalankan caranya dengan memilih menu PROJECT, lalu pilih PROJECT PROPERTIES. Pada bagian STARTUP OBJECT pilihlah form mana yang ingin dijalankan kemudian tekan OK.
4. Untuk menyimpan Project atau Form cukup dengan menekan tombol SAVE pada TOOLBAR.

Checkidot sample gambar dah,,,,byar lebih gampang ngebayangin na jiakakakka

Belajar Visual Basic Dasar Bagian 2

Belajar Visual Basic Dasar Bagian 2 : Membuat Database beserta Table

Assalamualaikum warohmatullohi wabarokatuh ! sekarang kita akan belajar menggunakan bahasa pemograman visual basic yang dasar. Sebelumnya saya juga pernah membuat tutorial visual basic tetapi untuk yang pelajaran lanjutan yaitu dengan membuat suatu program penjualan buku yang bisa anda lihat pada blog ini juga. Nah, tutorial dasar yang ini diperuntukkan untuk yang masih baru atau belum sama sekali belajar visual basic. So, happy good study, guys !
Pada tutorial belajar visual basic dasar bagian yang paling pertama ini kita akan belajar bagaimana cara membuat sebuah database. (pernah dibahas juga pada tutorial membuat program penjualan). Adapun langkah langkahnya adalah sebagai berikut :
– Bukalah program Microsoft Visual Basic
– Untuk membuat sebuah database baru caranya pilih ADD-INS – VISUAL DATA MANAGER.
– Pada layar VIS DATA pilih FILE – NEW – MICROSOFT ACCESS – VERSION 7.0 MDB lalu SAVE (simpan) dengan nama terserah anda (misalkan DBBarang).
– Pada DATABASE WINDOW buatlah Table baru dengan cara klick kanan lalu pilih NEW TABLE.
– Tulislah nama table nya pada TABLE NAME dengan nama terserah anda (misalkan Table_Barang).
– Isilah field field yang dibutuhkan dengan cara menekan tombol ADD FIELDS.
– Tuliskan nama fieldnya lalu pilih Type nya dan tulis ukuran / Size nya.
– Dibawah ini ada beberapa field yang bisa digunakan sebagai contoh :

Name	Type	Size
Kode_barang (Primary Key)	Text	6
Nama_barang	Text	20
Harga_barang	Currency	8

- Setelah semua field selesai ditulis buatlah PRIMARY KEY (kunci utama) nya dengan cara menekan ADD INDEX. Sebagai contoh tulislah:
Name: Kode_barang
Indexed fields: Kode_barang
Beri tanda checklist pada Primary dan Unique lalu tekan Oke
Tekan tombol BUILD THE TABLE.
– Dengan begitu Table tersebut telah selesai dibuat.
Demikianlah cara untuk membuat database beserta table nya.
Sedangkan untuk membuka database yang telah kita buat caranya adalah: Pilih ADD-INS – VISUAL DATA MANAGER – FILE – OPEN DATABASE – MICROSOFT ACCESS – cari database yang diinginkan. Lalu OPEN.
Checkidot sample this gambar dah biyar ada bayangan jiakakakakka....!!!