Belajar VB 6 dan VB.net

Powered by Blogger.
Sunday 15 July 2012

Fungsi LBOUND dan UBOUND


Fungsi LBOUND dan UBOUND |

LBOUND digunakan untuk mengetahui indeks pertama sebuah array sedangkan 
UBOUND digunakan untuk mengetahui indeks terakhir sebuah array. 
Contoh : 
Dim awal, akhir as integer 
Dim A(3 to 9) as integer 
Awal = Lbound(A) 
Akhir = Ubound(A) 

Unknown Pengertian

Mendeklarasikan Array


Mendeklarasikan Array |

Satu Dimensi
Dim namaVariabel (range awal to range akhir) As typeVariabel 
Contoh : Dim Bil(1 to 10) as integer
Atau
Dim namaVariabel (range) As typeVariabel 
Contoh : Dim Bil(10) as integer
Dua Dimensi
Dim namaVariabel (range awal to range akhir, range awal to range akhir) As typeVariabel 
Contoh : Dim matrikA(1 to 3,1 to 3) as integer
Atau
Dim namaVariabel (range,range) As typeVariabel 
Contoh : Dim matrikA(3,3) as integer
Unknown Pengertian
Saturday 7 July 2012

APA ITU ODBC DAN KOMPONENNYA


Sumber data yang dapat diakses menggunakan ODBC

ODBC dapat mengakses sumber data baik lokal maupun jarak jauh (remote) dengan menggunakan driver ODBC. Driver ODBC 16 bit atau 32 bit keduanya dapat digunakan untuk mengakses sumber data.

Apabila database yang digunakan adalah Microsoft Jet Database (*.MDB), maka akan lebih efisien jika menggunakan DAO daripada menggunakan driver Microsoft Access ODBC

ODBC (Open database Connectivity)

Adalah protokol standard yang dapat menghubungkan segala jenis database eksternal server atau file eksternal server. Driver ODBC yang digunakan oleh Mesin database Microsoft Jket dapat mengakses Microsoft SQL Server dan beberapa database eksternal lainnya.

Komponen-komponen ODBC :

ODBC API (function call, error code, SQL)
ODBC Driver Manager (Dynamic Link Library/ODBC32.DLL) yaitu yang mengatur driver database ODBC
ODBC Database Driver, adalah satu atau lebih DLL yang memproses pemanggilan fungsi untuk DBMS
ODBC Cursor Library (ODBCCR32.DLL) terletak diantara ODBC driver dengan ODBC Driver manager yang mengatur pembaca data
ODBC Administrator, adalah digunakan untuk mengkonfigurasi DMBS sehingga dapat digunakan untuk sumber data aplikasi.

Unknown Pengertian

PROGRAM TIMER EVENT EXAMPLE - CONTOH


Timer Event Example |

This example demonstrates a digital clock. To try this example, paste the code into the Declarations section of a form that contains a Label control and a Timer control, and then press F5.

Private Sub Form_Load ()
   Timer1.Interval = 1000   ' Set Timer interval.
End Sub

Private Sub Timer1_Timer ()
   Label1.Caption = Time   ' Update time display.
End Sub

This example moves a PictureBox control across a form. To try this example, paste the code into the Declarations section of a form that contains a Timer control and a PictureBox control, and then press F5. For a better visual effect you can assign a bitmap to the PictureBox using the Picture property.

Dim DeltaX, DeltaY As Integer   ' Declare variables.
Private Sub Timer1_Timer ()
   Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY
   If Picture1.Left < ScaleLeft Then DeltaX = 100
   If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then
      DeltaX = -100
   End If
   If Picture1.Top < ScaleTop Then DeltaY = 100
   If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then
      DeltaY = -100
   End If
End Sub

Private Sub Form_Load ()
   Timer1.Interval = 1000   ' Set Interval.
   DeltaX = 100   ' Initialize variables.
   DeltaY = 100
End Sub





Okay ulasan yang lain sedang menunggu coba anda lihat  program perintah sql serta auto search  dan 
program mengembalikan variable
Program Mencari Karakter

Unknown Latihan vb 6

CONTOH PROGRAM MENCARI KARAKTER


Program Mencari Karakter |

InStr Function Example
This example uses the InStr function to return the position of the first occurrence of one string within another.
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' String to search in.
SearchChar = "P"   ' Search for "P".

' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)   

' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' Comparison is binary by default (last argument is omitted).
MyPos = Instr(SearchString, SearchChar)   ' Returns 9.

MyPos = Instr(1, SearchString, "W")   ' Returns 0.




Okay ulasan yang lain sedang menunggu coba anda lihat  program perintah sql serta auto search  dan 
program mengembalikan variable
Program Timer Event Example
Unknown Latihan vb 6

KONEKSI CRYSTAL REPORT DAN CONTROL DATA

Untuk mengkoneksikan dengan Crystal report dan mengontrol data dari program VB |


Pada Reference dipilih Microsoft Active Data Object Recordset.

Dim Report As New CrystalReport1
Dim Ado As New ADOR.Recordset

Private Sub CmdCetak_Click()
If Ado.State = adStateOpen Then
    Ado.Close
End If
    Ado.Open "select * from sampel where No_sampel='" + TxtNoSampel.Text + "'", "sampel database"
    Report.Database.SetDataSource Ado
    Form5.CRViewer1.ReportSource = Report
    Form5.CRViewer1.ViewReport
    Form5.Show
    Set Report = Nothing
End Sub


Unknown Latihan vb 6

PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH




Untuk membuat perintah SQL dapat membaca variable :

Misall nama variabelnya “Panjang”
Print "select * from inspeksi where right" + "(No_Sampel," + Panjang + ")" + "='" + Trim(Jenis + "/" & Bln & "/" & Thn) & "'"



Auto search program:

Private Sub TxtEditSampel_Change()
xx = Len(Trim(TxtEditSampel.Text))
If xx = 0 Then
    xx = 1
    AdoInspeksi.RecordSource = "select * from inspeksi"
    AdoInspeksi.Refresh
Else
    bb = Mid$(TxtEditSampel.Text, 1, xx)
    AdoInspeksi.RecordSource = "select * from inspeksi where mid$(trim(no_sampel),1," & xx & ")='" + Trim(bb) + "'"
    AdoInspeksi.Refresh
End If
End Sub



Unknown Latihan vb 6